31. Dezember 2019 18:16
1. Januar 2020 14:46
2. Januar 2020 19:40
Startzeit := TIME;
ProdPlArtikel.RESET;
ProdPlArtikel.DELETEALL(FALSE);
Startzeit1 := TIME;
Item.RESET;
//Item.SETRANGE("No.",'101010000004');
Item.SETAUTOCALCFIELDS(Inventory,"Qty. on Sales Order","Lagerbestand ZELOGISTIK","Lagerbestand MUSTER");
IF Item.FINDFIRST THEN BEGIN
REPEAT
ProdPlArtikel.INIT;
ProdPlArtikel.TRANSFERFIELDS(Item);
ProdPlArtikel.Inventory := Item.Inventory;
ProdPlArtikel.INSERT;
UNTIL Item.NEXT = 0
END;
MESSAGE('Start %1 und %2 End %3',Startzeit,Startzeit1,TIME);
2. Januar 2020 20:25
2. Januar 2020 21:14
if findfirst then repeat
if findset then repeat