Modify function in Existing Standard Codeunit 81 "Sales-Post (Yes/No)" in AL.

This is probably in the direction of what you need, now be creative

LOCAL Code(VAR SalesHeader : Record "Sales Header";PostAndSend : Boolean)
HideDialog := FALSE;
IsHandled := FALSE;
DefaultOption := 3;
IF IsHandled THEN
EXIT;

IF NOT HideDialog THEN
IF NOT ConfirmPost(SalesHeader,DefaultOption) THEN
EXIT;


SalesSetup.GET;
IF SalesSetup."Post with Job Queue" AND NOT PostAndSend THEN
SalesPostViaJobQueue.EnqueueSalesDoc(SalesHeader)
ELSE
CODEUNIT.RUN(CODEUNIT::"Sales-Post",SalesHeader);


LOCAL ConfirmPost(VAR SalesHeader : Record "Sales Header";DefaultOption : Integer) : Boolean
IF DefaultOption > 3 THEN
DefaultOption := 3;
IF DefaultOption <= 0 THEN
DefaultOption := 1;

WITH SalesHeader DO BEGIN
CASE "Document Type" OF
"Document Type"::Order:
BEGIN
Selection := STRMENU(ShipInvoiceQst,DefaultOption);
Ship := Selection IN [1,3];
Invoice := Selection IN [2,3];
IF Selection = 0 THEN
EXIT(FALSE);
END;
"Document Type"::"Return Order":
BEGIN
Selection := STRMENU(ReceiveInvoiceQst,DefaultOption);
IF Selection = 0 THEN
EXIT(FALSE);
Receive := Selection IN [1,3];
Invoice := Selection IN [2,3];
END
ELSE
IF NOT ConfirmManagement.ConfirmProcess(
STRSUBSTNO(PostConfirmQst,LOWERCASE(FORMAT("Document Type"))),TRUE)
THEN
EXIT(FALSE);
END;
"Print Posted Documents" := FALSE;
END;
EXIT(TRUE);