//DDB-FileStart
//DDB-HeaderStart

// File Name : SNCLOG.DD
// Class Name: Snclog_DataDictionary
// Revision  : 15
// Version   : 2

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

Open Snclog
Open Sncsys
Use cRDSDataDictionary.pkg

//DDB-HeaderEnd

Class Snclog_DataDictionary  Is A cRDSDataDictionary

  Procedure Deleting
    Forward Send Deleting
    If (SncSys.Log_Recid = SncLog.Recid) Begin
       Decrement SncSys.Log_Recid
       Saverecord SncSys            
    End
  End_Procedure

  Procedure Request_Delete
    If Not (Current_Record(Self)) Procedure_Return // Do nothing if no active record.
    Send DoShowStatusHelp "Deleting data..."
    Forward Send Request_Delete
    If (Current_Record(Self)) Send Clear
    Send DoShowStatusHelp "Data deleted."
  End_Procedure

  Procedure DoShowStatusHelp String sText
    Handle hoStatBar
    Delegate Get Statusbar_Id To hoStatBar
    If hoStatBar Set Status_Help Of hoStatBar To sText
  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 Snclog.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

    // External (System) file structure.............
    Send Add_System_File  Sncsys.File_Number  DD_LOCK_ON_NEW_SAVE_DELETE

    Define_Auto_Increment  Sncsys.Log_Recid  To Snclog.Recid

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

    // Snclog.Recid
    Set Field_Class_Name       Field Snclog.Recid To "cRDSDbForm"
    Set Field_Options          Field Snclog.Recid To DD_AUTOFIND   
    Set Status_Help            Field Snclog.Recid To "Unique record id for the Connection Engine log."

    // Snclog.Datetime
    Set Field_Class_Name       Field Snclog.Datetime To "cRDSDbForm"
    Set Field_Label_Long       Field Snclog.Datetime To "Date and Time"
    Set Field_Label_Short      Field Snclog.Datetime To "Date and Time"
    Set Status_Help            Field Snclog.Datetime To "Date and time the record was created."

    // Snclog.Statustext
    Set Field_Class_Name       Field Snclog.Statustext To "cRDSDbEdit"
    Set Field_Label_Long       Field Snclog.Statustext To "Status Text"
    Set Field_Label_Short      Field Snclog.Statustext To "Status Text"
    Set Status_Help            Field Snclog.Statustext To "Error, Warning or Status message for the selected log record."

    // Snclog.Networkusername
    Set Field_Class_Name       Field Snclog.Networkusername To "cRDSDbForm"
    Set Field_Label_Long       Field Snclog.Networkusername To "User Name"
    Set Field_Label_Short      Field Snclog.Networkusername To "User Name"
    Set Status_Help            Field Snclog.Networkusername To "Network Name of the logged in person when the Connection Engine was run."

    // Snclog.Tablename
    Set Field_Class_Name       Field Snclog.Tablename To "cRDSDbForm"
    Set Field_Label_Long       Field Snclog.Tablename To "Database Connection"
    Set Field_Label_Short      Field Snclog.Tablename To "Database Connection"
    Set Status_Help            Field Snclog.Tablename To "User display name/Name of the database tables that were synchronized."

    //DDB-DefineFieldEnd
    Send DefineAllExtendedFields
  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
    //DDB-FieldDefaultEnd
  End_Procedure    // Field_Defaults

End_Class    // Snclog_DataDictionary
//DDB-FileEnd