30. September 2015 09:29
CurrPage.SETSELECTIONFILTER(PhysInvRecLine);
IF PhysInvRecLine.FINDSET THEN BEGIN
REPEAT
Recorded := TRUE;
UNTIL PhysInvRecLine.NEXT = 0;
END;
30. September 2015 09:39
CurrPage.SETSELECTIONFILTER(PhysInvRecLine);
IF PhysInvRecLine.FINDSET THEN BEGIN
REPEAT
PhysInvRecLine.Recorded := TRUE; // muss ein Feld des Records sein
PhysInvRecLine.MODIFY; // ohne Speicherung ist der Wert beim Verlassen des Datensatzes weg
UNTIL PhysInvRecLine.NEXT = 0;
END;
CurrPage.SETSELECTIONFILTER(PhysInvRecLine);
PhysInvRecLine.MODIFYALL(Recorded,TRUE);
30. September 2015 10:03
PhysInvRecLine.SETVIEW(GETVIEW);
PhysInvRecLine.MODIFYALL(Recorded,TRUE);
30. September 2015 10:44
IF CONFIRM(Text001, TRUE) THEN BEGIN //Abfrage für den Anwender
PhysInvRecLine.COPYFILTERS(Rec); //Anstatt SETSELECTIONFILTER
IF PhysInvRecLine.FINDSET THEN BEGIN
REPEAT
PhysInvRecLine.Recorded := TRUE;
PhysInvRecLine.MODIFY;
UNTIL PhysInvRecLine.NEXT = 0;
END ELSE BEGIN
RESET;
END;
END;
30. September 2015 11:11
IF CONFIRM(Text001, TRUE) THEN BEGIN //Abfrage für den Anwender
PhysInvRecLine.COPYFILTERS(Rec); //Anstatt SETSELECTIONFILTER
PhysInvRecLine.MODIFYALL(Recorded, TRUE);
END;
30. September 2015 11:14