...
DecimalPlaces=0:5 }
{ 78 ; ;Critical Path ;Boolean ;CaptionML=ENU=Critical Path;
Editable=No }
// Delete the following line.
{ 79 ; ;Routing Status ;Option ;CaptionML=ENU=Routing Status;
// End of the deleted line.
OptionCaptionML=ENU=" ,Planned,In Progress,Finished";
OptionString=[ ,Planned,In Progress,Finished] }
{ 81 ; ;Flushing Method ;Option ;InitValue=Manual;
...
...
DecimalPlaces=0:5 }
{ 78 ; ;Critical Path ;Boolean ;CaptionML=ENU=Critical Path;
Editable=No }
// Add the following lines.
{ 79 ; ;Routing Status ;Option ;OnValidate=VAR
ProdOrderCapacityNeed@1000 : Record 5410;
BEGIN
IF (xRec."Routing Status" = xRec."Routing Status"::Finished) AND (xRec."Routing Status" <> "Routing Status") THEN
ERROR(Text008,FIELDCAPTION("Routing Status"),xRec."Routing Status","Routing Status");
IF ("Routing Status" = "Routing Status"::Finished) AND (xRec."Routing Status" <>"Routing Status") THEN BEGIN
IF NOT CONFIRM(Text009,FALSE,FIELDCAPTION("Routing Status"),"Routing Status") THEN
ERROR('');
ProdOrderCapacityNeed.SETCURRENTKEY(
Status,"Prod. Order No.","Requested Only","Routing No.","Routing Reference No.","Operation No.","Line No.");
ProdOrderCapacityNeed.SETRANGE(Status,Status);
ProdOrderCapacityNeed.SETRANGE("Prod. Order No.","Prod. Order No.");
ProdOrderCapacityNeed.SETRANGE("Requested Only",FALSE);
ProdOrderCapacityNeed.SETRANGE("Routing No.","Routing No.");
ProdOrderCapacityNeed.SETRANGE("Routing Reference No.","Routing Reference No.");
ProdOrderCapacityNeed.SETRANGE("Operation No.","Operation No.");
ProdOrderCapacityNeed.MODIFYALL("Allocated Time",0);
END;
END;
CaptionML=ENU=Routing Status;
// End of the added lines.
OptionCaptionML=ENU=" ,Planned,In Progress,Finished";
OptionString=[ ,Planned,In Progress,Finished] }
{ 81 ; ;Flushing Method ;Option ;InitValue=Manual;
...