Module VENDOR.VW

     1//********************************************************************************
     2// VENDOR
     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 VENDOR.DD
    17
    18Activate_View Activate_VENDOR For VENDOR_View
    19
    20Object VENDOR_View is an Entry_View_Client No_Image ;
    21        Action_Bar (Main_Menu(self))
    22
    23    // Define Default Confirmation Messages
    24    Set Verify_Save_MSG       to GET_Save_Confirmation
    25    Set Verify_Delete_MSG     to GET_Delete_Confirmation
    26    Set Verify_Data_Loss_MSG  to GET_Data_loss_Confirmation
    27    Set Verify_Exit_MSG       to GET_Exit_loss_Confirmation
    28
    29    Object VENDOR_DD is a VENDOR_DataDictionary
    30    End_Object // VENDOR_DD
    31
    32    Set Server  to (Vendor_DD(self))
    33    Set Main_DD to (Vendor_DD(self))
    34
    35/Vendor_EF_Image
    36┌─ Vendor Entry: ─────────────────────────────┐
    37│ Vendor Id: _____.                           │
    38├─────────────────────────────────────────────┤
    39│      Name: ______________________________   │
    40│   Address: ______________________________   │
    41│      City: ______________                   │
    42│     State: __                               │
    43│       Zip: __________                       │
    44│     Phone: ____________________             │
    45│       Fax: ____________________             │
    46│                                             │
    47└─────────────────────────────────────────────┘
    48/*
    49
    50    Object Vendor_EF is an Entry_Form Vendor_EF_Image
    51
    52        Set Location to 7 15 Relative
    53        Set Allow_Move_State to True
    54
    55        Item_List
    56            Entry_Item VENDOR.ID
    57            Entry_Item VENDOR.NAME
    58            Entry_Item VENDOR.ADDRESS
    59            Entry_Item VENDOR.CITY
    60            Entry_Item VENDOR.STATE
    61            Entry_Item VENDOR.ZIP
    62            Entry_Item VENDOR.PHONE_NUMBER
    63            Entry_Item VENDOR.FAX_NUMBER
    64        End_Item_List
    65
    66    End_Object  // Vendor_EF
    67
    68End_Object // VENDOR_View
    69