 |
|||||||
|
 |
|
|||||
|
 |
|
|
||||
|
 |
|
|||||
|
Uncommon Knowledge - WC_Query_Template%The template definition used when query mode is invoked. Note that initially this variable is empty but that it is constructed when query mode is invoked for the first time. If however the programmer has already loaded WC_Query_Template% appropriately, this will be used instead. Thus it is possible for query to invoke any template when the user requests it. This makes it possible for the programmer to put back in necessary edit checks and post prompt checks etc. It even makes possible the display of a radically different screen designed exclusively for query purposes. The revised template can be loaded into WC_Query_Template% after initialisation. The template can either be prepared with the appropriate softkey and collector hooks or constructed on the fly using code like that provided below. Note that this code is intended as indicational only - it may require modification for your specific application. To use just call passing the name of the template to establish as the query window. 0001 Subroutine Create_Query_Template(Template_To_Use) 0002 /* 0003 Author AMcA 0004 Date Jan 1991 0005 Purpose To build a query template from a template on file 0006 */ 0007 0008 $insert include,window_common% 0009 $insert include,lcfunctions 0010 Equ Delim$ To Char(247) 0011 Template_Rec = Xlate("TEMPLATES", Template_To_Use, "", "X") 0012 SOFTKEYS = "SFýChange Sort/SelectýQUERY.SUB,CUSTOMIZE" : @FM 0013 SOFTKEYS := "SFýSave Criteria as FilterýQUERY.SUB,FILTER.SAVE" 0014 Collector = "S" : @FM : "QUERY.SUB,CHECK.REDISPLAY" : @FM 0015 Collector := @FM : "S":@FM:"QUERY.SUB,MAKE.SELECT":@FM : "1" 0016 * Remove all processes other than pre query 0017 Pre = STR(@FM,5):WC_PREPROC%<6> 0018 /* 0019 If environment char not loaded may need default logic here 0020 Query_Char = Char(@Environ.Set<56>) 0021 */ 0022 W_Env = STR(@FM,5):Query_Char 0023 Title = field(Template_Rec,Delim$,6):"- Query Window!" 0024 Y = (Template_Rec<1>+1) 0025 Prompts = FIELD( Template_Rec, @FM, 1, Y ) 0026 Template_Rec[1,COL2()] = "" 0027 Prompt_Number = 1 0028 For Pointer = 2 To Y 0029 Prompts<Pointer,3> = "F" ; * Even symbolics become F type 0030 Prompts<Pointer,18> = "" ; * Remove Required flags 0031 Prompts<Pointer,22> = 1 ; * Make lower case 0032 Prompts<Pointer,4> = Prompt_Number ; Prompt_Number += 1 0033 Next 0034 Template_Rec = FIELDSTORE( Template_Rec, Delim$, 6, 1, Title ) 0035 * Add in collector details 0036 Template_Rec = FIELDSTORE( Template_Rec, Delim$, 13, 1, Collector) 0037 * Don't bother locking or with required fields, keys, AMVs or recalc 0038 Template_Rec = FIELDSTORE( Template_Rec, Delim$, 14, 1, 0 ) 0039 Template_Rec = FIELDSTORE( Template_Rec, Delim$, 16, 1, "" ) 0040 Template_Rec = FIELDSTORE( Template_Rec, Delim$, 17, 1, "" ) 0041 Template_Rec = FIELDSTORE( Template_Rec, Delim$, 19, 1, "" ) 0042 Template_Rec = FIELDSTORE( Template_Rec, Delim$, 21, 1, "" ) 0043 Template_Rec = FIELDSTORE( Template_Rec, Delim$, 22, 1, "" ) 0044 Template_Rec = FIELDSTORE( Template_Rec, Delim$, 23, 1, "" ) 0045 Template_Rec = FIELDSTORE( Template_Rec, Delim$, 24, 1, "" ) 0046 * Add in SF1 and SF2 0047 Template_Rec = FIELDSTORE( Template_Rec, Delim$, 26, 1, SF1:@FM:SF2) 0048 Template_Rec = FIELDSTORE( Template_Rec, Delim$, 27, 1, SOFTKEYS ) 0049 * Remove all preprocesses, post and rep 0050 Template_Rec = FIELDSTORE( Template_Rec, Delim$, 30, 1, Pre) 0051 Template_Rec = FIELDSTORE( Template_Rec, Delim$, 31, 1, "" ) 0052 Template_Rec = FIELDSTORE( Template_Rec, Delim$, 32, 1, "" ) 0053 * Null Rec Map and start and disabled keys 0054 Template_Rec = FIELDSTORE( Template_Rec, Delim$, 34, 1, "" ) 0055 Template_Rec = FIELDSTORE( Template_Rec, Delim$, 42, 1, "" ) 0056 Template_Rec = FIELDSTORE( Template_Rec, Delim$, 43, 1, "" ) 0057 * Remove Perpetual 0058 Template_Rec = FIELDSTORE( Template_Rec, Delim$, 45, 1, "" ) 0059 * Set default mask 0060 Template_Rec = FIELDSTORE( Template_Rec, Delim$, 48, 1, W_Env) 0061 * And finally reassemble the template variable 0062 WC_QUERY_TEMPLATE% = Prompts:@FM:Template_Rec 0063 return (Volume 3, Issue 8, Pages 11,12) |
|
|||||
|
 |
|
|||||
|
| |
|||||
|
|||||||