4. Oktober 2012 14:16
PPZ.RESET;
DELETEALL; //Da die Source Temp ist, sonst würde der Tabelleninhalt gelöscht werden.
PPZ.SETRANGE(Anzeigen,TRUE);
PPZ.SETRANGE(Arbeitsplatz,tArbeitsplatz);
IF tDatumsfilter <> 0D THEN
PPZ.SETFILTER(Startdatum,'..%1',tDatumsfilter);
//PPZ.setrange(Arbeitsplatz,'H3L2');
PPZ.SETRANGE(Verfügbarnegativ,TRUE);
IF PPZ.FINDSET THEN
REPEAT
Rec := PPZ;
INSERT;
UNTIL PPZ.NEXT = 0;
SETRANGE(Artikelnr,Artikelnr);
IF FINDSET THEN
REPEAT
DELETE;
UNTIL NEXT = 0;
4. Oktober 2012 14:19