//DDB-FileStart
//DDB-HeaderStart

// File Name : SNCSCHEM.DD
// Class Name: Sncschem_DataDictionary
// Revision  : 23
// Version   : 2

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

Open Sncschem

//DDB-HeaderEnd
//DDB-SelectionStart
//DDB/ ExternalSelectionList SncSchem_SL  SNCSCHEM.SL
Register_Object SncSchem_SL
//DDB-SelectionEnd

Use cRDSDataDictionary.pkg

Class Sncschem_DataDictionary  Is A cRDSDataDictionary
 
  Function Request_Validate Returns Boolean
    Boolean bState
    String sValue
    Get Field_Current_Value Field SncSchem.Name To sValue
    If (Length(sValue) = 0) Begin
      Send Info_Box "You need to enter a Collection a name. Please adjust and try again."
      Move True To bState
    End // If (Length(sValue) = 0) Begin
    Else Forward Get Request_Validate To bState
    Function_Return bState
  End_Function // Request_Validate 
     
  Procedure Request_Save
    Boolean bState
    Send DoShowStatusHelp "Saving data..."
    Forward Send Request_Save
    Get Changed_State To bState
    If bState Send DoShowStatusHelp "Changes not saved."
    Else      Send DoShowStatusHelp "Changes saved."
  End_Procedure // Request_Save

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

  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 // DoShowStatusHelp
                                      
  // 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 Sncschem.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.......................

    // Sncschem.Name
    Set Field_Class_Name       Field Sncschem.Name To "cRDSDbForm"
    Set Field_Options          Field Sncschem.Name To DD_AUTOFIND    DD_REQUIRED   
    Set Field_Prompt_Object    Field Sncschem.Name To (SncSchem_SL(Self))

    // Sncschem.Tables
    Set Field_Class_Name       Field Sncschem.Tables To "cRDSDbForm"

    // Sncschem.Workspace

    // Sncschem.Vdfver

    // Sncschem.Deletes
    Set Field_Class_Name       Field Sncschem.Deletes To "cRDSDbCheckBox"

    //DDB-DefineFieldEnd
//    Property Integer piVdfVer SncSys.VdfVer
  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    // Sncschem_DataDictionary
//DDB-Selection-pkg-Start
#IFDEF Is$WebApp
#ELSE

Use SNCSCHEM.SL      // SncSchem_SL

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