Use dfClient.pkg
Use DataDict.pkg
Use dfEntry.pkg
Use dfTabDlg.pkg
Use dfCEntry.pkg
Use cDbTextEdit.Pkg
Use Customer.DD
Use cSigCJDockingPane.pkg

DEFERRED_VIEW Activate_oCustomerView FOR ;
;
Object oCustomerView is a dbView
    Set Border_Style to Border_Thick
    Set Label to "Customer Entry View"
    Set Location to 7 23
    Set Size to 240 288 
    Set piMinSize to 240 288

    Object Customer_DD is a Customer_DataDictionary
    End_Object    // Customer_DD

    Set Main_DD to Customer_DD
    Set Server to Customer_DD

    Object oCustomer_Number is a dbForm
        Entry_Item Customer.Customer_Number
        Set Label to "Customer Number:"
        Set Size to 13 42
        Set Location to 5 72
        Set peAnchors to anTopLeft
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to jMode_Right
    End_Object    // oCustomer_Number

    Object oCustomer_Name is a dbForm
        Entry_Item Customer.Name
        Set Label to "Name:"
        Set Size to 13 186
        Set Location to 20 72
        Set peAnchors to anTopLeftRight
        Set Label_Col_Offset to 2
        Set Label_Justification_Mode to jMode_Right
    End_Object    // oCustomer_Name

    Object oCustTD is a dbTabDialog
        Set Size to 105 278
        Set Location to 36 7
        Set Rotate_Mode to RM_Rotate
        Set peAnchors to anTopLeftRight
        Object oAddress_TP is a dbTabPage
            Set Label to "Address"
            Object oCustomer_Address is a dbForm
                Entry_Item Customer.Address
                Set Label to "Street Address:"
                Set Size to 13 180
                Set Location to 8 62
                Set peAnchors to anTopLeftRight
                Set Label_Col_Offset to 2
                Set Label_Justification_Mode to jMode_Right
            End_Object    // oCustomer_Address

            Object oCustomer_City is a dbForm
                Entry_Item Customer.City
                Set Label to "City/State/Zip:"
                Set Size to 13 84
                Set Location to 24 62
                Set peAnchors to anTopLeftRight
                Set Label_Col_Offset to 2
                Set Label_Justification_Mode to jMode_Right
            End_Object    // oCustomer_City

            Object oCustomer_State is a dbComboForm
                Entry_Item Customer.State
                Set Size to 13 32
                Set Location to 24 152
                Set peAnchors to anTopRight
                Set Form_Border to 0
                Set Code_Display_Mode to cb_code_display_code
            End_Object    // oCustomer_State

            Object oCustomer_Zip is a dbForm
                Entry_Item Customer.Zip
                Set Size to 13 51
                Set Location to 24 191
                Set peAnchors to anTopRight
            End_Object    // oCustomer_Zip

            Object oCustomer_Phone_number is a dbForm
                Entry_Item Customer.Phone_Number
                Set Label to "Phone Number:"
                Set Size to 13 120
                Set Location to 39 62
                Set peAnchors to anTopLeft
                Set Label_Col_Offset to 2
                Set Label_Justification_Mode to jMode_Right
            End_Object    // oCustomer_Phone_number

            Object oCustomer_Fax_number is a dbForm
                Entry_Item Customer.Fax_Number
                Set Label to "Fax Number:"
                Set Size to 13 120
                Set Location to 54 62
                Set peAnchors to anTopLeft
                Set Label_Col_Offset to 2
                Set Label_Justification_Mode to jMode_Right
            End_Object    // oCustomer_Fax_number

            Object oCustomer_Email_address is a dbForm
                Entry_Item Customer.EMail_Address
                Set Label to "E-Mail Address:"
                Set Size to 13 180
                Set Location to 69 62
                Set peAnchors to anTopLeftRight
                Set Label_Col_Offset to 2
                Set Label_Justification_Mode to jMode_Right
            End_Object    // oCustomer_Email_address

        End_Object    // oAddress_TP

        Object oBalances_TP is a dbTabPage
            Set Label to "Balances"
            Object oCustomer_Credit_Limit is a dbForm
                Entry_Item Customer.Credit_limit
                Set Label to "Credit Limit:"
                Set Size to 13 48
                Set Location to 9 72
                Set Label_Col_Offset to 2
                Set Label_Justification_Mode to jMode_Right
            End_Object    // oCustomer_Credit_Limit

            Object oCustomer_Purchases is a dbForm
                Entry_Item Customer.Purchases
                Set Label to "Total Purchases:"
                Set Size to 13 48
                Set Location to 24 72
                Set Label_Col_Offset to 2
                Set Label_Justification_Mode to jMode_Right
            End_Object    // oCustomer_Purchases

            Object oCustomer_Balance is a dbForm
                Entry_Item Customer.Balance
                Set Label to "Balance Due:"
                Set Size to 13 48
                Set Location to 39 72
                Set Label_Col_Offset to 2
                Set Label_Justification_Mode to jMode_Right
            End_Object    // oCustomer_Balance

        End_Object    // oBalances_TP

//        Object oComments_TP is a dbTabPage
//            Set Label to "Comments"
//            Object oCustomer_Comments is a cDbTextEdit
//                Entry_Item Customer.Comments
//                Set Size to 71 242
//                Set Location to 9 9
//                Set peAnchors to anAll
//            End_Object    // oCustomer_Comments
//
//        End_Object    // oComments_TP

    End_Object    // oCustTD

    Object oChildContainer is a dbContainer3d
        Set Size to 100 100
        Set Location to -1000 -1000
        Set peAnchors to anAll
        Set Visible_State to False

        Object oCustomer_Comments is a cDbTextEdit
            Entry_Item Customer.Comments
            Set Size to 90 90
            Set Location to 2 2
            Set peAnchors to anAll
        End_Object    // oCustomer_Comments
    End_Object

    Object oDockingPaneManager is a cSigCjDockingManager
        Set phoContainerObject to (Parent(Self))
        Set pbPX_Save_Layout to False

        Object oPane1 is a cSigCjDockingPane
            Set phoClientObject to (oChildContainer(Self))
            Set psTitle to "Comments"
            Set peLocation to OLEDockBottomOf // OLEDockRightOf
//            Set pbCloseable to False
//            Set pbDockable to False
//            Set pbFloatable to False
//            Set pbHideable to False
//            Set pbInitiallyHidden to True
        End_Object

    End_Object

CD_End_Object    // oCustomerView