New external function to add logic to call the functional logic after the sales line AddItem Action #22966
Description
Hi,
can you change this function in the sales line table into two function, so we can call the second function from our apps? We have a different logic for inserting multiple sales line and do not need to set a line number:
BEFORE
procedure AddItem(var SalesLine: Record "Sales Line"; ItemNo: Code[20])
var
LastSalesLine: Record "Sales Line";
begin
SalesLine.Init();
SalesLine."Line No." += 10000;
SalesLine.Validate(Type, Type::Item);
SalesLine.Validate("No.", ItemNo);
SalesLine.Insert(true);
if SalesLine.IsAsmToOrderRequired() then
SalesLine.AutoAsmToOrder();
if TransferExtendedText.SalesCheckIfAnyExtText(SalesLine, false) then begin
TransferExtendedText.InsertSalesExtTextRetLast(SalesLine, LastSalesLine);
SalesLine."Line No." := LastSalesLine."Line No."
end;
OnAfterAddItem(SalesLine, LastSalesLine);
end;
AFTER:
procedure AddItem(var SalesLine: Record "Sales Line"; ItemNo: Code[20])
var
LastSalesLine: Record "Sales Line";
begin
SalesLine.Init();
SalesLine."Line No." += 10000;
SalesLine.Validate(Type, Type::Item);
SalesLine.Validate("No.", ItemNo);
SalesLine.Insert(true);
ProcessSalesLine(SalesLine);
end;
procedure ProcessSalesLine(var SalesLine: Record "Sales Line")
begin
if SalesLine.IsAsmToOrderRequired() then
SalesLine.AutoAsmToOrder();
if TransferExtendedText.SalesCheckIfAnyExtText(SalesLine, false) then begin
TransferExtendedText.InsertSalesExtTextRetLast(SalesLine, LastSalesLine);
SalesLine."Line No." := LastSalesLine."Line No."
end;
OnAfterAddItem(SalesLine, LastSalesLine);
end;