21. Oktober 2019 10:49
LAG.OPEN;
WHILE LAG.READ DO BEGIN
LAG2.OPEN;
WHILE LAG2.READ DO BEGIN
IF LAG.Item_No <> OldItemNo THEN BEGIN
Rec.RESET;
Rec.INIT;
MengeG := 0;
"Item No." := LAG.Item_No;
Code := LAG.Code;
"Menge Gesamt" := LAG2.Quantity;
REC.INSERT;
REC.MODIFY;
OldItemNo := LAG.Item_No;
CASE LAG2.Location_Code OF
'FOTOSTUDIO':
BEGIN
Fotostudio := LAG2.Quantity;
MengeG += LAG2.Quantity;
END;
'GROSSBEERE':
BEGIN
"Outfittery DocData Fulfilment" := LAG2.Quantity;
MengeG += LAG2.Quantity;
END;
'TRANSIT':
BEGIN
Transit := LAG2.Quantity;
MengeG += LAG2.Quantity;
END;
END;
REC.INSERT;
REC.MODIFY;
END;
END;
END;
21. Oktober 2019 11:08