Module CUSTOMER.SL
1//********************************************************************************
2// Selection List Definition for CUSTOMER
3//
4// Author :
5// Originally created : 01/07/99
6// Last Update :
7//
8//********************************************************************************
9
10Use ALLENTRY
11Use SELLISTR
12
13Open CUSTOMER
14
15/Customer_sl_image
16╔═══════════════════════════════════════╗
17║ Customer Lookup ║
18║Id Num Name ║
19Ã──────┬────────────────────────────────Â
20║_____.│______________________________ ║
21║_____.│______________________________ ║
22║_____.│______________________________ ║
23║_____.│______________________________ ║
24║_____.│______________________________ ║
25║_____.│______________________________ ║
26║_____.│______________________________ ║
27╚══════¤════════════════════════════════╝
28/*
29
30Object Customer_sl is a Selection_list Customer_sl_image ;
31 popup Main_File CUSTOMER by recnum
32
33 Set Location to 6 10
34 Set Auto_Locate_State to TRUE // locate automatically
35 Set Auto_Server_State to TRUE // change indexes when switching columns
36 Set Allow_Move_State to TRUE
37 // Properties you may need. Uncomment to reverse the default setting(s).
38
39 // Set No_relate_State to TRUE // Only use if no DATA_SET and no
40 // RELATES are required. Speed issue.
41 // Set Auto_Server_State to TRUE // Latch on to invoking data-set.
42 // Set Export_Item_State to TRUE // If non-related lists.
43 // Set Export_Column to ?? // Column to export from, -1=use initial.
44 // Set Find_search_State to FALSE // To get incremental (slow) search.
45 // Set Load_Buffer_msg to MSG_?? // Sent to invoking object upon start-up.
46 // Set Display_Buffer_msg to MSG_?? // Sent to invoking object close.
47 // Set Radio_State to TRUE // These two are good for multi
48 // Set Select_Mode to MULTI_SELECT // select lists.
49 // Set Initial_Row to FILL_FROM_TOP // Row to start in.
50 // Set Initial_Column to ?? // Column to start in.
51
52 Begin_Row
53 Entry_Item CUSTOMER.CUSTOMER_NUMBER
54 Entry_Item CUSTOMER.NAME
55 End_Row
56
57End_Object // Customer_sl_