//DDB-FileStart
//DDB-HeaderStart

// File Name : SNCTROW.DD
// Class Name: Snctrow_DataDictionary
// Revision  : 13
// Version   : 2

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

Open Snctrow
Open Sncthea
Open Sncsys
Use cRDSDataDictionary.pkg

//DDB-HeaderEnd

Class Snctrow_DataDictionary  Is A cRDSDataDictionary

  // Update:
  Procedure Update
    Forward Send Update
    If (SncTRow.FromValue Contains "|" Or SncTRow.ToValue Contains "|") ;
      Error 300 "The transform values must not contain the vertical bar '|' character, because it is being used internally by the tools 'Search and Replace' logic."
  End_Procedure   // Update
 
  // Deleting:
  Procedure Deleting
    Forward Send Deleting
    Add -1 To SncTHea.SncTRow_Count
    Saverecord SncTHea             
    If (SncTRow.Recid = SncSys.SncTRow_Recid) Begin
      Add -1 To SncSys.SncTRow_Recid
      Saverecord SncSys
    End
  End_Procedure   // Deleting
 
  // Creating:
  Procedure Creating
    Forward Send Creating
    Add 1 To SncTHea.SncTRow_Count
    Saverecord SncTHea
  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 Snctrow.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

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

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

    Define_Auto_Increment  Sncsys.Snctrow_Recid  To Snctrow.Recid

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

    // Snctrow.Transhea_Recid
    Set Field_Class_Name       Field Snctrow.Transhea_Recid To "cRDSDbForm"
    Set Key_Field_State        Field Snctrow.Transhea_Recid To TRUE

    // Snctrow.Recid
    Set Field_Class_Name       Field Snctrow.Recid To "cRDSDbForm"
    Set Field_Options          Field Snctrow.Recid To DD_NOENTER    
    Set Status_Help            Field Snctrow.Recid To "Automatic record id."

    // Snctrow.Fromvalue
    Set Field_Class_Name       Field Snctrow.Fromvalue To "cRDSDbForm"
    Set Field_Label_Long       Field Snctrow.Fromvalue To "Source Table Value"
    Set Field_Label_Short      Field Snctrow.Fromvalue To "If Source Field Value Equals:"
    Set Status_Help            Field Snctrow.Fromvalue To "If a field value is found in the Source table transform it to the Target value"

    // Snctrow.Tovalue
    Set Field_Class_Name       Field Snctrow.Tovalue To "cRDSDbForm"
    Set Field_Label_Long       Field Snctrow.Tovalue To "Target Table Value"
    Set Field_Label_Short      Field Snctrow.Tovalue To "Update Target Field with:"
    Set Status_Help            Field Snctrow.Tovalue To "The Target table value that the Source table value will be transformed into."

    // Snctrow.Ignorecase
    Set Field_Checkbox_Values  Field Snctrow.Ignorecase To "1"  "0"
    Set Field_Class_Name       Field Snctrow.Ignorecase To "cRDSDbCheckBox"
    Set Field_Label_Long       Field Snctrow.Ignorecase To "Ignorre Case"
    Set Field_Label_Short      Field Snctrow.Ignorecase To "Ignore Case"
    Set Status_Help            Field Snctrow.Ignorecase To "Ignore case when comparing (If ASCII value)"

    //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 Snctrow.Ignorecase To 0
    //DDB-FieldDefaultEnd
  End_Procedure    // Field_Defaults

End_Class    // Snctrow_DataDictionary
//DDB-FileEnd