//DDB-FileStart
//DDB-HeaderStart

// File Name : EVALUSER.DD
// Class Name: Evaluser_DataDictionary
// Revision  : 17
// Version   : 2

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

Open Evaluser
Open Serialsy

//DDB-HeaderEnd
//DDB-ValidationStart

Register_Object Evaluser_License_Type_VT

Object Evaluser_License_Type_VT  is a DescriptionValidationTable

  Procedure Fill_List
    Forward Send Fill_List
    Send Add_Table_Value  "0"  "Evaluation License"
    Send Add_Table_Value  "1"  "Desktop Edition"
    Send Add_Table_Value  "2"  "Consultant Edition"
    Send Add_Table_Value  "3"  "Server Edition - Single CPU"
    Send Add_Table_Value  "4"  "Server Edition - Multi CPU"
    Send Add_Table_Value  "5"  "Enterprise Edition"
    Send Add_Table_Value  "6"  "Desktop Edition Add-On"
    Send Add_Table_Value  "7"  "Consultant Editon Add-On"
    Send Add_Table_Value  "8"  "Server Edition - Single CPU Add-On"
    Send Add_Table_Value  "9"  "Server Edition - Multi CPU Add-On"
  End_Procedure    // Fill_List
  //DDB-ValidationCustomStart
  //DDB-ValidationCustomEnd
End_Object   // Evaluser_License_Type_VT
//DDB-ValidationEnd

Class Evaluser_DataDictionary  Is A DataDictionary

  // 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 Evaluser.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  Serialsy.File_Number  DD_LOCK_ON_ALL

    Define_Auto_Increment  Serialsy.Next_Cmno  To Evaluser.Serialno

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

    // Evaluser.Serialno

    // Evaluser.Username

    // Evaluser.Email

    // Evaluser.Company

    // Evaluser.Phone

    // Evaluser.Address1

    // Evaluser.Address2

    // Evaluser.Country

    // Evaluser.Pv

    // Evaluser.Created

    // Evaluser.Created_Date

    // Evaluser.User_Code1

    // Evaluser.User_Code2

    // Evaluser.Reg_Key1

    // Evaluser.Reg_Key2

    // Evaluser.Product_Version

    // Evaluser.License_Type
    Set Field_Value_Table      Field Evaluser.License_Type To (Evaluser_License_Type_VT(Self))

    // Evaluser.User_Code22

    // Evaluser.Reg_Key12

    // Evaluser.Reg_Key22

    // Evaluser.User_Code23

    // Evaluser.Reg_Key13

    // Evaluser.Reg_Key23

    // Evaluser.User_Code24

    // Evaluser.Reg_Code14

    // Evaluser.Reg_Code24

    // Evaluser.User_Code25

    // Evaluser.Reg_Code15

    // Evaluser.Reg_Code25

    // Evaluser.Add_On_License
    Set Field_Checkbox_Values  Field Evaluser.Add_On_License To "1"  "0"

    // Evaluser.Org_Serial_No

    // Evaluser.Updated

    // Evaluser.Updated_Date

    // Evaluser.Old_Licensetype

    //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 Evaluser.License_Type To 0
    Set Field_Changed_Value   Field Evaluser.Add_On_License To "0"
    //DDB-FieldDefaultEnd
  End_Procedure    // Field_Defaults

End_Class    // Evaluser_DataDictionary
//DDB-FileEnd