// Class Name: Salesp_DataDictionary
// Revision  : 4
// Version   : 2

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

Open Salesp
Open Orderhea

Register_Object SalesP_sl

Class Salesp_DataDictionary is a DataDictionary

    Procedure Construct_Object
        Forward Send Construct_Object


        Set Main_File To Salesp.File_Number
        Set Cascade_Delete_State To FALSE

        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_DEFAULT DD_DISPLAYONLY to True

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

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

        // Field Salesp.Id To "Unique U/C ascii Id. Assigned by user. "
        Set Field_Label_Long Field Salesp.Id To "Sales Person ID"
        Set Field_Label_Short Field Salesp.Id To "ID"
        Set Field_Option Field Salesp.Id DD_AUTOFIND to True
        Set Field_Option Field Salesp.Id DD_REQUIRED to True
        Set Field_Option Field Salesp.Id DD_CAPSLOCK to True
        Set Field_Prompt_Object Field Salesp.Id to SalesP_sl
        Set Key_Field_State Field Salesp.Id To TRUE
        Set Status_Help Field Salesp.Id To "Sales person ID code - Upper case alpha"

        Set Field_Label_Long Field Salesp.Name To "Sales Person Name"
        Set Field_Label_Short Field Salesp.Name To "Sales Person Name"
        Set Field_Prompt_Object Field Salesp.Name to SalesP_sl
        Set Status_Help Field Salesp.Name To "Sales person name - first and last"


    End_Procedure  //  Construct_Object

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

    Procedure Field_Defaults
        Forward Send Field_Defaults
    End_Procedure    // Field_Defaults
    
End_Class    //  Salesp_DataDictionary
#IFDEF Is$WebApp
#ELSE

Use SalesP.sl        // SalesP_sl

#ENDIF