//DDB-FileStart
//DDB-HeaderStart

// File Name : SNCSYS.DD
// Class Name: Sncsys_DataDictionary
// Revision  : 54
// Version   : 2

Use  Windows           // Basic Definitions
Use  DataDict.pkg          // DataDictionary Class Definition
Use  DDvalTbl          // Validation Table Class Definitions

Open Sncsys

//DDB-HeaderEnd
//DDB-SelectionStart
//DDB/ ExternalSelectionList SncSchem_SL  SncSchem.SL
Register_Object SncSchem_SL
//DDB-SelectionEnd
//Use SoftwareKey.pkg
Use cRDSDataDictionary.pkg

Class Sncsys_DataDictionary  Is A cRDSDataDictionary

  Procedure New_Current_Record Integer iOld Integer iNew
    String sPv
    Forward Send New_Current_Record iOld iNew
    If (Operation_Mode = Mode_Finding Or Operation_Mode = Mode_Saving) Begin
      Get Field_Current_Value Field SncSys.Pv   To sPv
      If (Length(sPv) > 0) Begin
        Get CmNewDeKry sPv iNew                 To sPv  // Decrypt password:
        Move sPv                                To SncSys.Pv
        Set Field_Current_Value Field SncSys.Pv To sPv
      End // If (Length(sPv) > 0) Begin
    End // If (Operation_Mode = Mode_Finding Or Operation_Mode = Mode_Saving) Begin
  End_Procedure // New_Current_Record

  Procedure Update
    String sDriver sPv
    Boolean bOpen
    Forward Send Update
    // Encrypt passwords:
    Move (Trim(SncSys.Pv)) To sPv
    If (Length(sPv) > 0) ;
      Get CmNewEnKry SncSys.Pv SncSys.Recnum To SncSys.Pv
  End_Procedure // Update

  Function Validate_Save Returns Integer
    Integer iRetval
    String sDSN sLeft sRight
    Forward Get Validate_Save To iRetval
    If iRetval Function_Return iRetval
    Move (Trim(SncSys.DSN_Names)) To sDSN

    If (Length(sDSN) > 0) Begin
      Move (Left (sDSN, 1)) To sLeft
      Move (Right(sDSN, 1)) To sRight
      If (sLeft <> '"' Or sRight <> '"') Begin
        Error 300 "You must surround each DSN name with double quotes."
        Move 1 To iRetval
      End
    End // If (Length(sDSN) > 0) Begin

    Function_Return iRetval
  End_Function   // Validate_Save

  Procedure Request_Save
    Send DoShowStatusHelp "Saving data..."
    Forward Send Request_Save
    Send DoShowStatusHelp "Changes saved."
  End_Procedure

  Procedure DoShowStatusHelp String sText
    Handle hoStatBar
    If (Current_Record(Self)) Begin
      Delegate Get Statusbar_Id To hoStatBar
      If hoStatBar Set Status_Help Of hoStatBar To sText
    End
  End_Procedure

  // Define_Fields:
  // This procedure is used to set up all data-dictionary rules.

  Procedure Define_Fields
    Forward Send Define_Fields
    //DDB-Generated-Code-Location
    //DDB-DefineFieldStart

    Set Main_File            To Sncsys.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

    // Field-based properties.......................

    // Sncsys.Log_Recid
    //DDB/ Comment_Short       Field Sncsys.Log_Recid To "Next SncLog recid"
    Set Field_Class_Name       Field Sncsys.Log_Recid To "cRDSDbForm"

    // Sncsys.Table_Recid
    //DDB/ Comment_Short       Field Sncsys.Table_Recid To "Next SncTable Recid"
    Set Field_Class_Name       Field Sncsys.Table_Recid To "cRDSDbForm"

    // Sncsys.Default_Scheme
    Set Field_Class_Name       Field Sncsys.Default_Scheme To "cRDSDbComboForm"
    Set Field_Prompt_Object    Field Sncsys.Default_Scheme To (SncSchem_SL(Self))
    Set Status_Help            Field Sncsys.Default_Scheme To "Use this default Collection Name when the Connection Engine is started manually."

    // Sncsys.Autostart
    Set Field_Checkbox_Values  Field Sncsys.Autostart To "1"  "0"
    Set Field_Class_Name       Field Sncsys.Autostart To "cSysDbCheckBox"
    Set Field_Label_Long       Field Sncsys.Autostart To "Auto start the CrossMerge Engine"
    Set Status_Help            Field Sncsys.Autostart To "- Not used"

    // Sncsys.Show_Info
    Set Field_Checkbox_Values  Field Sncsys.Show_Info To "1"  "0"
    Set Field_Class_Name       Field Sncsys.Show_Info To "cSysDbCheckBox"
    Set Field_Label_Long       Field Sncsys.Show_Info To "Display status panel with info while the CrossMerge Engine is running"
    Set Status_Help            Field Sncsys.Show_Info To "Display info while connecting data in a Status Panel/Sentinel"

    // Sncsys.Delete_Records
    //DDB/ Comment_Short       Field Sncsys.Delete_Records To "Obsolete"
    Set Field_Checkbox_Values  Field Sncsys.Delete_Records To "1"  "0"
    Set Field_Class_Name       Field Sncsys.Delete_Records To "cSysDbCheckBox"
    Set Field_Label_Long       Field Sncsys.Delete_Records To "- Not used"
    Set Field_Label_Short      Field Sncsys.Delete_Records To "not used"
    Set Status_Help            Field Sncsys.Delete_Records To "- Not used"

    // Sncsys.Default_Ws
    //DDB/ Comment_Short       Field Sncsys.Default_Ws To "Obsolete"
    Set Field_Label_Long       Field Sncsys.Default_Ws To "Default WorkSpace Name"
    Set Status_Help            Field Sncsys.Default_Ws To "- Not used"

    // Sncsys.Allowdeletelog
    Set Field_Checkbox_Values  Field Sncsys.Allowdeletelog To "1"  "0"
    Set Field_Class_Name       Field Sncsys.Allowdeletelog To "cSysDbCheckBox"
    Set Field_Label_Long       Field Sncsys.Allowdeletelog To "Allow user to delete the connection log"
    Set Status_Help            Field Sncsys.Allowdeletelog To "Applicable when the CrossMerge Engine is started manually."

    // Sncsys.Allowautodelete
    Set Field_Checkbox_Values  Field Sncsys.Allowautodelete To "1"  "0"
    Set Field_Class_Name       Field Sncsys.Allowautodelete To "cSysDbCheckBox"
    Set Field_Label_Long       Field Sncsys.Allowautodelete To "Allow to change ' Auto Delete'  items (right checkbox column)"
    Set Status_Help            Field Sncsys.Allowautodelete To "Applicable when the CrossMerge Engine is started manually."

    // Sncsys.Allowtblchange
    Set Field_Checkbox_Values  Field Sncsys.Allowtblchange To "1"  "0"
    Set Field_Class_Name       Field Sncsys.Allowtblchange To "cSysDbCheckBox"
    Set Field_Label_Long       Field Sncsys.Allowtblchange To "Allow to change selections of items (left checkbox column)"
    Set Status_Help            Field Sncsys.Allowtblchange To "Applicable when the CrossMerge Engine is started manually."

    // Sncsys.Allowcancelsent
    Set Field_Checkbox_Values  Field Sncsys.Allowcancelsent To "1"  "0"
    Set Field_Class_Name       Field Sncsys.Allowcancelsent To "cSysDbCheckBox"
    Set Field_Label_Long       Field Sncsys.Allowcancelsent To "Allow to cancel the CrossMerge Engine when run"
    Set Status_Help            Field Sncsys.Allowcancelsent To "Enable/Disable the cancel button of the status panel/sentinel"

    // Sncsys.Dsn_Names
    Set Field_Class_Name       Field Sncsys.Dsn_Names To "cRDSDbForm"
    Set Field_Label_Long       Field Sncsys.Dsn_Names To "ODBC DSN name(s)"
    Set Field_Label_Short      Field Sncsys.Dsn_Names To "ODBC DSN name(s)"
    Set Status_Help            Field Sncsys.Dsn_Names To "Check for these User DSN names when starting the CrossMerge Engine. Surround each name with double quotation marks."

    // Sncsys.Vdfver
    //DDB/ Comment_Short       Field Sncsys.Vdfver To "Obsolete"
    Set Field_Label_Long       Field Sncsys.Vdfver To "Visual Dataflex version"
    Set Field_Label_Short      Field Sncsys.Vdfver To "VDF ver"
    Set Status_Help            Field Sncsys.Vdfver To "- Not used"

    // Sncsys.Usetooltip
    Set Field_Checkbox_Values  Field Sncsys.Usetooltip To "1"  "0"
    Set Field_Class_Name       Field Sncsys.Usetooltip To "cRDSDbCheckBox"
    Set Field_Label_Long       Field Sncsys.Usetooltip To "Use ToolTip Hints"
    Set Status_Help            Field Sncsys.Usetooltip To "Display tooltip help when hoovering the mouse over an object. (The text you are seeing now.)"

    // Sncsys.Sncthea_Recid
    Set Field_Class_Name       Field Sncsys.Sncthea_Recid To "cRDSDbForm"

    // Sncsys.Snctrow_Recid
    Set Field_Class_Name       Field Sncsys.Snctrow_Recid To "cRDSDbForm"

    // Sncsys.Runminimized
    Set Field_Checkbox_Values  Field Sncsys.Runminimized To "1"  "0"
    Set Field_Class_Name       Field Sncsys.Runminimized To "cSysDbCheckbox"
    Set Field_Label_Long       Field Sncsys.Runminimized To "Run Program Minimized when scheduled to Autorun by Windows Scheduled Tasks"
    Set Field_Label_Short      Field Sncsys.Runminimized To "Minimized"
    Set Status_Help            Field Sncsys.Runminimized To "Minimize the CrossMerge Engine program when running. Helpfull when run by Windows Scheduled tasks."

    // Sncsys.Uselogin
    Set Field_Checkbox_Values  Field Sncsys.Uselogin To "1"  "0"
    Set Field_Class_Name       Field Sncsys.Uselogin To "cSysDbCheckbox"
    Set Field_Label_Long       Field Sncsys.Uselogin To "Use Login for this program"
    Set Status_Help            Field Sncsys.Uselogin To "Use login dialog with user and password when starting this program."

    // Sncsys.User
    //DDB/ Comment_Short       Field Sncsys.User To "Used by the Properties dialog."

    // Sncsys.Pv
    //DDB/ Comment_Short       Field Sncsys.Pv To "Used by the Properties dialog."

    //DDB-DefineFieldEnd
  End_Procedure    // Define_Fields

  // Field_Defaults:
  // This procedure is used to establish default field values.

  Procedure Field_Defaults
    Forward Send Field_Defaults
    //DDB-Generated-Code-Location
    //DDB-FieldDefaultStart
    Set Field_Changed_Value   Field Sncsys.Autostart To 0
    Set Field_Changed_Value   Field Sncsys.Show_Info To 1
    Set Field_Changed_Value   Field Sncsys.Delete_Records To 1
    Set Field_Changed_Value   Field Sncsys.Allowdeletelog To 1
    Set Field_Changed_Value   Field Sncsys.Allowautodelete To 0
    Set Field_Changed_Value   Field Sncsys.Allowtblchange To 1
    Set Field_Changed_Value   Field Sncsys.Allowcancelsent To 1
    Set Field_Changed_Value   Field Sncsys.Vdfver To 7
    Set Field_Changed_Value   Field Sncsys.Usetooltip To 1
    Set Field_Changed_Value   Field Sncsys.Runminimized To 1
    Set Field_Changed_Value   Field Sncsys.Uselogin To 0
    //DDB-FieldDefaultEnd
  End_Procedure    // Field_Defaults

  Procedure End_Construct_Object
    Forward Send End_Construct_Object
    Set Auto_Fill_State To True
    Send Find_by_Recnum (Main_File(Self)) 1
  End_Procedure

End_Class    // Sncsys_DataDictionary
//DDB-Selection-pkg-Start
#IFDEF Is$WebApp
#ELSE

Use SncSchem.SL      // SncSchem_SL

#ENDIF
//DDB-Selection-pkg-End
//DDB-FileEnd