20. Oktober 2006 11:42
20. Oktober 2006 12:25
20. Oktober 2006 13:28
20. Oktober 2006 13:55
20. Oktober 2006 13:56
20. Oktober 2006 14:29
//Prüfung ob alle Zeilen erledigt
IF Status = Status :: erledigt THEN BEGIN
Aktualisiere := TRUE;
recZeile.RESET;
recZeile.SETRANGE("Document No.","Document No.");
IF recZeile.FIND('-') THEN
REPEAT
IF (recZeile."Line No." <> "Line No.") AND (recZeile.Status <> recZeile.Status :: erledigt) THEN
Aktualisiere := FALSE;
UNTIL recZeile.NEXT = 0;
//Wenn alle Zeilen erledigt, dann Kopf ändern
IF Aktualisiere = TRUE THEN BEGIN
recKopf.RESET;
recKopf.GET("Document No.");
NeuerKopfStatus := NeuerKopfStatus :: erledigt;
recKopf.VALIDATE(Status,NeuerKopfStatus);
recKopf.VALIDATE("Posting Date",TODAY); //Eingefügt, damit es funktioniert
recKopf.MODIFY;
END;
END;
20. Oktober 2006 15:29
Exist("Sales Line" WHERE (Document Type=FIELD(Document Type),Document No.=FIELD(xy)))
20. Oktober 2006 16:06
martinst hat geschrieben:Ein FlowField auf dem Kopf hätte das Problem auch gelöst.
- Code:
Exist("Sales Line" WHERE (Document Type=FIELD(Document Type),Document No.=FIELD(xy)))
Gruss
20. Oktober 2006 18:59
Exist("Sales Line" WHERE (Document Type=FIELD(Document Type),Document No.=FIELD(document no.),Statusfeld=Filter(<>statusfeld::erledigt)))
23. Oktober 2006 15:56