Share
Report
450So i've made a button that inserts a line into my sales order lines. Now I know that some fields on a line normally get filled in once the saleline number and type are validated. At the moment do do not have this implemented yet in my code to add a line when i click a button.
The code i have now is following:
procedure InsertFreightCost(SalesLine: Record "Sales Line"; Price: Decimal; DocType: Option; DocNumb: Code[20]; DocDate: Date);
var
LineNo: Integer;
begin
SalesLine.Init();
SalesLine.SetFilter("Document No.", DocNumb);
SalesLine.FindSet();
if SalesLine.FindLast() then
LineNo := SalesLine."Line No." + 10000
else
LineNo := 10000;
SalesLine."Line No." := LineNo;
SalesLine."Document Type" := DocType;
SalesLine."Document No." := DocNumb;
SalesLine.Type := SalesLine.Type::"G/L Account";
SalesLine."No." := '700010';
SalesLine."Description" := 'Selling. - EU';
SalesLine.Quantity := 1;
SalesLine."Unit of Measure Code" := 'PIECES';
SalesLine."Unit Price" := Price;
SalesLine."Line amount" := Price;
SalesLine."Qty. to Ship" := 1;
SalesLine."Qty. to Invoice" := 1;
SalesLine."Shipment Date" := DocDate;
SalesLine."Planned Shipment Date" := DocDate;
SalesLine."Planned Delivery Date" := DocDate;
SalesLine."Qty. to Ship" := 1;
SalesLine."Qty. to Invoice" := 1;
SalesLine."Return Qty. to Receive" := 0;
SalesLine.Insert();
end;
So this works but i know it's not the correct way of doing this. How do i change this so that i only need to fill in the required fields and the others will fill themselves in based on the required fields?
*This post is locked for comments
All responses (
Answers (
