microsoft / ALAppExtensions

Repository for collaboration on Microsoft AL application add-on and localization extensions for Microsoft Dynamics 365 Business Central.
MIT License
748 stars 600 forks source link

[Event Request] codeunit 31431 "Reconciliation Handler CZL" (Czech) #26775

Open michalone opened 6 days ago

michalone commented 6 days ago

Describe the request

Hello,

can we get these events in codeunit 31431 in local procedure SaveNetChange:

GLAccountNetChange.SetCurrentKey("Account Type CZL", "Account No. CZL");
GLAccountNetChange.SetRange("Account Type CZL", GenJournalAccountType);
GLAccountNetChange.SetRange("Account No. CZL", AccNo);
if GLAccountNetChange.FindFirst() then begin
    GLAccountNetChange."Net Change in Jnl." += NetChangeLCY;
    GLAccountNetChange."Balance after Posting" += NetChangeLCY;
    if (GenJournalAccountType = GenJournalAccountType::"Bank Account") and (GenJournalLine."Currency Code" <> '') then begin
        GLAccountNetChange."Net Change in Jnl. Curr. CZL" += NetChange;
        GLAccountNetChange."Balance after Posting Curr.CZL" += NetChange;
    end;
    // START
    OnSetSaveNetChangeBeforeModify(GLAccountNetChange, GenJournalLine, NetChangeLCY, NetChange);
    // END
    GLAccountNetChange.Modify();
end else begin

and

            GenJournalLine."Account Type"::Employee:
                begin
                    Employee.Get(AccNo);
                    GLAccountNetChange.Name := CopyStr(Employee.FullName(), 1, MaxStrLen(GLAccountNetChange.Name));
                    Employee.CalcFields(Balance);
                    GLAccountNetChange."Balance after Posting" := -Employee.Balance + NetChangeLCY;
                end;
        end;
    // START
    OnSetSaveNetChangeBeforeInsert(GLAccountNetChange, GenJournalLine, NetChangeLCY, NetChange);
    // END
        GLAccountNetChange.Insert();
    end;
end;
[IntegrationEvent(false, false)]
local procedure OnSetSaveNetChangeBeforeModify(var GLAccountNetChange: Record "G/L Account Net Change"; GenJournalLine: Record "Gen. Journal Line"; NetChangeLCY: Decimal; NetChange: Decimal)
begin
end;

[IntegrationEvent(false, false)]
local procedure OnSetSaveNetChangeBeforeInsert(var GLAccountNetChange: Record "G/L Account Net Change"; GenJournalLine: Record "Gen. Journal Line"; NetChangeLCY: Decimal; NetChange: Decimal)
begin
end;

Additional context

CZ localization overrides the creation of Reconciliation lines (deletes all lines and creates new), but there is not any event. We need to add new fields to this table and we need to update them.