Heute 18:24
[EventSubscriber(ObjectType::Codeunit, Codeunit::"Sales-Post and Send", OnBeforeConfirmPostAndSend, '', false, false)]
local procedure SkipSendingDocumentAfterPost(SalesHeader: Record "Sales Header"; var TempDocumentSendingProfile: Record "Document Sending Profile" temporary; var Result: Boolean; var IsHandled: Boolean)
begin
if (SalesHeader.DocDispatch = false) then begin
IsHandled := true;
Result := true;
end;
end;
[EventSubscriber(ObjectType::Codeunit, Codeunit::"Sales-Post and Send", OnBeforeConfirmAndSend, '', false, false)]
local procedure OmmitDialogOnBeforeConfirmAndSend(SalesHeader: Record "Sales Header"; var TempDocumentSendingProfile: Record "Document Sending Profile" temporary; var Result: Boolean; var IsHandled: Boolean)
begin
if (SalesHeader.DocDispatch = true) then begin
IsHandled := true;
Result := true;
end;
end;
[EventSubscriber(ObjectType::Codeunit, Codeunit::"Sales-Post", OnBeforeConfirmDownloadShipment, '', false, false)]
local procedure OmmitConfirmDownloadShipment(var SalesHeader: Record "Sales Header"; var Result: Boolean; var IsHandled: Boolean)
begin
IsHandled := true;
Result := false;
end;