Module Customer.dd

     1Use  Windows.pkg           // Basic Definitions
     2Use  DataDict.pkg          // DataDictionary Class Definition
     3Use  DDvalTbl.pkg          // Validation Table Class Definitions
     4
     5Open Customer
     6Open OrderHea
     7Open Ordsys
     8
     9
    10Register_Object Customer_State_VT
    11
    12Object Customer_State_VT  is a CodeValidationTable
    13    Set Type_Value        To "STATES"
    14    Set Table_Title       To "States"
    15End_Object   // Customer_State_VT
    16Register_Object Customer_sl
    17
    18Class Customer_DataDictionary Is A DataDictionary
    19
    20    Procedure Construct_Object
    21        Forward Send Construct_Object
    22
    23        Set Main_File To Customer.File_Number
    24        Set Cascade_Delete_State To False
    25
    26        Set Foreign_Field_Option DD_KEYFIELD DD_FINDREQ to True
    27        Set Foreign_Field_Option DD_INDEXFIELD DD_NOPUT to True
    28        Set Foreign_Field_Option DD_DEFAULT DD_DISPLAYONLY to True
    29
    30        Set Add_Client_File to OrderHea.File_Number
    31
    32        Set Add_System_File to Ordsys.File_Number DD_LOCK_ON_NEW_SAVE
    33
    34        Set Field_Auto_Increment Field Customer.Customer_Number to File_Field Ordsys.Cust_Number
    35
    36
    37        Set Field_Label_Long Field Customer.Customer_Number To "Customer Number"
    38        Set Field_Label_Short Field Customer.Customer_Number To "Number"
    39        Set Field_Option Field Customer.Customer_Number DD_AUTOFIND to True
    40        Set Field_Option Field Customer.Customer_Number DD_NOPUT to True
    41        Set Field_Prompt_Object Field Customer.Customer_Number to Customer_sl
    42        Set Key_Field_State Field Customer.Customer_Number To True
    43        Set Status_Help Field Customer.Customer_Number To "Customer Id Number (system assigned)."
    44
    45        Set Field_Label_Long Field Customer.Name To "Customer Name"
    46        Set Field_Label_Short Field Customer.Name To "Customer Name"
    47        Set Field_Option Field Customer.Name DD_REQUIRED to True
    48        Set Field_Prompt_Object Field Customer.Name to Customer_sl
    49        Set Status_Help Field Customer.Name To "Customer/Company Name."
    50
    51        Set Field_Label_Long Field Customer.Address To "Street Address"
    52        Set Field_Label_Short Field Customer.Address To "Address"
    53        Set Status_Help Field Customer.Address To "Street Address."
    54
    55        Set Status_Help Field Customer.City To "City Name."
    56
    57        Set Field_Class_Name Field Customer.State To "dbComboForm"
    58        Set Field_Label_Long Field Customer.State To "State"
    59        Set Field_Label_Short Field Customer.State To "St."
    60        Set Field_Option Field Customer.State DD_CAPSLOCK to True
    61        Set Field_Value_Table Field Customer.State to Customer_State_VT
    62        Set Status_Help Field Customer.State To "Two letter state ID."
    63
    64        Set Field_Label_Long Field Customer.Zip To "Zip/Postal Code"
    65        Set Field_Label_Short Field Customer.Zip To "Zip"
    66        Set Field_Mask Field Customer.Zip To "#####-####"
    67        Set Field_Mask_Type Field Customer.Zip To MASK_WINDOW
    68        Set Status_Help Field Customer.Zip To "Zip or Postal Code."
    69
    70        Set Field_Label_Long Field Customer.Phone_Number To "Phone Number"
    71        Set Field_Label_Short Field Customer.Phone_Number To "Phone"
    72        Set Status_Help Field Customer.Phone_Number To "Phone Number."
    73
    74        Set Field_Label_Long Field Customer.Fax_Number To "Fax Number"
    75        Set Field_Label_Short Field Customer.Fax_Number To "Fax"
    76        Set Status_Help Field Customer.Fax_Number To "Fax Phone Number."
    77
    78        Set Field_Label_Long Field Customer.Email_Address To "E-Mail Address"
    79        Set Field_Label_Short Field Customer.Email_Address To "E-Mail"
    80        Set Status_Help Field Customer.Email_Address To "E-mail Address (internet)."
    81
    82        Set Field_Class_Name Field Customer.Credit_Limit To "dbSpinForm"
    83        Set Field_Mask_Type Field Customer.Credit_Limit To MASK_CURRENCY_WINDOW
    84
    85        Set Field_Label_Long Field Customer.Purchases To "Total Purchases"
    86        Set Field_Label_Short Field Customer.Purchases To "Purchases"
    87        Set Field_Mask_Type Field Customer.Purchases To MASK_CURRENCY_WINDOW
    88        Set Field_Option Field Customer.Purchases DD_DISPLAYONLY to True
    89
    90        Set Field_Label_Long Field Customer.Balance To "Balance Due"
    91        Set Field_Label_Short Field Customer.Balance To "Balance"
    92        Set Field_Mask_Type Field Customer.Balance To MASK_CURRENCY_WINDOW
    93        Set Field_Option Field Customer.Balance DD_DISPLAYONLY to True
    94
    95        Set Status_Help Field Customer.Comments To "Additional Comments and Notes."
    96
    97        Set Field_Checkbox_Values Field Customer.Status To "Y" "N"
    98        Set Field_Label_Long Field Customer.Status To "Active Status"
    99        Set Field_Label_Short Field Customer.Status To "Status"
   100        Set Status_Help Field Customer.Status To "Active Inactive Status of customer"
   101
   102    End_Procedure  //  Construct_Object
   103
   104    Procedure Field_defaults
   105        Forward Send Field_Defaults
   106        Set Field_Changed_Value   Field Customer.State To "FL"
   107        Set Field_Changed_Value   Field Customer.Credit_Limit To 1000
   108        Set Field_Changed_Value   Field Customer.Status To "Y"
   109    End_Procedure
   110
   111End_Class    //  Customer_DataDictionary
   112#IFDEF Is$WebApp
   113#ELSE
   114
   115Use Customer.sl      // Customer_sl
   116
   117#ENDIF
   118
   119