Module Orderhea.sl

     1Use DFClient.pkg
     2Use DFSelLst.pkg
     3Use Windows.pkg
     4Use cDbCJGridPromptList.pkg
     5
     6Use Customer.DD
     7Use OrderHea.DD
     8
     9
    10CD_Popup_Object OrderHea_sl is a dbModalPanel
    11
    12    Set Minimize_Icon to False
    13    Set Label to "Order List"
    14    Set Size to 134 392
    15    Set Location to 4 5
    16    Set piMinSize to 134 392
    17
    18    Object Customer_DD is a Customer_DataDictionary
    19    End_Object    // Customer_DD
    20
    21    Object OrderHea_DD is a OrderHea_DataDictionary
    22        Set DDO_Server to Customer_DD
    23    End_Object    // OrderHea_DD
    24
    25    Set Main_DD to OrderHea_DD
    26    Set Server to OrderHea_DD
    27
    28    Object oSelList is a cDbCJGridPromptList
    29        Set Size to 100 377
    30        Set Location to 9 7
    31        Set pbAllowColumnRemove to False
    32        Set peAnchors to anAll
    33
    34        Object oOrderHea_Order_Number is a cDbCJGridColumn
    35            Entry_Item OrderHea.Order_Number
    36            Set piWidth to 87
    37            Set psCaption to "Order Number"
    38        End_Object
    39
    40        Object oCustomer_Customer_Number is a cDbCJGridColumn
    41            Entry_Item Customer.Customer_Number
    42            Set piWidth to 84
    43            Set psCaption to "Cust. Number"
    44        End_Object
    45
    46        Object oCustomer_Name is a cDbCJGridColumn
    47            Entry_Item Customer.Name
    48            Set piWidth to 231
    49            Set psCaption to "Customer Name"
    50        End_Object
    51
    52        Object oOrderHea_Order_Date is a cDbCJGridColumn
    53            Entry_Item OrderHea.Order_Date
    54            Set piWidth to 75
    55            Set psCaption to "Order Date"
    56            Set peTextAlignment to xtpAlignmentRight
    57        End_Object
    58
    59        Object oOrderHea_Order_Total is a cDbCJGridColumn
    60            Entry_Item OrderHea.Order_Total
    61            Set piWidth to 88
    62            Set psCaption to "Order Total"
    63        End_Object
    64    End_Object
    65
    66    Object oOK_bn is a Button
    67        Set Label to "&Ok"
    68        Set Location to 116 231
    69        Set peAnchors to anBottomRight
    70
    71        Procedure OnClick
    72            Send OK of oSelList
    73        End_Procedure
    74
    75    End_Object    // oOK_bn
    76
    77    Object oCancel_bn is a Button
    78        Set Label to "&Cancel"
    79        Set Location to 116 284
    80        Set peAnchors to anBottomRight
    81
    82        Procedure OnClick
    83            Send Cancel of oSelList
    84        End_Procedure
    85
    86    End_Object    // oCancel_bn
    87
    88    Object oSearch_bn is a Button
    89        Set Label to "&Search..."
    90        Set Location to 116 337
    91        Set peAnchors to anBottomRight
    92
    93        Procedure OnClick
    94            Send Search of oSelList
    95        End_Procedure
    96
    97    End_Object    // oSearch_bn
    98
    99    On_Key Key_Alt+Key_O Send KeyAction of oOk_bn
   100    On_Key Key_Alt+Key_C Send KeyAction of oCancel_bn
   101    On_Key Key_Alt+Key_S Send KeyAction of oSearch_bn
   102
   103CD_End_Object    // OrderHea_sl