29. Februar 2016 00:12
//Gehe alle Arbeitsplanköpfe durch
//existieren zu diesem Arbeitsplankopf irgendwelche Arbeitsplanzeilen?
CLEAR(RoutingLine);
RoutingLine.RESET;
RoutingLine.SETRANGE("Routing No.","No.");
//wenn nein, überspringe diesen Kopf
IF NOT RoutingLine.FINDFIRST THEN CurrReport.SKIP;
ZertifMerker := FALSE;
//Falls der Arbeitsplan zertifiziert ist, setze den ZertifMerker und dezertifiziere den Arbeitsplan
IF Status = Status::"Under Development" THEN CurrReport.SKIP;
IF Status = Status::Certified THEN BEGIN
   Status := Status::"Under Development";
   ZertifMerker := TRUE;
   MODIFY(TRUE);
END;
RoutingLine.RESET;
RoutingLine.SETRANGE("Routing No.","No.");
IF RoutingLine.FINDFIRST THEN REPEAT
  RoutingLine.VALIDATE("Standard Task Code");
  RoutingLine.MODIFY(TRUE);
UNTIL RoutingLine.NEXT = 0;
//Falls ZertifMerker gesetzt ist ==> den Header wieder zertifizieren
IF ZertifMerker THEN BEGIN
  VALIDATE(Status,Status::Certified);
  ZertifMerker := FALSE;
  MODIFY(TRUE);
END; 29. Februar 2016 12:55
if  ("Standard Task Code") <> '' then begin
  RoutingLine.VALIDATE("Standard Task Code", "Standard Task Code");
  RoutingLine.MODIFY(TRUE);
end;
oder
if  ("Standard Task Code") <> '' then begin
  RoutingLine.VALIDATE("Standard Task Code");
  RoutingLine.MODIFY(TRUE);
end;
 
29. Februar 2016 21:31
IF  (RoutingLine."Standard Task Code")
1. März 2016 11:42
RoutingLine.setfilter("Standard Task Code",'<>%1', '');