...
END;
OnDelete=VAR
BinContent@1000 : Record 7302;
BEGIN
BOMComp.RESET;
BOMComp.SETCURRENTKEY(Type,"No.");
BOMComp.SETRANGE(Type,BOMComp.Type::Item);
...
...
END;
OnDelete=VAR
BinContent@1000 : Record 7302;
// Add the following line.
PlanningComponent@1088 : Record 99000829;
BEGIN
BOMComp.RESET;
BOMComp.SETCURRENTKEY(Type,"No.");
BOMComp.SETRANGE(Type,BOMComp.Type::Item);
...
...
ProdOrderComp.SETRANGE("Item No.","No.");
IF ProdOrderComp.FIND('-') THEN
ERROR(Text014,TABLECAPTION,"No.");
TransLine.SETCURRENTKEY("Item No.");
TransLine.SETRANGE("Item No.","No.");
IF TransLine.FIND('-') THEN
ERROR(Text016,TABLECAPTION,"No.");
...
...
ProdOrderComp.SETRANGE("Item No.","No.");
IF ProdOrderComp.FIND('-') THEN
ERROR(Text014,TABLECAPTION,"No.");
// Add the following lines.
PlanningComponent.SETCURRENTKEY("Item No.","Variant Code","Location Code","Due Date","Planning Line Origin");
PlanningComponent.SETRANGE("Item No.","No.");
IF PlanningComponent.FINDFIRST THEN
ERROR(Text027,TABLECAPTION,"No.");
// End of the lines.
TransLine.SETCURRENTKEY("Item No.");
TransLine.SETRANGE("Item No.","No.");
IF TransLine.FIND('-') THEN
ERROR(Text016,TABLECAPTION,"No.");
...