[Event Request] Codeunit 80 "Sales-Post".PostJobContractLine

[fridrichovsky]

Describe the request

Please add new event

local procedure PostJobContractLine(SalesHeader: Record "Sales Header"; SalesLine: Record "Sales Line")
    var
        IsHandled: Boolean;
    begin
        IsHandled := false;
        OnBeforePostJobContractLine(
            SalesHeader, SalesLine, IsHandled, JobContractLine, InvoicePostingInterface, SalesLineACY, SalesInvHeader, SalesCrMemoHeader);
        if IsHandled then
            exit;

        if SalesLine."Job Contract Entry No." = 0 then
            exit;

        IsHandled := false;
        OnPostJobContractLineBeforeTestFields(SalesHeader, SalesLine, IsHandled);
        if not IsHandled then begin
            if (SalesHeader."Document Type" <> SalesHeader."Document Type"::Invoice) and
               (SalesHeader."Document Type" <> SalesHeader."Document Type"::"Credit Memo")
            then
                SalesLine.TestField("Job Contract Entry No.", 0);

            SalesLine.TestField("Job No.");
            SalesLine.TestField("Job Task No.");
        end;

        if SalesHeader."Document Type" = SalesHeader."Document Type"::Invoice then
            SalesLine."Document No." := SalesInvHeader."No.";
        if SalesHeader."Document Type" = SalesHeader."Document Type"::"Credit Memo" then
            SalesLine."Document No." := SalesCrMemoHeader."No.";
        JobContractLine := true;
#if not CLEAN23
        if UseLegacyInvoicePosting() then
            JobPostLine.PostInvoiceContractLine(SalesHeader, SalesLine)
        else
#endif
        InvoicePostingInterface.PrepareJobLine(SalesHeader, SalesLine, SalesLineACY);
        //----------------------------------------------------OnAfterPostJobContractLine:BEGIN
        OnAfterPostJobContractLine(SalesHeader, SalesLine, GenJnlLineDocType, GenJnlLineDocNo, GenJnlLineExtDocNo, SrcCode);
        //----------------------------------------------------OnAfterPostJobContractLine:END
    end;

    //----------------------------------------------------OnAfterPostJobContractLine:BEGIN
    [IntegrationEvent(true, false)]
    local procedure OnAfterPostJobContractLine(SalesHeader: Record "Sales Header"; SalesLine: Record "Sales Line"; var GenJnlPostLine: Codeunit "Gen. Jnl.-Post Line"; var GenJnlLineDocType: Enum "Gen. Journal Document Type"; var GenJnlLineDocNo: Code[20]; var GenJnlLineExtDocNo: Code[35]; var SrcCode: Code[10])
    begin
    end;
    //----------------------------------------------------OnAfterPostJobContractLine:END

Additional context

We need do action at the end of function.
Internal work item: AB#562603