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 133 284
    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 cDbCJGridPromptList
    27        Set Size to 105 273
    28        Set Location to 6 6
    29        Set peAnchors to anAll
    30        Set pbAllowColumnRemove to False
    31
    32        Object oItemID is a cDbCJGridColumn
    33            Entry_Item Invt.Item_iD
    34            Set psCaption to "Item ID"
    35            Set piWidth to 74
    36        End_Object
    37        
    38        Object oDescription is a cDbCJGridColumn
    39            Entry_Item Invt.Description
    40            Set psCaption to "Description"
    41            Set piWidth to 205
    42        End_Object
    43        
    44        Object oUnitPrice is a cDbCJGridColumn
    45            Entry_Item Invt.Unit_Price
    46            Set psCaption to "Unit Price"
    47            Set piWidth to 69
    48        End_Object
    49        
    50        Object oOnHand is a cDbCJGridColumn
    51            Entry_Item Invt.On_Hand
    52            Set psCaption to "On Hand"
    53            Set piWidth to 61
    54        End_Object
    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 of 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 of 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 of oSelList
    87        End_Procedure
    88
    89    End_Object    // oSearch_bn
    90
    91    On_Key Key_Alt+Key_O Send KeyAction of oOk_bn
    92    On_Key Key_Alt+Key_C Send KeyAction of oCancel_bn
    93    On_Key Key_Alt+Key_S Send KeyAction of oSearch_bn
    94
    95CD_End_Object    // Invt_sl
    96