[Event Request] Codeunit 370 "Bank Acc. Reconciliation Post".FinalizePost

[fridrichovsky]

Describe the request

Please add new event

local procedure FinalizePost(BankAccRecon: Record "Bank Acc. Reconciliation")
   var
       BankAccReconLine: Record "Bank Acc. Reconciliation Line";
       AppliedPmtEntry: Record "Applied Payment Entry";
       CreationDateTime: DateTime;
       MatchedWithAI: Boolean;
       LineCount: Integer;
       TelemetryCategories: Dictionary of [Text, Text];
       DurationUntilPosting: BigInteger;
       //--------------------------------------------------------------OnFinalizePostOnBeforeLineExist:BEGIN
       IsHandled: Boolean;
   //--------------------------------------------------------------OnFinalizePostOnBeforeLineExist:END
   begin
       if PreviewMode then
           exit;
       OnBeforeFinalizePost(BankAccRecon);
       CreationDateTime := BankAccRecon.SystemCreatedAt;
       MatchedWithAI := AIMatchProposalsExist(BankAccRecon);
       //--------------------------------------------------------------OnFinalizePostOnBeforeLineExist:BEGIN
       IsHandled := false;
       OnFinalizePostOnBeforeLineExist(BankAccRecon, BankAccReconLine, AppliedPmtEntry, LineCount, IsHandled);
       if not IsHandled then
           //--------------------------------------------------------------OnFinalizePostOnBeforeLineExist:END
           if BankAccReconLine.LinesExist(BankAccRecon) then
               repeat
                   AppliedPmtEntry.FilterAppliedPmtEntry(BankAccReconLine);
                   AppliedPmtEntry.DeleteAll();

                   BankAccReconLine.Delete();
                   BankAccReconLine.ClearDataExchEntries();
                   LineCount += 1;

               until BankAccReconLine.Next() = 0;

       BankAccRecon.Find();
       //----------------------------------------------------OnFinalizePostOnBeforeDeleteBankAccRecon:BEGIN
       IsHandled := false;
       OnFinalizePostOnBeforeDeleteBankAccReconciliation(BankAccRecon, IsHandled);
       if not IsHandled then
           //----------------------------------------------------OnFinalizePostOnBeforeDeleteBankAccRecon:END
           BankAccRecon.Delete();
       TelemetryCategories.Add('Category', BankAccountRecCategoryLbl);
       TelemetryCategories.Add('MatchedWithAI', Format(MatchedWithAI, 0, 9));
       TelemetryCategories.Add('NumberOfLines', Format(LineCount));
       if TryCalculateDurationToPost(DurationUntilPosting, CreationDateTime) then
           Session.LogMessage('0000LHY', Format(DurationUntilPosting), Verbosity::Normal, DataClassification::SystemMetadata, TelemetryScope::ExtensionPublisher, TelemetryCategories);
       OnAfterFinalizePost(BankAccRecon);
   end;

   //--------------------------------------------------------------OnFinalizePostOnBeforeLineExist:BEGIN
   [IntegrationEvent(true, false)]
   local procedure OnFinalizePostOnBeforeLineExist(BankAccRecon: Record "Bank Acc. Reconciliation"; var BankAccReconLine: Record "Bank Acc. Reconciliation Line"; var AppliedPmtEntry: Record "Applied Payment Entry"; var LineCount: Integer; var IsHandled: Boolean)
   begin
   end;
   //--------------------------------------------------------------OnFinalizePostOnBeforeLineExist:END


   //----------------------------------------------------OnFinalizePostOnBeforeDeleteBankAccRecon:BEGIN
   [IntegrationEvent(true, false)]
   local procedure OnFinalizePostOnBeforeDeleteBankAccReconciliation(BankAccRecon: Record "Bank Acc. Reconciliation"; var IsHandled: Boolean)
   begin
   end;
   //----------------------------------------------------OnFinalizePostOnBeforeDeleteBankAccRecon:END

Additional context

We need option to keep BankAccRecon after post.
Internal work item: AB#562597

[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: 29093.