Module SalesP.DD

     1//DDB-FileStart
     2//DDB-HeaderStart
     3
     4// File Name : SalesP.DD
     5// Class Name: SalesP_DataDictionary
     6// Revision  : 9
     7// Version   : 2
     8
     9Use  Windows           // Basic Definitions
    10Use  DataDict.pkg          // DataDictionary Class Definition
    11Use  DDvalTbl          // Validation Table Class Definitions
    12
    13Open Salesp
    14Open Orderhea
    15
    16//DDB-HeaderEnd
    17//DDB-SelectionStart
    18//DDB/ ExternalSelectionList SalesP_sl  SalesP.sl
    19Register_Object SalesP_sl
    20//DDB-SelectionEnd
    21
    22Class SalesP_DataDictionary Is A DataDictionary
    23
    24    Procedure Define_Fields
    25        Forward Send Define_Fields
    26        //DDB-Generated-Code-Location
    27        //DDB-DefineFieldStart
    28
    29        Set Main_File            To Salesp.File_Number
    30        Set Cascade_Delete_State To FALSE
    31
    32        Set Foreign_Field_Options  DD_KEYFIELD   To DD_NOPUT       DD_FINDREQ    
    33        Set Foreign_Field_Options  DD_INDEXFIELD To DD_NOPUT      
    34        Set Foreign_Field_Options  DD_DEFAULT    To DD_DISPLAYONLY
    35
    36        // Child (Client) file structure................
    37        Send Add_Client_File  Orderhea.File_Number
    38
    39        // Field-based properties.......................
    40
    41        // Salesp.Id
    42        //DDB/ Comment_Short       Field Salesp.Id To "Unique U/C ascii Id. Assigned by user. "
    43        Set Field_Label_Long       Field Salesp.Id To "Sales Person ID"
    44        Set Field_Label_Short      Field Salesp.Id To "ID"
    45        Set Field_Options          Field Salesp.Id To DD_AUTOFIND    DD_REQUIRED    DD_CAPSLOCK   
    46        Set Field_Prompt_Object    Field Salesp.Id To (SalesP_sl(Self))
    47        Set Key_Field_State        Field Salesp.Id To TRUE
    48        Set Status_Help            Field Salesp.Id To "Sales person ID code - Upper case alpha"
    49
    50        // Salesp.Name
    51        Set Field_Label_Long       Field Salesp.Name To "Sales Person Name"
    52        Set Field_Label_Short      Field Salesp.Name To "Sales Person Name"
    53        Set Field_Prompt_Object    Field Salesp.Name To (SalesP_sl(Self))
    54        Set Status_Help            Field Salesp.Name To "Sales person name - first and last"
    55
    56        //DDB-DefineFieldEnd
    57    End_Procedure  //  Define_Fields
    58
    59    // Field_Defaults:
    60    // This procedure is used to establish default field values.
    61
    62    Procedure Field_Defaults
    63        Forward Send Field_Defaults
    64        //DDB-Generated-Code-Location
    65        //DDB-FieldDefaultStart
    66        //DDB-FieldDefaultEnd
    67    End_Procedure    // Field_Defaults
    68    
    69End_Class    //  Salesp_DataDictionary
    70//DDB-Selection-pkg-Start
    71#IFDEF Is$WebApp
    72#ELSE
    73
    74Use Order\SalesP.sl        // SalesP_sl
    75
    76#ENDIF
    77//DDB-Selection-pkg-End
    78//DDB-FileEnd
    79