//DDB-FileStart
//DDB-HeaderStart

// File Name : SNCTHEA.DD
// Class Name: Sncthea_DataDictionary
// Revision  : 12
// Version   : 2

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

Open Sncthea
Open Snctrow
Open Snctable
Open Sncsys
Use cRDSDataDictionary.pkg

//DDB-HeaderEnd

Class Sncthea_DataDictionary  Is A cRDSDataDictionary

  // Deleting:
  Procedure Deleting
    Forward Send Deleting
    Add -1 To SncTable.SncTHea_Count
    Saverecord SncTable
    If (SncTHea.Recid = SncSys.SncTHea_Recid) Begin
      Add -1 To SncSys.SncTHea_Recid
      Saverecord SncSys
    End
  End_Procedure   // Deleting
 
  // Creating:
  Procedure Creating
    Forward Send Creating
    Add 1 To SncTable.SncTHea_Count
    Saverecord SncTable
  End_Procedure   // Creating

  // 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 Sncthea.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  Snctrow.File_Number

    // Parent (Server) file structure...............
    Send Add_Server_File  Snctable.File_Number

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

    Define_Auto_Increment  Sncsys.Sncthea_Recid  To Sncthea.Recid

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

    // Sncthea.Snctable_Recid
    Set Field_Class_Name       Field Sncthea.Snctable_Recid To "cRDSDbForm"
    Set Key_Field_State        Field Sncthea.Snctable_Recid To TRUE

    // Sncthea.Recid
    Set Field_Class_Name       Field Sncthea.Recid To "cRDSDbForm"
    Set Field_Label_Long       Field Sncthea.Recid To "Record id"
    Set Field_Label_Short      Field Sncthea.Recid To "Recid"
    Set Field_Options          Field Sncthea.Recid To DD_AUTOFIND   

    // Sncthea.Fromfield
    Set Field_Class_Name       Field Sncthea.Fromfield To "cRDSDbForm"
    Set Field_Label_Long       Field Sncthea.Fromfield To "Source Field"
    Set Field_Label_Short      Field Sncthea.Fromfield To "Source Field"
    Set Status_Help            Field Sncthea.Fromfield To "Source table fields. Note: You need to open and close the comboform for changes to take place."

    // Sncthea.Tofield
    Set Field_Class_Name       Field Sncthea.Tofield To "cRDSDbForm"
    Set Field_Label_Long       Field Sncthea.Tofield To "Target Field"
    Set Field_Label_Short      Field Sncthea.Tofield To "Target Field"
    Set Status_Help            Field Sncthea.Tofield To "Target table fields. Note: You need to open and close the comboform for changes to take place."

    // Sncthea.Snctrow_Count
    Set Field_Class_Name       Field Sncthea.Snctrow_Count To "cRDSDbForm"
    Set Field_Options          Field Sncthea.Snctrow_Count To DD_NOENTER    

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

End_Class    // Sncthea_DataDictionary
//DDB-FileEnd