PostItemChargeLine(RecSalesLine : Record "Sales Line") IF SalesLine.Type = SalesLine.Type ::Item THEN BEGIN RecSalesLine.INIT; RecSalesLine.SETRANGE("Document No.",SalesHeader."No."); RecSalesLine.SETFILTER("Carrier Charges",'<>%1',0); SalesLineNo := SalesLineNo + 30000; RecSalesLine.VALIDATE("Document Type",SalesLine."Document Type"::Order); RecSalesLine.VALIDATE("Document No.",SalesHeader."No."); RecSalesLine.VALIDATE("Line No.",SalesLineNo); RecSalesLine.VALIDATE(Type,SalesLine.Type::"Charge (Item)"); RecSalesLine.VALIDATE("Location Code",SalesLine."Location Code"); RecSalesLine.VALIDATE("No.",'I-FREIGHT'); RecSalesLine.VALIDATE(Description,'Item Freight Charges'); RecSalesLine.VALIDATE(Quantity,1); RecSalesLine.VALIDATE("Qty. to Ship",1); RecSalesLine.VALIDATE("Qty. to Invoice",0); RecSalesLine.VALIDATE("Unit Price",SalesLine."Carrier Charges" * SalesLine."Qty. to Ship"); RecSalesLine.VALIDATE("Line Amount",RecSalesLine."Unit Price"); RecSalesLine.VALIDATE("Planned Delivery Date",SalesLine."Planned Delivery Date"); RecSalesLine.VALIDATE("Gen. Bus. Posting Group",SalesLine."Gen. Bus. Posting Group"); RecSalesLine.VALIDATE("Gen. Prod. Posting Group",SalesLine."Gen. Prod. Posting Group"); RecSalesLine.INSERT; END; As per your suggestion I have written the code like this
↧