web
You’re offline. This is a read only version of the page.
close
Skip to main content

Announcements

No record found.

News and Announcements icon
Community site session details

Community site session details

Session Id :
Dynamics 365 Community / Forums / Small and medium business | Business Central, N... / Help:need to flow File...
Small and medium business | Business Central, N...
Suggested Answer

Help:need to flow Fileds from "Warehouse Receipt Line" to Purch. Recpt Line"

(0) ShareShare
ReportReport
Posted on by DineshM 238
Hi Experts 
I need to flow field from "Warehouse Receipt Line" to Purch. Recpt Line"  but not able to find any event subsciber in Codeunit::"Whse.-Post Receipt" can any one help me to flow using event subsciber or any other way any help Really appriciated 
i have added other sample code bellow event sub code which moving data from  "Warehouse Receipt Line" to "Posted Whse. Receipt Line" 
in my our we need to move data from   "Warehouse Receipt Line" to Purch. Recpt line
sample code 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"Whse.-Post Receipt", 'OnAfterPostedWhseRcptLineInsert', '', true, true)]
    local procedure OnAfterPostedWhseRcptLineInsert(var PostedWhseReceiptLine: Record "Posted Whse. Receipt Line"; WarehouseReceiptLine: Record "Warehouse Receipt Line")
    var

    begin
        PostedWhseReceiptLine."Supplier Lot No." := WarehouseReceiptLine."Supplier Lot No.";
        PostedWhseReceiptLine.Remarks := WarehouseReceiptLine.Remarks;
        PostedWhseReceiptLine."Supplier Date" := WarehouseReceiptLine."Supplier Date";
        PostedWhseReceiptLine."QC Inspector" := WarehouseReceiptLine."QC Inspector";
        PostedWhseReceiptLine."Sample Qty" := WarehouseReceiptLine."Sample Qty";

    end;
   
Categories:
Dynamics 365 Business Central
Dynamics 365 Business Central
I have the same question (0)
  • Suggested answer
    Mohana Yadav Profile Picture
    Mohana Yadav 61,214 Super User 2026 Season 1 on at

    You can use same subscriber and get the Purch. Recpt Header and Lines and update

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"Whse.-Post Receipt", 'OnAfterPostedWhseRcptLineInsert', '', false, false)]

       local procedure OnAfterPostedWhseRcptLineInsert(var PostedWhseReceiptLine: Record "Posted Whse. Receipt Line"; WarehouseReceiptLine: Record "Warehouse Receipt Line");

       var

           PurchaseRecptHeader: Record "Purch. Rcpt. Header";

       begin

           if PostedWhseReceiptLine."Posted Source Document" = PostedWhseReceiptLine."Posted Source Document"::"Posted Receipt" then begin

               PurchaseRecptHeader.Get(PostedWhseReceiptLine."Posted Source No.");

               //get Lines and your logic

           end;

       end;

  • DineshM Profile Picture
    DineshM 238 on at

    Hi sir

    Thank you for your Response 

    I have modified code as follow but How it will update Purch Recpt line as no Record variable taken as purch. Recpt line 

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"Whse.-Post Receipt", 'OnAfterPostedWhseRcptLineInsert', '', true, true)]

       local procedure OnAfterPostedWhseRcptLineInsert(var PostedWhseReceiptLine: Record "Posted Whse. Receipt Line"; WarehouseReceiptLine: Record "Warehouse Receipt Line")

       var

           PurchaseRecptHeader: Record "Purch. Rcpt. Header";

       begin

           if PostedWhseReceiptLine."Posted Source Document" = PostedWhseReceiptLine."Posted Source Document"::"Posted Receipt" then begin

               PurchaseRecptHeader.Get(PostedWhseReceiptLine."Posted Source No.");

               PostedWhseReceiptLine."Supplier Lot No." := WarehouseReceiptLine."Supplier Lot No.";

               PostedWhseReceiptLine.Remarks := WarehouseReceiptLine.Remarks;

               PostedWhseReceiptLine."Supplier Date" := WarehouseReceiptLine."Supplier Date";

               PostedWhseReceiptLine."QC Inspector" := WarehouseReceiptLine."QC Inspector";

               PostedWhseReceiptLine."Sample Qty" := WarehouseReceiptLine."Sample Qty";

           end;

       end;

  • Suggested answer
    Mohana Yadav Profile Picture
    Mohana Yadav 61,214 Super User 2026 Season 1 on at

    You have to get the receipt lines from receipt header and use in code.

    //get Lines and your logic

  • DineshM Profile Picture
    DineshM 238 on at

    Hi sir ,

    I have added following Code but it will give error as follows while post Receipt action

    local procedure OnAfterPostedWhseRcptLineInsert(var PostedWhseReceiptLine: Record "Posted Whse. Receipt Line"; WarehouseReceiptLine: Record "Warehouse Receipt Line")

       var

           PurchaseRecptHeader: Record "Purch. Rcpt. Header";

           PurchaseRecptLine: Record "Purch. Rcpt. line";

       begin

           if PostedWhseReceiptLine."Posted Source Document" = PostedWhseReceiptLine."Posted Source Document"::"Posted Receipt" then begin

               PurchaseRecptLine.Get(PostedWhseReceiptLine."Posted Source No.");

               PurchaseRecptLine."Supplier Lot No." := WarehouseReceiptLine."Supplier Lot No.";

               PurchaseRecptLine.Remarks := WarehouseReceiptLine.Remarks;

               PurchaseRecptLine."Supplier Date" := WarehouseReceiptLine."Supplier Date";

               PurchaseRecptLine."QC Inspector" := WarehouseReceiptLine."QC Inspector";

               PurchaseRecptLine."Sample Qty" := WarehouseReceiptLine."Sample Qty";

           end;

       end;

    pastedimage1677148170317v1.png

  • Suggested answer
    Mohana Yadav Profile Picture
    Mohana Yadav 61,214 Super User 2026 Season 1 on at

    Primary key of PurchaseRecptLine is Document No. and Line No.

    You may have multiple Lines in PurchaseRecptLine.

    Do you want to update all lines?

  • DineshM Profile Picture
    DineshM 238 on at

    yes sir

    need to update if there  single lines then single lines updation and if mutiple lines then multiple lines update from warehouse Recpt line to purch Receipt Line.

  • Suggested answer
    Mohana Yadav Profile Picture
    Mohana Yadav 61,214 Super User 2026 Season 1 on at

    You have to write something like

    PurchaseRecptLine.SetRange("Document No.", PurchaseRecptHeader."No.");

               if PurchaseRecptLine.FindSet() then

                   repeat

                       PurchaseRecptLine."Custom field" := WarehouseReceiptLine."Custom field";

                       PurchaseRecptLine.Modify();

                   until PurchaseRecptLine.Next() = 0;

  • Suggested answer
    Amit Profile Picture
    Amit 2,563 on at

    Hi,

    local procedure OnAfterPostedWhseRcptLineInsert(var PostedWhseReceiptLine: Record "Posted Whse. Receipt Line"; WarehouseReceiptLine: Record "Warehouse Receipt Line")
        var
            PurchaseRecptHeader: Record "Purch. Rcpt. Header";
            PurchaseRecptLine: Record "Purch. Rcpt. line";
        begin
            if PostedWhseReceiptLine."Posted Source Document" = PostedWhseReceiptLine."Posted Source Document"::"Posted Receipt" then begin
                PurchaseRecptLine.reset;
                PurchaseRecptLine.setrange("Document No.",PostedWhseReceiptLine."Posted Source No.");
                if PurchaseRecptLine.FindSet() then begin
                    Repeat
                        PurchaseRecptLine."Supplier Lot No." := WarehouseReceiptLine."Supplier Lot No.";
                        PurchaseRecptLine.Remarks := WarehouseReceiptLine.Remarks;
                        PurchaseRecptLine."Supplier Date" := WarehouseReceiptLine."Supplier Date";
                        PurchaseRecptLine."QC Inspector" := WarehouseReceiptLine."QC Inspector";
                        PurchaseRecptLine."Sample Qty" := WarehouseReceiptLine."Sample Qty";
                        PurchaseRecptLine.Modify
                    until PurchaseRecptLine.next =0;
                end;
            end;

        end;
    Regards
    Amit Sharma
    linkedin.com/in/amit-sharma-94542440/
    Pls press yes if info is useful.

Under review

Thank you for your reply! To ensure a great experience for everyone, your content is awaiting approval by our Community Managers. Please check back later.

Helpful resources

Quick Links

Introducing the 2026 Season 1 community Super Users

Congratulations to our 2026 Super Stars!

Meet the Microsoft Dynamics 365 Contact Center Champions

We are thrilled to have these Champions in our Community!

Congratulations to the April Top 10 Community Leaders

These are the community rock stars!

Leaderboard > Small and medium business | Business Central, NAV, RMS

#1
OussamaSabbouh Profile Picture

OussamaSabbouh 2,072 Super User 2026 Season 1

#2
YUN ZHU Profile Picture

YUN ZHU 1,129 Super User 2026 Season 1

#3
Gerardo Rentería García Profile Picture

Gerardo Rentería Ga... 650 Most Valuable Professional

Last 30 days Overall leaderboard

Featured topics

Product updates

Dynamics 365 release plans