Page 622 IC Partners List Part, source in 29

Source29

src/Layers/W1/BaseApp/Finance/Intercompany/Partner/ICPartnersListPart.Page.al127 lines, Copyright (c) Microsoft Corporation. MIT

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

/// <summary>
/// List part displaying intercompany partners for embedding in other pages or FactBoxes.
/// Provides compact view of partner information with drill-down navigation and basic actions.
/// </summary>
/// <remarks>
/// Primary data source: IC Partner table. Used as embedded component showing partner summary.
/// Includes actions for adding and removing partners with drill-down to partner card.
/// </remarks>
page 622 "IC Partners List Part"
{
    ApplicationArea = Intercompany;
    SourceTable = "IC Partner";
    PageType = ListPart;
    Caption = 'Intercompany Partners';
    Editable = false;
    layout
    {
        area(Content)
        {
            repeater(Control)
            {
                ShowCaption = false;
                field("Code"; Rec.Code)
                {
                    ApplicationArea = Intercompany;
                    ToolTip = 'Specifies the intercompany partner code.';
                    trigger OnDrillDown()
                    var
                        ICPartnerCard: Page "IC Partner Card";
                    begin
                        ICPartnerCard.SetRecord(Rec);
                        ICPartnerCard.Run();
                    end;
                }
                field(Name; Rec.Name)
                {
                    ApplicationArea = Intercompany;
                    ToolTip = 'Specifies the name of the intercompany partner.';
                }
                field("Country/Region Code"; Rec."Country/Region Code")
                {
                    ApplicationArea = Intercompany;
                    ToolTip = 'Specifies the country or region of this intercompany partner. It will be used as default for documents with no country specified.';
                }
                field("Currency Code"; Rec."Currency Code")
                {
                    ApplicationArea = Intercompany;
                    ToolTip = 'Specifies the currency that is used on the entry.';
                }
                field("Inbox Type"; Rec."Inbox Type")
                {
                    ApplicationArea = Intercompany;
                    ToolTip = 'Specifies what type of inbox the intercompany partner has. File Location. You send the partner a file containing intercompany transactions. Database: The partner is set up as another company in the same database. Email: You send the partner transactions by email.';
                }
                field("Inbox Details"; Rec."Inbox Details")
                {
                    ApplicationArea = Intercompany;
                    ToolTip = 'Specifies the details of the intercompany partner''s inbox.';
                }
                field("Auto. Accept Transactions"; Rec."Auto. Accept Transactions")
                {
                    ApplicationArea = Intercompany;
                    ToolTip = 'Specifies if transactions from this partner will be accepted automatically.';
                }
                field("Customer No."; Rec."Customer No.")
                {
                    ApplicationArea = Intercompany;
                    ToolTip = 'Specifies the customer number that this intercompany partner is linked to.';
                }
                field("Vendor No."; Rec."Vendor No.")
                {
                    ApplicationArea = Intercompany;
                    ToolTip = 'Specifies the vendor number that this intercompany partner is linked to.';
                }
                field("Receivables Account"; Rec."Receivables Account")
                {
                    ApplicationArea = Intercompany;
                    ToolTip = 'Specifies the general ledger account to use when you post receivables from customers in this posting group.';
                }
                field("Payables Account"; Rec."Payables Account")
                {
                    ApplicationArea = Intercompany;
                    ToolTip = 'Specifies the general ledger account to use when you post payables due to vendors in this posting group.';
                }
                field(Blocked; Rec.Blocked)
                {
                    ApplicationArea = Intercompany;
                    ToolTip = 'Specifies that the related record is blocked from being posted in transactions, for example a customer that is declared insolvent or an item that is placed in quarantine.';
                }
            }
        }
    }
    actions
    {
        area(Processing)
        {
            action(SetupICPartner)
            {
                ApplicationArea = Intercompany;
                Caption = 'Add';
                Image = Add;
                RunObject = Page "IC Partner Card";
                RunPageMode = Create;
                Tooltip = 'Create and configure a new intercompany partner.';
            }
            action(RemoveICPartner)
            {
                ApplicationArea = Intercompany;
                Caption = 'Remove';
                Image = Delete;
                Scope = Repeater;
                Tooltip = 'Remove an intercompany partner.';
                trigger OnAction()
                begin
                    Rec.Delete(true);
                end;
            }
        }
    }
}