Module Invt.sl

     1Use DFClient.pkg
     2Use DFSelLst.pkg
     3Use Windows.pkg
     4
     5Use Vendor.DD
     6Use Invt.DD
     7
     8CD_Popup_Object Invt_sl is a dbModalPanel
     9
    10    Set Minimize_Icon to False
    11    Set Label to "Inventory List"
    12    Set Size to 133 284
    13    Set Location to 4 4
    14    Set piMinSize to 97 174
    15
    16    Object Vendor_DD is a Vendor_DataDictionary
    17    End_Object    // Vendor_DD
    18
    19    Object Invt_DD is a Invt_DataDictionary
    20        Set DDO_Server to Vendor_DD
    21    End_Object    // Invt_DD
    22
    23    Set Main_DD to Invt_DD
    24    Set Server to Invt_DD
    25
    26    Object oSelList is a dbList
    27        Set Main_File to Invt.File_Number
    28        Set Ordering to 1
    29        Set Size to 105 273
    30        Set Location to 6 6
    31        Set peAnchors to anAll
    32        Set pbHeaderTogglesDirection to True
    33
    34        Begin_Row
    35            Entry_Item Invt.Item_iD
    36            Entry_Item Invt.Description
    37            Entry_Item Invt.Unit_Price
    38            Entry_Item Invt.On_Hand
    39        End_Row
    40
    41        Set Form_Width 0 to 55
    42        Set Header_Label 0 to "Item ID"
    43        
    44        Set Form_Width 1 to 125
    45        Set Header_Label 1 to "Description"
    46        
    47        Set Form_Width 2 to 48
    48        Set Header_Label 2 to "Unit Price"
    49        
    50        Set Form_Width 3 to 40
    51        Set Header_Label 3 to "On Hand"
    52        
    53        Set Currency_Mask 2 to 6 2
    54        Set Numeric_Mask 3 to 6 0
    55
    56    End_Object    // oSelList
    57
    58    Object oOK_bn is a Button
    59        Set Label to "&Ok"
    60        Set Location to 115 123
    61        Set peAnchors to anBottomRight
    62
    63        Procedure OnClick
    64            Send OK To oSelList
    65        End_Procedure
    66
    67    End_Object    // oOK_bn
    68
    69    Object oCancel_bn is a Button
    70        Set Label to "&Cancel"
    71        Set Location to 115 176
    72        Set peAnchors to anBottomRight
    73
    74        Procedure OnClick
    75            Send Cancel To oSelList
    76        End_Procedure
    77
    78    End_Object    // oCancel_bn
    79
    80    Object oSearch_bn is a Button
    81        Set Label to "&Search..."
    82        Set Location to 115 229
    83        Set peAnchors to anBottomRight
    84
    85        Procedure OnClick
    86            Send Search To oSelList
    87        End_Procedure
    88
    89    End_Object    // oSearch_bn
    90
    91    On_Key Key_Alt+Key_O Send KeyAction To oOk_bn
    92    On_Key Key_Alt+Key_C Send KeyAction To oCancel_bn
    93    On_Key Key_Alt+Key_S Send KeyAction To oSearch_bn
    94
    95CD_End_Object    // Invt_sl
    96