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', '');