Page 1207 Direct Debit Collections

// ------------------------------------------------------------------------------------------------
// Copyright (c) Microsoft Corporation. All rights reserved.
// Licensed under the MIT License. See License.txt in the project root for license information.
// ------------------------------------------------------------------------------------------------
namespace Microsoft.Bank.DirectDebit;

/// <summary>
/// Displays a list of direct debit collections with their status and basic information.
/// Provides functionality to create, export, close, and manage direct debit collections
/// for automated customer payment processing.
/// </summary>
page 1207 "Direct Debit Collections"
{
    AdditionalSearchTerms = 'collect customer payment';
    ApplicationArea = Suite;
    Caption = 'Direct Debit Collections';
    DataCaptionFields = "No.", Identifier, "Created Date-Time";
    Editable = false;
    PageType = List;
    SourceTable = "Direct Debit Collection";
    UsageCategory = Lists;

    layout
    {
        area(content)
        {
            repeater(Group)
            {
                field("No."; Rec."No.")
                {
                    ApplicationArea = Suite;
                }
                field(Identifier; Rec.Identifier)
                {
                    ApplicationArea = Suite;
                }
#pragma warning disable AA0100
                field("FORMAT(""Created Date-Time"")"; Format(Rec."Created Date-Time"))
#pragma warning restore AA0100
                {
                    ApplicationArea = Suite;
                    Caption = 'Created Date-Time';
                    ToolTip = 'Specifies when the direct debit collection was created.';
                }
                field("Created by User"; Rec."Created by User")
                {
                    ApplicationArea = Suite;
                }
                field(Status; Rec.Status)
                {
                    ApplicationArea = Suite;
                }
                field("No. of Transfers"; Rec."No. of Transfers")
                {
                    ApplicationArea = Suite;
                }
                field("To Bank Account No."; Rec."To Bank Account No.")
                {
                    ApplicationArea = Suite;
                }
                field("To Bank Account Name"; Rec."To Bank Account Name")
                {
                    ApplicationArea = Suite;
                }
            }
        }
        area(factboxes)
        {
            systempart(Control12; Notes)
            {
                ApplicationArea = Notes;
            }
            systempart(Control13; Links)
            {
                ApplicationArea = RecordLinks;
            }
        }
    }

    actions
    {
        area(creation)
        {
            action(NewCollection)
            {
                ApplicationArea = Suite;
                Caption = 'Create Direct Debit Collection';
                Image = NewInvoice;
                RunObject = Report "Create Direct Debit Collection";
                ToolTip = 'Create a direct-debit collection to collect invoice payments directly from a customer''s bank account based on direct-debit mandates.';
            }
        }
        area(processing)
        {
            action(Export)
            {
                ApplicationArea = Suite;
                Caption = 'Export Direct Debit File';
                Image = ExportFile;
                ToolTip = 'Save the entries for the direct-debit collection to a file that you send or upload to your electronic bank for processing.';

                trigger OnAction()
                begin
                    Rec.Export();
                end;
            }
            action(Close)
            {
                ApplicationArea = Suite;
                Caption = 'Close Collection';
                Image = Close;
                ToolTip = 'Close a direct-debit collection so you begin to post payment receipts for related sales invoices. Once closed, you cannot register payments for the collection.';

                trigger OnAction()
                begin
                    Rec.CloseCollection();
                end;
            }
            action(Post)
            {
                ApplicationArea = Suite;
                Caption = 'Post Payment Receipts';
                Ellipsis = true;
                Image = ReceivablesPayables;
                ToolTip = 'Post receipts of a payment for sales invoices. You can do this after the direct-debit collection is successfully processed by the bank.';

                trigger OnAction()
                var
                    PostDirectDebitCollection: Report "Post Direct Debit Collection";
                begin
                    Rec.TestField(Status, Rec.Status::"File Created");
                    PostDirectDebitCollection.SetCollectionEntry(Rec."No.");
                    PostDirectDebitCollection.Run();
                end;
            }
        }
        area(navigation)
        {
            action(Entries)
            {
                ApplicationArea = Suite;
                Caption = 'Direct Debit Collect. Entries';
                Image = EditLines;
                RunObject = Page "Direct Debit Collect. Entries";
                RunPageLink = "Direct Debit Collection No." = field("No.");
                ShortCutKey = 'Return';
                ToolTip = 'View and edit entries that are generated for the direct-debit collection.';
            }
        }
        area(Promoted)
        {
            group(Category_New)
            {
                Caption = 'New';

                actionref(NewCollection_Promoted; NewCollection)
                {
                }
            }
            group(Category_Process)
            {
                Caption = 'Process';

                actionref(Export_Promoted; Export)
                {
                }
                actionref(Close_Promoted; Close)
                {
                }
                actionref(Post_Promoted; Post)
                {
                }
                actionref(Entries_Promoted; Entries)
                {
                }
            }
        }
    }
}