Table 960 Alt. Customer Posting Group, source in 29

Source29

src/Layers/W1/BaseApp/Sales/Customer/AltCustomerPostingGroup.Table.al59 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.Sales.Customer;

/// <summary>
/// Stores alternative customer posting groups that can substitute the default posting group.
/// </summary>
table 960 "Alt. Customer Posting Group"
{
    Caption = 'Alternative Customer Posting Group';
    ReplicateData = true;
    DataClassification = CustomerContent;

    fields
    {
        /// <summary>
        /// Specifies the primary customer posting group that can use an alternative posting group.
        /// </summary>
        field(1; "Customer Posting Group"; Code[20])
        {
            Caption = 'Customer. Posting Group';
            TableRelation = "Customer Posting Group";
        }
        /// <summary>
        /// Specifies the alternative customer posting group that can substitute the primary posting group for G/L account mappings.
        /// </summary>
        field(2; "Alt. Customer Posting Group"; Code[20])
        {
            Caption = 'Alternative Customer Posting Group';
            TableRelation = "Customer Posting Group";
            ToolTip = 'Specifies the customer group for posting business transactions to general ledger accounts.';

            trigger OnValidate()
            begin
                if "Customer Posting Group" = "Alt. Customer Posting Group" then
                    Error(PostingGroupReplaceErr);
            end;
        }
    }

    keys
    {
        key(Key1; "Customer Posting Group", "Alt. Customer Posting Group")
        {
            Clustered = true;
        }
    }

    fieldgroups
    {
    }

    var
        PostingGroupReplaceErr: Label 'Posting Group cannot replace itself.';
}