//DDB-FileStart
//DDB-HeaderStart

// File Name : SERIALNO.DD
// Class Name: Serialno_DataDictionary
// Revision  : 39
// Version   : 2

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

Open Serialno
Open Serllog
Open Partnum
Open Serialsy
Open Evaluser

//DDB-HeaderEnd
//DDB-SelectionStart
//DDB/ ExternalSelectionList SERIALNO_SL  SERIALNO.SL
Register_Object SERIALNO_SL
//DDB-SelectionEnd
Class Serialno_DataDictionary  Is A DataDictionary

  // Deleting:
  Procedure Deleting
    Forward Send Deleting
    // Insert Code Here
  End_Procedure   // Deleting

  // 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 Serialno.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  Serllog.File_Number

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

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

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

    // Serialno.Serialno
    Set Field_Label_Long       Field Serialno.Serialno To "Serial Number"
    Set Field_Label_Short      Field Serialno.Serialno To "Serial Number"
    Set Field_Options          Field Serialno.Serialno To DD_AUTOFIND   
    Set Field_Prompt_Object    Field Serialno.Serialno To (SERIALNO_SL(Self))

    // Serialno.Regname
    Set Field_Label_Long       Field Serialno.Regname To "Registration Name"
    Set Field_Label_Short      Field Serialno.Regname To "Registration Name"
    Set Field_Prompt_Object    Field Serialno.Regname To (SERIALNO_SL(Self))

    // Serialno.Created
    Set Field_Label_Long       Field Serialno.Created To "Created Date and Time"
    Set Field_Label_Short      Field Serialno.Created To "Created"
    Set Field_Options          Field Serialno.Created To DD_NOENTER    

    // Serialno.Created_Date
    Set Field_Label_Long       Field Serialno.Created_Date To "Created Date"

    // Serialno.Updated
    Set Field_Label_Long       Field Serialno.Updated To "Updated Date and Time"

    // Serialno.Updated_Date
    Set Field_Label_Long       Field Serialno.Updated_Date To "Updated Date"

    // Serialno.Partnum
    Set Field_Label_Long       Field Serialno.Partnum To "Part Number"

    // Serialno.Activationcount
    Set Field_Label_Long       Field Serialno.Activationcount To "Activation Count"

    // Serialno.Biasvalue
    Set Field_Label_Long       Field Serialno.Biasvalue To "Bias Value"

    //DDB-DefineFieldEnd
    Property Boolean pbUseSysfile False
  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    // Serialno_DataDictionary
//DDB-Selection-pkg-Start
#IFDEF Is$WebApp
#ELSE

Use SERIALNO.SL      // SERIALNO_SL

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