[W1][Table][36][Sales Header] new IsSuccess parameter in OnSendToPostingOnAfterPost

[RadoArvay]

Why do you need this change?

We need to do additional processing after a posting codeunit was run and a posting was not successful.

Describe the request

    procedure SendToPosting(PostingCodeunitID: Integer) IsSuccess: Boolean
        ...
        IsSuccess := CODEUNIT.Run(PostingCodeunitID, Rec);

-       OnSendToPostingOnAfterPost(Rec);
+       OnSendToPostingOnAfterPost(Rec, IsSuccess);
        if not IsSuccess then begin
          ...
    end;

    [IntegrationEvent(false, false)]
-   local procedure OnSendToPostingOnAfterPost(var SalesHeader: Record "Sales Header")
+   local procedure OnSendToPostingOnAfterPost(var SalesHeader: Record "Sales Header"; IsSuccess: Boolean)
    begin
    end;

Internal work item: AB#623175

[AleksandricMarko]

✅ Analysis complete - approved for implementation

---

Implementation:

Add the IsSuccess: Boolean parameter to the existing OnSendToPostingOnAfterPost event in the SendToPosting procedure of Table 36 "Sales Header".

Location in SendToPosting procedure (around line 6671):

        IsSuccess := CODEUNIT.Run(PostingCodeunitID, Rec);

        OnSendToPostingOnAfterPost(Rec, IsSuccess);
        if not IsSuccess then begin

Event Publisher (add at the end of the codeunit with other events):

    [IntegrationEvent(false, false)]
    local procedure OnSendToPostingOnAfterPost(var SalesHeader: Record "Sales Header"; IsSuccess: Boolean)
    begin
    end;

---

File: SalesHeader.Table.al