Module VENDOR.DD

     1//DDB-FileStart
     2//DDB-HeaderStart
     3
     4// File Name : VENDOR.DD
     5// Class Name: Vendor_DataDictionary
     6// Revision  : 2
     7
     8Use  Windows           // Basic Definitions
     9Use  DataDict          // DataDictionary Class Definition
    10Use  DDvalTbl          // Validation Table Class Definitions
    11
    12Open Vendor
    13Open Invt
    14Open Ordsys
    15
    16//DDB-HeaderEnd
    17//DDB-SelectionStart
    18//DDB/ ExternalSelectionList Vendor_sl  Vendor.sl
    19Register_Object Vendor_sl
    20//DDB-SelectionEnd
    21
    22
    23Class Vendor_DataDictionary is a DataDictionary
    24
    25    Procedure Define_Fields
    26        Forward Send Define_Fields
    27        //DDB-DefineFieldStart
    28
    29        Set Main_File            To Vendor.File_Number
    30        Set Cascade_Delete_State To FALSE
    31
    32        Set Foreign_Field_Options  DD_KEYFIELD   To 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  Invt.File_Number
    38
    39        // External (System) file structure.............
    40        Send Add_System_File  Ordsys.File_Number  DD_LOCK_ON_NEW_SAVE
    41
    42        Define_Auto_Increment  Ordsys.Vendor_Number  To Vendor.Id
    43
    44        // Field-based properties.......................
    45
    46        // Vendor.Id
    47        Set Field_Label_Long       Field Vendor.Id                To "Vendor ID"
    48        Set Field_Label_Short      Field Vendor.Id                To "Vndr ID"
    49        Set Field_Options          Field Vendor.Id                To DD_AUTOFIND    DD_NOPUT
    50        Set Field_Prompt_Object    Field Vendor.Id                To (Vendor_sl(self))
    51        Set Key_Field_State        Field Vendor.Id                To TRUE
    52        Set Status_Help            Field Vendor.Id                To "Vendor Id Number (system assigned)."
    53
    54        // Vendor.Name
    55        Set Field_Label_Long       Field Vendor.Name              To "Vendor Name"
    56        Set Field_Label_Short      Field Vendor.Name              To "Name"
    57        Set Field_Prompt_Object    Field Vendor.Name              To (Vendor_sl(self))
    58        Set Status_Help            Field Vendor.Name              To "Vendor Name."
    59
    60        // Vendor.Address
    61        Set Field_Label_Long       Field Vendor.Address           To "Street Address"
    62        Set Field_Label_Short      Field Vendor.Address           To "Address"
    63        Set Status_Help            Field Vendor.Address           To "Street Address."
    64
    65        // Vendor.City
    66        Set Status_Help            Field Vendor.City              To "City Name."
    67
    68        // Vendor.State
    69        Set Field_Class_Name       Field Vendor.State             To "dbComboForm"
    70        Set Field_Label_Long       Field Vendor.State             To "State"
    71        Set Field_Label_Short      Field Vendor.State             To "St."
    72        Set Field_Options          Field Vendor.State             To DD_CAPSLOCK
    73        Set Field_Value_Check      Field Vendor.State             To "AK|AL|AR|AZ|CA|CO|CT|DE|FL|GA|HI|IA|ID|IL|IN|KS|KY|LA|MA|MD|ME|MI|MN|MO|MS|MT|NC|ND|NE|NH|NJ|NM|NV|NY|OH|OK|OR|PA|RI|SC|SD|TN|TX|UT|VA|VT|WA|WI|WV|WY|CN"
    74        Set Status_Help            Field Vendor.State             To "Two letter state ID."
    75
    76        // Vendor.Zip
    77        Set Field_Label_Long       Field Vendor.Zip               To "Zip/Postal Code"
    78        Set Field_Label_Short      Field Vendor.Zip               To "Zip"
    79        Set Field_Mask             Field Vendor.Zip               To "#####-####"
    80        Set Field_Mask_Type        Field Vendor.Zip               To MASK_WINDOW
    81        Set Status_Help            Field Vendor.Zip               To "Zip or Postal Code."
    82
    83        // Vendor.Phone_Number
    84        Set Field_Label_Long       Field Vendor.Phone_Number      To "Phone Number"
    85        Set Field_Label_Short      Field Vendor.Phone_Number      To "Phone"
    86        Set Status_Help            Field Vendor.Phone_Number      To "Phone Number."
    87
    88        // Vendor.Fax_Number
    89        Set Field_Label_Long       Field Vendor.Fax_Number        To "Fax Number"
    90        Set Field_Label_Short      Field Vendor.Fax_Number        To "Fax"
    91        Set Status_Help            Field Vendor.Fax_Number        To "Fax Phone Number."
    92
    93        //DDB-DefineFieldEnd
    94
    95    End_Procedure  //  Define_Fields
    96
    97
    98    // Field_Defaults:
    99    // This procedure is used to establish default field values.
   100
   101    Procedure Field_Defaults
   102        Forward Send Field_Defaults
   103        //DDB-FieldDefaultStart
   104        //DDB-FieldDefaultEnd
   105    End_Procedure    // Field_Defaults
   106End_Class    //  Vendor_DataDictionary
   107
   108//DDB-Selection-pkg-Start
   109Use Vendor.sl        // Vendor_sl
   110//DDB-Selection-pkg-End
   111//DDB-FileEnd
   112