[Event Request] Table 31257 "Payment Order Line CZB".AppliesToCustLedgEntryNo

[fridrichovsky]

Why do you need this change?

Please create new event that allow skip fill bank information we need meet this condition
SkipFillBankInformation := not ((PaymentOrderLineCZB."Cust./Vendor Bank Account Code" = '') and (CustLedgerEntry."Bank Account Code CZL" <> '')) or
((PaymentOrderLineCZB."Account No." = '') and (CustLedgerEntry."Bank Account No. CZL" <> '')) or
((PaymentOrderLineCZB.IBAN = '') and (CustLedgerEntry."IBAN CZL" <> ''));

that say if bank information should be filled or not.
This event is used also for fill another fields in record.

Describe the request

procedure AppliesToCustLedgEntryNo()
    var
        CustLedgerEntry: Record "Cust. Ledger Entry";
        //---------------------------- OnAppliesToCustLedgEntryNoOnBeforeFillBankInformation:BEGIN
        SkipFillBankInformation: Boolean;
        //---------------------------- OnAppliesToCustLedgEntryNoOnBeforeFillBankInformation:END
    begin
        CustLedgerEntry.Get("Applies-to C/V/E Entry No.");
        "Applies-to Doc. Type" := CustLedgerEntry."Document Type";
        "Applies-to Doc. No." := CustLedgerEntry."Document No.";
        "Variable Symbol" := CustLedgerEntry."Variable Symbol CZL";
        if CustLedgerEntry."Constant Symbol CZL" <> '' then
            "Constant Symbol" := CustLedgerEntry."Constant Symbol CZL";
        Description := CreateDescription(GetPlaceholderDescriptionValues(CustLedgerEntry));
        if Description = '' then
            Description := CustLedgerEntry.Description;
        Type := Type::Customer;
        "No." := CustLedgerEntry."Customer No.";
        Validate("No.", CustLedgerEntry."Customer No.");
        //---------------------------- OnAppliesToCustLedgEntryNoOnBeforeFillBankInformation:BEGIN
        OnAppliesToCustLedgEntryNoOnBeforeFillBankInformation(Rec, CustLedgerEntry, SkipFillBankInformation);
        if not SkipFillBankInformation then begin
        //---------------------------- OnAppliesToCustLedgEntryNoOnBeforeFillBankInformation:END
            "Cust./Vendor Bank Account Code" :=
            CopyStr(CustLedgerEntry."Bank Account Code CZL", 1, MaxStrLen("Cust./Vendor Bank Account Code"));
            "Account No." := CustLedgerEntry."Bank Account No. CZL";
            "Specific Symbol" := CustLedgerEntry."Specific Symbol CZL";
            "Transit No." := CustLedgerEntry."Transit No. CZL";
            IBAN := CustLedgerEntry."IBAN CZL";
            "SWIFT Code" := CustLedgerEntry."SWIFT Code CZL";
        //---------------------------- OnAppliesToCustLedgEntryNoOnBeforeFillBankInformation:BEGIN
        end;
        //---------------------------- OnAppliesToCustLedgEntryNoOnBeforeFillBankInformation:END
        Validate("Applied Currency Code", CustLedgerEntry."Currency Code");
        if CustLedgerEntry."Due Date" > "Due Date" then
            "Due Date" := CustLedgerEntry."Due Date";
        "Original Due Date" := CustLedgerEntry."Due Date";
        UpdateAmounts(CustLedgerEntry);
        OnAfterAppliesToCustLedgEntryNo(Rec, CustLedgerEntry);
    end;
    //---------------------------- OnAppliesToCustLedgEntryNoOnBeforeFillBankInformation:BEGIN
    [IntegrationEvent(false, false)]
    local procedure OnAppliesToCustLedgEntryNoOnBeforeFillBankInformation(var PaymentOrderLineCZB: Record "Payment Order Line CZB"; CustLedgerEntry: Record "Cust. Ledger Entry"; var SkipFillBankInformation: Boolean)
    begin
    end;
    //---------------------------- OnAppliesToCustLedgEntryNoOnBeforeFillBankInformation:END

Internal work item: AB#626300

[AleksandricMarko]

Hi @fridrichovsky,

Thanks for submitting this extensibility request. To help us process it efficiently, please update the issue to include the required information.

📚 Extensibility Guidelines

Missing Information:

• Alternatives Evaluated: Which existing events/patterns were tried and why they are insufficient
• Justification for IsHandled: Why a standard event/redesign/contribution isn't feasible (must include specific technical reason why standard event is insufficient, concrete business logic that must be skipped/replaced, and why alternative approaches won't work)
• Performance Considerations: Expected execution frequency and potential impact assessment
• Data Sensitivity Review: Confirmation of no sensitive data exposure or rationale if necessary
• Multi-Extension Interaction: Risks if multiple extensions subscribe and conflict mitigation strategy

Please update the issue with the missing details. We'll automatically re-analyze once updated.

[fridrichovsky]

Alternatives Evaluated: We need update information if is set in CustLegder entry and information is not set in Payment Order line.
Justification for IsHandled: There is no event that could be used for compare condition. Or event with xRec for Payment Order line.
Performance Considerations: No others call standard frequency.
Data Sensitivity Review: It content bank informations for payments this is not problem.
Multi-Extension Interaction: There are no other events it does not change behavior for other extensions. It allows change bankinformation by custom logic.

[AleksandricMarko]

✅ Analysis complete - approved for implementation

---

Implementation:

Add a new integration event OnAppliesToCustLedgEntryNoOnBeforeFillBankInformation in the AppliesToCustLedgEntryNo() procedure of Table 31257 "Payment Order Line CZB" to allow skipping the bank information fill logic.

Location in AppliesToCustLedgEntryNo() procedure (around line 989):

    Type := Type::Customer;
    "No." := CustLedgerEntry."Customer No.";
    Validate("No.", CustLedgerEntry."Customer No.");
    
    SkipFillBankInformation := false;
    OnAppliesToCustLedgEntryNoOnBeforeFillBankInformation(Rec, CustLedgerEntry, SkipFillBankInformation);  // <-- New event
    if not SkipFillBankInformation then begin
        "Cust./Vendor Bank Account Code" :=
          CopyStr(CustLedgerEntry."Bank Account Code CZL", 1, MaxStrLen("Cust./Vendor Bank Account Code"));
        "Account No." := CustLedgerEntry."Bank Account No. CZL";
        "Specific Symbol" := CustLedgerEntry."Specific Symbol CZL";
        "Transit No." := CustLedgerEntry."Transit No. CZL";
        IBAN := CustLedgerEntry."IBAN CZL";
        "SWIFT Code" := CustLedgerEntry."SWIFT Code CZL";
    end;

Event Publisher (add at the end of the table with other events):

[IntegrationEvent(false, false)]
local procedure OnAppliesToCustLedgEntryNoOnBeforeFillBankInformation(var PaymentOrderLineCZB: Record "Payment Order Line CZB"; CustLedgerEntry: Record "Cust. Ledger Entry"; var SkipFillBankInformation: Boolean)
begin
end;

---

File: PaymentOrderLineCZB.Table.al