Set Main_File To Snctable.File_Number Set Foreign_Field_Options DD_KEYFIELD To DD_AUTOFIND DD_NOPUT DD_FINDREQ Set Foreign_Field_Options DD_INDEXFIELD To DD_NOPUT DD_FINDREQ Set Foreign_Field_Options DD_DEFAULT To DD_DISPLAYONLY // Child (Client) file structure................ Send Add_Client_File Sncthea.File_Number // External (System) file structure............. Send Add_System_File Sncsys.File_Number DD_LOCK_ON_NEW_SAVE_DELETE Send Add_System_File Sncschem.File_Number DD_LOCK_ON_ALL Define_Auto_Increment Sncsys.Table_Recid To Snctable.Recid // Field-based properties....................... // Snctable.Recid Set Field_Class_Name Field Snctable.Recid To "cRDSDbForm" Set Field_Label_Long Field Snctable.Recid To "Id (Auto generated)" Set Field_Label_Short Field Snctable.Recid To "Id" Set Field_Options Field Snctable.Recid To DD_AUTOFIND Set Field_Prompt_Object Field Snctable.Recid To (SNCTABLE_SL(Self)) Set Status_Help Field Snctable.Recid To "Auto generated record id. Press F4 to display saved table setup records." // Snctable.Text Set Field_Class_Name Field Snctable.Text To "cRDSDbForm" Set Field_Label_Long Field Snctable.Text To "Description" Set Field_Label_Short Field Snctable.Text To "Description" Set Status_Help Field Snctable.Text To "This text will get displayed in the 'Collections of Database Connections' grid and in the CrossMerge Engine program grid." // Snctable.Fromfile Set Field_Class_Name Field Snctable.Fromfile To "cDbFilelistComboForm" Set Field_Label_Long Field Snctable.Fromfile To "Source file number" Set Field_Label_Short Field Snctable.Fromfile To "File number" Set Status_Help Field Snctable.Fromfile To "This is the table to read data from when running the CrossMerge Engine." // Snctable.Fromstartfield Set Field_Class_Name Field Snctable.Fromstartfield To "cDbFieldComboForm" Set Field_Label_Long Field Snctable.Fromstartfield To "Source Start Field" Set Field_Label_Short Field Snctable.Fromstartfield To "Source Start Field" Set Status_Help Field Snctable.Fromstartfield To "Start field number for source table. Only used if field selection type is 1 - Range of field numbers." // Snctable.Fromstopfield Set Field_Class_Name Field Snctable.Fromstopfield To "cDbFieldComboForm" Set Field_Label_Long Field Snctable.Fromstopfield To "Source Stop Field" Set Field_Label_Short Field Snctable.Fromstopfield To "Source Stop Field" Set Status_Help Field Snctable.Fromstopfield To "Last field number for source table. Only used if field selection type is 1 - Range of field number." // Snctable.Fromindex Set Field_Class_Name Field Snctable.Fromindex To "cDbIndexComboForm" Set Field_Label_Long Field Snctable.Fromindex To "Select Unique Index" Set Field_Label_Short Field Snctable.Fromindex To "From Index" Set Status_Help Field Snctable.Fromindex To "Select an unique index to use for the source table. Only used when 'Auto detete old records' has been selected." // Snctable.Tofile Set Field_Class_Name Field Snctable.Tofile To "cDbFilelistComboForm" Set Field_Label_Long Field Snctable.Tofile To "Destination file number" Set Field_Label_Short Field Snctable.Tofile To "Root Name" Set Status_Help Field Snctable.Tofile To "This is the table to connect data to." // Snctable.Tostartfield Set Field_Class_Name Field Snctable.Tostartfield To "cDbFieldComboForm" Set Field_Label_Long Field Snctable.Tostartfield To "Target Start Field" Set Field_Label_Short Field Snctable.Tostartfield To "Target Start Field" Set Status_Help Field Snctable.Tostartfield To "Start field number for target table. Only used if field selection type is 1 - Range of field numbers." // Snctable.Toindex Set Field_Class_Name Field Snctable.Toindex To "cDbIndexComboForm" Set Field_Label_Long Field Snctable.Toindex To "Select Unique Index" Set Field_Label_Short Field Snctable.Toindex To "To Index" Set Status_Help Field Snctable.Toindex To "Select an unique index. This is the index to use when finding an existing equal record in the target table when data is connected." // Snctable.Workspace Set Field_Label_Long Field Snctable.Workspace To "Current WorkSpace" Set Field_Label_Short Field Snctable.Workspace To "WorkSpace" Set Status_Help Field Snctable.Workspace To "Not used" // Snctable.Vdfver Set Status_Help Field Snctable.Vdfver To "Not used" // Snctable.Synchtype Set Field_Class_Name Field Snctable.Synchtype To "cRDSDbComboForm" Set Field_Label_Long Field Snctable.Synchtype To "Field Selection Type" Set Field_Value_Table Field Snctable.Synchtype To (Snctable_SynchType_VT(Self)) Set Status_Help Field Snctable.Synchtype To "1 - Use all fields with the same name. 2 - Select a range of fields to use. 3 - Select individual fields to connect." // Snctable.Selfromfields Set Field_Class_Name Field Snctable.Selfromfields To "cRDSDbForm" Set Status_Help Field Snctable.Selfromfields To "Selected source fields" // Snctable.Seltofields Set Field_Class_Name Field Snctable.Seltofields To "cRDSDbForm" Set Status_Help Field Snctable.Seltofields To "Selected target fields" // Snctable.Selfieldcount Set Field_Class_Name Field Snctable.Selfieldcount To "cRDSDbForm" Set Field_Label_Long Field Snctable.Selfieldcount To "Field count" Set Field_Label_Short Field Snctable.Selfieldcount To "Count" Set Field_Options Field Snctable.Selfieldcount To DD_NOENTER DD_ZERO_SUPPRESS Set Status_Help Field Snctable.Selfieldcount To "Number of selected fields/columns." // Snctable.Fromfieldstoidx Set Field_Class_Name Field Snctable.Fromfieldstoidx To "cRDSDbForm" Set Field_Options Field Snctable.Fromfieldstoidx To DD_NOENTER Set Status_Help Field Snctable.Fromfieldstoidx To "Number of selected fields to load the source table's index fields (segments). Only used when 'Auto Delete old records' has benn checked." // Snctable.Toidxselcount Set Field_Class_Name Field Snctable.Toidxselcount To "cRDSDbForm" Set Field_Label_Long Field Snctable.Toidxselcount To "Select Count" Set Field_Label_Short Field Snctable.Toidxselcount To "Idx count" Set Field_Options Field Snctable.Toidxselcount To DD_NOENTER DD_ZERO_SUPPRESS Set Status_Help Field Snctable.Toidxselcount To "Number of selected fields to load the target table's index fields (segments)." // Snctable.Tofieldsfromidx Set Field_Class_Name Field Snctable.Tofieldsfromidx To "cRDSDbForm" Set Field_Options Field Snctable.Tofieldsfromidx To DD_NOENTER Set Status_Help Field Snctable.Tofieldsfromidx To "Selected fields to load the target table's index fields (segments)." // Snctable.Fridxselcount Set Field_Class_Name Field Snctable.Fridxselcount To "cRDSDbForm" Set Field_Label_Long Field Snctable.Fridxselcount To "Select Count" Set Field_Label_Short Field Snctable.Fridxselcount To "Idx Count" Set Field_Options Field Snctable.Fridxselcount To DD_NOENTER DD_ZERO_SUPPRESS Set Status_Help Field Snctable.Fridxselcount To "Number of selected fields to load source table's index fields (segments)." // Snctable.Frfileoemtoansi Set Field_Checkbox_Values Field Snctable.Frfileoemtoansi To "1" "0" Set Field_Class_Name Field Snctable.Frfileoemtoansi To "cRDSDbCheckBox" Set Field_Label_Long Field Snctable.Frfileoemtoansi To "Data saved in ANSI format" Set Status_Help Field Snctable.Frfileoemtoansi To "Defines in what format data was stored in the source data table. OEM or ANSI. Only available if format is other than DataFlex." // Snctable.Tofileoemtoansi Set Field_Checkbox_Values Field Snctable.Tofileoemtoansi To "1" "0" Set Field_Class_Name Field Snctable.Tofileoemtoansi To "cRDSDbCheckBox" Set Field_Label_Long Field Snctable.Tofileoemtoansi To "Save data in ANSI format" Set Status_Help Field Snctable.Tofileoemtoansi To "Defines in what format data should be stored in the target data table. Unchecked=OEM and checked=ANSI. Only available if format is other than DataFlex." // Snctable.Delete_Records Set Field_Checkbox_Values Field Snctable.Delete_Records To "1" "0" Set Field_Class_Name Field Snctable.Delete_Records To "cRDSDbCheckBox" Set Field_Label_Long Field Snctable.Delete_Records To "Auto delete old records" Set Field_Label_Short Field Snctable.Delete_Records To "Auto Delete" Set Status_Help Field Snctable.Delete_Records To "Delete records in the target data table that is missing in the source data table. Note: This will add approximately an extra 60% to the total connection time." // Snctable.Zerolengthok Set Field_Checkbox_Values Field Snctable.Zerolengthok To "1" "0" Set Field_Class_Name Field Snctable.Zerolengthok To "cRDSDbCheckBox" Set Field_Label_Long Field Snctable.Zerolengthok To "Null defaults specified" Set Field_Options Field Snctable.Zerolengthok To DD_NOENTER Set Status_Help Field Snctable.Zerolengthok To "Has default values been specified for 'Null' values?" // Snctable.Fromlogin Set Field_Class_Name Field Snctable.Fromlogin To "cRDSDbForm" Set Field_Label_Long Field Snctable.Fromlogin To "Login" Set Field_Label_Short Field Snctable.Fromlogin To "Login" Set Status_Help Field Snctable.Fromlogin To "Login parameters. Only available for database formats other than Dataflex." // Snctable.Tologin Set Field_Class_Name Field Snctable.Tologin To "cRDSDbForm" Set Field_Label_Long Field Snctable.Tologin To "Login" Set Field_Label_Short Field Snctable.Tologin To "Login" Set Status_Help Field Snctable.Tologin To "Login parameters. Only available for database formats other than Dataflex." // Snctable.Constraints Set Field_Class_Name Field Snctable.Constraints To "cRDSDbForm" Set Status_Help Field Snctable.Constraints To "Filters. Used to filter the source table records that should be read when running the CrossMerge Engine." // Snctable.Constraincount Set Field_Class_Name Field Snctable.Constraincount To "cRDSDbForm" Set Field_Label_Long Field Snctable.Constraincount To "Selected number of filters" Set Field_Options Field Snctable.Constraincount To DD_NOENTER DD_ZERO_SUPPRESS Set Status_Help Field Snctable.Constraincount To "Selected number of filters" // Snctable.Fromowner Set Field_Class_Name Field Snctable.Fromowner To "cDbFormSchema" Set Field_Label_Long Field Snctable.Fromowner To "Schema/Owner" Set Field_Label_Short Field Snctable.Fromowner To "Schema/Owner" Set Status_Help Field Snctable.Fromowner To "Schema or Owner of the source database table" // Snctable.Toowner Set Field_Class_Name Field Snctable.Toowner To "cDbFormSchema" Set Field_Label_Long Field Snctable.Toowner To "Schema/Owner" Set Field_Label_Short Field Snctable.Toowner To "Schema/Owner" Set Status_Help Field Snctable.Toowner To "Schema or Owner of the target database table" // Snctable.Todefaults Set Field_Class_Name Field Snctable.Todefaults To "cRDSDbForm" Set Status_Help Field Snctable.Todefaults To "Default values to use for the target data table when an undefined or 'Null' value is found in the source data table." // Snctable.Hide Set Field_Checkbox_Values Field Snctable.Hide To "1" "0" Set Field_Class_Name Field Snctable.Hide To "cRDSDbCheckBox" Set Field_Label_Long Field Snctable.Hide To "Hide record" Set Field_Label_Short Field Snctable.Hide To "Hide" Set Status_Help Field Snctable.Hide To "Hide this record from the 'Collections of Database Connections' grid and from the CrossMerge Engine grid." // Snctable.Fromdriver Set Field_Class_Name Field Snctable.Fromdriver To "cDbComboformDriver" Set Field_Label_Long Field Snctable.Fromdriver To "Database Driver" Set Field_Label_Short Field Snctable.Fromdriver To "Database Driver" Set Status_Help Field Snctable.Fromdriver To "Driver DLL to use for the source database table." // Snctable.Todriver Set Field_Class_Name Field Snctable.Todriver To "cDbComboformDriver" Set Field_Label_Long Field Snctable.Todriver To "Database Driver" Set Field_Label_Short Field Snctable.Todriver To "Database Driver" Set Status_Help Field Snctable.Todriver To "Driver DLL to use for the target database table." // Snctable.Sncthea_Count Set Field_Class_Name Field Snctable.Sncthea_Count To "cRDSDbForm" Set Field_Label_Long Field Snctable.Sncthea_Count To "No of Transformation Tables" Set Field_Options Field Snctable.Sncthea_Count To DD_NOENTER DD_ZERO_SUPPRESS Set Status_Help Field Snctable.Sncthea_Count To "Number of value transformation tabels created." // Snctable.Checkintegrity Set Field_Checkbox_Values Field Snctable.Checkintegrity To "1" "0" Set Field_Class_Name Field Snctable.Checkintegrity To "cRDSDbCheckBox" Set Field_Label_Long Field Snctable.Checkintegrity To "Check For Database Table Layout Changes before running CrossMerge Engine" Set Field_Label_Short Field Snctable.Checkintegrity To "db Integrity" Set Status_Help Field Snctable.Checkintegrity To "Check for database table layout changes before running CrossMerge Engine. Checks that no selected fields for the two tables have been changed after this record was last edited." // Snctable.Fromlayout // Snctable.Tolayout // Snctable.Fromfilepath Set Field_Class_Name Field Snctable.Fromfilepath To "cDbFormPath" Set Field_Label_Long Field Snctable.Fromfilepath To "Table Path" Set Field_Label_Short Field Snctable.Fromfilepath To "Table Path" Set Status_Help Field Snctable.Fromfilepath To "Name and full path to the source data table. Only for database formats 'DataFlex' and 'Pervasive.SQL'." // Snctable.Tofilepath Set Field_Class_Name Field Snctable.Tofilepath To "cDbFormPath" Set Field_Label_Long Field Snctable.Tofilepath To "Table Path" Set Field_Label_Short Field Snctable.Tofilepath To "Table Path" Set Status_Help Field Snctable.Tofilepath To "Name and full path to the source data table. Only for database formats 'DataFlex' and 'Pervasive.SQL'" // Snctable.Interface // Snctable.Fromdatatable Set Field_Class_Name Field Snctable.Fromdatatable To "cDbComboformDataTable" Set Field_Label_Long Field Snctable.Fromdatatable To "Source Table Name" Set Field_Label_Short Field Snctable.Fromdatatable To "Table Name" Set Status_Help Field Snctable.Fromdatatable To "Name of the source database table." // Snctable.Todatatable Set Field_Class_Name Field Snctable.Todatatable To "cDbComboformDataTable" Set Field_Label_Long Field Snctable.Todatatable To "Target Table Name" Set Field_Label_Short Field Snctable.Todatatable To "Table Name" Set Status_Help Field Snctable.Todatatable To "Name of the target database table." // Snctable.Frompv Set Field_Class_Name Field Snctable.Frompv To "cDbFormPassword" Set Field_Label_Long Field Snctable.Frompv To "Password" Set Field_Label_Short Field Snctable.Frompv To "Password" Set Status_Help Field Snctable.Frompv To "Password for the source database" // Snctable.Topv Set Field_Class_Name Field Snctable.Topv To "cDbFormPassword" Set Field_Label_Long Field Snctable.Topv To "Password" Set Field_Label_Short Field Snctable.Topv To "Password" Set Status_Help Field Snctable.Topv To "Password for the target database" // Snctable.Fromdbtype Set Field_Class_Name Field Snctable.Fromdbtype To "cDbComboformFormat" Set Field_Label_Long Field Snctable.Fromdbtype To "Database Format" Set Field_Label_Short Field Snctable.Fromdbtype To "From Format" Set Field_Value_Table Field Snctable.Fromdbtype To (Snctable_Dbtype_VT(Self)) Set Status_Help Field Snctable.Fromdbtype To "Select the appropriate format from the list. If you don't find the needed Database Format select 'Other - ODBC - Open DataBase Connectivity' and connect with an installed ODBC driver." // Snctable.Todbtype Set Field_Class_Name Field Snctable.Todbtype To "cDbComboformFormat" Set Field_Label_Long Field Snctable.Todbtype To "Database Format" Set Field_Label_Short Field Snctable.Todbtype To "To Format" Set Field_Value_Table Field Snctable.Todbtype To (Snctable_Dbtype_VT(Self)) Set Status_Help Field Snctable.Todbtype To "Select the appropriate format from the list. If you don't find the needed Database Format select 'Other - ODBC - Open DataBase Connectivity' and connect with an installed ODBC driver." // Snctable.Fromserver Set Field_Class_Name Field Snctable.Fromserver To "cDbComboformServer" Set Field_Label_Long Field Snctable.Fromserver To "Server" Set Field_Label_Short Field Snctable.Fromserver To "Server" Set Status_Help Field Snctable.Fromserver To "Database Server or DSN (Data Source Name) for the source database table." // Snctable.Toserver Set Field_Class_Name Field Snctable.Toserver To "cDbComboformServer" Set Field_Label_Long Field Snctable.Toserver To "Server" Set Field_Label_Short Field Snctable.Toserver To "Server" Set Status_Help Field Snctable.Toserver To "Database Server or DSN (Data Source Name) for the target database table." // Snctable.Fromuser Set Field_Class_Name Field Snctable.Fromuser To "cDbFormUser" Set Field_Label_Long Field Snctable.Fromuser To "User Name" Set Field_Label_Short Field Snctable.Fromuser To "User Name" Set Status_Help Field Snctable.Fromuser To "The user name for logging into the source database table." // Snctable.Touser Set Field_Class_Name Field Snctable.Touser To "cDbFormUser" Set Field_Label_Long Field Snctable.Touser To "User Name" Set Field_Label_Short Field Snctable.Touser To "User Name" Set Status_Help Field Snctable.Touser To "The user name for logging into the target database table." // Snctable.Fromntauth Set Field_Checkbox_Values Field Snctable.Fromntauth To "1" "0" Set Field_Class_Name Field Snctable.Fromntauth To "cRDSDbCheckBox" Set Field_Label_Long Field Snctable.Fromntauth To "Use Windows NT Authentication" Set Field_Label_Short Field Snctable.Fromntauth To "NT authentication" Set Status_Help Field Snctable.Fromntauth To "Use NT Authentication when logging into the source database. This is the same as using Windows login info." // Snctable.Tontauth Set Field_Class_Name Field Snctable.Tontauth To "cRDSDbCheckBox" Set Field_Label_Long Field Snctable.Tontauth To "Use Windows NT Authentication" Set Field_Label_Short Field Snctable.Tontauth To "NT authentication" Set Status_Help Field Snctable.Tontauth To "Use NT Authentication when logging into the target database. This is the same as using Windows login info." // Snctable.Synchflags // Snctable.Synchflagcount Set Field_Label_Long Field Snctable.Synchflagcount To "Number of Selected Fields" Set Field_Options Field Snctable.Synchflagcount To DD_NOENTER DD_ZERO_SUPPRESS Set Status_Help Field Snctable.Synchflagcount To "Number of selected target flag fields." // Snctable.Fromdsntype // Snctable.Todsntype // Snctable.Fromdatabase Set Field_Class_Name Field Snctable.Fromdatabase To "cDbComboFormDatabase" Set Field_Label_Long Field Snctable.Fromdatabase To "Database Name" Set Field_Label_Short Field Snctable.Fromdatabase To "Database" Set Status_Help Field Snctable.Fromdatabase To "Only for MS SQL. The name of the database where the SQL Server tables have been placed." // Snctable.Todatabase Set Field_Class_Name Field Snctable.Todatabase To "cDbComboFormDatabase" Set Field_Label_Long Field Snctable.Todatabase To "Database Name" Set Field_Label_Short Field Snctable.Todatabase To "Database" Set Status_Help Field Snctable.Todatabase To "Only for MS SQL. The name of the database where the SQL Server tables have been placed." // Snctable.Sortfield Set Field_Class_Name Field Snctable.Sortfield To "cRDSDbForm" Set Field_Label_Long Field Snctable.Sortfield To "Sort Name" Set Field_Label_Short Field Snctable.Sortfield To "Sort Name" Set Field_Prompt_Object Field Snctable.Sortfield To (SNCTABLE_SL(Self)) Set Status_Help Field Snctable.Sortfield To "Optional. Enter a name to sort this record in the 'Collections of Database Connections' grid and in the CrossMerge Engine grid." // Snctable.Datetime Set Field_Label_Long Field Snctable.DateTime To "Record Created" Set Field_Label_Short Field Snctable.DateTime To "Created" Set Field_Options Field Snctable.DateTime To DD_NOENTER Set Status_Help Field Snctable.DateTime To "The date and time when this connect record was created." // Snctable.Createdby Set Field_Label_Long Field Snctable.Createdby To "By" Set Field_Label_Short Field Snctable.Createdby To "By" Set Field_Options Field Snctable.Createdby To DD_NOENTER Set Status_Help Field Snctable.Createdby To "The network user name of the logged in person that created this record." // Snctable.Lastedited Set Field_Label_Long Field Snctable.Lastedited To "Last Edited" Set Field_Label_Short Field Snctable.Lastedited To "Last Edited" Set Field_Options Field Snctable.Lastedited To DD_NOENTER Set Status_Help Field Snctable.Lastedited To "The date and time when this connect record was last edited." // Snctable.Editedby Set Field_Label_Long Field Snctable.Editedby To "By" Set Field_Label_Short Field Snctable.Editedby To "By" Set Field_Options Field Snctable.Editedby To DD_NOENTER Set Status_Help Field Snctable.Editedby To "The network user name of the logged in person that last edited this record" // Snctable.Notes Set Field_Class_Name Field Snctable.Notes To "cRDSDbEdit" Set Field_Label_Long Field Snctable.Notes To "Notes" Set Field_Label_Short Field Snctable.Notes To "Notes" Set Status_Help Field Snctable.Notes To "Here you can enter your personal notes about the connection record."