...
                    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...