Module SALESP.DD

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