[Request for Public Procedure] SetHideDialog in codeunit 99000843 "Undo Prod. Posting Mgmt."

[Rambabu-Billuri]

Why do you need this change?

Right now, we have a confirmation dialog to Post Reversal in "Undo Prod. Posting Mgmt.", We wanted to allow it to run without a confirmation dialog.

To replicate the behavior, I would like to request the following changes.

Describe the request

Please change the way the confirmation dialog is shown, so that we can run the process without confirmation:

New global variable

var
HideDialog: Boolean;

New Public procedure
procedure SetHideDialog(NewHideDialog: Boolean)
begin
HideDialog:= NewHideDialog;
end;

Change in existing procedure - CanPostReversal()

Old

New

Internal work item: AB#622575

[attilatoury]

✅ Analysis complete - approved for implementation

---

Implementation:

In codeunit 99000843 "Undo Prod. Posting Mgmt.", add a HideDialog Boolean variable to the var section, add a new public SetHideDialog procedure, and modify the local CanPostReversal() procedure to honour the flag.

Current code:

local procedure CanPostReversal(): Boolean
var
    QuestionTxt: Text;
begin
    if not GuiAllowed() then
        exit(true);

    QuestionTxt := ReverseEntriesMsg + '\' + ReverseEntriesQst;
    exit(Confirm(QuestionTxt));
end;

Proposed change:

var
    SourceCodeSetup: Record "Source Code Setup";
    HideDialog: Boolean;        // <-- New variable
    ...

procedure SetHideDialog(NewHideDialog: Boolean)    // <-- New public procedure
begin
    HideDialog := NewHideDialog;
end;

local procedure CanPostReversal(): Boolean
var
    QuestionTxt: Text;
begin
    if HideDialog then          // <-- New guard
        exit(true);

    if not GuiAllowed() then
        exit(true);

    QuestionTxt := ReverseEntriesMsg + '\' + ReverseEntriesQst;
    exit(Confirm(QuestionTxt));
end;

---

File: UndoProdPostingMgmt.Codeunit.al

[JesperSchulz]

Thanks for reporting this. We agree, and we’ll publish a fix asap, either in an update for the current version or in the next major release. Please do not reply to this, as we do not monitor closed issues. If you have follow-up questions or requests, please create a new issue where you reference this one.

Build ID: 46881.