Module Invt.vw

     1Use dfClient.pkg
     2Use DataDict.pkg
     3Use dfEntry.pkg
     4Use Vendor.DD
     5Use Invt.DD
     6
     7DEFERRED_VIEW Activate_oInventoryView FOR ;
     8;
     9Object oInventoryView is a dbView
    10    Set Border_Style to Border_Thick
    11    Set Label to "Inventory Item View"
    12    Set Location to 5 8
    13    Set Size to 151 305
    14    Set piMaxSize to 115 350
    15    Set piMinSize to 151 270
    16
    17    Object Vendor_DD is a Vendor_DataDictionary
    18    End_Object    // Vendor_DD
    19
    20    Object Invt_DD is a Invt_DataDictionary
    21        Set DDO_Server to Vendor_DD
    22    End_Object    // Invt_DD
    23
    24    Set Main_DD to Invt_DD
    25    Set Server to Invt_DD
    26
    27    Object oDbCont is a dbContainer3d
    28        Set Size to 140 295
    29        Set Location to 5 4
    30        Set peAnchors to anAll
    31        Object oInvt_Item_ID is a dbForm
    32            Entry_Item Invt.Item_ID
    33            Set Label to "Invt. Item ID:"
    34            Set Size to 13 60
    35            Set Location to 10 70
    36            Set peAnchors to anTopLeft
    37            Set Label_Col_Offset to 2
    38            Set Label_Justification_Mode to jMode_Right
    39        End_Object    // oInvt_Item_Id
    40
    41        Object oInvt_Description is a dbForm
    42            Entry_Item Invt.Description
    43            Set Label to "Invt. Description:"
    44            Set Size to 13 210
    45            Set Location to 25 70
    46            Set peAnchors to anTopLeftRight
    47            Set Label_Col_Offset to 2
    48            Set Label_Justification_Mode to jMode_Right
    49        End_Object    // oInvt_Description
    50
    51        Object oVendorGroup is a dbGroup
    52            Set Size to 58 271
    53            Set Location to 41 9
    54            Set peAnchors to anAll
    55            Set Label to "Vendor"
    56            Object oInvt_Vendor_ID is a dbForm
    57                Entry_Item Vendor.ID
    58                Set Label to "Vendor ID:"
    59                Set Size to 13 42
    60                Set Location to 9 61
    61                Set peAnchors to anTopLeft
    62                Set Label_Col_Offset to 2
    63                Set Label_Justification_Mode to jMode_Right
    64            End_Object    // oInvt_Vendor_Id
    65
    66            Object oVendor_Name is a dbForm
    67                Entry_Item Vendor.Name
    68                Set Label to "Vendor Name:"
    69                Set Size to 13 180
    70                Set Location to 24 61
    71                Set peAnchors to anTopLeftRight
    72                Set Label_Col_Offset to 2
    73                Set Label_Justification_Mode to jMode_Right
    74            End_Object    // oVendor_Name
    75
    76            Object oInvt_Vendor_Part_ID is a dbForm
    77                Entry_Item Invt.Vendor_Part_ID
    78                Set Label to "Vendor Part ID:"
    79                Set Size to 13 90
    80                Set Location to 39 61
    81                Set peAnchors to anTopLeft
    82                Set Label_Col_Offset to 2
    83                Set Label_Justification_Mode to jMode_Right
    84            End_Object    // oInvt_Vendor_Part_ID
    85
    86        End_Object    // oVendorGroup
    87
    88        Object oUnitGroup is a dbGroup
    89            Set Size to 28 271
    90            Set Location to 101 9
    91            Set peAnchors to anAll
    92            Object oInvt_Unit_Price is a dbForm
    93                Entry_Item Invt.Unit_Price
    94                Set Label to "Unit Price:"
    95                Set Size to 13 48
    96                Set Location to 10 61
    97                Set peAnchors to anTopLeft
    98                Set Label_Col_Offset to 2
    99                Set Label_Justification_Mode to jMode_Right
   100            End_Object    // oInvt_Unit_Price
   101
   102            Object oInvt_On_Hand is a dbForm
   103                Entry_Item Invt.On_Hand
   104                Set Label to "On Hand:"
   105                Set Size to 13 36
   106                Set Location to 10 205
   107                Set peAnchors to anTopRight
   108                Set Label_Col_Offset to 2
   109                Set Label_Justification_Mode to jMode_Right
   110            End_Object    // oInvt_On_Hand
   111
   112        End_Object    // oUnitGroup
   113
   114    End_Object    // oDbCont
   115
   116CD_End_Object    // oInventoryView
   117