Module INVT.VW

     1//********************************************************************************
     2// INVT
     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
    17Use INVT.DD
    18
    19Activate_View Activate_INVT For INVT_View
    20
    21Object INVT_View is an Entry_View_Client No_Image ;
    22        Action_Bar (Main_Menu(self))
    23
    24    // Define Default Confirmation Messages
    25    Set Verify_Save_MSG       to GET_Save_Confirmation
    26    Set Verify_Delete_MSG     to GET_Delete_Confirmation
    27    Set Verify_Data_Loss_MSG  to GET_Data_loss_Confirmation
    28    Set Verify_Exit_MSG       to GET_Exit_loss_Confirmation
    29
    30    Object VENDOR_DD is a VENDOR_DataDictionary
    31    End_Object // VENDOR_DD
    32
    33    Object INVT_DD is a INVT_DataDictionary
    34        Set DDO_Server to (VENDOR_DD(self))
    35    End_Object // INVT_DD
    36
    37    Set Server  to (Invt_dd(self))
    38    Set Main_DD to (Invt_dd(self))
    39
    40/Inventory_EF_Image
    41┌─ Inventory Entry: ────────────────────────────────────┐
    42│    Invt. Item Id: __________                          │
    43│Invt. Description: ___________________________________ │
    44├───────────────────────────────────────────────────────┤
    45│        Vendor Id: _____.                              │
    46│      Vendor Name: ______________________________      │
    47│   Vendor Part Id: _______________                     │
    48├───────────────────────────────────────────────────────┤
    49│       Unit Price: ______.__                           │
    50│          On Hand: _____.                              │
    51└───────────────────────────────────────────────────────┘
    52/*
    53
    54    Object Inventory_EF is an Entry_Form Inventory_EF_Image
    55
    56        Set Location to 8 5 Relative
    57        set Allow_Move_State to true
    58        Item_List
    59            Entry_Item INVT.ITEM_ID
    60            Entry_Item INVT.DESCRIPTION
    61            Entry_Item VENDOR.ID
    62            Entry_Item VENDOR.NAME
    63            Entry_Item INVT.VENDOR_PART_ID
    64            Entry_Item INVT.UNIT_PRICE
    65            Entry_Item INVT.ON_HAND
    66        End_Item_List
    67
    68    End_Object  // Inventory_EF
    69
    70End_Object // INVT_View
    71