// Class Name: Logfiles_DataDictionary
// Revision  : 2
// Version   : 2

Use  Windows           // Basic Definitions
Use  DDvalTbl          // Validation Table Class Definitions
Use  cWSDataDictionary.pkg

Open Audfiles

Register_Object Audfiles_sl

Class Audfiles_DataDictionary  is a cWSDataDictionary

    // Define_Fields:
    // This procedure is used to set up all data-dictionary rules.

    Procedure Construct_Object
        Forward Send Construct_Object


        Set Main_File To Audfiles.File_Number

        Set Foreign_Field_Option DD_KEYFIELD DD_AUTOFIND to True
        Set Foreign_Field_Option DD_KEYFIELD DD_NOPUT to True
        Set Foreign_Field_Option DD_KEYFIELD DD_FINDREQ to True
        Set Foreign_Field_Option DD_INDEXFIELD DD_NOPUT to True
        Set Foreign_Field_Option DD_INDEXFIELD DD_FINDREQ to True
        Set Foreign_Field_Option DD_DEFAULT DD_DISPLAYONLY to True

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

        Set Field_Option Field Audfiles.Table DD_AUTOFIND to True
        Set Field_Prompt_Object Field Audfiles.Table to Audfiles_sl
        Set Key_Field_State Field Audfiles.Table To TRUE

        Set Field_Checkbox_Values Field Audfiles.Audit To "Y" "N"
        Set Field_Option Field Audfiles.Audit DD_CAPSLOCK to True


    End_Procedure    // Construct_Object

    // Field_Defaults:
    // This procedure is used to establish default field values.

    Procedure Field_Defaults
        Forward Send Field_Defaults
        Set Field_Changed_Value   Field Audfiles.Audit To "N"
    End_Procedure    // Field_Defaults

End_Class    // Logfiles_DataDictionary
#IFDEF Is$WebApp
#ELSE

Use Audfiles.sl      // Audfiles_sl

#ENDIF