Hi,
I want to use event subscriber to add fields on Warehouse Pick and assign values to the fields from Sales Order, like sell to information and ship to information.
I'm using flowfield but it uses too much resource to show a page. It takes 15 secs to show the whole page so I want to use a different way to make it.
I can't find a problem of the code. Here is my codeunit. Also, I'd like to know if there's an easy way to do it instead of event subscriber. Thanks!
codeunit 61353 CustomerInfoEvent
{
[EventSubscriber(ObjectType::Page, Page::"Warehouse Pick", 'OnAfterValidateEvent', 'No.', true, false)]
local procedure "Warehouse Pick_OnAfterValidateEvent_[content / General] - No."(var Rec: Record "Warehouse Activity Header")
var
SalesHeader: Record "Sales Header";
WarehousePick: Record "Warehouse Activity Header";
begin
WarehousePick.get(SalesHeader."Sell-to Customer No.");
WarehousePick."Sell-To No" := SalesHeader."Sell-to Customer No.";
WarehousePick."Sell-To Name" := SalesHeader."Sell-to Customer Name";
end;
[EventSubscriber(ObjectType::Table, Database::"Warehouse Activity Header", 'OnAfterInsertEvent', '', true, false)]
local procedure "Warehouse Activity Header_OnAfterInsertEvent"(var Rec: Record "Warehouse Activity Header"; RunTrigger: Boolean)
var
SalesHeader: Record "Sales Header";
begin
if RunTrigger then
if Rec."SONo." <> '' then
if SalesHeader.get(Rec."SONo.") then
if SalesHeader.get(Rec."Sell-to No") then begin
Rec."Sell-To No" := SalesHeader."Sell-to Customer No.";
Rec."Sell-To Name" := SalesHeader."Sell-to Customer Name";
Rec.Modify();
end;
end;
}
