26. Mai 2020 14:34
26. Mai 2020 15:25
26. Mai 2020 16:07
26. Mai 2020 16:27
Warehouse Activity Line - OnAfterGetRecord()
IF SumUpLines AND
("Warehouse Activity Header"."Sorting Method" <>
"Warehouse Activity Header"."Sorting Method"::Document)
THEN BEGIN
IF TempWhseActivLine."No." = '' THEN BEGIN
TempWhseActivLine := "Warehouse Activity Line";
TempWhseActivLine.INSERT;
MARK(TRUE);
END ELSE BEGIN
TempWhseActivLine.SetSumLinesFilter("Warehouse Activity Line");
IF "Warehouse Activity Header"."Sorting Method" =
"Warehouse Activity Header"."Sorting Method"::"Ship-To"
THEN BEGIN
TempWhseActivLine.SETRANGE("Destination Type","Destination Type");
TempWhseActivLine.SETRANGE("Destination No.","Destination No.")
END;
IF TempWhseActivLine.FINDFIRST THEN BEGIN
TempWhseActivLine."Qty. (Base)" := TempWhseActivLine."Qty. (Base)" + "Qty. (Base)";
TempWhseActivLine."Qty. to Handle" := TempWhseActivLine."Qty. to Handle" + "Qty. to Handle";
TempWhseActivLine."Source No." := '';
IF "Warehouse Activity Header"."Sorting Method" <>
"Warehouse Activity Header"."Sorting Method"::"Ship-To"
THEN BEGIN
TempWhseActivLine."Destination Type" := TempWhseActivLine."Destination Type"::" ";
TempWhseActivLine."Destination No." := '';
END;
TempWhseActivLine.MODIFY;
END ELSE BEGIN
TempWhseActivLine := "Warehouse Activity Line";
TempWhseActivLine.INSERT;
MARK(TRUE);
END;
END;
END ELSE
MARK(TRUE);
...
26. Mai 2020 18:09