Module CUSTOMER.VW

     1//********************************************************************************
     2// CUSTOMER
     3//
     4// Author              :
     5// Originally created  : 01/07/99
     6// Last Update         :
     7//
     8//********************************************************************************
     9
    10Use ALLENTRY
    11Use CONFIRM
    12Set Class_Colors to U_TEXT_WINDOW 0 0
    13
    14// Data Set Class Inclusions
    15
    16Use CUSTOMER.Dd
    17Deferred_View Activate_CUSTOMER For ; //CUSTOMER_View
    18;
    19Object CUSTOMER_View is an Entry_View_Client No_Image ;
    20        Action_Bar (Main_Menu(self))
    21
    22    // Define Default Confirmation Messages
    23    Set Verify_Save_MSG       to GET_Save_Confirmation
    24    Set Verify_Delete_MSG     to GET_Delete_Confirmation
    25    Set Verify_Data_Loss_MSG  to GET_Data_loss_Confirmation
    26    Set Verify_Exit_MSG       to GET_Exit_loss_Confirmation
    27
    28    Object CUSTOMER_DD is a CUSTOMER_DataDictionary
    29    End_Object // CUSTOMER_DD
    30
    31    Set Server to (Customer_DD(self))
    32    Set Main_dd to (Customer_DD(self))
    33
    34/Customer_EF_Image
    35┌─ Customer Entry: ────────────────────────┐
    36│Customer Id: _____.                       │
    37├──────────────────────────────────────────┤
    38│    Name: ______________________________  │
    39│ Address: ______________________________  │
    40│    City: ______________                  │
    41│   State: __                              │
    42│     Zip: __________                      │
    43│   Phone: ____________________            │
    44│     Fax: ____________________            │
    45│   Email: ______________________________  │
    46├──────────────────────────────────────────┤
    47│Credit Limit: ______.__                   │
    48│   Purchases: ______.__                   │
    49│ Balance Due: ______.__                   │
    50├──────────────────────────────────────────┤
    51│                                          │
    52│                                          │
    53│                                          │
    54│                                          │
    55└──────────────────────────────────────────┘
    56/*
    57
    58    Object Customer_EF is an Entry_Form Customer_EF_Image
    59
    60        Set Location to 2 20 Relative
    61        Set Allow_move_State to True
    62
    63        Item_List
    64            Entry_Item CUSTOMER.CUSTOMER_NUMBER
    65            Entry_Item CUSTOMER.NAME
    66            Entry_Item CUSTOMER.ADDRESS
    67            Entry_Item CUSTOMER.CITY
    68            Entry_Item CUSTOMER.STATE
    69            Entry_Item CUSTOMER.ZIP
    70            Entry_Item CUSTOMER.PHONE_NUMBER
    71            Entry_Item CUSTOMER.FAX_NUMBER
    72            Entry_Item CUSTOMER.EMAIL_ADDRESS
    73            Entry_Item CUSTOMER.CREDIT_LIMIT
    74            Entry_Item CUSTOMER.PURCHASES
    75            Entry_Item CUSTOMER.BALANCE
    76        End_Item_List
    77
    78        //#noisy 99
    79        Object Comment_TW is a Text_Window //for CUSTOMER.COMMENTS
    80            entry_item Customer.Comments
    81        //#noisy 0
    82            Set Location to 16 1 Relative
    83
    84            Set Size to 4 41
    85
    86        End_Object  // Comment_EC
    87
    88    End_Object // Customer_EF
    89
    90cd_End_Object // CUSTOMER_View
    91