Module SalesP.dd

     1Use  Windows.pkg           // Basic Definitions
     2Use  DataDict.pkg          // DataDictionary Class Definition
     3Use  DDvalTbl.pkg          // Validation Table Class Definitions
     4
     5Open Salesp
     6Open Orderhea
     7
     8Register_Object SalesP_sl
     9
    10Class SalesP_DataDictionary Is A DataDictionary
    11
    12    Procedure Construct_Object
    13        Forward Send Construct_Object
    14
    15        Set Main_File To Salesp.File_Number
    16        Set Cascade_Delete_State To FALSE
    17
    18        Set Foreign_Field_Option DD_KEYFIELD DD_NOPUT to True
    19        Set Foreign_Field_Option DD_KEYFIELD DD_FINDREQ to True
    20        Set Foreign_Field_Option DD_INDEXFIELD DD_NOPUT to True
    21        Set Foreign_Field_Option DD_DEFAULT DD_DISPLAYONLY to True
    22
    23        Set Add_Client_File to Orderhea.File_Number
    24
    25
    26        Set Field_Label_Long Field Salesp.Id To "Sales Person ID"
    27        Set Field_Label_Short Field Salesp.Id To "ID"
    28        Set Field_Option Field Salesp.Id DD_AUTOFIND to True
    29        Set Field_Option Field Salesp.Id DD_REQUIRED to True
    30        Set Field_Option Field Salesp.Id DD_CAPSLOCK to True
    31        Set Field_Prompt_Object Field Salesp.Id to SalesP_sl
    32        Set Key_Field_State Field Salesp.Id To TRUE
    33        Set Status_Help Field Salesp.Id To "Sales person ID code - Upper case alpha"
    34
    35        Set Field_Label_Long Field Salesp.Name To "Sales Person Name"
    36        Set Field_Label_Short Field Salesp.Name To "Sales Person Name"
    37        Set Field_Prompt_Object Field Salesp.Name to SalesP_sl
    38        Set Status_Help Field Salesp.Name To "Sales person name - first and last"
    39
    40    End_Procedure  //  Construct_Object
    41
    42
    43    Procedure Field_Defaults
    44        Forward Send Field_Defaults
    45    End_Procedure    // Field_Defaults
    46    
    47End_Class    //  Salesp_DataDictionary
    48#IFDEF Is$WebApp
    49#ELSE
    50
    51Use SalesP.sl        // SalesP_sl
    52
    53#ENDIF
    54
    55