Table 247 Intrastat Setup

#if not CLEANSCHEMA25 
// ------------------------------------------------------------------------------------------------
// Copyright (c) Microsoft Corporation. All rights reserved.
// Licensed under the MIT License. See License.txt in the project root for license information.
// ------------------------------------------------------------------------------------------------
namespace Microsoft.Inventory.Intrastat;

using Microsoft.CRM.Contact;
using Microsoft.Purchases.Vendor;

table 247 "Intrastat Setup"
{
    Caption = 'Intrastat Setup';
    ObsoleteState = Removed;
    ObsoleteTag = '25.0';
    ObsoleteReason = 'Intrastat related functionalities are moved to Intrastat extensions.';
    DataClassification = CustomerContent;

    fields
    {
        field(1; "Code"; Code[10])
        {
            Caption = 'Code';
        }
        field(2; "Report Receipts"; Boolean)
        {
            Caption = 'Report Receipts';
        }
        field(3; "Report Shipments"; Boolean)
        {
            Caption = 'Report Shipments';
        }
        field(4; "Default Trans. - Purchase"; Code[10])
        {
            Caption = 'Default Trans. Type';
            TableRelation = "Transaction Type";
        }
        field(5; "Default Trans. - Return"; Code[10])
        {
            Caption = 'Default Trans. Type - Returns';
            TableRelation = "Transaction Type";
        }
        field(6; "Intrastat Contact Type"; Option)
        {
            Caption = 'Intrastat Contact Type';
            OptionCaption = ' ,Contact,Vendor';
            OptionMembers = " ",Contact,Vendor;

            trigger OnValidate()
            begin
                if "Intrastat Contact Type" <> xRec."Intrastat Contact Type" then
                    Validate("Intrastat Contact No.", '');
            end;
        }
        field(7; "Intrastat Contact No."; Code[20])
        {
            Caption = 'Intrastat Contact No.';
            TableRelation = if ("Intrastat Contact Type" = const(Contact)) Contact."No."
            else
            if ("Intrastat Contact Type" = const(Vendor)) Vendor."No.";
        }
        field(9; "Cust. VAT No. on File"; Enum "Intrastat VAT No. On File")
        {
            Caption = 'Customer VAT No. on File';
        }
        field(10; "Vend. VAT No. on File"; Enum "Intrastat VAT No. On File")
        {
            Caption = 'Vendor VAT No. on File';
        }
        field(11; "Company VAT No. on File"; Enum "Intrastat VAT No. On File")
        {
            Caption = 'Company VAT No. on File';
        }
        field(12; "Default Trans. Spec. Code"; Code[10])
        {
            Caption = 'Default Trans. Spec. Code';
            TableRelation = "Transaction Specification";
        }
        field(13; "Default Trans. Spec. Ret. Code"; Code[10])
        {
            Caption = 'Default Trans. Spec. Returns Code';
            TableRelation = "Transaction Specification";
        }
    }

    keys
    {
        key(Key1; "Code")
        {
            Clustered = true;
        }
    }

    fieldgroups
    {
    }

    var
#pragma warning disable AA0470
        OnDelIntrastatContactErr: Label 'You cannot delete contact number %1 because it is set up as an Intrastat contact in the Intrastat Setup window.', Comment = '1 - Contact No';
        OnDelVendorIntrastatContactErr: Label 'You cannot delete vendor number %1 because it is set up as an Intrastat contact in the Intrastat Setup window.', Comment = '1 - Vendor No';
#pragma warning restore AA0470

    procedure CheckDeleteIntrastatContact(ContactType: Option; ContactNo: Code[20])
    begin
        if (ContactNo = '') or (ContactType = "Intrastat Contact Type"::" ") then
            exit;

        if Get() then
            if (ContactNo = "Intrastat Contact No.") and (ContactType = "Intrastat Contact Type") then begin
                if ContactType = "Intrastat Contact Type"::Contact then
                    Error(OnDelIntrastatContactErr, ContactNo);
                Error(OnDelVendorIntrastatContactErr, ContactNo);
            end;
    end;
}


#endif