// Class Name: Audinfo_DataDictionary
// Revision  : 6
// Version   : 2

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

Open Audinfo
Open AudDet

//Register_Object Secviews_sl
Register_Object Audfiles_sl
Register_Object popup_calendar

Class Audinfo_DataDictionary  is a cWSDataDictionary
    Procedure Creating
        Integer iID
        
        Forward Send Creating

//This can all be removed (entire procedure) if ID is an SQL Identity column,
        Move 1 to iID
        Clear AudInfo
        Move 99999999   To AudInfo.Id
        Find LE            AudInfo.Id
        If (Found)   Move (AudInfo.Id + 1) To iID
        Clear AudInfo
        Send Request_Entry_Update AudInfo.File_number 3
        Move iID to AudInfo.Id
    End_Procedure   // Creating

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

    Procedure Construct_Object
        Forward Send Construct_Object

        Set Main_File To Audinfo.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

        // Child (Client) file structure................
        Set Add_Client_File to Auddet.File_Number

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


//        Set Field_Prompt_Object Field Audinfo.Viewname to Secviews_sl

        Set Field_Prompt_Object Field Audinfo.Tablename to Audfiles_sl


        Set Field_Prompt_Object Field Audinfo.Cdate to popup_calendar

        Set Field_Prompt_Object Field Audinfo.Ctime to popup_calendar


        Set Field_Checkbox_Values Field Audinfo.Deleted To "Y" "N"
        Set Field_Option Field Audinfo.Deleted 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 Audinfo.Deleted To "N"
    End_Procedure    // Field_Defaults

End_Class    // Audinfo_DataDictionary
#IFDEF Is$WebApp
#ELSE
//Use Secviews.sl      // Secviews_sl
Use Audfiles.sl      // Audfiles_sl
Use dates.utl        // popup_calendar

#ENDIF