Custom field from Warehouse Receipt Line (7317) to Posted Whse. Receipt Line (7319)

(1) Share

Report

Posted on by Divan

107

Hi Guys,

Can you please assist, I have a custom field APTRRC_TempValQty on Warehouse Receipt Line table and want this value to be displayed in the same custom field in the Posted Whse. Receipt Line table after I post the warehouse receipt. I have already created the fields in both tables but do not know what EventSubscriber to use or if I am doing it correctly.

I have tried the following 3 EventSubscribers but my field value is not pulling through to the Posted Warehouse Receipt Lines:

   [EventSubscriber(ObjectType::Codeunit, Codeunit::"Whse.-Post Receipt", 'OnBeforePostedWhseRcptLineInsert', '', false, false)]
    local procedure OnBeforePostWhseReceiptLine(var PostedWhseReceiptLine: Record "Posted Whse. Receipt Line"; WarehouseReceiptLine: Record "Warehouse Receipt Line")
    begin
        PostedWhseReceiptLine.APTRRC_TempValQty := WarehouseReceiptLine.APTRRC_TempValQty;
    end;
    [EventSubscriber(ObjectType::Codeunit, Codeunit::"Whse.-Post Receipt", 'OnBeforePostWhseJnlLine', '', false, false)]
    local procedure OnBeforePostWhseJnlLine(var PostedWhseReceiptHeader: Record "Posted Whse. Receipt Header"; var PostedWhseReceiptLine: Record "Posted Whse. Receipt Line"; var WhseReceiptLine: Record "Warehouse Receipt Line"; var TempTrackingSpecification: Record "Tracking Specification" temporary; var IsHandled: Boolean)
    begin
        PostedWhseReceiptLine.APTRRC_TempValQty := WhseReceiptLine.APTRRC_TempValQty;
    end;
    [EventSubscriber(ObjectType::Codeunit, Codeunit::"Whse.-Post Receipt", 'OnAfterPostedWhseRcptLineInsert', '', false, false)]
    local procedure OnBeforePostedWhseRcptLineInsert(var PostedWhseReceiptLine: Record "Posted Whse. Receipt Line"; WarehouseReceiptLine: Record "Warehouse Receipt Line")
    begin
        PostedWhseReceiptLine.APTRRC_TempValQty := WarehouseReceiptLine.APTRRC_TempValQty;
    end;

What am i doing wrong?

Thanks

Divan

Categories:

Dynamics 365 Business Central

I have the same question (0)

All responses (4)

Answers (0)

Sort by

Gerardo Rentería Ga... 27,310 Most Valuable Professional on at

Like
a
(0)

Report
Copy link

Link copied!

Hi

I hope this can help you and give you some hints.

Dynamics 365 Business Central: How to flow/pass custom field values | Dynamics 365 Lab (yzhums.com)

Br

GR

Was this reply helpful? Yes No
Divan 107 on at

Like
a
(0)

Report
Copy link

Link copied!

Hi gdrenteria,

I have a similar event than the one in the link you have provided but my data is still not pulling through to the posted warehouse receipt, the one I have used that is similar is

[EventSubscriber(ObjectType::Codeunit, Codeunit::"Whse.-Post Receipt", 'OnBeforePostedWhseRcptLineInsert', '', false, false)]
local procedure OnBeforePostWhseReceiptLine(var PostedWhseReceiptLine: Record "Posted Whse. Receipt Line"; WarehouseReceiptLine: Record "Warehouse Receipt Line")
begin
PostedWhseReceiptLine.APTRRC_TempValQty := WarehouseReceiptLine.APTRRC_TempValQty;
end;

Was this reply helpful? Yes No
DR-26060934-0 on at

Like
a
(0)

Report
Copy link

Link copied!

.

Was this reply helpful? Yes No
Divan 107 on at

Like
a
(0)

Report
Copy link

Link copied!

So for some reason the Even Subscriber did not work to get the values in the Posted Whse. Receipt Line (7319). I ended up creating a new table
to store the values I want with the OnAfterCheckWhseRcptLine, I assume this is because this page gets deleted and the value disappears
somewhere in between. (This value is a FlowField).

This worked for me:

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"Whse.-Post Receipt", 'OnAfterCheckWhseRcptLine', '', false, false)]
    local procedure OnAfterCheckWhseRcptLine(var WarehouseReceiptLine: Record "Warehouse Receipt Line")
    var
        WhseRcptValQty: Record APTRRC_WhseReceiptValQty;
    begin
        if WhseRcptValQty.Get(WarehouseReceiptLine."No.",WarehouseReceiptLine."Source No.", WarehouseReceiptLine."Line No.") then
    begin
            WhseRcptValQty.APTRRC_TempValQty := WarehouseReceiptLine.APTRRC_TempValQty;
            WhseRcptValQty.Modify();
        end else begin
            WhseRcptValQty.Init();
            WhseRcptValQty.APTRRC_No := WarehouseReceiptLine."No.";
            WhseRcptValQty.APTRRC_SourceNo := WarehouseReceiptLine."Source No.";
            WhseRcptValQty.APTRRC_LineNo := WarehouseReceiptLine."Line No.";
            WhseRcptValQty.APTRRC_TempValQty := WarehouseReceiptLine.APTRRC_TempValQty;
            WhseRcptValQty.Insert();
        end;
    end;

And from this table I made a new flowfield to the Posted Whse Receipt table and the values is now visible.

Was this reply helpful? Yes No

Join the conversation

Community site session details

Custom field from Warehouse Receipt Line (7317) to Posted Whse. Receipt Line (7319)

Helpful resources

News and Announcements

Quick Links

Season of Sharing Community Challenge Launch!

Women in Power Builds Momentum

Congratulations to the May Top 10 Community Leaders

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

Featured topics

Product updates

Community site session details

Custom field from Warehouse Receipt Line (7317) to Posted Whse. Receipt Line (7319)

Helpful resources

News and Announcements

Quick Links

Season of Sharing Community Challenge Launch!

Women in Power Builds Momentum

Congratulations to the May Top 10 Community Leaders

Subscribe to this forum!

Select categories

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

Featured topics

Product updates