Module Vendor.DD

     1//DDB-FileStart
     2//DDB-HeaderStart
     3
     4// File Name : Vendor.DD
     5// Class Name: Vendor_DataDictionary
     6// Revision  : 7
     7// Version   : 2
     8
     9Use  Windows           // Basic Definitions
    10Use  DataDict.pkg          // DataDictionary Class Definition
    11Use  DDvalTbl          // Validation Table Class Definitions
    12
    13Open Vendor
    14Open Invt
    15Open OrdSys
    16
    17//DDB-HeaderEnd
    18//DDB-ValidationStart
    19
    20Register_Object Vendor_State_VT
    21
    22Object Vendor_State_VT  is a CodeValidationTable
    23    Set Type_Value        To "STATES"
    24    //DDB-ValidationCustomStart
    25    //DDB-ValidationCustomEnd
    26End_Object   // Vendor_State_VT
    27//DDB-ValidationEnd
    28//DDB-SelectionStart
    29//DDB/ ExternalSelectionList Vendor_sl  Vendor.sl
    30Register_Object Vendor_sl
    31//DDB-SelectionEnd
    32
    33Class Vendor_DataDictionary Is A DataDictionary
    34
    35    Procedure Define_Fields
    36        Forward Send Define_Fields
    37        //DDB-Generated-Code-Location
    38        //DDB-DefineFieldStart
    39
    40        Set Main_File            To Vendor.File_Number
    41        Set Cascade_Delete_State To False
    42
    43        Set Foreign_Field_Options  DD_KEYFIELD   To DD_FINDREQ    
    44        Set Foreign_Field_Options  DD_INDEXFIELD To DD_NOPUT      
    45        Set Foreign_Field_Options  DD_DEFAULT    To DD_DISPLAYONLY
    46
    47        // Child (Client) file structure................
    48        Send Add_Client_File  Invt.File_Number
    49
    50        // External (System) file structure.............
    51        Send Add_System_File  Ordsys.File_Number  DD_LOCK_ON_NEW_SAVE
    52
    53        Define_Auto_Increment  Ordsys.Vendor_Number  To Vendor.Id
    54
    55        // Field-based properties.......................
    56
    57        // Vendor.Id
    58        Set Field_Label_Long       Field Vendor.ID To "Vendor ID"
    59        Set Field_Label_Short      Field Vendor.ID To "Vndr ID"
    60        Set Field_Options          Field Vendor.ID To DD_AUTOFIND    DD_NOPUT      
    61        Set Field_Prompt_Object    Field Vendor.ID To (Vendor_sl(Self))
    62        Set Key_Field_State        Field Vendor.ID To True
    63        Set Status_Help            Field Vendor.ID To "Vendor Id Number (system assigned)."
    64
    65        // Vendor.Name
    66        Set Field_Label_Long       Field Vendor.Name To "Vendor Name"
    67        Set Field_Label_Short      Field Vendor.Name To "Name"
    68        Set Field_Options          Field Vendor.Name To DD_REQUIRED   
    69        Set Field_Prompt_Object    Field Vendor.Name To (Vendor_sl(Self))
    70        Set Status_Help            Field Vendor.Name To "Vendor Name."
    71
    72        // Vendor.Address
    73        Set Field_Label_Long       Field Vendor.Address To "Street Address"
    74        Set Field_Label_Short      Field Vendor.Address To "Address"
    75        Set Status_Help            Field Vendor.Address To "Street Address."
    76
    77        // Vendor.City
    78        Set Status_Help            Field Vendor.City To "City Name."
    79
    80        // Vendor.State
    81        Set Field_Class_Name       Field Vendor.State To "dbComboForm"
    82        Set Field_Label_Long       Field Vendor.State To "State"
    83        Set Field_Label_Short      Field Vendor.State To "St."
    84        Set Field_Options          Field Vendor.State To DD_CAPSLOCK   
    85        Set Field_Value_Table      Field Vendor.State To (Vendor_State_VT(Self))
    86        Set Status_Help            Field Vendor.State To "Two letter state ID."
    87
    88        // Vendor.Zip
    89        Set Field_Label_Long       Field Vendor.Zip To "Zip/Postal Code"
    90        Set Field_Label_Short      Field Vendor.Zip To "Zip"
    91        Set Field_Mask             Field Vendor.Zip To "#####-####"
    92        Set Field_Mask_Type        Field Vendor.Zip To MASK_WINDOW
    93        Set Status_Help            Field Vendor.Zip To "Zip or Postal Code."
    94
    95        // Vendor.Phone_Number
    96        Set Field_Label_Long       Field Vendor.Phone_Number To "Phone Number"
    97        Set Field_Label_Short      Field Vendor.Phone_Number To "Phone"
    98        Set Status_Help            Field Vendor.Phone_Number To "Phone Number."
    99
   100        // Vendor.Fax_Number
   101        Set Field_Label_Long       Field Vendor.Fax_Number To "Fax Number"
   102        Set Field_Label_Short      Field Vendor.Fax_Number To "Fax"
   103        Set Status_Help            Field Vendor.Fax_Number To "Fax Phone Number."
   104
   105        //DDB-DefineFieldEnd
   106
   107    End_Procedure  //  Define_Fields
   108
   109
   110    // Field_Defaults:
   111    // This procedure is used to establish default field values.
   112
   113    Procedure Field_Defaults
   114        Forward Send Field_Defaults
   115        //DDB-Generated-Code-Location
   116        //DDB-FieldDefaultStart
   117        //DDB-FieldDefaultEnd
   118    End_Procedure    // Field_Defaults
   119    
   120End_Class    //  Vendor_DataDictionary
   121//DDB-Selection-pkg-Start
   122#IFDEF Is$WebApp
   123#ELSE
   124
   125Use Order\Vendor.sl        // Vendor_sl
   126
   127#ENDIF
   128//DDB-Selection-pkg-End
   129//DDB-FileEnd
   130