//DDB-FileStart
//DDB-HeaderStart

// File Name : Customer.DD
// Class Name: Customer_DataDictionary
// Revision  : 14
// Version   : 2

Use  Windows           // Basic Definitions
Use  DataDict.pkg          // DataDictionary Class Definition
Use  DDvalTbl          // Validation Table Class Definitions

Open Customer
Open OrderHea
Open Ordsys

//DDB-HeaderEnd
//DDB-ValidationStart

Register_Object Customer_State_VT

Object Customer_State_VT  is a CodeValidationTable
    Set Type_Value        To "STATES"
    Set Table_Title       To "States"
    //DDB-ValidationCustomStart
    //DDB-ValidationCustomEnd
End_Object   // Customer_State_VT
//DDB-ValidationEnd
//DDB-SelectionStart
//DDB/ ExternalSelectionList Customer_sl  Customer.sl
Register_Object Customer_sl
//DDB-SelectionEnd

Class Customer_DataDictionary Is A DataDictionary

    Procedure Define_Fields
        Forward Send Define_Fields
        //DDB-Generated-Code-Location
        //DDB-DefineFieldStart

        Set Main_File            To Customer.File_Number
        Set Cascade_Delete_State To False

        Set Foreign_Field_Options  DD_KEYFIELD   To DD_FINDREQ    
        Set Foreign_Field_Options  DD_INDEXFIELD To DD_NOPUT      
        Set Foreign_Field_Options  DD_DEFAULT    To DD_DISPLAYONLY

        // Child (Client) file structure................
        Send Add_Client_File  OrderHea.File_Number

        // External (System) file structure.............
        Send Add_System_File  Ordsys.File_Number  DD_LOCK_ON_NEW_SAVE

        Define_Auto_Increment  Ordsys.Cust_Number  To Customer.Customer_Number

        // Field-based properties.......................

        // Customer.Customer_Number
        Set Field_Label_Long       Field Customer.Customer_Number To "Customer Number"
        Set Field_Label_Short      Field Customer.Customer_Number To "Number"
        Set Field_Options          Field Customer.Customer_Number To DD_AUTOFIND    DD_NOPUT      
        Set Field_Prompt_Object    Field Customer.Customer_Number To (Customer_sl(Self))
        Set Key_Field_State        Field Customer.Customer_Number To True
        Set Status_Help            Field Customer.Customer_Number To "Customer Id Number (system assigned)."

        // Customer.Name
        Set Field_Label_Long       Field Customer.Name To "Customer Name"
        Set Field_Label_Short      Field Customer.Name To "Customer Name"
        Set Field_Options          Field Customer.Name To DD_REQUIRED   
        Set Field_Prompt_Object    Field Customer.Name To (Customer_sl(Self))
        Set Status_Help            Field Customer.Name To "Customer/Company Name."

        // Customer.Address
        Set Field_Label_Long       Field Customer.Address To "Street Address"
        Set Field_Label_Short      Field Customer.Address To "Address"
        Set Status_Help            Field Customer.Address To "Street Address."

        // Customer.City
        Set Status_Help            Field Customer.City To "City Name."

        // Customer.State
        Set Field_Class_Name       Field Customer.State To "dbComboForm"
        Set Field_Label_Long       Field Customer.State To "State"
        Set Field_Label_Short      Field Customer.State To "St."
        Set Field_Options          Field Customer.State To DD_CAPSLOCK   
        Set Field_Value_Table      Field Customer.State To (Customer_State_VT(Self))
        Set Status_Help            Field Customer.State To "Two letter state ID."

        // Customer.Zip
        Set Field_Label_Long       Field Customer.Zip To "Zip/Postal Code"
        Set Field_Label_Short      Field Customer.Zip To "Zip"
        Set Field_Mask             Field Customer.Zip To "#####-####"
        Set Field_Mask_Type        Field Customer.Zip To MASK_WINDOW
        Set Status_Help            Field Customer.Zip To "Zip or Postal Code."

        // Customer.Phone_Number
        Set Field_Label_Long       Field Customer.Phone_Number To "Phone Number"
        Set Field_Label_Short      Field Customer.Phone_Number To "Phone"
        Set Status_Help            Field Customer.Phone_Number To "Phone Number."

        // Customer.Fax_Number
        Set Field_Label_Long       Field Customer.Fax_Number To "Fax Number"
        Set Field_Label_Short      Field Customer.Fax_Number To "Fax"
        Set Status_Help            Field Customer.Fax_Number To "Fax Phone Number."

        // Customer.Email_Address
        Set Field_Label_Long       Field Customer.Email_Address To "E-Mail Address"
        Set Field_Label_Short      Field Customer.Email_Address To "E-Mail"
        Set Status_Help            Field Customer.Email_Address To "E-mail Address (internet)."

        // Customer.Credit_Limit
        Set Field_Class_Name       Field Customer.Credit_Limit To "dbSpinForm"
        Set Field_Mask_Type        Field Customer.Credit_Limit To MASK_CURRENCY_WINDOW

        // Customer.Purchases
        //DDB/ Comment_Short       Field Customer.Purchases To "Total Orders. Maintained by OrderHea DD"
        Set Field_Label_Long       Field Customer.Purchases To "Total Purchases"
        Set Field_Label_Short      Field Customer.Purchases To "Purchases"
        Set Field_Mask_Type        Field Customer.Purchases To MASK_CURRENCY_WINDOW
        Set Field_Options          Field Customer.Purchases To DD_DISPLAYONLY

        // Customer.Balance
        //DDB/ Comment_Short       Field Customer.Balance To "Maintained by OrderHea DD"
        Set Field_Label_Long       Field Customer.Balance To "Balance Due"
        Set Field_Label_Short      Field Customer.Balance To "Balance"
        Set Field_Mask_Type        Field Customer.Balance To MASK_CURRENCY_WINDOW
        Set Field_Options          Field Customer.Balance To DD_DISPLAYONLY

        // Customer.Comments
        Set Status_Help            Field Customer.Comments To "Additional Comments and Notes."

        // Customer.Status
        Set Field_Checkbox_Values  Field Customer.Status To "Y"  "N"
        Set Field_Label_Long       Field Customer.Status To "Active Status"
        Set Field_Label_Short      Field Customer.Status To "Status"
        Set Status_Help            Field Customer.Status To "Active Inactive Status of customer"

        //DDB-DefineFieldEnd
    End_Procedure  //  Define_Fields

    Procedure Field_defaults
        Forward Send Field_Defaults
        //DDB-Generated-Code-Location
        //DDB-FieldDefaultStart
        Set Field_Changed_Value   Field Customer.State To "FL"
        Set Field_Changed_Value   Field Customer.Credit_Limit To 1000
        Set Field_Changed_Value   Field Customer.Status To "Y"
        //DDB-FieldDefaultEnd
    End_Procedure

End_Class    //  Customer_DataDictionary
//DDB-Selection-pkg-Start
#IFDEF Is$WebApp
#ELSE

Use Customer.sl      // Customer_sl

#ENDIF
//DDB-Selection-pkg-End
//DDB-FileEnd