...
PurchOrderLine."Line No.",DATABASE::"Purch. Rcpt. Line",PurchRcptHeader."No.");
UNTIL DropShipPostBuffer.NEXT = 0;
DropShipPostBuffer.SETRANGE("Order No.");
UNTIL DropShipPostBuffer.NEXT = 0;
// Add the following lines.
InvtSetup.GET;
IF InvtSetup."Automatic Cost Adjustment" <>
InvtSetup."Automatic Cost Adjustment"::Never
THEN BEGIN
InvtAdjmt.SetProperties(TRUE,InvtSetup."Automatic Cost Posting");
InvtAdjmt.MakeMultiLevelAdjmt;
END;
// End of the added lines.
IF Invoice THEN BEGIN
// Post sales and VAT to G/L entries from posting buffer
LineCount := 0;
IF InvPostingBuffer[1].FIND('+') THEN
REPEAT
END;
...
IF ICGenJnlLineNo > 0 THEN
PostICGenJnl;
// Delete the following lines.
InvtSetup.GET;
IF InvtSetup."Automatic Cost Adjustment" <>
InvtSetup."Automatic Cost Adjustment"::Never
THEN BEGIN
InvtAdjmt.SetProperties(TRUE,InvtSetup."Automatic Cost Posting");
InvtAdjmt.MakeMultiLevelAdjmt;
END;
// End of the deleted lines.
// Modify/delete sales header and sales lines
IF NOT RECORDLEVELLOCKING THEN BEGIN
IF WhseReceive THEN
WhseRcptLine.LOCKTABLE(TRUE,TRUE);
IF WhseShip THEN...