Module Vendor.dd

     1Use  Windows.pkg           // Basic Definitions
     2Use  DataDict.pkg          // DataDictionary Class Definition
     3Use  DDvalTbl.pkg          // Validation Table Class Definitions
     4
     5Open Vendor
     6Open Invt
     7Open OrdSys
     8
     9
    10Register_Object Vendor_State_VT
    11
    12Object Vendor_State_VT  is a CodeValidationTable
    13    Set Type_Value        To "STATES"
    14End_Object   // Vendor_State_VT
    15Register_Object Vendor_sl
    16
    17Class Vendor_DataDictionary Is A DataDictionary
    18
    19    Procedure Construct_Object
    20        Forward Send Construct_Object
    21
    22        Set Main_File To Vendor.File_Number
    23        Set Cascade_Delete_State To False
    24
    25        Set Foreign_Field_Option DD_KEYFIELD DD_FINDREQ to True
    26        Set Foreign_Field_Option DD_INDEXFIELD DD_NOPUT to True
    27        Set Foreign_Field_Option DD_DEFAULT DD_DISPLAYONLY to True
    28
    29        Set Add_Client_File to Invt.File_Number
    30
    31        Set Add_System_File to Ordsys.File_Number DD_LOCK_ON_NEW_SAVE
    32
    33        Set Field_Auto_Increment Field Vendor.Id to File_Field Ordsys.Vendor_Number
    34
    35
    36        Set Field_Label_Long Field Vendor.ID To "Vendor ID"
    37        Set Field_Label_Short Field Vendor.ID To "Vndr ID"
    38        Set Field_Option Field Vendor.ID DD_AUTOFIND to True
    39        Set Field_Option Field Vendor.ID DD_NOPUT to True
    40        Set Field_Prompt_Object Field Vendor.ID to Vendor_sl
    41        Set Key_Field_State Field Vendor.ID To True
    42        Set Status_Help Field Vendor.ID To "Vendor Id Number (system assigned)."
    43
    44        Set Field_Label_Long Field Vendor.Name To "Vendor Name"
    45        Set Field_Label_Short Field Vendor.Name To "Name"
    46        Set Field_Option Field Vendor.Name DD_REQUIRED to True
    47        Set Field_Prompt_Object Field Vendor.Name to Vendor_sl
    48        Set Status_Help Field Vendor.Name To "Vendor Name."
    49
    50        Set Field_Label_Long Field Vendor.Address To "Street Address"
    51        Set Field_Label_Short Field Vendor.Address To "Address"
    52        Set Status_Help Field Vendor.Address To "Street Address."
    53
    54        Set Status_Help Field Vendor.City To "City Name."
    55
    56        Set Field_Class_Name Field Vendor.State To "dbComboForm"
    57        Set Field_Label_Long Field Vendor.State To "State"
    58        Set Field_Label_Short Field Vendor.State To "St."
    59        Set Field_Option Field Vendor.State DD_CAPSLOCK to True
    60        Set Field_Value_Table Field Vendor.State to Vendor_State_VT
    61        Set Status_Help Field Vendor.State To "Two letter state ID."
    62
    63        Set Field_Label_Long Field Vendor.Zip To "Zip/Postal Code"
    64        Set Field_Label_Short Field Vendor.Zip To "Zip"
    65        Set Field_Mask Field Vendor.Zip To "#####-####"
    66        Set Field_Mask_Type Field Vendor.Zip To MASK_WINDOW
    67        Set Status_Help Field Vendor.Zip To "Zip or Postal Code."
    68
    69        Set Field_Label_Long Field Vendor.Phone_Number To "Phone Number"
    70        Set Field_Label_Short Field Vendor.Phone_Number To "Phone"
    71        Set Status_Help Field Vendor.Phone_Number To "Phone Number."
    72
    73        Set Field_Label_Long Field Vendor.Fax_Number To "Fax Number"
    74        Set Field_Label_Short Field Vendor.Fax_Number To "Fax"
    75        Set Status_Help Field Vendor.Fax_Number To "Fax Phone Number."
    76
    77
    78    End_Procedure  //  Construct_Object
    79
    80
    81
    82    Procedure Field_Defaults
    83        Forward Send Field_Defaults
    84    End_Procedure    // Field_Defaults
    85    
    86End_Class    //  Vendor_DataDictionary
    87#IFDEF Is$WebApp
    88#ELSE
    89
    90Use Vendor.sl        // Vendor_sl
    91
    92#ENDIF
    93