Skip to main content

Notifications

Announcements

No record found.

Microsoft Dynamics NAV forum
Answered

What is the proper way to insert a line in Sales order line.

Posted on by 422

So 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?
Categories:
  • Verified answer
    Suresh Kulla Profile Picture
    Suresh Kulla 43,638 on at
    RE: What is the proper way to insert a line in Sales order line.

    Use this

       procedure InsertFreightCost(SalesLine: Record "Sales Line"; Price: Decimal; DocType: Option; DocNumb: Code[20]; DocDate: Date);

       var

           LineNo: Integer;

       begin

           SalesLine.Reset;

    SalesLine.SetRange("Document Type",DocType);

    SalesLine.SetRange("Document No.",DocNumb);

    if SalesLine.FindLast() then

               LineNo := SalesLine."Line No." + 10000

           else

               LineNo := 10000;

    SalesLine.Init();

           SalesLine."Document Type" := DocType;

           SalesLine."Document No." := DocNumb;

           SalesLine."Line No." := LineNo;        

           SalesLine.Type := SalesLine.Type::"G/L Account";

           SalesLine.Validate("No.",'700010');

           SalesLine."Description" := 'Selling. - EU';

           SalesLine.Validate(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(True);

       end;

Helpful resources

Quick Links

Replay now available! Dynamics 365 Community Call (CRM Edition)

Catch up on the first D365 Community Call held on 7/10

Community Spotlight of the Month

Kudos to Saurav Dhyani!

Congratulations to the June Top 10 community leaders!

These stars go above and beyond . . .

Leaderboard

#1
André Arnaud de Calavon Profile Picture

André Arnaud de Cal... 288,584 Super User

#2
Martin Dráb Profile Picture

Martin Dráb 225,864 Super User

#3
nmaenpaa Profile Picture

nmaenpaa 101,148

Leaderboard

Featured topics

Product updates

Dynamics 365 release plans