Page 1210 Data Exch Def Card

namespace System.IO;

page 1210 "Data Exch Def Card"
{
    Caption = 'Data Exchange Definition';
    PageType = Card;
    SourceTable = "Data Exch. Def";

    layout
    {
        area(content)
        {
            group(General)
            {
                Caption = 'General';
                group(Control19)
                {
                    ShowCaption = false;
                    field("Code"; Rec.Code)
                    {
                        ApplicationArea = Basic, Suite;
                        ShowMandatory = true;
                        ToolTip = 'Specifies a code that identifies the data exchange setup.';
                    }
                    field(Name; Rec.Name)
                    {
                        ApplicationArea = Basic, Suite;
                        ToolTip = 'Specifies the name of the data exchange definition.';
                    }
                    field("File Type"; Rec."File Type")
                    {
                        ApplicationArea = Basic, Suite;
                        ShowMandatory = true;
                        ToolTip = 'Specifies what type of file the data exchange definition is used for. You can select between three file types.';

                        trigger OnValidate()
                        begin
                            IsNonXMLFileType := Rec.CheckEnableDisableIsNonXMLFileType();
                            IsDelimitedFileType := Rec.CheckEnableDisableDelimitedFileType();
                            IsImportType := Rec.CheckEnableDisableIsImportType();
                            CurrPage.Update();
                        end;
                    }
                    field(Type; Rec.Type)
                    {
                        ApplicationArea = Basic, Suite;
                        ShowMandatory = true;
                        ToolTip = 'Specifies what type of exchange the data exchange definition is used for.';

                        trigger OnValidate()
                        begin
                            IsImportType := Rec.CheckEnableDisableIsImportType();
                            Rec.PositivePayUpdateCodeunits();
                            CurrPage.Update();
                        end;
                    }
                    field("Data Handling Codeunit"; Rec."Data Handling Codeunit")
                    {
                        ApplicationArea = Basic, Suite;
                        Importance = Additional;
                        ToolTip = 'Specifies the codeunit that transfers data in and out of tables in Microsoft Dynamics 365.';
                    }
                    field("Validation Codeunit"; Rec."Validation Codeunit")
                    {
                        ApplicationArea = Basic, Suite;
                        Importance = Additional;
                        ToolTip = 'Specifies the codeunit that is used to validate data against pre-defined business rules.';
                    }
                    field("Reading/Writing Codeunit"; Rec."Reading/Writing Codeunit")
                    {
                        ApplicationArea = Basic, Suite;
                        Importance = Additional;
                        ShowMandatory = true;
                        ToolTip = 'Specifies the codeunit that processes imported data prior to mapping and exported data after mapping.';
                    }
                    field("Reading/Writing XMLport"; Rec."Reading/Writing XMLport")
                    {
                        ApplicationArea = Basic, Suite;
                        Importance = Additional;
                        ShowMandatory = true;
                        ToolTip = 'Specifies the XMLport through which an imported data file or service enters prior to mapping and through which exported data exits when it is written to a data file or service after mapping.';
                    }
                    field("Ext. Data Handling Codeunit"; Rec."Ext. Data Handling Codeunit")
                    {
                        ApplicationArea = Basic, Suite;
                        Importance = Additional;
                        ShowMandatory = true;
                        ToolTip = 'Specifies the codeunit that transfers external data in and out of the Data Exchange Framework.';
                    }
                    field("User Feedback Codeunit"; Rec."User Feedback Codeunit")
                    {
                        ApplicationArea = Basic, Suite;
                        Importance = Additional;
                        ToolTip = 'Specifies the codeunit that does various clean-up after mapping, such as marks the lines as exported and deletes temporary records.';
                    }
                }
                group("File Type: Variable/Fixed")
                {
                    Caption = 'File Type: Variable/Fixed';
                    Enabled = IsNonXMLFileType;
                    field("File Encoding"; Rec."File Encoding")
                    {
                        ApplicationArea = Basic, Suite;
                        ToolTip = 'Specifies the encoding of the file to be imported. This field is only relevant for import.';
                    }
                    field("Column Separator"; Rec."Column Separator")
                    {
                        ApplicationArea = Basic, Suite;
                        Enabled = IsDelimitedFileType;
                        ToolTip = 'Specifies how columns in the file are separated if the file is of type Variable Text.';
                    }
                    field("Custom Column Separator"; Rec."Custom Column Separator")
                    {
                        ApplicationArea = Basic, Suite;
                        ToolTip = 'Specifies how columns in the file are separated if the file is of a custom type.';
                    }
                    field("Line Separator"; Rec."Line Separator")
                    {
                        ApplicationArea = Basic, Suite;
                        Enabled = Rec."File Type" = Rec."File Type"::"Variable Text";
                        ToolTip = 'Specifies how lines in the file are separated if the file is of type Variable Text.';
                    }
                }
                group("Type: Import")
                {
                    Caption = 'Type: Import';
                    Enabled = IsImportType;
                    field("Header Lines"; Rec."Header Lines")
                    {
                        ApplicationArea = Basic, Suite;
                        ToolTip = 'Specifies how many header lines exist in the file. This ensures that the header data is not imported. This field is only relevant for import.';
                    }
                    field("Header Tag"; Rec."Header Tag")
                    {
                        ApplicationArea = Basic, Suite;
                        ToolTip = 'Specifies the text of the first column on the header line.';
                    }
                    field("Footer Tag"; Rec."Footer Tag")
                    {
                        ApplicationArea = Basic, Suite;
                        ToolTip = 'Specifies the text of the first column on the footer line. If a footer line exists in several places in the file, enter the text of the first column on the footer line to ensure that the footer data is not imported. This field is only relevant for import.';
                    }
                }
            }
            part("Line Definitions"; "Data Exch Line Def Part")
            {
                ApplicationArea = Basic, Suite;
                Caption = 'Line Definitions';
                SubPageLink = "Data Exch. Def Code" = field(Code);
            }
            part("Column Definitions"; "Data Exch Col Def Part")
            {
                ApplicationArea = Basic, Suite;
                Caption = 'Column Definitions';
                Provider = "Line Definitions";
                SubPageLink = "Data Exch. Line Def Code" = field(Code),
                              "Data Exch. Def Code" = field("Data Exch. Def Code");
            }
        }
    }

    actions
    {
        area(processing)
        {
            action("Import Data Exchange Definition")
            {
                ApplicationArea = Basic, Suite;
                Caption = 'Import Data Exchange Definition';
                Image = Import;
                ToolTip = 'Import a data exchange definition from a bank file that is located on your computer or network. The file type must match the value of the File Type field.';

                trigger OnAction()
                begin
                    XMLPORT.Run(XMLPORT::"Imp / Exp Data Exch Def & Map", false, true);
                end;
            }
            action("Export Data Exchange Definition")
            {
                ApplicationArea = Basic, Suite;
                Caption = 'Export Data Exchange Definition';
                Image = Export;
                ToolTip = 'Export the data exchange definition to a file on your computer or network. You can then upload the file to your electronic bank to process the related transfers.';

                trigger OnAction()
                var
                    DataExchDef: Record "Data Exch. Def";
                begin
                    DataExchDef.SetFilter(Code, Rec.Code);
                    XMLPORT.Run(XMLPORT::"Imp / Exp Data Exch Def & Map", false, false, DataExchDef);
                end;
            }
        }
        area(Promoted)
        {
            group(Category_New)
            {
                Caption = 'Import/Export', Comment = 'Generated from the PromotedActionCategories property index 0.';
            }
            group(Category_Process)
            {
                Caption = 'Process', Comment = 'Generated from the PromotedActionCategories property index 1.';

                actionref("Import Data Exchange Definition_Promoted"; "Import Data Exchange Definition")
                {
                }
                actionref("Export Data Exchange Definition_Promoted"; "Export Data Exchange Definition")
                {
                }
            }
            group(Category_Report)
            {
                Caption = 'Report', Comment = 'Generated from the PromotedActionCategories property index 2.';
            }
        }
    }

    trigger OnInsertRecord(BelowxRec: Boolean): Boolean
    var
        DataExchLineDef: Record "Data Exch. Line Def";
    begin
        if not DataExchLineDef.Get(Rec.Code) then begin
            DataExchLineDef."Data Exch. Def Code" := Rec.Code;
            DataExchLineDef.Code := DefaultTxt;
            DataExchLineDef.Name := DefaultTxt;
            DataExchLineDef."Line Type" := 1;
            DataExchLineDef.Insert();
        end;
    end;

    trigger OnOpenPage()
    begin
        IsNonXMLFileType := Rec.CheckEnableDisableIsNonXMLFileType();
        IsImportType := Rec.CheckEnableDisableIsImportType();
        IsDelimitedFileType := Rec.CheckEnableDisableDelimitedFileType();
    end;

    var
        IsNonXMLFileType: Boolean;
        IsImportType: Boolean;
        IsDelimitedFileType: Boolean;
        DefaultTxt: Label 'DEFAULT', Comment = 'Transate';
}