//DDB-FileStart
//DDB-HeaderStart

// File Name : SalesP.DD
// Class Name: SalesP_DataDictionary
// Revision  : 9
// Version   : 2

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

Open Salesp
Open Orderhea

//DDB-HeaderEnd
//DDB-SelectionStart
//DDB/ ExternalSelectionList SalesP_sl  SalesP.sl
Register_Object SalesP_sl
//DDB-SelectionEnd

Class SalesP_DataDictionary Is A DataDictionary

    Procedure Define_Fields
        Forward Send Define_Fields
        //DDB-Generated-Code-Location
        //DDB-DefineFieldStart

        Set Main_File            To Salesp.File_Number
        Set Cascade_Delete_State To FALSE

        Set Foreign_Field_Options  DD_KEYFIELD   To DD_NOPUT       DD_FINDREQ    
        Set Foreign_Field_Options  DD_INDEXFIELD To DD_NOPUT      
        Set Foreign_Field_Options  DD_DEFAULT    To DD_DISPLAYONLY

        // Child (Client) file structure................
        Send Add_Client_File  Orderhea.File_Number

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

        // Salesp.Id
        //DDB/ Comment_Short       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_Options          Field Salesp.Id To DD_AUTOFIND    DD_REQUIRED    DD_CAPSLOCK   
        Set Field_Prompt_Object    Field Salesp.Id To (SalesP_sl(Self))
        Set Key_Field_State        Field Salesp.Id To TRUE
        Set Status_Help            Field Salesp.Id To "Sales person ID code - Upper case alpha"

        // Salesp.Name
        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(Self))
        Set Status_Help            Field Salesp.Name To "Sales person name - first and last"

        //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
        //DDB-FieldDefaultEnd
    End_Procedure    // Field_Defaults
    
End_Class    //  Salesp_DataDictionary
//DDB-Selection-pkg-Start
#IFDEF Is$WebApp
#ELSE

Use SalesP.sl        // SalesP_sl

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