Skip to content

[Event Request] codeunit 367 "CheckManagement": add OnFinancialVoidCh… #9421

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
Explorer986 wants to merge 3 commits into
base: main
Choose a base branch
from
+192 −92
Open

[Event Request] codeunit 367 "CheckManagement": add OnFinancialVoidCh… #9421

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
6132713
[Event Request] codeunit 367 "CheckManagement": add OnFinancialVoidCh…
Explorer986 Jul 13, 2026
ece4814
Expose var BalanceAmountLCY on OnFinancialVoidCheckOnBeforePostBalanc…
Explorer986 Jul 14, 2026
acf9010
Propagate FinancialVoidCheck balance-account event to NA/APAC/RU laye…
Explorer986 Jul 14, 2026
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
71 changes: 48 additions & 23 deletions src/Layers/APAC/BaseApp/Bank/Check/CheckManagement.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -284,13 +284,38 @@ codeunit 367 CheckManagement
GenJnlLine2.Validate("Currency Code", BankAcc."Currency Code");
GenJnlLine2."Allow Zero-Amount Posting" := true;
OnFinancialVoidCheckOnBeforeCheckBalAccountType(GenJnlLine2, CheckLedgEntry, BankAccLedgEntry3);
IsHandled := false;
OnFinancialVoidCheckOnBeforePostBalanceAccount(GenJnlLine2, CheckLedgEntry, BankAccLedgEntry3, BalanceAmountLCY, IsHandled);
if not IsHandled then
FinancialVoidPostBalanceAccount(CheckLedgEntry, ConfirmFinancialVoid.GetVoidType(), ConfirmFinancialVoid.GetVoidDate(), BalanceAmountLCY);

if ConfirmFinancialVoid.GetVoidDate() = CheckLedgEntry."Check Date" then begin
BankAccLedgEntry2.Open := false;
BankAccLedgEntry2."Remaining Amount" := 0;
BankAccLedgEntry2."Statement Status" := BankAccLedgEntry2."Statement Status"::Closed;
BankAccLedgEntry2.Modify();
end;

// rounding error from currency conversion
if CheckAmountLCY + BalanceAmountLCY <> 0 then
PostRoundingAmount(BankAcc, CheckLedgEntry, ConfirmFinancialVoid.GetVoidDate(), -(CheckAmountLCY + BalanceAmountLCY));

MarkCheckEntriesVoid(CheckLedgEntry, ConfirmFinancialVoid.GetVoidDate());
Commit();
UpdateAnalysisView.UpdateAll(0, true);

OnAfterFinancialVoidCheck(CheckLedgEntry);
end;

local procedure FinancialVoidPostBalanceAccount(var CheckLedgEntry: Record "Check Ledger Entry"; VoidType: Integer; VoidDate: Date; var BalanceAmountLCY: Decimal)
begin
case CheckLedgEntry."Bal. Account Type" of
CheckLedgEntry."Bal. Account Type"::"G/L Account":
FinancialVoidPostGLAccount(GenJnlLine2, BankAccLedgEntry2, CheckLedgEntry, BalanceAmountLCY);
CheckLedgEntry."Bal. Account Type"::Customer:
begin
if ConfirmFinancialVoid.GetVoidType() = 0 then // Unapply entry
if UnApplyCustInvoices(CheckLedgEntry, ConfirmFinancialVoid.GetVoidDate()) then
if VoidType = 0 then // Unapply entry
if UnApplyCustInvoices(CheckLedgEntry, VoidDate) then
GenJnlLine2."Applies-to ID" := CheckLedgEntry."Document No.";
CustLedgEntry.SetCurrentKey("Transaction No.");
CustLedgEntry.SetRange("Transaction No.", BankAccLedgEntry2."Transaction No.");
Expand All @@ -313,8 +338,8 @@ codeunit 367 CheckManagement
end;
CheckLedgEntry."Bal. Account Type"::Vendor:
begin
if ConfirmFinancialVoid.GetVoidType() = 0 then // Unapply entry
if UnApplyVendInvoices(CheckLedgEntry, ConfirmFinancialVoid.GetVoidDate()) then
if VoidType = 0 then // Unapply entry
if UnApplyVendInvoices(CheckLedgEntry, VoidDate) then
GenJnlLine2."Applies-to ID" := CheckLedgEntry."Document No.";
VendorLedgEntry.SetCurrentKey("Transaction No.");
VendorLedgEntry.SetRange("Transaction No.", BankAccLedgEntry2."Transaction No.");
Expand Down Expand Up @@ -394,8 +419,8 @@ codeunit 367 CheckManagement
end;
CheckLedgEntry."Bal. Account Type"::Employee:
begin
if ConfirmFinancialVoid.GetVoidType() = 0 then // Unapply entry
if UnApplyEmpInvoices(CheckLedgEntry, ConfirmFinancialVoid.GetVoidDate()) then
if VoidType = 0 then // Unapply entry
if UnApplyEmpInvoices(CheckLedgEntry, VoidDate) then
GenJnlLine2."Applies-to ID" := CheckLedgEntry."Document No.";
EmployeeLedgerEntry.SetCurrentKey("Transaction No.");
EmployeeLedgerEntry.SetRange("Transaction No.", BankAccLedgEntry2."Transaction No.");
Expand Down Expand Up @@ -429,23 +454,6 @@ codeunit 367 CheckManagement
OnFinancialVoidCheckOnAfterPostBalAccLine(GenJnlLine2, CheckLedgEntry, GenJnlPostLine);
end;
end;

if ConfirmFinancialVoid.GetVoidDate() = CheckLedgEntry."Check Date" then begin
BankAccLedgEntry2.Open := false;
BankAccLedgEntry2."Remaining Amount" := 0;
BankAccLedgEntry2."Statement Status" := BankAccLedgEntry2."Statement Status"::Closed;
BankAccLedgEntry2.Modify();
end;

// rounding error from currency conversion
if CheckAmountLCY + BalanceAmountLCY <> 0 then
PostRoundingAmount(BankAcc, CheckLedgEntry, ConfirmFinancialVoid.GetVoidDate(), -(CheckAmountLCY + BalanceAmountLCY));

MarkCheckEntriesVoid(CheckLedgEntry, ConfirmFinancialVoid.GetVoidDate());
Commit();
UpdateAnalysisView.UpdateAll(0, true);

OnAfterFinancialVoidCheck(CheckLedgEntry);
end;

procedure GenJournalLineGetSystemIdFromRecordId(GenJournalLineRecordId: RecordId): Guid
Expand Down Expand Up @@ -1216,6 +1224,23 @@ codeunit 367 CheckManagement
begin
end;

/// <summary>
/// Integration event raised before posting the balance account entries during a financial void operation.
/// Enables subscribers to replace the standard balance account type posting.
/// </summary>
/// <param name="GenJournalLine">General journal line for the void operation</param>
/// <param name="CheckLedgerEntry">Check ledger entry being voided</param>
/// <param name="BankAccountLedgerEntry">Bank account ledger entry associated with the check</param>
/// <param name="BalanceAmountLCY">Running balancing amount in LCY. A subscriber that sets IsHandled must add the LCY amounts it posts so the caller's currency-rounding calculation stays balanced.</param>
/// <param name="IsHandled">Set to true to skip the standard balance account type posting</param>
/// <remarks>
/// Raised from FinancialVoidCheck procedure after OnFinancialVoidCheckOnBeforeCheckBalAccountType and before the balance account type posting.
/// </remarks>
[IntegrationEvent(false, false)]
local procedure OnFinancialVoidCheckOnBeforePostBalanceAccount(var GenJournalLine: Record "Gen. Journal Line"; var CheckLedgerEntry: Record "Check Ledger Entry"; var BankAccountLedgerEntry: Record "Bank Account Ledger Entry"; var BalanceAmountLCY: Decimal; var IsHandled: Boolean)
begin
end;

/// <summary>
/// Integration event raised before posting bank account entries during financial void operation.
/// Enables custom processing or validation before bank account ledger entries are posted.
Expand Down
71 changes: 48 additions & 23 deletions src/Layers/NA/BaseApp/Bank/Check/CheckManagement.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -260,13 +260,38 @@ codeunit 367 CheckManagement
GenJnlLine2.Validate("Currency Code", BankAcc."Currency Code");
GenJnlLine2."Allow Zero-Amount Posting" := true;
OnFinancialVoidCheckOnBeforeCheckBalAccountType(GenJnlLine2, CheckLedgEntry, BankAccLedgEntry3);
IsHandled := false;
OnFinancialVoidCheckOnBeforePostBalanceAccount(GenJnlLine2, CheckLedgEntry, BankAccLedgEntry3, BalanceAmountLCY, IsHandled);
if not IsHandled then
FinancialVoidPostBalanceAccount(CheckLedgEntry, ConfirmFinancialVoid.GetVoidType(), ConfirmFinancialVoid.GetVoidDate(), BalanceAmountLCY);

if ConfirmFinancialVoid.GetVoidDate() = CheckLedgEntry."Check Date" then begin
BankAccLedgEntry2.Open := false;
BankAccLedgEntry2."Remaining Amount" := 0;
BankAccLedgEntry2."Statement Status" := BankAccLedgEntry2."Statement Status"::Closed;
BankAccLedgEntry2.Modify();
end;

// rounding error from currency conversion
if CheckAmountLCY + BalanceAmountLCY <> 0 then
PostRoundingAmount(BankAcc, CheckLedgEntry, ConfirmFinancialVoid.GetVoidDate(), -(CheckAmountLCY + BalanceAmountLCY));

MarkCheckEntriesVoid(CheckLedgEntry, ConfirmFinancialVoid.GetVoidDate());
Commit();
UpdateAnalysisView.UpdateAll(0, true);

OnAfterFinancialVoidCheck(CheckLedgEntry);
end;

local procedure FinancialVoidPostBalanceAccount(var CheckLedgEntry: Record "Check Ledger Entry"; VoidType: Integer; VoidDate: Date; var BalanceAmountLCY: Decimal)
begin
case CheckLedgEntry."Bal. Account Type" of
CheckLedgEntry."Bal. Account Type"::"G/L Account":
FinancialVoidPostGLAccount(GenJnlLine2, BankAccLedgEntry2, CheckLedgEntry, BalanceAmountLCY);
CheckLedgEntry."Bal. Account Type"::Customer:
begin
if ConfirmFinancialVoid.GetVoidType() = 0 then // Unapply entry
if UnApplyCustInvoices(CheckLedgEntry, ConfirmFinancialVoid.GetVoidDate()) then
if VoidType = 0 then // Unapply entry
if UnApplyCustInvoices(CheckLedgEntry, VoidDate) then
GenJnlLine2."Applies-to ID" := CheckLedgEntry."Document No.";
CustLedgEntry.SetCurrentKey(CustLedgEntry."Transaction No.");
CustLedgEntry.SetRange(CustLedgEntry."Transaction No.", BankAccLedgEntry2."Transaction No.");
Expand Down Expand Up @@ -295,8 +320,8 @@ codeunit 367 CheckManagement
end;
CheckLedgEntry."Bal. Account Type"::Vendor:
begin
if ConfirmFinancialVoid.GetVoidType() = 0 then // Unapply entry
if UnApplyVendInvoices(CheckLedgEntry, ConfirmFinancialVoid.GetVoidDate()) then
if VoidType = 0 then // Unapply entry
if UnApplyVendInvoices(CheckLedgEntry, VoidDate) then
GenJnlLine2."Applies-to ID" := CheckLedgEntry."Document No.";
VendorLedgEntry.SetCurrentKey(VendorLedgEntry."Transaction No.");
VendorLedgEntry.SetRange(VendorLedgEntry."Transaction No.", BankAccLedgEntry2."Transaction No.");
Expand Down Expand Up @@ -371,8 +396,8 @@ codeunit 367 CheckManagement
end;
CheckLedgEntry."Bal. Account Type"::Employee:
begin
if ConfirmFinancialVoid.GetVoidType() = 0 then // Unapply entry
if UnApplyEmpInvoices(CheckLedgEntry, ConfirmFinancialVoid.GetVoidDate()) then
if VoidType = 0 then // Unapply entry
if UnApplyEmpInvoices(CheckLedgEntry, VoidDate) then
GenJnlLine2."Applies-to ID" := CheckLedgEntry."Document No.";
EmployeeLedgerEntry.SetCurrentKey("Transaction No.");
EmployeeLedgerEntry.SetRange("Transaction No.", BankAccLedgEntry2."Transaction No.");
Expand Down Expand Up @@ -406,23 +431,6 @@ codeunit 367 CheckManagement
OnFinancialVoidCheckOnAfterPostBalAccLine(GenJnlLine2, CheckLedgEntry, GenJnlPostLine);
end;
end;

if ConfirmFinancialVoid.GetVoidDate() = CheckLedgEntry."Check Date" then begin
BankAccLedgEntry2.Open := false;
BankAccLedgEntry2."Remaining Amount" := 0;
BankAccLedgEntry2."Statement Status" := BankAccLedgEntry2."Statement Status"::Closed;
BankAccLedgEntry2.Modify();
end;

// rounding error from currency conversion
if CheckAmountLCY + BalanceAmountLCY <> 0 then
PostRoundingAmount(BankAcc, CheckLedgEntry, ConfirmFinancialVoid.GetVoidDate(), -(CheckAmountLCY + BalanceAmountLCY));

MarkCheckEntriesVoid(CheckLedgEntry, ConfirmFinancialVoid.GetVoidDate());
Commit();
UpdateAnalysisView.UpdateAll(0, true);

OnAfterFinancialVoidCheck(CheckLedgEntry);
end;

procedure GenJournalLineGetSystemIdFromRecordId(GenJournalLineRecordId: RecordId): Guid
Expand Down Expand Up @@ -1189,6 +1197,23 @@ codeunit 367 CheckManagement
begin
end;

/// <summary>
/// Integration event raised before posting the balance account entries during a financial void operation.
/// Enables subscribers to replace the standard balance account type posting.
/// </summary>
/// <param name="GenJournalLine">General journal line for the void operation</param>
/// <param name="CheckLedgerEntry">Check ledger entry being voided</param>
/// <param name="BankAccountLedgerEntry">Bank account ledger entry associated with the check</param>
/// <param name="BalanceAmountLCY">Running balancing amount in LCY. A subscriber that sets IsHandled must add the LCY amounts it posts so the caller's currency-rounding calculation stays balanced.</param>
/// <param name="IsHandled">Set to true to skip the standard balance account type posting</param>
/// <remarks>
/// Raised from FinancialVoidCheck procedure after OnFinancialVoidCheckOnBeforeCheckBalAccountType and before the balance account type posting.
/// </remarks>
[IntegrationEvent(false, false)]
local procedure OnFinancialVoidCheckOnBeforePostBalanceAccount(var GenJournalLine: Record "Gen. Journal Line"; var CheckLedgerEntry: Record "Check Ledger Entry"; var BankAccountLedgerEntry: Record "Bank Account Ledger Entry"; var BalanceAmountLCY: Decimal; var IsHandled: Boolean)
begin
end;

/// <summary>
/// Integration event raised before posting bank account entries during financial void operation.
/// Enables custom processing or validation before bank account ledger entries are posted.
Expand Down
71 changes: 48 additions & 23 deletions src/Layers/RU/BaseApp/Bank/Check/CheckManagement.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -266,13 +266,38 @@ codeunit 367 CheckManagement
GenJnlLine2."Allow Zero-Amount Posting" := true;
CheckUnpostedVendor(CheckLedgEntry, GenJnlLine2);
OnFinancialVoidCheckOnBeforeCheckBalAccountType(GenJnlLine2, CheckLedgEntry, BankAccLedgEntry3);
IsHandled := false;
OnFinancialVoidCheckOnBeforePostBalanceAccount(GenJnlLine2, CheckLedgEntry, BankAccLedgEntry3, BalanceAmountLCY, IsHandled);
if not IsHandled then
FinancialVoidPostBalanceAccount(CheckLedgEntry, ConfirmFinancialVoid.GetVoidType(), ConfirmFinancialVoid.GetVoidDate(), BalanceAmountLCY);

if ConfirmFinancialVoid.GetVoidDate() = CheckLedgEntry."Check Date" then begin
BankAccLedgEntry2.Open := false;
BankAccLedgEntry2."Remaining Amount" := 0;
BankAccLedgEntry2."Statement Status" := BankAccLedgEntry2."Statement Status"::Closed;
BankAccLedgEntry2.Modify();
end;

// rounding error from currency conversion
if CheckAmountLCY + BalanceAmountLCY <> 0 then
PostRoundingAmount(BankAcc, CheckLedgEntry, ConfirmFinancialVoid.GetVoidDate(), -(CheckAmountLCY + BalanceAmountLCY));

MarkCheckEntriesVoid(CheckLedgEntry, ConfirmFinancialVoid.GetVoidDate());
Commit();
UpdateAnalysisView.UpdateAll(0, true);

OnAfterFinancialVoidCheck(CheckLedgEntry);
end;

local procedure FinancialVoidPostBalanceAccount(var CheckLedgEntry: Record "Check Ledger Entry"; VoidType: Integer; VoidDate: Date; var BalanceAmountLCY: Decimal)
begin
case CheckLedgEntry."Bal. Account Type" of
CheckLedgEntry."Bal. Account Type"::"G/L Account":
FinancialVoidPostGLAccount(GenJnlLine2, BankAccLedgEntry2, CheckLedgEntry, BalanceAmountLCY);
CheckLedgEntry."Bal. Account Type"::Customer:
begin
if ConfirmFinancialVoid.GetVoidType() = 0 then // Unapply entry
if UnApplyCustInvoices(CheckLedgEntry, ConfirmFinancialVoid.GetVoidDate()) then
if VoidType = 0 then // Unapply entry
if UnApplyCustInvoices(CheckLedgEntry, VoidDate) then
GenJnlLine2."Applies-to ID" := CheckLedgEntry."Document No.";
CustLedgEntry.SetCurrentKey("Transaction No.");
CustLedgEntry.SetRange("Transaction No.", BankAccLedgEntry2."Transaction No.");
Expand Down Expand Up @@ -300,8 +325,8 @@ codeunit 367 CheckManagement
end;
CheckLedgEntry."Bal. Account Type"::Vendor:
begin
if ConfirmFinancialVoid.GetVoidType() = 0 then // Unapply entry
if UnApplyVendInvoices(CheckLedgEntry, ConfirmFinancialVoid.GetVoidDate()) then
if VoidType = 0 then // Unapply entry
if UnApplyVendInvoices(CheckLedgEntry, VoidDate) then
GenJnlLine2."Applies-to ID" := CheckLedgEntry."Document No.";
VendorLedgEntry.SetCurrentKey("Transaction No.");
VendorLedgEntry.SetRange("Transaction No.", BankAccLedgEntry2."Transaction No.");
Expand Down Expand Up @@ -379,8 +404,8 @@ codeunit 367 CheckManagement
end;
CheckLedgEntry."Bal. Account Type"::Employee:
begin
if ConfirmFinancialVoid.GetVoidType() = 0 then // Unapply entry
if UnApplyEmpInvoices(CheckLedgEntry, ConfirmFinancialVoid.GetVoidDate()) then
if VoidType = 0 then // Unapply entry
if UnApplyEmpInvoices(CheckLedgEntry, VoidDate) then
GenJnlLine2."Applies-to ID" := CheckLedgEntry."Document No.";
EmployeeLedgerEntry.SetCurrentKey("Transaction No.");
EmployeeLedgerEntry.SetRange("Transaction No.", BankAccLedgEntry2."Transaction No.");
Expand Down Expand Up @@ -414,23 +439,6 @@ codeunit 367 CheckManagement
OnFinancialVoidCheckOnAfterPostBalAccLine(GenJnlLine2, CheckLedgEntry, GenJnlPostLine);
end;
end;

if ConfirmFinancialVoid.GetVoidDate() = CheckLedgEntry."Check Date" then begin
BankAccLedgEntry2.Open := false;
BankAccLedgEntry2."Remaining Amount" := 0;
BankAccLedgEntry2."Statement Status" := BankAccLedgEntry2."Statement Status"::Closed;
BankAccLedgEntry2.Modify();
end;

// rounding error from currency conversion
if CheckAmountLCY + BalanceAmountLCY <> 0 then
PostRoundingAmount(BankAcc, CheckLedgEntry, ConfirmFinancialVoid.GetVoidDate(), -(CheckAmountLCY + BalanceAmountLCY));

MarkCheckEntriesVoid(CheckLedgEntry, ConfirmFinancialVoid.GetVoidDate());
Commit();
UpdateAnalysisView.UpdateAll(0, true);

OnAfterFinancialVoidCheck(CheckLedgEntry);
end;

procedure GenJournalLineGetSystemIdFromRecordId(GenJournalLineRecordId: RecordId): Guid
Expand Down Expand Up @@ -1257,6 +1265,23 @@ codeunit 367 CheckManagement
begin
end;

/// <summary>
/// Integration event raised before posting the balance account entries during a financial void operation.
/// Enables subscribers to replace the standard balance account type posting.
/// </summary>
/// <param name="GenJournalLine">General journal line for the void operation</param>
/// <param name="CheckLedgerEntry">Check ledger entry being voided</param>
/// <param name="BankAccountLedgerEntry">Bank account ledger entry associated with the check</param>
/// <param name="BalanceAmountLCY">Running balancing amount in LCY. A subscriber that sets IsHandled must add the LCY amounts it posts so the caller's currency-rounding calculation stays balanced.</param>
/// <param name="IsHandled">Set to true to skip the standard balance account type posting</param>
/// <remarks>
/// Raised from FinancialVoidCheck procedure after OnFinancialVoidCheckOnBeforeCheckBalAccountType and before the balance account type posting.
/// </remarks>
[IntegrationEvent(false, false)]
local procedure OnFinancialVoidCheckOnBeforePostBalanceAccount(var GenJournalLine: Record "Gen. Journal Line"; var CheckLedgerEntry: Record "Check Ledger Entry"; var BankAccountLedgerEntry: Record "Bank Account Ledger Entry"; var BalanceAmountLCY: Decimal; var IsHandled: Boolean)
begin
end;

/// <summary>
/// Integration event raised before posting bank account entries during financial void operation.
/// Enables custom processing or validation before bank account ledger entries are posted.
Expand Down
Loading
Loading