Hi,
Pls take reference form below code.
[EventSubscriber(ObjectType::Codeunit, Codeunit::"Job Create-Invoice", 'OnAfterCreateSalesLine', '', false, false)]
local procedure OnAfterCreateSalesLineAddCommentLine(Job: Record Job; SalesHeader: Record "Sales Header"; var SalesLine: Record "Sales Line"; var JobPlanningLine: Record "Job Planning Line")
var
SalesLineL: Record "Sales Line";
LineNo: Integer;
begin
LineNo := 10000;
SalesLineL.Reset();
//SalesLine.SetRange(Description, SalesLine.Description);
SalesLineL.SetRange("Document Type", SalesLine."Document Type");
SalesLineL.SetRange("Document No.", SalesLine."Document No.");
if SalesLineL.FindLast() then
LineNo := SalesLineL."Line No." + 10000;
SalesLineL.Init();
SalesLineL."Document Type" := Enum::"Sales Document Type"::Invoice;
SalesLineL."Document No." := SalesLine."Document No.";
SalesLineL."Line No." := LineNo;
SalesLineL.Insert(true);
SalesLineL.Type := Enum::"Sales Line Type"::" ";
SalesLineL.Description := JobPlanningLine."Invoice Description";
SalesLineL.Modify(true);
end;
Regards
Amit Sharma
