Share
Report
130Hi All,
I need to populate Sales Header Location with the Location code on the first Sales Line here I have done this
procedure SetLocationCodeBySalesLine(Var Rec: Record "Sales Line"; CurrFieldNo: Integer; var xRec: Record "Sales Line")
Var
SalesHeader: Record "Sales Header";
begin
SalesHeader.Get(Rec."Document Type", Rec."Document No.");
if Rec.FindFirst() then
// if Rec."Line No." = 10000 then
if (Rec."Location Code" <> '') AND (SalesHeader."Location Code" <> Rec."Location Code") then begin
SalesHeader.Validate("Location Code", Rec."Location Code");
// SalesHeader."Location Code" := Rec."Location Code";
SalesHeader.Modify();
end;
end;
[EventSubscriber(ObjectType::Table, Database::"Sales Line", 'OnAfterValidateEvent', 'Location Code', false, false)]
local procedure OnAfterValidateEvent(var Rec: Record "Sales Line"; CurrFieldNo: Integer; var xRec: Record "Sales Line")
begin
SetLocationCodeBySalesLine(Rec, CurrFieldNo, xRec);
end;
but "in the sales line when I update the location code in sales line it is not taking the location code which I gave can anyone please suggest me this."
All responses (
Answers (
