Liren Large Software Subsidy 5

home *** CD-ROM | disk | FTP | other *** search

/ Liren Large Software Subsidy 5 / 05.iso / a / a087 / 7.ddi / WZ_QFORM.AP_ / WZ_QFORM.bin

(.txt)

Wrap

MS Visual FoxPro App | 1994-02-02 | 377.8 KB | 5,163 lines

WIZARDS\WIZBMPS WIZARDS\WIZBMPS wizbmp WIZARDS\WIZBMPS WZIBUTTONSISVAREA STMPDBF STMPNAME ATEMPARR MKDIR WZ_ALERT WZATEXT WIZBMP SFNAME FXSETTYPE scxcode common setup setup setup setup READACT() READDEAC() common cleanup print cleanup text2 cleanup pict2 cleanup textbutton cleanup pictbutton cleanup general nogeneral WIZARDS\WIZBMPS\ @*BHN ISVDBF LHASGEN SCXCODE WZ_SCXCODEWZ_NEWWIZ OBJTYPE WZIBUTTONSDEACTIVATEDESC SNIPPET SETUPCODE XCODESETUPTYPE WZIEDITTYPWZLNOSKIP WZTBLARR WZ_FIELDS ACTIVTYPE DEACTTYPE ACTIVATE PROCCODE PROCTYPE WZBMPPATH JUSTFNAME PICTURE WZSSAVEFIL EMBOSSED wz_newwiz& wz_newwiz& WINDOWS ms sans serif ms sans serif geneva geneva EMBOSSED WZTMPARR WZTMPCURS WZ_SPECS OBJTYPE DEPENRED PLATFORM SFONTFACE EFONTSIZE PICTURE FONTSTYLE OBJCODE WZ_NEWWIZ MAKE_XPLAT QFORM wizpix AUTOFORMF WZSPARM1 WZSPARM2 WZSPARM3 CHKSRC WZ_SPECS WZSSAVEFILWZIACTION WZIBUTTONSWZIEDITTYPREPOMAIN WIZPIX MVCNT WZLNOSCRN WZPROCESS RUNFORM STMPPJ LHASRUNPRGIFHANDLE WZ_SPECS WZ_FIELDS WZ_SCRNS LWZ_SORT WZ_STFARR WZ_STSARR WZITOPBTN WZIBACKBTNWZINEXTBTNWZIENDBTN WZIOUT WZICANBTN WZ_STITLE WZLALLFLDSWZIBUTTONSWZIEDITTYPWZIACTION WZLNOTASK WZSSAVEFILJUSTPATH WZATEXT ILADDTASK WZATASKS wizqfrmd.dbf wizqfrm1.dbf WIZPIX use &dbfname DBFNAME WZPROCESS REPODBF USE_IT PLATFORM UNIQUEID TIMESTAMP OBJTYPE OBJCODE HEIGHT WIDTH STYLE PICTURE ORDER UNIQUE COMMENT ENVIRON BOXCHAR FILLCHAR PENRED PENGREEN PENBLUE FILLRED FILLGREEN FILLBLUE PENSIZE PENPAT FILLPAT FONTFACE FONTSTYLE FONTSIZE RULER RULERLINES GRIDV GRIDH SCHEME SCHEME2 COLORPAIR LOTYPE RANGELO HITYPE RANGEHI WHENTYPE VALIDTYPE VALID ERRORTYPE ERROR MESSTYPE MESSAGE SHOWTYPE ACTIVTYPE ACTIVATE DEACTTYPE DEACTIVATE PROCTYPE PROCCODE SETUPTYPE SETUPCODE FLOAT CLOSE MINIMIZE BORDER SHADOW CENTER REFRESH DISABLED SCROLLBAR ADDALIAS INITIALVAL INITIALNUM SPACING CURPOS WINDOWS _QE30Y8YVJ 460459325 1 63 0.000 0.000 24.063 62.500 1 T 17 -1 -1 -1 192 192 192 16 1 10 30T1212 1 1 1 1 0 181 1 TTT1 T T T WINDOWS _QEC145SW0 443979142 2 1 19 T 20 WINDOWS _QE30YC4N1 443705105 5 0 23 0.313 3.000 1.000 5.700 22 -1 -1 -1 -1 -1 -1 21 1 14 1 0.000 WINDOWS _QE30YCJ0C 444100024 6 2.188 0.000 0.125 62.500 1 24 -1 -1 -1 -1 -1 -1 2 8 0 0 WINDOWS _QE310RLPL 44403281917 0 25 12.000 9.000 6.813 16.625 1 26 0 2 TT WINDOWS _QE5114T0H 443705028 5 0 28 0.313 21.750 1.000 15.200 128 0 128 0 0 255 27 3 14 1 0.000 WINDOWS _QE5116J24 444032845 7 4 7.563 7.500 12.000 42.12512 -1 -1 -1 -1 -1 -1 1 8 0 0 WINDOWS _QE5116N3E 443705043 5 0 30 6.313 7.500 1.000 15.900 -1 -1 -1 -1 -1 -1 29 3 14 1 0.000 WINDOWS _QEB17DO5T 444100028 6 20.938 0.000 0.125 62.500 1 31 -1 -1 -1 -1 -1 -1 2 8 0 0 WINDOWS _QE90UKWAO 44377346315 0 32 3.063 3.250 1.000 15.333 34 33 C -1 -1 -1 255 255 255 35 3 8 1 1 1 1 1 1 1 FFF F 0 WINDOWS _QE3120O9Q 44410000715 1 36 3.063 16.750 1.000 25.600 38 37 C -1 -1 -1 255 255 255 39 0 8 0 1 1 0 401 1 1 FFF F 0 WINDOWS _QE90UMBTD 44377348315 0 41 4.563 3.250 1.000 15.333 43 42 C -1 -1 -1 255 255 255 44 1 8 1 1 1 1 1 1 1 FFF F 0 WINDOWS _QE311ZVLZ 44410001115 2 45 8.313 9.250 5.000 55.000 47 46 C -1 -1 -1 255 255 255 48 0 8 0 1 1 0 491 1 1 FFT F 0 WINDOWS _QE50U8DU9 44410001620 1 51 12.000 27.000 6.813 16.625 53 52 -1 -1 -1 -1 -1 -1 50 1 10 0 0 541 1 F 0.500 WINDOWS _QE310QBJ7 44410002014 1 55 14.313 45.000 1.308 5.400 58 56 -1 -1 -1 255 255 255 57 0 8 1 0 591 1 F 0 WINDOWS _QEC144R6M 44397911615 0 60 4.563 31.500 1.000 15.333 62 61 C -1 -1 -1 255 255 255 63 1 8 1 1 1 1 1 1 1 FFF F 0 WINDOWS _QJD0LA38B 45688353412 1 65 21.875 1.250 1.769 7.833 67 66 -1 -1 -1 -1 -1 -1 64 1 8 0 1 1 1 0 68 0 69 F 70 1 0.667 WINDOWS _QJD0LD4DB 45688352412 1 72 21.875 7.250 1.769 7.833 74 73 -1 -1 -1 -1 -1 -1 71 1 8 0 1 1 1 0 75 0 76 F 77 1 0.667 WINDOWS _QJD0LDNBZ 45688352812 1 79 21.875 13.250 1.769 7.833 81 80 -1 -1 -1 -1 -1 -1 78 1 8 0 1 1 1 0 82 0 83 F 84 1 0.667 WINDOWS _QJD0LE3M8 45688350812 1 86 21.875 19.250 1.769 7.833 88 87 -1 -1 -1 -1 -1 -1 85 1 8 0 1 1 1 0 89 0 90 F 91 1 0.667 WINDOWS _QJD0LFIJC 45688350312 1 93 21.875 25.250 1.769 7.833 95 94 -1 -1 -1 -1 -1 -1 92 1 8 0 1 1 1 0 96 0 97 F 98 1 0.667 WINDOWS _QJD0LFYWL 45688354212 1 100 21.875 31.250 1.769 7.833 102 101 -1 -1 -1 -1 -1 -1 99 1 8 0 1 1 1 0 103 0 104 F 105 1 0.667 WINDOWS _QJD0LGDO7 45688354912 1 107 21.875 37.250 1.769 7.833 109 108 -1 -1 -1 -1 -1 -1 106 1 8 0 1 1 1 0 110 0 111 F 112 1 0.667 WINDOWS _QJD0LGTKA 45688355612 1 114 21.875 43.250 1.769 7.833 116 115 -1 -1 -1 -1 -1 -1 113 1 8 0 1 1 1 0 117 0 118 F 119 1 0.667 WINDOWS _QJD0LH85A 45688332512 1 121 21.875 49.250 1.769 7.833 123 122 -1 -1 -1 -1 -1 -1 120 1 8 0 1 1 1 0 124 0 125 F 126 1 0.667 WINDOWS _QJD0LHS6B 45688330112 1 128 21.875 55.250 1.769 7.833 130 129 -1 -1 -1 -1 -1 -1 127 1 8 0 1 1 1 0 131 0 132 F 133 1 0.667 WINDOWS _QJE01A68N 45688348812 1 135 21.750 4.750 1.688 3.375 137 136 -1 -1 -1 -1 -1 -1 134 1 10 0 1 1 1 0 139 0 140 F 141 1 0.500 WINDOWS _QJE01HGDQ 45688347912 1 143 21.750 9.250 1.688 3.375 145 144 -1 -1 -1 -1 -1 -1 142 1 10 0 1 1 1 0 147 0 148 F 149 1 0.500 WINDOWS _QJE01HLCA 45688349512 1 151 21.750 13.750 1.688 3.375 153 152 -1 -1 -1 -1 -1 -1 150 1 10 0 1 1 1 0 155 0 156 F 157 1 0.500 WINDOWS _QJE01KORE 45688347112 1 159 21.750 18.250 1.688 3.375 161 160 -1 -1 -1 -1 -1 -1 158 1 10 0 1 1 1 0 163 0 164 F 165 1 0.500 WINDOWS _QJE01KRM5 45688346512 1 167 21.750 22.750 1.688 3.375 169 168 -1 -1 -1 -1 -1 -1 166 1 10 0 1 1 1 0 171 0 172 F 173 1 0.500 WINDOWS _QJE01MCET 45688345212 1 175 21.750 27.250 1.688 3.375 177 176 -1 -1 -1 -1 -1 -1 174 1 10 0 1 1 1 0 179 0 180 F 181 1 0.500 WINDOWS _QJE01MF0L 45688344312 1 183 21.750 31.750 1.688 3.375 185 184 -1 -1 -1 -1 -1 -1 182 1 10 0 1 1 1 0 187 0 188 F 189 1 0.500 WINDOWS _QJE01OQW7 45688343812 1 191 21.750 36.250 1.688 3.375 193 192 -1 -1 -1 -1 -1 -1 190 1 10 0 1 1 1 0 195 0 196 F 197 1 0.500 WINDOWS _QJE01OT6U 45688343312 1 199 21.750 40.750 1.688 3.375 201 200 -1 -1 -1 -1 -1 -1 198 1 10 0 1 1 1 0 203 0 204 F 205 1 0.500 WINDOWS _QJE01Q3XA 45688342912 1 207 21.750 45.250 1.688 3.375 209 208 -1 -1 -1 -1 -1 -1 206 1 10 0 1 1 1 0 211 0 212 F 213 1 0.500 WINDOWS _QJE01QCUS 45688342512 1 215 21.750 49.750 1.688 3.375 217 216 -1 -1 -1 -1 -1 -1 214 1 10 0 1 1 1 0 219 0 220 F 221 1 0.500 WINDOWS _QJE01QJ1F 45688341912 1 223 21.750 54.250 1.688 3.375 225 224 -1 -1 -1 -1 -1 -1 222 1 10 0 1 1 1 0 227 0 228 F 229 1 0.500 WINDOWS _QN60N465U 47404758914 1 230 0.750 52.500 1.308 11.667 233 231 -1 -1 -1 -1 -1 -1 232 1 8 1 1 0 234 1 F 0 WINDOWS _QK71D9AIZ 45847125710 0 15.000 10.000 WINDOWS _QJL0XSY7T 45688365610 0 16.000 12.000 WINDOWS 23 16.000 8.000 13.000 15.000 3 0 235 1 10 WINDOWS 23 24.000 10.000 19.000 20.000 5 0 236 1 14 WINDOWS 23 24.000 10.000 19.000 20.000 5 0 237 3 14 WINDOWS 23 13.000 6.000 11.000 12.000 2 0 238 3 8 WINDOWS 23 13.000 5.000 11.000 11.000 2 0 239 0 8 WINDOWS 23 13.000 6.000 11.000 12.000 2 0 240 1 8 ms sans serif "Screen Name" readdeac() ..\OFFICES.DBF Offices MS Sans Serif wzheader title "TITLE" wzheader standard wzgenfld MS Sans Serif "Standard Style " MS Sans Serif "Default Objects:" wzfooter label1 wzlabel1 : MS Sans Serif field wzfield MS Sans Serif isediting label2 wzlabel2 MS Sans Serif standard wzmemofld MS Sans Serif isediting ms sans serif m.wzdummy wzgeninv "@*IHN " isediting m.wzckdummy wzcbox MS Sans Serif "@*C " isediting column2 column2 MS Sans Serif MS Sans Serif m.top_btn wzfooter txtbutton "@*HN \<Top" btn_val('TOP') 'Go to first record.' "Top" MS Sans Serif m.prev_btn wzfooter txtbutton "@*HN \<Prev" btn_val('PREV') 'Go to previous record.' "Prev" MS Sans Serif m.next_btn wzfooter txtbutton "@*HN \<Next" btn_val('NEXT') 'Go to next record.' "Next" MS Sans Serif m.end_btn wzfooter txtbutton "@*HN \<End" btn_val('END') 'Go to last record.' "End" MS Sans Serif m.loc_btn wzfooter txtbutton "@*HN \<Locate" btn_val('LOCATE') 'Locate a record.' "Locate" MS Sans Serif m.add_btn wzfooter txtbutton "@*HN \<Add" btn_val('ADD') 'Add a new record.' "Add" MS Sans Serif m.edit_btn wzfooter txtbutton "@*HN Ed\<it" btn_val('EDIT') 'Edit current record.' "Edit" MS Sans Serif m.del_btn wzfooter txtbutton "@*HN \<Delete" btn_val('DELETE') 'Delete current record.' "Delete" MS Sans Serif m.prnt_btn wzfooter txtbutton "@*HN P\<rint" btn_val('PRINT') 'Print report.' "Print" MS Sans Serif m.exit_btn wzfooter txtbutton "@*HN \<Close" btn_val('EXIT') 'Close screen.' "Close" ms sans serif m.top_btn wzfooter picbutton ("@*BHN c:\fpw\wizards\wizbmps\wztop.bmp" btn_val('TOP') 'Go to first record.' ms sans serif m.prev_btn wzfooter picbutton )"@*BHN c:\fpw\wizards\wizbmps\wzback.bmp" btn_val('PREV') 'Go to previous record.' ms sans serif m.loc_btn wzfooter picbutton +"@*BHN c:\fpw\wizards\wizbmps\wzlocate.bmp" btn_val('LOCATE') 'Locate a record.' ms sans serif m.next_btn wzfooter picbutton )"@*BHN c:\fpw\wizards\wizbmps\wznext.bmp" btn_val('NEXT') 'Go to next record.' ms sans serif m.end_btn wzfooter picbutton ("@*BHN c:\fpw\wizards\wizbmps\wzend.bmp" btn_val('END') 'Go to last record.' ms sans serif m.add_btn wzfooter picbutton ("@*BHN c:\fpw\wizards\wizbmps\wznew.bmp" btn_val('ADD') 'Add a new record.' ms sans serif m.edit_btn wzfooter picbutton )"@*BHN c:\fpw\wizards\wizbmps\wzedit.bmp" btn_val('EDIT') 'Edit current record.' ms sans serif m.del_btn wzfooter picbutton +"@*BHN c:\fpw\wizards\wizbmps\wzdelete.bmp" btn_val('DELETE') 'Delete current record.' ms sans serif m.save_btn wzfooter picbutton )"@*BHN c:\fpw\wizards\wizbmps\wzsave.bmp" btn_val('SAVE') 'Save edits.' ms sans serif m.can_btn wzfooter picbutton )"@*BHN c:\fpw\wizards\wizbmps\wzundo.bmp" btn_val('CANCEL') 'Cancel edits.' ms sans serif m.prnt_btn wzfooter picbutton *"@*BHN c:\fpw\wizards\wizbmps\wzprint.bmp" btn_val('PRINT') 'Print report.' ms sans serif m.exit_btn wzfooter picbutton *"@*BHN c:\fpw\wizards\wizbmps\wzclose.bmp" btn_val('EXIT') 'Close screen.' find_drop findcbox MS Sans Serif0 "@*C \<Find..." findval() ms sans serif MS Sans Serif MS Sans Serif MS Sans Serif MS Sans Serif MS Sans Serif PLATFORM UNIQUEID TIMESTAMP OBJTYPE OBJCODE HEIGHT WIDTH STYLE PICTURE ORDER UNIQUE COMMENT ENVIRON BOXCHAR FILLCHAR PENRED PENGREEN PENBLUE FILLRED FILLGREEN FILLBLUE PENSIZE PENPAT FILLPAT FONTFACE FONTSTYLE FONTSIZE RULER RULERLINES GRIDV GRIDH SCHEME SCHEME2 COLORPAIR LOTYPE RANGELO HITYPE RANGEHI WHENTYPE VALIDTYPE VALID ERRORTYPE ERROR MESSTYPE MESSAGE SHOWTYPE ACTIVTYPE ACTIVATE DEACTTYPE DEACTIVATE PROCTYPE PROCCODE SETUPTYPE SETUPCODE FLOAT CLOSE MINIMIZE BORDER SHADOW CENTER REFRESH DISABLED SCROLLBAR ADDALIAS INITIALVAL INITIALNUM SPACING CURPOS WINDOWS _QE30Y8YVJ 460459342 1 63 0.000 0.000 24.063 62.500 1 T 17 -1 -1 -1 192 192 192 16 1 10 30T1212 1 1 1 1 0 181 1 19TTT1 T T T WINDOWS _QEC146QUM 443979164 2 1 20 T 21 WINDOWS _QE9109RZI 444661946 6 4.375 16.875 0.125 16.000 1 22 255 255 255 255 255 255 2 8 0 0 WINDOWS _QE9109C6J 444661940 6 4.313 16.875 0.125 16.000 1 24 128 128 128 128 128 128 2 8 0 0 WINDOWS _QE915UWU1 443784541 6 1.875 9.875 0.375 0.125 0 26 255 255 255 255 255 255 1 8 0 0 WINDOWS _QE9163NQZ 443908646 6 2.000 3.500 0.125 6.375 1 27 255 255 255 255 255 255 2 8 0 0 WINDOWS _QE915UEYZ 443908637 6 1.875 3.375 0.063 6.625 1 28 -1 -1 -1 -1 -1 -1 1 8 0 0 WINDOWS _QE30YC4N1 443817357 5 0 31 0.313 3.000 1.000 5.700 30 -1 -1 -1 -1 -1 -1 29 1 14 1 0.000 WINDOWS _QE30YCJ0C 444100041 6 2.500 0.000 0.063 62.500 1 32 -1 -1 -1 -1 -1 -1 1 8 0 0 WINDOWS _QE5114T0H 443921060 5 0 34 0.313 22.500 1.000 15.100 128 0 128 0 0 255 33 3 14 1 0.000 WINDOWS _QE5116J24 443705049 7 4 8.313 12.000 11.250 43.62512 -1 -1 -1 -1 -1 -1 1 8 0 0 WINDOWS _QE5116N3E 443705043 5 0 36 7.063 12.000 1.000 15.900 -1 -1 -1 -1 -1 -1 35 3 14 1 0.000 WINDOWS _QE910J1XT 444661912 6 4.375 16.875 0.125 0.125 0 37 -1 -1 -1 -1 -1 -1 1 8 0 0 WINDOWS _QE914MVDF 444661917 6 4.313 32.875 0.188 0.125 0 39 255 255 255 255 255 255 1 8 0 0 WINDOWS _QE915UKN8 443784537 6 1.875 3.250 0.375 0.125 0 41 -1 -1 -1 -1 -1 -1 1 8 0 0 WINDOWS _QE915V1ZD 443908654 6 2.188 3.375 0.063 6.625 1 42 255 255 255 255 255 255 1 8 0 0 WINDOWS _QEB1BUX29 444100068 6 21.000 0.000 0.063 62.500 1 43 -1 -1 -1 -1 -1 -1 1 8 0 0 WINDOWS _QE90UKWAO 44377346315 0 44 3.313 3.250 1.000 15.333 46 45 C -1 -1 -1 255 255 255 47 1 8 1 1 1 1 1 1 1 FFF F 0 WINDOWS _QE3120O9Q 44410004515 1 48 3.313 16.875 1.000 25.600 50 49 C -1 -1 -1 192 192 192 51 0 8 0 1 1 0 521 1 1 FFF F 0 WINDOWS _QE90UMBTD 44377348315 0 53 5.000 3.250 1.000 15.333 55 54 C -1 -1 -1 255 255 255 56 1 8 1 1 1 1 1 1 1 FFF F 0 WINDOWS _QEC146U2C 44397916915 0 57 5.000 31.500 1.000 15.333 59 58 C -1 -1 -1 255 255 255 60 1 8 1 1 1 1 1 1 1 FFF F 0 WINDOWS _QED0RTOYG 44403285817 0 61 12.500 14.125 6.813 16.625 1 62 0 2 TT WINDOWS _QED0RTOYJ 44410005115 2 63 8.813 14.375 5.000 56.400 65 64 C -1 -1 -1 255 255 255 66 0 8 0 1 1 0 671 1 1 FFT F 0 WINDOWS _QED0RTOYM 44410005920 1 69 12.500 32.125 6.813 16.625 71 70 -1 -1 -1 -1 -1 -1 68 1 10 0 0 721 1 F 0.500 WINDOWS _QED0RTOYP 44410006514 1 73 14.813 50.125 1.308 5.400 76 74 -1 -1 -1 255 255 255 75 0 8 1 0 771 1 F 0 WINDOWS _QJE01A68N 45688348812 1 79 21.750 4.750 1.688 3.375 81 80 -1 -1 -1 -1 -1 -1 78 1 10 0 1 1 1 0 83 0 84 F 85 1 0.500 WINDOWS _QJE01HGDQ 45688347912 1 87 21.750 9.250 1.688 3.375 89 88 -1 -1 -1 -1 -1 -1 86 1 10 0 1 1 1 0 91 0 92 F 93 1 0.500 WINDOWS _QJE01HLCA 45688349512 1 95 21.750 13.750 1.688 3.375 97 96 -1 -1 -1 -1 -1 -1 94 1 10 0 1 1 1 0 99 0 100 F 101 1 0.500 WINDOWS _QJE01KORE 45688347112 1 103 21.750 18.250 1.688 3.375 105 104 -1 -1 -1 -1 -1 -1 102 1 10 0 1 1 1 0 107 0 108 F 109 1 0.500 WINDOWS _QJE01KRM5 45688346512 1 111 21.750 22.750 1.688 3.375 113 112 -1 -1 -1 -1 -1 -1 110 1 10 0 1 1 1 0 115 0 116 F 117 1 0.500 WINDOWS _QJE01MCET 45688345212 1 119 21.750 27.250 1.688 3.375 121 120 -1 -1 -1 -1 -1 -1 118 1 10 0 1 1 1 0 123 0 124 F 125 1 0.500 WINDOWS _QJE01MF0L 45688344312 1 127 21.750 31.750 1.688 3.375 129 128 -1 -1 -1 -1 -1 -1 126 1 10 0 1 1 1 0 131 0 132 F 133 1 0.500 WINDOWS _QJE01OQW7 45688343812 1 135 21.750 36.250 1.688 3.375 137 136 -1 -1 -1 -1 -1 -1 134 1 10 0 1 1 1 0 139 0 140 F 141 1 0.500 WINDOWS _QJE01OT6U 45688343312 1 143 21.750 40.750 1.688 3.375 145 144 -1 -1 -1 -1 -1 -1 142 1 10 0 1 1 1 0 147 0 148 F 149 1 0.500 WINDOWS _QJE01Q3XA 45688342912 1 151 21.750 45.250 1.688 3.375 153 152 -1 -1 -1 -1 -1 -1 150 1 10 0 1 1 1 0 155 0 156 F 157 1 0.500 WINDOWS _QJE01QCUS 45688342512 1 159 21.750 49.750 1.688 3.375 161 160 -1 -1 -1 -1 -1 -1 158 1 10 0 1 1 1 0 163 0 164 F 165 1 0.500 WINDOWS _QJE01QJ1F 45688341912 1 167 21.750 54.250 1.688 3.375 169 168 -1 -1 -1 -1 -1 -1 166 1 10 0 1 1 1 0 171 0 172 F 173 1 0.500 WINDOWS _QJD0LA38B 45688353412 1 175 21.875 1.500 1.769 7.833 177 176 -1 -1 -1 -1 -1 -1 174 1 8 0 1 1 1 0 178 0 179 F 180 1 0.667 WINDOWS _QJD0LD4DB 45688352412 1 182 21.875 7.500 1.769 7.833 184 183 -1 -1 -1 -1 -1 -1 181 1 8 0 1 1 1 0 185 0 186 F 187 1 0.667 WINDOWS _QJD0LDNBZ 45688352812 1 189 21.875 13.500 1.769 7.833 191 190 -1 -1 -1 -1 -1 -1 188 1 8 0 1 1 1 0 192 0 193 F 194 1 0.667 WINDOWS _QJD0LE3M8 45688350812 1 196 21.875 19.500 1.769 7.833 198 197 -1 -1 -1 -1 -1 -1 195 1 8 0 1 1 1 0 199 0 200 F 201 1 0.667 WINDOWS _QJD0LFIJC 45688350312 1 203 21.875 25.500 1.769 7.833 205 204 -1 -1 -1 -1 -1 -1 202 1 8 0 1 1 1 0 206 0 207 F 208 1 0.667 WINDOWS _QJD0LFYWL 45688354212 1 210 21.875 31.500 1.769 7.833 212 211 -1 -1 -1 -1 -1 -1 209 1 8 0 1 1 1 0 213 0 214 F 215 1 0.667 WINDOWS _QJD0LGDO7 45688354912 1 217 21.875 37.500 1.769 7.833 219 218 -1 -1 -1 -1 -1 -1 216 1 8 0 1 1 1 0 220 0 221 F 222 1 0.667 WINDOWS _QJD0LGTKA 45688355612 1 224 21.875 43.500 1.769 7.833 226 225 -1 -1 -1 -1 -1 -1 223 1 8 0 1 1 1 0 227 0 228 F 229 1 0.667 WINDOWS _QJD0LH85A 45688332512 1 231 21.875 49.500 1.769 7.833 233 232 -1 -1 -1 -1 -1 -1 230 1 8 0 1 1 1 0 234 0 235 F 236 1 0.667 WINDOWS _QJD0LHS6B 45688330112 1 238 21.875 55.500 1.769 7.667 240 239 -1 -1 -1 -1 -1 -1 237 1 8 0 1 1 1 0 241 0 242 F 243 1 0.667 WINDOWS _QN60N5RX0 47404759814 1 244 0.750 52.500 1.308 11.667 247 245 -1 -1 -1 -1 -1 -1 246 1 8 1 1 0 248 1 F 0 WINDOWS _QJL0XUWC5 45688370310 0 24.000 12.000 WINDOWS _QK71DA23Y 45847127710 0 25.000 10.000 WINDOWS 23 16.000 8.000 13.000 15.000 3 0 249 1 10 WINDOWS 23 24.000 10.000 19.000 20.000 5 0 250 1 14 WINDOWS 23 24.000 10.000 19.000 20.000 5 0 251 3 14 WINDOWS 23 13.000 6.000 11.000 12.000 2 0 252 1 8 WINDOWS 23 13.000 5.000 11.000 11.000 2 0 253 0 8 ms sans serif "Screen Name" readdeac() SET READBORDER OFF ..\OFFICES.DBF Offices wzfx hstretch skipgen skiplogic wzfx hstretch skipgen skiplogic wzheadfx float wzheadfx hstretch wzheadfx hstretch MS Sans Serif wzheader title "TITLE" wzheader MS Sans Serif "Chiseled Style " MS Sans Serif "Default Objects:" wzfx fix skipgen skiplogic wzfx float skipgen skiplogic wzheadfx fix wzheadfx hstretch wzfooter label1 wzlabel1 : MS Sans Serif field wzfield MS Sans Serif isediting label2 wzlabel2 MS Sans Serif column2 column2 MS Sans Serif standard wzgenfld standard wzmemofld MS Sans Serif isediting ms sans serif m.wzdummy wzgeninv "@*IHN " isediting m.wzckdummy wzcbox MS Sans Serif "@*C " isediting ms sans serif m.top_btn wzfooter picbutton ("@*BHN c:\fpw\wizards\wizbmps\wztop.bmp" btn_val('TOP') 'Go to first record.' ms sans serif m.prev_btn wzfooter picbutton )"@*BHN c:\fpw\wizards\wizbmps\wzback.bmp" btn_val('PREV') 'Go to previous record.' ms sans serif m.loc_btn wzfooter picbutton +"@*BHN c:\fpw\wizards\wizbmps\wzlocate.bmp" btn_val('LOCATE') 'Locate a record.' ms sans serif m.next_btn wzfooter picbutton )"@*BHN c:\fpw\wizards\wizbmps\wznext.bmp" btn_val('NEXT') 'Go to next record.' ms sans serif m.end_btn wzfooter picbutton ("@*BHN c:\fpw\wizards\wizbmps\wzend.bmp" btn_val('END') 'Go to last record.' ms sans serif m.add_btn wzfooter picbutton ("@*BHN c:\fpw\wizards\wizbmps\wznew.bmp" btn_val('ADD') 'Add a new record.' ms sans serif m.edit_btn wzfooter picbutton )"@*BHN c:\fpw\wizards\wizbmps\wzedit.bmp" btn_val('EDIT') 'Edit current record.' ms sans serif m.del_btn wzfooter picbutton +"@*BHN c:\fpw\wizards\wizbmps\wzdelete.bmp" btn_val('DELETE') 'Delete current record.' ms sans serif m.save_btn wzfooter picbutton )"@*BHN c:\fpw\wizards\wizbmps\wzsave.bmp" btn_val('SAVE') 'Save edits.' ms sans serif m.can_btn wzfooter picbutton )"@*BHN c:\fpw\wizards\wizbmps\wzundo.bmp" btn_val('CANCEL') 'Cancel edits.' ms sans serif m.prnt_btn wzfooter picbutton *"@*BHN c:\fpw\wizards\wizbmps\wzprint.bmp" btn_val('PRINT') 'Print report.' ms sans serif m.exit_btn wzfooter picbutton *"@*BHN c:\fpw\wizards\wizbmps\wzclose.bmp" btn_val('EXIT') 'Close screen.' MS Sans Serif m.top_btn wzfooter txtbutton "@*HN \<Top" btn_val('TOP') 'Go to first record.' "Top" MS Sans Serif m.prev_btn wzfooter txtbutton "@*HN \<Prev" btn_val('PREV') 'Go to previous record.' "Prev" MS Sans Serif m.next_btn wzfooter txtbutton "@*HN \<Next" btn_val('NEXT') 'Go to next record.' "Next" MS Sans Serif m.end_btn wzfooter txtbutton "@*HN \<End" btn_val('END') 'Go to last record.' "End" MS Sans Serif m.loc_btn wzfooter txtbutton "@*HN \<Locate" btn_val('LOCATE') 'Locate a record.' "Locate" MS Sans Serif m.add_btn wzfooter txtbutton "@*HN \<Add" btn_val('ADD') 'Add a new record.' "Add" MS Sans Serif m.edit_btn wzfooter txtbutton "@*HN Ed\<it" btn_val('EDIT') 'Edit current record.' "Edit" MS Sans Serif m.del_btn wzfooter txtbutton "@*HN \<Delete" btn_val('DELETE') 'Delete current record.' "Delete" MS Sans Serif m.prnt_btn wzfooter txtbutton "@*HN P\<rint" btn_val('PRINT') 'Print report.' "Print" MS Sans Serif m.exit_btn wzfooter txtbutton "@*HN \<Close" btn_val('EXIT') 'Close screen.' "Close" find_drop findcbox MS Sans Serif "@*C \<Find..." findval() ms sans serif MS Sans Serif MS Sans Serif MS Sans Serif MS Sans Serif PLATFORM UNIQUEID TIMESTAMP OBJTYPE OBJCODE HEIGHT WIDTH STYLE PICTURE ORDER UNIQUE COMMENT ENVIRON BOXCHAR FILLCHAR PENRED PENGREEN PENBLUE FILLRED FILLGREEN FILLBLUE PENSIZE PENPAT FILLPAT FONTFACE FONTSTYLE FONTSIZE RULER RULERLINES GRIDV GRIDH SCHEME SCHEME2 COLORPAIR LOTYPE RANGELO HITYPE RANGEHI WHENTYPE VALIDTYPE VALID ERRORTYPE ERROR MESSTYPE MESSAGE SHOWTYPE ACTIVTYPE ACTIVATE DEACTTYPE DEACTIVATE PROCTYPE PROCCODE SETUPTYPE SETUPCODE FLOAT CLOSE MINIMIZE BORDER SHADOW CENTER REFRESH DISABLED SCROLLBAR ADDALIAS INITIALVAL INITIALNUM SPACING CURPOS WINDOWS _QE30Y8YVJ 460459362 1 63 0.000 0.000 24.063 62.500 1 T 17 -1 -1 -1 192 192 192 16 1 10 30T1212 1 1 1 1 0 181 1 TTT1 T T T WINDOWS _QEC14875K 443979202 2 1 19 T 20 WINDOWS _QEA02C3TK 443908678 7 4 3.250 17.125 0.875 16.625 0 21 128 128 128 128 128 128 1 8 1 0 WINDOWS _QE30YC4N1 443705105 5 0 24 0.313 3.000 1.000 5.700 23 -1 -1 -1 -1 -1 -1 22 1 14 1 0.000 WINDOWS _QE30YCJ0C 444100098 6 2.125 0.000 0.250 62.500 1 25 -1 -1 -1 -1 -1 -1 4 8 0 0 WINDOWS _QE5114T0H 443812433 5 0 27 0.313 22.500 1.000 14.400 128 0 128 0 0 255 26 3 14 1 0.000 WINDOWS _QE5116J24 443705049 7 4 8.250 10.500 11.250 46.62512 -1 -1 -1 -1 -1 -1 1 8 0 0 WINDOWS _QE5116N3E 443705043 5 0 29 7.063 10.500 1.000 15.900 -1 -1 -1 -1 -1 -1 28 3 14 1 0.000 WINDOWS _QE90UKWAO 44377346315 0 30 3.063 3.250 1.000 15.333 32 31 C -1 -1 -1 255 255 255 33 1 8 1 1 1 1 1 1 1 FFF F 0 WINDOWS _QE3120O9Q 44410009115 1 34 3.063 16.875 1.000 25.600 36 35 C -1 -1 -1 255 255 255 37 0 8 0 1 1 0 381 1 1 FFF F 0 WINDOWS _QE90UMBTD 44377348315 0 39 4.563 3.250 1.000 15.333 41 40 C -1 -1 -1 255 255 255 42 1 8 1 1 1 1 1 1 1 FFF F 0 WINDOWS _QEB1BXYC2 444100100 6 20.875 0.000 0.250 62.500 1 43 -1 -1 -1 -1 -1 -1 4 8 0 0 WINDOWS _QEC148ADX 44397920415 0 44 4.563 31.500 1.000 15.333 46 45 C -1 -1 -1 255 255 255 47 1 8 1 1 1 1 1 1 1 FFF F 0 WINDOWS _QED0RUGPB 44403287817 0 48 12.313 15.000 6.813 16.625 1 49 0 2 TT WINDOWS _QED0RUGPE 44410008715 2 50 8.625 15.250 5.000 55.000 52 51 C -1 -1 -1 255 255 255 53 0 8 0 1 1 0 541 1 1 FFT F 0 WINDOWS _QED0RUGPH 44410008320 1 56 12.313 33.000 6.813 16.625 58 57 -1 -1 -1 -1 -1 -1 55 1 10 0 0 591 1 F 0.500 WINDOWS _QED0RUGPK 44410007914 1 60 14.625 51.000 1.308 5.400 63 61 -1 -1 -1 255 255 255 62 0 8 1 0 641 1 F 0 WINDOWS _QJE01A68N 45688348812 1 66 21.750 4.750 1.688 3.375 68 67 -1 -1 -1 -1 -1 -1 65 1 10 0 1 1 1 0 70 0 71 F 72 1 0.500 WINDOWS _QJE01HGDQ 45688347912 1 74 21.750 9.250 1.688 3.375 76 75 -1 -1 -1 -1 -1 -1 73 1 10 0 1 1 1 0 78 0 79 F 80 1 0.500 WINDOWS _QJE01HLCA 45688349512 1 82 21.750 13.750 1.688 3.375 84 83 -1 -1 -1 -1 -1 -1 81 1 10 0 1 1 1 0 86 0 87 F 88 1 0.500 WINDOWS _QJE01KORE 45688347112 1 90 21.750 18.250 1.688 3.375 92 91 -1 -1 -1 -1 -1 -1 89 1 10 0 1 1 1 0 94 0 95 F 96 1 0.500 WINDOWS _QJE01KRM5 45688346512 1 98 21.750 22.750 1.688 3.375 100 99 -1 -1 -1 -1 -1 -1 97 1 10 0 1 1 1 0 102 0 103 F 104 1 0.500 WINDOWS _QJE01MCET 45688345212 1 106 21.750 27.250 1.688 3.375 108 107 -1 -1 -1 -1 -1 -1 105 1 10 0 1 1 1 0 110 0 111 F 112 1 0.500 WINDOWS _QJE01MF0L 45688344312 1 114 21.750 31.750 1.688 3.375 116 115 -1 -1 -1 -1 -1 -1 113 1 10 0 1 1 1 0 118 0 119 F 120 1 0.500 WINDOWS _QJE01OQW7 45688343812 1 122 21.750 36.250 1.688 3.375 124 123 -1 -1 -1 -1 -1 -1 121 1 10 0 1 1 1 0 126 0 127 F 128 1 0.500 WINDOWS _QJE01OT6U 45688343312 1 130 21.750 40.750 1.688 3.375 132 131 -1 -1 -1 -1 -1 -1 129 1 10 0 1 1 1 0 134 0 135 F 136 1 0.500 WINDOWS _QJE01Q3XA 45688342912 1 138 21.750 45.250 1.688 3.375 140 139 -1 -1 -1 -1 -1 -1 137 1 10 0 1 1 1 0 142 0 143 F 144 1 0.500 WINDOWS _QJE01QCUS 45688342512 1 146 21.750 49.750 1.688 3.375 148 147 -1 -1 -1 -1 -1 -1 145 1 10 0 1 1 1 0 150 0 151 F 152 1 0.500 WINDOWS _QJE01QJ1F 45688341912 1 154 21.750 54.250 1.688 3.375 156 155 -1 -1 -1 -1 -1 -1 153 1 10 0 1 1 1 0 158 0 159 F 160 1 0.500 WINDOWS _QJD0LA38B 45688353412 1 162 21.875 1.500 1.769 7.833 164 163 -1 -1 -1 -1 -1 -1 161 1 8 0 1 1 1 0 165 0 166 F 167 1 0.667 WINDOWS _QJD0LD4DB 45688352412 1 169 21.875 7.500 1.769 7.833 171 170 -1 -1 -1 -1 -1 -1 168 1 8 0 1 1 1 0 172 0 173 F 174 1 0.667 WINDOWS _QJD0LDNBZ 45688352812 1 176 21.875 13.500 1.769 7.833 178 177 -1 -1 -1 -1 -1 -1 175 1 8 0 1 1 1 0 179 0 180 F 181 1 0.667 WINDOWS _QJD0LE3M8 45688350812 1 183 21.875 19.500 1.769 7.833 185 184 -1 -1 -1 -1 -1 -1 182 1 8 0 1 1 1 0 186 0 187 F 188 1 0.667 WINDOWS _QJD0LFIJC 45688350312 1 190 21.875 25.500 1.769 7.833 192 191 -1 -1 -1 -1 -1 -1 189 1 8 0 1 1 1 0 193 0 194 F 195 1 0.667 WINDOWS _QJD0LFYWL 45688354212 1 197 21.875 31.500 1.769 7.833 199 198 -1 -1 -1 -1 -1 -1 196 1 8 0 1 1 1 0 200 0 201 F 202 1 0.667 WINDOWS _QJD0LGDO7 45688354912 1 204 21.875 37.500 1.769 7.833 206 205 -1 -1 -1 -1 -1 -1 203 1 8 0 1 1 1 0 207 0 208 F 209 1 0.667 WINDOWS _QJD0LGTKA 45688355612 1 211 21.875 43.500 1.769 7.833 213 212 -1 -1 -1 -1 -1 -1 210 1 8 0 1 1 1 0 214 0 215 F 216 1 0.667 WINDOWS _QJD0LH85A 45688332512 1 218 21.875 49.500 1.769 7.833 220 219 -1 -1 -1 -1 -1 -1 217 1 8 0 1 1 1 0 221 0 222 F 223 1 0.667 WINDOWS _QJD0LHS6B 45688330112 1 225 21.875 55.500 1.769 7.667 227 226 -1 -1 -1 -1 -1 -1 224 1 8 0 1 1 1 0 228 0 229 F 230 1 0.667 WINDOWS _QN60N6AIX 47404761014 1 231 0.750 52.500 1.308 11.667 234 232 -1 -1 -1 -1 -1 -1 233 1 8 1 1 0 235 1 F 0 WINDOWS _QJL0XVZXE 45688373110 0 16.000 12.000 WINDOWS _QK71DBBL8 45847143710 0 17.000 10.000 WINDOWS 23 16.000 8.000 13.000 15.000 3 0 236 1 10 WINDOWS 23 24.000 10.000 19.000 20.000 5 0 237 1 14 WINDOWS 23 24.000 10.000 19.000 20.000 5 0 238 3 14 WINDOWS 23 13.000 6.000 11.000 12.000 2 0 239 1 8 WINDOWS 23 13.000 5.000 11.000 11.000 2 0 240 0 8 ms sans serif "Screen Name" readdeac() ..\OFFICES.DBF Offices wzprefx hstretch vstretch MS Sans Serif wzheader title "TITLE" wzheader MS Sans Serif "Shadow Style " MS Sans Serif "Default Objects:" label1 wzlabel1 : MS Sans Serif field wzfield MS Sans Serif isediting label2 wzlabel2 MS Sans Serif wzfooter column2 column2 MS Sans Serif standard wzgenfld standard wzmemofld MS Sans Serif isediting ms sans serif m.wzdummy wzgeninv "@*IHN " isediting m.wzckdummy wzcbox MS Sans Serif "@*C " isediting ms sans serif m.top_btn wzfooter picbutton ("@*BHN c:\fpw\wizards\wizbmps\wztop.bmp" btn_val('TOP') 'Go to first record.' ms sans serif m.prev_btn wzfooter picbutton )"@*BHN c:\fpw\wizards\wizbmps\wzback.bmp" btn_val('PREV') 'Go to previous record.' ms sans serif m.loc_btn wzfooter picbutton +"@*BHN c:\fpw\wizards\wizbmps\wzlocate.bmp" btn_val('LOCATE') 'Locate a record.' ms sans serif m.next_btn wzfooter picbutton )"@*BHN c:\fpw\wizards\wizbmps\wznext.bmp" btn_val('NEXT') 'Go to next record.' ms sans serif m.end_btn wzfooter picbutton ("@*BHN c:\fpw\wizards\wizbmps\wzend.bmp" btn_val('END') 'Go to last record.' ms sans serif m.add_btn wzfooter picbutton ("@*BHN c:\fpw\wizards\wizbmps\wznew.bmp" btn_val('ADD') 'Add a new record.' ms sans serif m.edit_btn wzfooter picbutton )"@*BHN c:\fpw\wizards\wizbmps\wzedit.bmp" btn_val('EDIT') 'Edit current record.' ms sans serif m.del_btn wzfooter picbutton +"@*BHN c:\fpw\wizards\wizbmps\wzdelete.bmp" btn_val('DELETE') 'Delete current record.' ms sans serif m.save_btn wzfooter picbutton )"@*BHN c:\fpw\wizards\wizbmps\wzsave.bmp" btn_val('SAVE') 'Save edits.' ms sans serif m.can_btn wzfooter picbutton )"@*BHN c:\fpw\wizards\wizbmps\wzundo.bmp" btn_val('CANCEL') 'Cancel edits.' ms sans serif m.prnt_btn wzfooter picbutton *"@*BHN c:\fpw\wizards\wizbmps\wzprint.bmp" btn_val('PRINT') 'Print report.' ms sans serif m.exit_btn wzfooter picbutton *"@*BHN c:\fpw\wizards\wizbmps\wzclose.bmp" btn_val('EXIT') 'Close screen.' MS Sans Serif m.top_btn wzfooter txtbutton "@*HN \<Top" btn_val('TOP') 'Go to first record.' "Top" MS Sans Serif m.prev_btn wzfooter txtbutton "@*HN \<Prev" btn_val('PREV') 'Go to previous record.' "Prev" MS Sans Serif m.next_btn wzfooter txtbutton "@*HN \<Next" btn_val('NEXT') 'Go to next record.' "Next" MS Sans Serif m.end_btn wzfooter txtbutton "@*HN \<End" btn_val('END') 'Go to last record.' "End" MS Sans Serif m.loc_btn wzfooter txtbutton "@*HN \<Locate" btn_val('LOCATE') 'Locate a record.' "Locate" MS Sans Serif m.add_btn wzfooter txtbutton "@*HN \<Add" btn_val('ADD') 'Add a new record.' "Add" MS Sans Serif m.edit_btn wzfooter txtbutton "@*HN Ed\<it" btn_val('EDIT') 'Edit current record.' "Edit" MS Sans Serif m.del_btn wzfooter txtbutton "@*HN \<Delete" btn_val('DELETE') 'Delete current record.' "Delete" MS Sans Serif m.prnt_btn wzfooter txtbutton "@*HN P\<rint" btn_val('PRINT') 'Print report.' "Print" MS Sans Serif m.exit_btn wzfooter txtbutton "@*HN \<Close" btn_val('EXIT') 'Close screen.' "Close" find_drop findcbox MS Sans Serif "@*C \<Find..." findval() ms sans serif MS Sans Serif MS Sans Serif MS Sans Serif MS Sans Serif PLATFORM UNIQUEID TIMESTAMP OBJTYPE OBJCODE HEIGHT WIDTH STYLE PICTURE ORDER UNIQUE COMMENT ENVIRON BOXCHAR FILLCHAR PENRED PENGREEN PENBLUE FILLRED FILLGREEN FILLBLUE PENSIZE PENPAT FILLPAT FONTFACE FONTSTYLE FONTSIZE RULER RULERLINES GRIDV GRIDH SCHEME SCHEME2 COLORPAIR LOTYPE RANGELO HITYPE RANGEHI WHENTYPE VALIDTYPE VALID ERRORTYPE ERROR MESSTYPE MESSAGE SHOWTYPE ACTIVTYPE ACTIVATE DEACTTYPE DEACTIVATE PROCTYPE PROCCODE SETUPTYPE SETUPCODE FLOAT CLOSE MINIMIZE BORDER SHADOW CENTER REFRESH DISABLED SCROLLBAR ADDALIAS INITIALVAL INITIALNUM SPACING CURPOS WINDOWS _QE30Y8YVJ 460459374 1 63 0.000 0.000 24.063 62.500 1 T 17 -1 -1 -1 192 192 192 16 1 10 30T1212 1 1 1 1 0 181 1 19TTT1 T T T WINDOWS _QEC14A8BJ 443979252 2 1 20 F 21 WINDOWS _QG81C68YJ 448639893 7 4 21.000 0.000 0.813 1.250 0 22 192 192 192 -1 -1 -1 1 8 0 1 WINDOWS _QEB1C0HXF 444100131 7 4 21.750 0.125 2.313 62.375 0 23 0 0 128 0 0 128 1 8 1 0 WINDOWS _QEA0LCE5Z 443908693 7 4 3.000 3.000 1.813 16.625 0 24 -1 -1 -1 255 255 255 1 8 1 0 WINDOWS _QEA0L6AK3 443829980 7 4 0.000 0.125 2.313 62.375 0 26 0 0 128 0 0 128 1 8 1 0 WINDOWS _QE30YC4N1 443705105 5 0 29 0.313 3.000 1.000 5.700 28 192 192 192 192 192 192 27 1 14 1 0.000 WINDOWS _QE5114T0H 443829934 5 0 31 0.313 22.500 1.000 12.900 128 0 128 0 0 255 30 3 14 1 0.000 WINDOWS _QE5116J24 443705049 7 4 8.313 10.500 11.250 48.12512 -1 -1 -1 -1 -1 -1 1 8 0 0 WINDOWS _QE5116N3E 443705043 5 0 33 7.063 10.500 1.000 15.900 -1 -1 -1 -1 -1 -1 32 3 14 1 0.000 WINDOWS _QE90UKWAO 44383305115 0 34 3.063 3.250 1.000 18.400 35 C 0 0 255 255 255 255 36 0 8 1 1 1 1 1 1 1 FFF F 0 WINDOWS _QE3120O9Q 44410011215 1 37 3.938 3.250 1.000 21.333 39 38 C -1 -1 -1 255 255 255 40 1 8 0 1 1 0 411 1 1 FFF F 0 WINDOWS _QE90UMBTD 44377348315 0 42 4.813 3.250 1.000 15.333 44 43 C -1 -1 -1 255 255 255 45 1 8 1 1 1 1 1 1 1 FFF F 0 WINDOWS _QEC14AC0O 44397925415 0 46 4.813 33.375 1.000 15.333 48 47 C -1 -1 -1 255 255 255 49 1 8 1 1 1 1 1 1 1 FFF F 0 WINDOWS _QED0RV3L3 44403423417 0 50 12.375 13.750 6.813 16.625 1 51 0 2 TT WINDOWS _QED0RV3L6 44410011615 2 52 8.313 13.750 5.000 45.400 54 53 C -1 -1 -1 255 255 255 55 0 8 0 1 1 0 561 1 1 FFT F 0 WINDOWS _QED0RV3L9 44410012120 1 58 12.375 31.750 6.813 16.625 60 59 -1 -1 -1 -1 -1 -1 57 1 10 0 0 611 1 F 0.500 WINDOWS _QED0RV3LD 44410012514 1 62 14.688 49.750 1.308 5.400 65 63 -1 -1 -1 255 255 255 64 0 8 1 0 661 1 F 0 WINDOWS _QJE01A68N 45688348812 1 68 22.125 4.750 1.688 3.375 70 69 -1 -1 -1 -1 -1 -1 67 1 10 0 1 1 1 0 72 0 73 F 74 1 0.500 WINDOWS _QJE01HGDQ 45688347912 1 76 22.125 9.250 1.688 3.375 78 77 -1 -1 -1 -1 -1 -1 75 1 10 0 1 1 1 0 80 0 81 F 82 1 0.500 WINDOWS _QJE01HLCA 45688349512 1 84 22.125 13.750 1.688 3.375 86 85 -1 -1 -1 -1 -1 -1 83 1 10 0 1 1 1 0 88 0 89 F 90 1 0.500 WINDOWS _QJE01KORE 45688347112 1 92 22.125 18.250 1.688 3.375 94 93 -1 -1 -1 -1 -1 -1 91 1 10 0 1 1 1 0 96 0 97 F 98 1 0.500 WINDOWS _QJE01KRM5 45688346512 1 100 22.125 22.750 1.688 3.375 102 101 -1 -1 -1 -1 -1 -1 99 1 10 0 1 1 1 0 104 0 105 F 106 1 0.500 WINDOWS _QJE01MCET 45688345212 1 108 22.125 27.250 1.688 3.375 110 109 -1 -1 -1 -1 -1 -1 107 1 10 0 1 1 1 0 112 0 113 F 114 1 0.500 WINDOWS _QJE01MF0L 45688344312 1 116 22.125 31.750 1.688 3.375 118 117 -1 -1 -1 -1 -1 -1 115 1 10 0 1 1 1 0 120 0 121 F 122 1 0.500 WINDOWS _QJE01OQW7 45688343812 1 124 22.125 36.250 1.688 3.375 126 125 -1 -1 -1 -1 -1 -1 123 1 10 0 1 1 1 0 128 0 129 F 130 1 0.500 WINDOWS _QJE01OT6U 45688343312 1 132 22.125 40.750 1.688 3.375 134 133 -1 -1 -1 -1 -1 -1 131 1 10 0 1 1 1 0 136 0 137 F 138 1 0.500 WINDOWS _QJE01Q3XA 45688342912 1 140 22.125 45.250 1.688 3.375 142 141 -1 -1 -1 -1 -1 -1 139 1 10 0 1 1 1 0 144 0 145 F 146 1 0.500 WINDOWS _QJE01QCUS 45688342512 1 148 22.125 49.750 1.688 3.375 150 149 -1 -1 -1 -1 -1 -1 147 1 10 0 1 1 1 0 152 0 153 F 154 1 0.500 WINDOWS _QJE01QJ1F 45688341912 1 156 22.125 54.250 1.688 3.375 158 157 -1 -1 -1 -1 -1 -1 155 1 10 0 1 1 1 0 160 0 161 F 162 1 0.500 WINDOWS _QJD0LA38B 45688353412 1 164 22.250 1.500 1.769 7.833 166 165 -1 -1 -1 -1 -1 -1 163 1 8 0 1 1 1 0 167 0 168 F 169 1 0.667 WINDOWS _QJD0LD4DB 45688352412 1 171 22.250 7.500 1.769 7.833 173 172 -1 -1 -1 -1 -1 -1 170 1 8 0 1 1 1 0 174 0 175 F 176 1 0.667 WINDOWS _QJD0LDNBZ 45688352812 1 178 22.250 13.500 1.769 7.833 180 179 -1 -1 -1 -1 -1 -1 177 1 8 0 1 1 1 0 181 0 182 F 183 1 0.667 WINDOWS _QJD0LE3M8 45688350812 1 185 22.250 19.500 1.769 7.833 187 186 -1 -1 -1 -1 -1 -1 184 1 8 0 1 1 1 0 188 0 189 F 190 1 0.667 WINDOWS _QJD0LFIJC 45688350312 1 192 22.250 25.500 1.769 7.833 194 193 -1 -1 -1 -1 -1 -1 191 1 8 0 1 1 1 0 195 0 196 F 197 1 0.667 WINDOWS _QJD0LFYWL 45688354212 1 199 22.250 31.500 1.769 7.833 201 200 -1 -1 -1 -1 -1 -1 198 1 8 0 1 1 1 0 202 0 203 F 204 1 0.667 WINDOWS _QJD0LGDO7 45688354912 1 206 22.250 37.500 1.769 7.833 208 207 -1 -1 -1 -1 -1 -1 205 1 8 0 1 1 1 0 209 0 210 F 211 1 0.667 WINDOWS _QJD0LGTKA 45688355612 1 213 22.250 43.500 1.769 7.833 215 214 -1 -1 -1 -1 -1 -1 212 1 8 0 1 1 1 0 216 0 217 F 218 1 0.667 WINDOWS _QJD0LH85A 45688332512 1 220 22.250 49.500 1.769 7.833 222 221 -1 -1 -1 -1 -1 -1 219 1 8 0 1 1 1 0 223 0 224 F 225 1 0.667 WINDOWS _QJD0LHS6B 45688330112 1 227 22.250 55.500 1.769 7.667 229 228 -1 -1 -1 -1 -1 -1 226 1 8 0 1 1 1 0 230 0 231 F 232 1 0.667 WINDOWS _QN60N6U6N 47404762214 1 233 0.750 52.500 1.308 11.667 236 234 0 0 0 -1 -1 -1 235 1 8 1 1 0 237 1 F 0 WINDOWS _QJL0XXNCU 45688377110 0 17.000 12.000 WINDOWS _QK71DCOEV 45847147010 0 18.000 10.000 WINDOWS 23 16.000 8.000 13.000 15.000 3 0 238 1 10 WINDOWS 23 24.000 10.000 19.000 20.000 5 0 239 1 14 WINDOWS 23 24.000 10.000 19.000 20.000 5 0 240 3 14 WINDOWS 23 13.000 5.000 11.000 11.000 2 0 241 0 8 WINDOWS 23 13.000 6.000 11.000 12.000 2 0 242 1 8 ms sans serif "Screen Name" readdeac() SET READBORDER OFF ..\OFFICES.DBF Offices wzfooter wzfooter "wzprefx hstretch vstretch tietolbl wzheader MS Sans Serif wzheader title "TITLE" MS Sans Serif "Boxed Style " MS Sans Serif "Default Objects:" label1 wzlabel1 : postfld MS Sans Serif field wzfield nooff MS Sans Serif isediting label2 wzlabel2 MS Sans Serif column2 column2 MS Sans Serif standard wzgenfld nooff standard wzmemofld nooff MS Sans Serif isediting ms sans serif m.wzdummy wzgeninv nooff "@*IHN " isediting m.wzckdummy wzcbox nooff MS Sans Serif "@*C " isediting ms sans serif m.top_btn wzfooter picbutton ("@*BHN c:\fpw\wizards\wizbmps\wztop.bmp" btn_val('TOP') 'Go to first record.' ms sans serif m.prev_btn wzfooter picbutton )"@*BHN c:\fpw\wizards\wizbmps\wzback.bmp" btn_val('PREV') 'Go to previous record.' ms sans serif m.loc_btn wzfooter picbutton +"@*BHN c:\fpw\wizards\wizbmps\wzlocate.bmp" btn_val('LOCATE') 'Locate a record.' ms sans serif m.next_btn wzfooter picbutton )"@*BHN c:\fpw\wizards\wizbmps\wznext.bmp" btn_val('NEXT') 'Go to next record.' ms sans serif m.end_btn wzfooter picbutton ("@*BHN c:\fpw\wizards\wizbmps\wzend.bmp" btn_val('END') 'Go to last record.' ms sans serif m.add_btn0 wzfooter picbutton ("@*BHN c:\fpw\wizards\wizbmps\wznew.bmp" btn_val('ADD') 'Add a new record.' ms sans serif m.edit_btn wzfooter picbutton )"@*BHN c:\fpw\wizards\wizbmps\wzedit.bmp" btn_val('EDIT') 'Edit current record.' ms sans serif m.del_btn wzfooter picbutton +"@*BHN c:\fpw\wizards\wizbmps\wzdelete.bmp" btn_val('DELETE') 'Delete current record.' ms sans serif m.save_btn wzfooter picbutton )"@*BHN c:\fpw\wizards\wizbmps\wzsave.bmp" btn_val('SAVE') 'Save edits.' ms sans serif m.can_btn wzfooter picbutton )"@*BHN c:\fpw\wizards\wizbmps\wzundo.bmp" btn_val('CANCEL') 'Cancel edits.' ms sans serif m.prnt_btn wzfooter picbutton *"@*BHN c:\fpw\wizards\wizbmps\wzprint.bmp" btn_val('PRINT') 'Print report.' ms sans serif m.exit_btn wzfooter picbutton *"@*BHN c:\fpw\wizards\wizbmps\wzclose.bmp" btn_val('EXIT') 'Close screen.' MS Sans Serif m.top_btn wzfooter txtbutton "@*HN \<Top" btn_val('TOP') 'Go to first record.' "Top" MS Sans Serif m.prev_btn wzfooter txtbutton "@*HN \<Prev" btn_val('PREV') 'Go to previous record.' "Prev" MS Sans Serif m.next_btn wzfooter txtbutton "@*HN \<Next" btn_val('NEXT') 'Go to next record.' "Next" MS Sans Serif m.end_btn wzfooter txtbutton "@*HN \<End" btn_val('END') 'Go to last record.' "End" MS Sans Serif m.loc_btn wzfooter txtbutton "@*HN \<Locate" btn_val('LOCATE') 'Locate a record.' "Locate" MS Sans Serif m.add_btn wzfooter txtbutton "@*HN \<Add" btn_val('ADD') 'Add a new record.' "Add" MS Sans Serif m.edit_btn wzfooter txtbutton "@*HN Ed\<it" btn_val('EDIT') 'Edit current record.' "Edit" MS Sans Serif m.del_btn wzfooter txtbutton "@*HN \<Delete" btn_val('DELETE') 'Delete current record.' "Delete" MS Sans Serif m.prnt_btn wzfooter txtbutton "@*HN P\<rint" btn_val('PRINT') 'Print report.' "Print" MS Sans Serif m.exit_btn wzfooter txtbutton "@*HN \<Close" btn_val('EXIT') 'Close screen.' "Close" find_drop findcbox MS Sans Serif "@*C \<Find..." findval() ms sans serif MS Sans Serif MS Sans Serif MS Sans Serif MS Sans Serif PLATFORM UNIQUEID TIMESTAMP OBJTYPE OBJCODE HEIGHT WIDTH STYLE PICTURE ORDER UNIQUE COMMENT ENVIRON BOXCHAR FILLCHAR PENRED PENGREEN PENBLUE FILLRED FILLGREEN FILLBLUE PENSIZE PENPAT FILLPAT FONTFACE FONTSTYLE FONTSIZE RULER RULERLINES GRIDV GRIDH SCHEME SCHEME2 COLORPAIR LOTYPE RANGELO HITYPE RANGEHI WHENTYPE VALIDTYPE VALID ERRORTYPE ERROR MESSTYPE MESSAGE SHOWTYPE ACTIVTYPE ACTIVATE DEACTTYPE DEACTIVATE PROCTYPE PROCCODE SETUPTYPE SETUPCODE FLOAT CLOSE MINIMIZE BORDER SHADOW CENTER REFRESH DISABLED SCROLLBAR ADDALIAS INITIALVAL INITIALNUM SPACING CURPOS WINDOWS _QE30Y8YVJ 460459386 1 63 0.000 0.000 24.063 62.500 1 T 17 -1 -1 -1 0 128 128 16 1 10 30T1212 1 1 1 1 0 181 1 TTT1 T T T WINDOWS _QEC143NY6 443979089 2 1 19 T 20 WINDOWS _QEB1CHIQO 443921577 5 0 23 0.438 3.375 1.000 5.700 22 192 192 192 192 192 192 21 1 14 1 0.000 WINDOWS _QE30YC4N1 443817357 5 0 26 0.313 3.000 1.000 5.700 25 -1 -1 -1 -1 -1 -1 24 1 14 1 0.000 WINDOWS _QE30YCJ0C 444100146 6 2.500 0.000 0.063 62.500 1 27 -1 -1 -1 -1 -1 -1 1 8 0 0 WINDOWS _QE5114T0H 443921551 5 0 29 0.313 22.500 1.000 16.800 128 0 128 0 0 255 28 3 14 1 0.000 WINDOWS _QE5116J24 443705049 7 4 8.313 12.000 11.250 43.62512 -1 -1 -1 -1 -1 -1 1 8 0 0 WINDOWS _QE5116N3E 443705043 5 0 31 7.063 12.000 1.000 15.900 -1 -1 -1 -1 -1 -1 30 3 14 1 0.000 WINDOWS _QE90UKWAO 44377346315 0 32 3.313 3.250 1.000 15.333 34 33 C -1 -1 -1 255 255 255 35 1 8 1 1 1 1 1 1 1 FFF F 0 WINDOWS _QE3120O9Q 45858830415 1 36 3.313 16.875 1.000 25.600 38 37 C -1 -1 -1 255 255 255 39 0 8 0 1 1 0 401 1 1 FFF F 0 WINDOWS _QE90UMBTD 44377348315 0 41 5.000 3.250 1.000 15.333 43 42 C -1 -1 -1 255 255 255 44 1 8 1 1 1 1 1 1 1 FFF F 0 WINDOWS _QEB1BUX29 443921021 6 21.000 0.000 0.063 62.500 1 45 -1 -1 -1 -1 -1 -1 1 8 0 0 WINDOWS _QEB1CK1Q5 460489711 6 3.188 16.500 0.063 16.750 1 46 128 128 128 128 128 128 1 8 0 0 WINDOWS _QEB1CL2KL 460489716 6 3.250 33.250 0.938 0.125 0 48 255 255 255 255 255 255 1 8 0 0 WINDOWS _QEB1CLMEE 460489719 6 4.188 16.625 0.063 16.750 1 50 255 255 255 255 255 255 1 8 0 0 WINDOWS _QEB1CKINB 460489713 6 3.188 16.500 1.063 0.125 0 52 128 128 128 128 128 128 1 8 0 0 WINDOWS _QEC13YJZF 44397899115 0 54 5.000 31.500 1.000 15.333 56 55 C -1 -1 -1 255 255 255 57 1 8 1 1 1 1 1 1 1 FFF F 0 WINDOWS _QED0RVPQO 44403303717 0 58 12.750 15.000 6.813 16.625 1 59 0 2 TT WINDOWS _QED0RVPQR 45858831015 2 60 8.750 14.625 5.000 56.000 62 61 C -1 -1 -1 255 255 255 63 0 8 0 1 1 0 641 1 1 FFT F 0 WINDOWS _QED0RVPQU 44410016220 1 66 12.438 32.375 6.813 16.625 68 67 -1 -1 -1 -1 -1 -1 65 1 10 0 0 691 1 F 0.500 WINDOWS _QED0RVPQX 45858831514 1 70 14.750 50.375 1.308 5.400 73 71 -1 -1 -1 255 255 255 72 0 8 1 0 741 1 F 0 WINDOWS _QJE01A68N 45688348812 1 76 21.750 4.750 1.688 3.375 78 77 -1 -1 -1 -1 -1 -1 75 1 10 0 1 1 1 0 80 0 81 F 82 1 0.500 WINDOWS _QJE01HGDQ 45688347912 1 84 21.750 9.250 1.688 3.375 86 85 -1 -1 -1 -1 -1 -1 83 1 10 0 1 1 1 0 88 0 89 F 90 1 0.500 WINDOWS _QJE01HLCA 45688349512 1 92 21.750 13.750 1.688 3.375 94 93 -1 -1 -1 -1 -1 -1 91 1 10 0 1 1 1 0 96 0 97 F 98 1 0.500 WINDOWS _QJE01KORE 45688347112 1 100 21.750 18.250 1.688 3.375 102 101 -1 -1 -1 -1 -1 -1 99 1 10 0 1 1 1 0 104 0 105 F 106 1 0.500 WINDOWS _QJE01KRM5 45688346512 1 108 21.750 22.750 1.688 3.375 110 109 -1 -1 -1 -1 -1 -1 107 1 10 0 1 1 1 0 112 0 113 F 114 1 0.500 WINDOWS _QJE01MCET 45688345212 1 116 21.750 27.250 1.688 3.375 118 117 -1 -1 -1 -1 -1 -1 115 1 10 0 1 1 1 0 120 0 121 F 122 1 0.500 WINDOWS _QJE01MF0L 45688344312 1 124 21.750 31.750 1.688 3.375 126 125 -1 -1 -1 -1 -1 -1 123 1 10 0 1 1 1 0 128 0 129 F 130 1 0.500 WINDOWS _QJE01OQW7 45688343812 1 132 21.750 36.250 1.688 3.375 134 133 -1 -1 -1 -1 -1 -1 131 1 10 0 1 1 1 0 136 0 137 F 138 1 0.500 WINDOWS _QJE01OT6U 45688343312 1 140 21.750 40.750 1.688 3.375 142 141 -1 -1 -1 -1 -1 -1 139 1 10 0 1 1 1 0 144 0 145 F 146 1 0.500 WINDOWS _QJE01Q3XA 45688342912 1 148 21.750 45.250 1.688 3.375 150 149 -1 -1 -1 -1 -1 -1 147 1 10 0 1 1 1 0 152 0 153 F 154 1 0.500 WINDOWS _QJE01QCUS 45688342512 1 156 21.750 49.750 1.688 3.375 158 157 -1 -1 -1 -1 -1 -1 155 1 10 0 1 1 1 0 160 0 161 F 162 1 0.500 WINDOWS _QJE01QJ1F 45688341912 1 164 21.750 54.250 1.688 3.375 166 165 -1 -1 -1 -1 -1 -1 163 1 10 0 1 1 1 0 168 0 169 F 170 1 0.500 WINDOWS _QJD0LA38B 45688353412 1 172 21.875 1.500 1.769 7.833 174 173 -1 -1 -1 -1 -1 -1 171 1 8 0 1 1 1 0 175 0 176 F 177 1 0.667 WINDOWS _QJD0LD4DB 45688352412 1 179 21.875 7.500 1.769 7.833 181 180 -1 -1 -1 -1 -1 -1 178 1 8 0 1 1 1 0 182 0 183 F 184 1 0.667 WINDOWS _QJD0LDNBZ 45688352812 1 186 21.875 13.500 1.769 7.833 188 187 -1 -1 -1 -1 -1 -1 185 1 8 0 1 1 1 0 189 0 190 F 191 1 0.667 WINDOWS _QJD0LE3M8 45688350812 1 193 21.875 19.500 1.769 7.833 195 194 -1 -1 -1 -1 -1 -1 192 1 8 0 1 1 1 0 196 0 197 F 198 1 0.667 WINDOWS _QJD0LFIJC 45688350312 1 200 21.875 25.500 1.769 7.833 202 201 -1 -1 -1 -1 -1 -1 199 1 8 0 1 1 1 0 203 0 204 F 205 1 0.667 WINDOWS _QJD0LFYWL 45688354212 1 207 21.875 31.500 1.769 7.833 209 208 -1 -1 -1 -1 -1 -1 206 1 8 0 1 1 1 0 210 0 211 F 212 1 0.667 WINDOWS _QJD0LGDO7 45688354912 1 214 21.875 37.500 1.769 7.833 216 215 -1 -1 -1 -1 -1 -1 213 1 8 0 1 1 1 0 217 0 218 F 219 1 0.667 WINDOWS _QJD0LGTKA 45688355612 1 221 21.875 43.500 1.769 7.833 223 222 -1 -1 -1 -1 -1 -1 220 1 8 0 1 1 1 0 224 0 225 F 226 1 0.667 WINDOWS _QJD0LH85A 45688332512 1 228 21.875 49.500 1.769 7.833 230 229 -1 -1 -1 -1 -1 -1 227 1 8 0 1 1 1 0 231 0 232 F 233 1 0.667 WINDOWS _QJD0LHS6B 45688330112 1 235 21.875 55.500 1.769 7.667 237 236 -1 -1 -1 -1 -1 -1 234 1 8 0 1 1 1 0 238 0 239 F 240 1 0.667 WINDOWS _QN60N7V4U 47404763514 1 241 0.750 52.500 1.308 11.667 244 242 -1 -1 -1 -1 -1 -1 243 1 8 1 1 0 245 1 F 0 WINDOWS _QJL0XYSED 45688380010 0 20.000 12.000 WINDOWS _QK71DDKG6 45847149310 0 21.000 10.000 WINDOWS 23 16.000 8.000 13.000 15.000 3 0 246 1 10 WINDOWS 23 24.000 10.000 19.000 20.000 5 0 247 1 14 WINDOWS 23 24.000 10.000 19.000 20.000 5 0 248 3 14 WINDOWS 23 13.000 6.000 11.000 12.000 2 0 249 1 8 WINDOWS 23 13.000 5.000 11.000 11.000 2 0 250 0 8 ms sans serif "Screen Name" readdeac() ..\OFFICES.DBF Offices MS Sans Serif wzheader title "TITLE" MS Sans Serif wzheader title "TITLE" wzheader MS Sans Serif "Embossed Style " MS Sans Serif "Default Objects:" label1 wzlabel1 : MS Sans Serif field wzfield mac3d MS Sans Serif isediting label2 wzlabel2 MS Sans Serif wzfooter +wzfx hstretch above nomac skipgen skiplogic +wzfx float vstretch nomac skipgen skiplogic %wzfx hstretch nomac skipgen skiplogic )wzfx fix vstretch nomac skipgen skiplogic column2 column2 MS Sans Serif standard wzgenfld standard wzmemofld mac3d MS Sans Serif isediting ms sans serif m.wzdummy wzgeninv "@*IHN " isediting m.wzckdummy wzcbox mac3d MS Sans Serif "@*C " isediting ms sans serif m.top_btn wzfooter picbutton ("@*BHN c:\fpw\wizards\wizbmps\wztop.bmp" btn_val('TOP') 'Go to first record.' ms sans serif m.prev_btn wzfooter picbutton )"@*BHN c:\fpw\wizards\wizbmps\wzback.bmp" btn_val('PREV') 'Go to previous record.' ms sans serif m.loc_btn wzfooter picbutton +"@*BHN c:\fpw\wizards\wizbmps\wzlocate.bmp" btn_val('LOCATE') 'Locate a record.' ms sans serif m.next_btn wzfooter picbutton )"@*BHN c:\fpw\wizards\wizbmps\wznext.bmp" btn_val('NEXT') 'Go to next record.' ms sans serif m.end_btn$ wzfooter picbutton ("@*BHN c:\fpw\wizards\wizbmps\wzend.bmp" btn_val('END') 'Go to last record.' ms sans serif m.add_btn wzfooter picbutton ("@*BHN c:\fpw\wizards\wizbmps\wznew.bmp" btn_val('ADD') 'Add a new record.' ms sans serif m.edit_btn wzfooter picbutton )"@*BHN c:\fpw\wizards\wizbmps\wzedit.bmp" btn_val('EDIT') 'Edit current record.' ms sans serif m.del_btn wzfooter picbutton +"@*BHN c:\fpw\wizards\wizbmps\wzdelete.bmp" btn_val('DELETE') 'Delete current record.' ms sans serif m.save_btn wzfooter picbutton )"@*BHN c:\fpw\wizards\wizbmps\wzsave.bmp" btn_val('SAVE') 'Save edits.' ms sans serif m.can_btn wzfooter picbutton )"@*BHN c:\fpw\wizards\wizbmps\wzundo.bmp" btn_val('CANCEL') 'Cancel edits.' ms sans serif m.prnt_btn wzfooter picbutton *"@*BHN c:\fpw\wizards\wizbmps\wzprint.bmp" btn_val('PRINT') 'Print report.' ms sans serif m.exit_btn wzfooter picbutton *"@*BHN c:\fpw\wizards\wizbmps\wzclose.bmp" btn_val('EXIT') 'Close screen.' MS Sans Serif m.top_btn wzfooter txtbutton "@*HN \<Top" btn_val('TOP') 'Go to first record.' "Top" MS Sans Serif m.prev_btn wzfooter txtbutton "@*HN \<Prev" btn_val('PREV') 'Go to previous record.' "Prev" MS Sans Serif m.next_btn wzfooter txtbutton "@*HN \<Next" btn_val('NEXT') 'Go to next record.' "Next" MS Sans Serif m.end_btn wzfooter txtbutton "@*HN \<End" btn_val('END') 'Go to last record.' "End" MS Sans Serif m.loc_btn wzfooter txtbutton "@*HN \<Locate" btn_val('LOCATE') 'Locate a record.' "Locate" MS Sans Serif m.add_btn wzfooter txtbutton "@*HN \<Add" btn_val('ADD') 'Add a new record.' "Add" MS Sans Serif m.edit_btn wzfooter txtbutton "@*HN Ed\<it" btn_val('EDIT') 'Edit current record.' "Edit" MS Sans Serif m.del_btn wzfooter txtbutton "@*HN \<Delete" btn_val('DELETE') 'Delete current record.' "Delete" MS Sans Serif m.prnt_btn wzfooter txtbutton "@*HN P\<rint" btn_val('PRINT') 'Print report.' "Print" MS Sans Serif m.exit_btn wzfooter txtbutton "@*HN \<Close" btn_val('EXIT') 'Close screen.' "Close" find_drop findcbox MS Sans Serif "@*C \<Find..." findval() ms sans serif MS Sans Serif MS Sans Serif MS Sans Serif MS Sans Serif Geneva wzmemofldF wzgenfldF wzgeninvF wzcboxF wzfieldF nooffF wzlabel2F column2F wzlabel1F upperF lowerF wzfooterF inheadF .TMPFF Geneva wz_newwiz SKIPz wz_newwiz wz_newwiz wzborderF wz_newwiz postfldF wzprefxF wz_newwiz wzfxF postfldF wzborderF wzfooterF picbuttonF txtbuttonF inheadF picbuttonF Geneva txtbuttonF wz_newwiz wz_newwiz IHINC IVINC ITPOS IMPOS ILASTPOS WZILBLWID WZIFLDWID IDEFLBLWIDWZSCOLON WZILBLLEN LNOOFFSET WZIMAXFX WZIMAXLBL WZIMAXFLD WZATMPARR WZAARRAY WZAREC LISNEWCOL SSAVEDBF LCALCFLD ICALCPOS WZLHASENVIWZLHASALIAOBJTYPE VIWZ_FONT WZ_FSIZE WZ_FSTYLE GETSTYLE FONTFACE FONTSIZE FONTSTYLE WZ_MAXW WIDTH WZ_MAXH HEIGHT OBJCODE COMMENT WZ_MHEIGHTWZ_MWIDTH WZ_MFONT GETFONTINFWZ_MFSIZE WZ_MFSTYLEWZ_GHEIGHTWZ_GWIDTH WZ_FVPOS WZ_FHPOS WZ_FFONT WZ_FFSIZE WZ_FFSTYLEWZ_FWIDTH CONVPIX WZ_L2VPOS WZ_COL2POSWZ_LFONT SWZ_LFSIZE WZ_LFSTYLEWZ_LVPOS WZ_LHPOS WZ_V2OFFSEWZ_VOFFSETWZ_HOFFSETI MMENT EWZ_FIELDS WZ_FLIST WZTMPSTR WZ_MARGIN WZ_XSMARGIWZ_IS1COL WZ_TESTVPOWZ_MACDIFFWZ_PXFACTOGETVOFF POWZTBLARR OWZ_SPECS TSTAMP WZSSAVEFILGETTAG ATMPARR WZIEDITTYPWZ_STYLE AADDHEADER ACOLSCAN WZ_FCALC WZ_ALERT WZATEXT GETHPOS GETVPOS GETWIDTH GETPICTUREWZIBUTTONSFOXELCOL ADDLBLS LEADDFX ADDINVBTN GETHOFF WZ_NEWWIZ EWWIZ PLATFORM BOXED IGETHEIGHTWZ_FLIST WZ_V2OFFSEWZ_MFONT WZ_MFSIZE WZ_MFSTYLEWZ_MHEIGHTWZ_SPECS WZ_FONT WZ_FSIZE WZ_FSTYLE WZ_GHEIGHT GETVOFF NEWPOS GHTT1 FLIST V2OFFSEIHINC IVINC LISNEWCOL GETHEIGHT ILASTPOS IMPOS GETHOFF WZ_IS1COL FLIST WZ_FIELDS IHINC WZIMAXFX WZIMAXLBL WZIMAXFLD WZ_COL2POSIS2COL2LONLISNEWCOL WZ_LHPOS NUMPIXELS WZ_FONT WZ_FSIZE WZ_FSTYLE NUMPIXELS WZ_FONT WZ_FSIZE WZ_FSTYLE NUMFOXELS FSIZE NUMPIXELS WZ_FONT WZ_FSIZE WZ_FSTYLE wzheaderF titleF upperF lowerF properF wz_newwiz wzheadfxF hstretchF floatF wz_newwiz MYTITLE STTWID MYTITLEWD STTHPOS COMMENT WZATMPARR OBJTYPE GETFONTINFWZ_SPECS FCONVPIX GETSTYLE TSTAMP skipmemoF skipgenF skiplogicF nomacF tietolblF vstretchF BOXED aboveF hstretchF hstretchF floatF floatF wz_newwiz CCONTENTS SVWIDTH SVVPOS TLBLWIDTH WZ_FLIST IMPOS CONVPIX NFWZ_MFONT FWZ_MFSIZE WZ_MFSTYLEFOXELCOL WZ_FFONT WZ_FFSIZE WZ_FFSTYLECOMMENT WZTMPSTR WZ_FIELDS AVEDBF WZSCOLON WZ_LFONT WZ_LFSIZE WZ_LFSTYLEWZ_FVPOS FOXELROW WZ_MHEIGHTWZ_SPECS WZ_FONT WZ_FSIZE WZ_FSTYLE WZ_GHEIGHTLNOOFFSET WZILBLWID WZ_LHPOS WZ_HOFFSETWZ_FHPOS WZ_FWIDTH IHINC TSTAMP WZIMAXFX wz_newwiz WZLARR WZ_FIELDS WZSCOLON WZ_LVPOS IVINC IHINC IDEFLBLWIDTSTAMP FWZ_LFONT WZ_LFSIZE WZIMAXLBL CONVPIX WZ_LFSTYLE nooffF nooffF IGETHPOS COMMENT WZ_FLIST IMPOS WZ_FHPOS FOXELCOL WZILBLWID WZ_LHPOS DWZ_HOFFSETIHINC IGETVPOS WZ_FLIST IMPOS WZ_VOFFSETWZ_LVPOS IVINC FOXELROW 99/99/99 ARRPOS IGETWIDTH WZ_FLIST WZ_MWIDTH WZ_GWIDTH GETAVECH WZ_FFONT WZ_FFSIZE WZ_FFSTYLET mac3dF "@*C3 " "@*C "8 mac3dF "@3K "@K 8 mac3dF "@3K "@K 8 mac3dF "@3K" "@K"8 SGETPICTURSBASE WZ_FLIST IMPOS COMMENT URGETNUMSTR WZAARRAY MODIFY GENERAL F SHOW GETS OFF wz_newwiz WZAREC TURWZATMPARR GETHPOS GETVPOS TSTAMP WZ_FIELDS AARRAY BOXED IARRPOS URITMPWIDTH THPOS WZ_FIELDS ITPOS WZ_FLIST CONVPIX GETWIDTH WZ_MFONT EWZ_MFSIZE WZ_MFSTYLEWZ_FFONT WZ_FFSIZE WZ_FFSTYLEWZ_SPECS EWZ_MAXW WZ_COL2POSWZ_LHPOS WZILBLWID WZ_HOFFSET NUMCHARS RSGETNUMSTRZ ETNUMSTR MS SANS SERIF Geneva PFONTPARM GETFONTINFFONTFACE RFONTSIZE FGETHEIGHT GETVOFF GETHOFF FOXELROW FOXELCOL CONVPIX ADDHEADER ADDFX ADDLBLS GETHPOS GETVPOS GETWIDTH GETPICTURE ADDINVBTN IS2COL2LON GETNUMSTR GETFONTINF SNIPPET set1 8setup text2 79cleanup pictbutton 260cleanup textbutton 218cleanup nosetup 23setup nogeneral 18cleanup general 26cleanup set2 14setup skip 10setup pict2 303cleanup common 35cleanup common 55setup print 181cleanup find 453cleanup dfind 406cleanup IF RECCOUNT()=0 AND !m.isreadonly AND fox_alert(C_DBFEMPTY) APPEND BLANK ENDIF GOTO TOP SCATTER MEMVAR MEMO ** The current screen has only records from the parent ** table, yet a SET SKIP with the child table. ** If you later decide to add fields from the child ** table make sure to remove this line. SET SKIP TO DIMENSION wztblarr[1,2] * 1st element holds alias name * 2nd element holds unique name for array name DO initarrays FOR i =1 TO ALEN(wztblarr,1) DIMENSION (wztblarr[m.i,2])+"[1]" ENDFOR SELECT (wztblarr[1,1]) GO TOP PROCEDURE edithand PARAMETER m.paction * procedure handles edits DO CASE CASE m.paction = 'ADD' SCATTER MEMVAR MEMO BLANK CASE m.paction = 'SAVE' INSERT INTO (ALIAS()) FROM MEMVAR CASE m.paction = 'CANCEL' * nothing here ENDCASE RETURN ~#WNAME wz_win #READCLAUSE NOLOCK #SECTION1 #SECTION2 MOVE WINDOW 'wz_win' CENTER IF RECCOUNT()=0 APPEND BLANK ENDIF PROCEDURE edithand PARAMETER m.paction PRIVATE tmparr =sys(2015) * procedure handles edits * special handling for General fields DO CASE CASE m.paction = 'ADD' =AFIELDS(tmparr) CREATE CURSOR EVAL('m.tempcurs') FROM ARRAY tmparr APPEND BLANK SCATTER MEMVAR MEMO BLANK CASE m.paction = 'SAVE' GATHER MEMVAR MEMO SELECT (m.wzalias) APPEND FROM DBF(m.tempcurs) USE IN (m.tempcurs) CASE m.paction = 'CANCEL' USE IN (tempcurs) SELECT (m.wzalias) ENDCASE RETURN SET DELETED &wzolddelete SET FIELDS &wzfields ON ERROR &wzolderror ****Procedures**** PROCEDURE readdeac IF isediting ACTIVATE WINDOW (WLAST()) WAIT WINDOW C_EDITS NOWAIT ENDIF IF !WVISIBLE(WOUTPUT()) CLEAR READ RETURN .T. ENDIF RETURN .F. PROCEDURE readact DO REFRESH IF !isediting SELECT (m.wzalias) SHOW GETS ENDIF RETURN PROCEDURE wizerrorhandler * This very simple error handler is primarily intended * to trap for General field OLE errors which may occur * during editing from the MODIFY GENERAL window. WAIT WINDOW message() RETURN PROCEDURE fox_alert PARAMETER wzalrtmess PRIVATE alrtbtn m.alrtbtn=2 DEFINE WINDOW _qec1ij2t7 AT 0,0 SIZE 8,50 ; FONT "MS Sans Serif",10 STYLE 'B' ; FLOAT NOCLOSE NOMINIMIZE DOUBLE TITLE WTITLE() MOVE WINDOW _qec1ij2t7 CENTER ACTIVATE WINDOW _qec1ij2t7 NOSHOW @ 2,(50-txtwidth(wzalrtmess))/2 SAY wzalrtmess; FONT "MS Sans Serif", 10 STYLE "B" @ 6,18 GET m.alrtbtn ; PICTURE "@*HT \<OK;\?\!\<Cancel" ; SIZE 1.769,8.667,1.333 ; FONT "MS Sans Serif", 8 STYLE "B" ACTIVATE WINDOW _qec1ij2t7 READ CYCLE MODAL RELEASE WINDOW _qec1ij2t7 RETURN m.alrtbtn=1 F edithand('EDIT') isediting=.T. _curob #WNAME wz_win #READCLAUSE NOLOCK *~ WIZARDSCREEN #SECTION1 #SECTION2 #DEFINE C_DBFEMPTY 'Database is empty, add a record?' #DEFINE C_EDITS 'Please finish your edits.' #DEFINE C_TOPFILE 'Top of file.' #DEFINE C_ENDFILE 'End of file.' #DEFINE C_BRTITLE 'Locate Record' #DEFINE C_NOLOCK 'Sorry, could not lock record -- try again later.' #DEFINE C_ECANCEL 'Edits Canceled.' #DEFINE C_DELREC 'Delete selected record?' #DEFINE C_NOFEAT 'Feature not available yet.' #DEFINE C_NOWIZ 'Wizard application is not available.' #DEFINE C_MAKEREPO 'Creating report with Report Wizard.' #DEFINE C_NOREPO 'Could not create report.' #DEFINE C_DELNOTE 'Deleting records...' #DEFINE C_READONLY 'Table is read-only. No editing allowed.' #DEFINE C_NOTABLE 'No table selected. Open table or run query.' #DEFINE C_BADEXPR 'Invalid expression.' MOVE WINDOW 'wz_win' CENTER PRIVATE isediting,isadding PRIVATE wzolddelete,wzolderror PRIVATE wzalias, tempcurs,wzlastrec,wzfields PRIVATE isreadonly,find_drop IF EMPTY(ALIAS()) WAIT WINDOW C_NOTABLE RETURN ENDIF m.wzalias=SELECT() m.isediting=.F. m.isadding=.F. m.wzfields=SET('FIELDS') SET FIELDS OFF m.wzolddelete=SET('DELETE') SET DELETED ON m.tempcurs=SYS(2015) &&used if General field m.wzlastrec = 1 m.wzolderror=ON('error') ON ERROR DO wizerrorhandler m.find_drop = IIF(_DOS,0,2) m.isreadonly=IIF(ISREAD(),.T.,.F.) IF m.isreadonly WAIT WINDOW C_READONLY TIMEOUT 1 ENDIF PROCEDURE BTN_VAL PARAMETER m.btnname DO CASE CASE m.btnname='TOP' GO TOP WAIT WINDOW C_TOPFILE NOWAIT CASE m.btnname='PREV' IF !BOF() SKIP -1 ENDIF IF BOF() WAIT WINDOW C_TOPFILE NOWAIT GO TOP ENDIF CASE m.btnname='NEXT' IF !EOF() SKIP 1 ENDIF IF EOF() WAIT WINDOW C_ENDFILE NOWAIT GO BOTTOM ENDIF CASE m.btnname='END' GO BOTTOM WAIT WINDOW C_ENDFILE NOWAIT CASE m.btnname='LOCATE' DEFINE WINDOW wzlocate FROM 1,1 TO 15,35; SYSTEM GROW CLOSE ZOOM FLOAT MOVE WINDOW wzlocate CENTER BROWSE WINDOW wzlocate NOEDIT NODELETE NOMENU ; TITLE C_BRTITLE RELEASE WINDOW wzlocate CASE m.btnname='ADD' &&add record isediting=.T. isadding=.T. wzlastrec = RECNO() =edithand('ADD') _curobj=1 DO refresh SHOW GETS RETURN CASE m.btnname='EDIT' AND !isediting &&edit record IF edithand('EDIT') isediting=.T. _curobj=1 DO refresh RETURN ENDIF WAIT WINDOW C_NOLOCK CASE m.btnname='EDIT' AND isediting &&Save record IF m.isadding DO addrel ENDIF UNLOCK ALL isediting=.F. isadding=.F. DO refresh CASE m.btnname='DELETE' AND isediting &&Cancel record IF isadding =edithand('CANADD') ELSE =edithand('CANCEL') ENDIF isediting=.F. isadding=.F. WAIT WINDOW C_ECANCEL NOWAIT DO refresh CASE m.btnname='DELETE' m.retval=deldlog() DO CASE CASE m.retval = 0 RETURN CASE m.retval = 1 &&delete only parent record DELETE CASE m.retval = 2 &&cascading delete WAIT WINDOW C_DELNOTE NOWAIT DO casdel WAIT CLEAR ENDCASE IF !EOF() SKIP ENDIF IF EOF() WAIT WINDOW C_ENDFILE NOWAIT GO BOTTOM ENDIF DO refresh CASE m.btnname='PRINT' DO printrec RETURN CASE m.btnname='EXIT' m.bailout=.T. &&this is needed if used with FoxApp CLEAR READ RETURN ENDCASE SCATTER MEMVAR MEMO SHOW GETS RETURN PROCEDURE refresh DO CASE CASE m.isreadonly AND RECCOUNT()=0 SHOW GETS DISABLE CASE m.isreadonly SHOW GET add_btn DISABLE SHOW GET del_btn DISABLE SHOW GET edit_btn DISABLE CASE RECCOUNT()=0 SHOW GETS DISABLE SHOW GET add_btn ENABLE CASE isediting SHOW GET find_drop DISABLE SHOW GET top_btn DISABLE SHOW GET prev_btn DISABLE SHOW GET loc_btn DISABLE SHOW GET next_btn DISABLE SHOW GET end_btn DISABLE SHOW GET add_btn DISABLE SHOW GET prnt_btn DISABLE SHOW GET exit_btn DISABLE SHOW GET edit_btn,1 PROMPT "\<Save" SHOW GET del_btn,1 PROMPT "\<Cancel" OTHERWISE SHOW GET edit_btn,1 PROMPT "\<Edit" SHOW GET del_btn,1 PROMPT "\<Delete" SHOW GETS ENABLE ENDCASE RETURN PROCEDURE edithand PARAMETER m.paction * procedure handles edits PRIVATE i,tmparea tmparea = SELECT() DO CASE CASE m.paction = 'ADD' FOR i =1 TO ALEN(wztblarr,1) SELECT (wztblarr[m.i,1]) APPEND BLANK =RLOCK() ENDFOR CASE m.paction = 'EDIT' FOR i =1 TO ALEN(wztblarr,1) SELECT (wztblarr[m.i,1]) IF RLOCK() SCATTER TO (wztblarr[m.i,2]) MEMO ELSE SELECT (m.tmparea) RETURN .F. ENDIF ENDFOR CASE m.paction = 'CANCEL' FOR i =1 TO ALEN(wztblarr,1) SELECT (wztblarr[m.i,1]) GATHER FROM (wztblarr[m.i,2]) MEMO ENDFOR UNLOCK ALL CASE m.paction = 'CANADD' FOR i =1 TO ALEN(wztblarr,1) SELECT (wztblarr[m.i,1]) DELETE SELECT (m.tmparea) ENDFOR SELECT (m.tmparea) GO m.wzlastrec ENDCASE SELECT (m.tmparea) RETURN .T. PROCEDURE initarrays PRIVATE i,z m.i = 1 wztblarr[1,1]=ALIAS() wztblarr[1,2]=SYS(2015) * Get all tables involved in query. It checks for * parent-child relations and relations off of childs. DO WHILE .T. SELECT (wztblarr[m.i,1]) m.z=1 DO WHILE !EMPTY(TARG(m.z)) DIMENSION wztblarr[ALEN(wztblarr,1)+1,2] wztblarr[ALEN(wztblarr,1),1]=TARG(m.z) wztblarr[ALEN(wztblarr,1),2]=SYS(2015) m.z=m.z+1 ENDDO IF m.i=ALEN(wztblarr,1) EXIT ENDIF m.i=m.i+1 ENDDO IF RECCOUNT()=0 AND fox_alert(C_DBFEMPTY) APPEND BLANK ENDIF GOTO TOP RETURN PROCEDURE addrel PRIVATE i,wzfldname,tmprec,wzorder tmprec = RECNO() FOR m.i = 1 TO ALEN(wztblarr,1) SELECT (wztblarr[m.i,1]) m.z = 1 DO WHILE !EMPTY(TARGET(m.z,(wztblarr[m.i,1]))) SELECT (TARGET(m.z)) * need parser routine here to get actual fields m.wzkey=KEY() IF AT('(',m.wzkey)=0 AND AT('+',m.wzkey)=0 * for now - skip compound expressions wzfldname = RELATION(m.z,(wztblarr[m.i,1])) REPLACE (m.wzkey) WITH; EVAL(wztblarr[m.i,1]+'.'+m.wzfldname) ENDIF m.z = m.z + 1 ENDDO ENDFOR SELECT wztblarr[1,1] GO m.tmprec RETURN PROCEDURE deldlog DEFINE WINDOW _qmf0hyyqq ; AT 0.000, 0.000 SIZE 10.769,57.800 ; TITLE "Delete Record" ; FONT "MS Sans Serif", 8 ; FLOAT NOMINIMIZE DOUBLE MOVE WINDOW _qmf0hyyqq CENTER ACTIVATE WINDOW _qmf0hyyqq NOSHOW @ 2.846,7.200 GET m.cascade ; PICTURE "@*RVN Parent record only;Parent and related child records" ; SIZE 1.308,34.500,0.308 ; DEFAULT 1 FONT "MS Sans Serif", 8 STYLE "BT" @ 8.308,17.200 GET m.okbtn ; PICTURE "@*HTN \<Delete;\<Cancel" ; SIZE 1.769,8.667,1.333 ; DEFAULT 1 FONT "MS Sans Serif", 8 STYLE "B" ACTIVATE WINDOW _qmf0hyyqq READ CYCLE MODAL RELEASE WINDOW _qmf0hyyqq RETURN IIF(m.okbtn=2,0,m.cascade) PROCEDURE casdel * This routine does a cascading delete * across the entire relationship tree. * Note: it recursively calls itself PRIVATE i,pkey,ckey,totrel,palias m.palias = ALIAS() GO RECNO() m.totrel = 1 DO WHILE !EMPTY(RELATION(m.totrel+1)) m.totrel=m.totrel+1 ENDDO m.pkey = IIF(EMPTY(ORDER()),'',EVAL(ORDER())) * check if no relation exists IF !EMPTY(RELATION(1)) DO WHILE .T. *check all relationships for parent FOR i = 1 TO m.totrel m.ckey = EVAL(RELATION(m.i)) SELECT (TARGET(m.i)) * child related records IF !EOF() IF !EMPTY(RELATION(1)) * call recursively DO casdel ELSE * delete all child records DO WHILE .T. DELETE SKIP IF EVAL(ORDER())#m.ckey EXIT ENDIF ENDDO ENDIF ENDIF SELECT (m.palias) ENDFOR * delete only one for parent DELETE IF !EOF() SKIP ENDIF IF m.palias=wztblarr[1,1] OR EOF() OR; EMPTY(m.pkey) OR EVAL(ORDER())#m.pkey EXIT ENDIF ENDDO ENDIF RETURN PROCEDURE printrec PRIVATE sOldError,wizfname,saverec,savearea,tmpcurs,tmpstr PRIVATE prnt_btn,p_recs,p_output,pr_out,pr_record STORE 1 TO p_recs,p_output STORE 0 TO prnt_btn STORE RECNO() TO saverec m.sOldError=ON('error') DO pdialog IF m.prnt_btn = 2 RETURN ENDIF IF !FILE(ALIAS()+'.FRX') m.wizfname=SYS(2004)+'WIZARDS\'+'WIZARD.APP' IF !FILE(m.wizfname) ON ERROR * m.wizfname=LOCFILE('WIZARD.APP','APP','Locate WIZARD.APP:') ON ERROR &sOldError IF !'WIZARD.APP'$UPPER(m.wizfname) WAIT WINDOW C_NOWIZ RETURN ENDIF ENDIF WAIT WINDOW C_MAKEREPO NOWAIT m.savearea=SELECT() m.tmpcurs='_'+LEFT(SYS(3),7) CREATE CURSOR (m.tmpcurs) (comment m) m.tmpstr = '* LAYOUT = COLUMNAR'+CHR(13)+CHR(10) INSERT INTO (m.tmpcurs) VALUES(m.tmpstr) SELECT (m.savearea) DO (m.wizfname) WITH '','WZ_QREPO','NOSCRN/CREATE',ALIAS(),m.tmpcurs USE IN (m.tmpcurs) WAIT CLEAR IF !FILE(ALIAS()+'.FRX') &&wizard could not create report WAIT WINDOW C_NOREPO RETURN ENDIF ENDIF m.pr_out=IIF(m.p_output=1,'TO PRINT NOCONSOLE','PREVIEW') m.pr_record=IIF(m.p_recs=1,'NEXT 1','ALL') ON ERROR * REPORT FORM (ALIAS()) &pr_out &pr_record ON ERROR &sOldError GO m.saverec RETURN PROCEDURE pdialog DEFINE WINDOW _qjn12zbvh ; AT 0.000, 0.000 ; SIZE 13.231,54.800 ; TITLE "Microsoft FoxPro" ; FONT "MS Sans Serif", 8 ; FLOAT NOCLOSE MINIMIZE SYSTEM MOVE WINDOW _qjn12zbvh CENTER ACTIVATE WINDOW _qjn12zbvh NOSHOW @ 2.846,33.600 SAY "Output:" ; FONT "MS Sans Serif", 8 ; STYLE "BT" @ 2.846,4.800 SAY "Print:" ; FONT "MS Sans Serif", 8 ; STYLE "BT" @ 4.692,7.200 GET m.p_recs ; PICTURE "@*RVN \<Current Record;\<All Records" ; SIZE 1.308,18.500,0.308 ; DEFAULT 1 ; FONT "MS Sans Serif", 8 ; STYLE "BT" @ 4.692,36.000 GET m.p_output ; PICTURE "@*RVN \<Printer;Pre\<view" ; SIZE 1.308,12.000,0.308 ; DEFAULT 1 ; FONT "MS Sans Serif", 8 ; STYLE "BT" @ 10.154,16.600 GET m.prnt_btn ; PICTURE "@*HT \<Print;\<Cancel" ; SIZE 1.769,8.667,0.667 ; DEFAULT 1 ; FONT "MS Sans Serif", 8 ; STYLE "B" ACTIVATE WINDOW _qjn12zbvh READ CYCLE MODAL RELEASE WINDOW _qjn12zbvh RETURN PROCEDURE BTN_VAL PARAMETER m.btnname DO CASE CASE m.btnname='TOP' GO TOP WAIT WINDOW C_TOPFILE NOWAIT CASE m.btnname='PREV' IF !BOF() SKIP -1 ENDIF IF BOF() WAIT WINDOW C_TOPFILE NOWAIT GO TOP ENDIF CASE m.btnname='NEXT' IF !EOF() SKIP 1 ENDIF IF EOF() WAIT WINDOW C_ENDFILE NOWAIT GO BOTTOM ENDIF CASE m.btnname='END' GO BOTTOM WAIT WINDOW C_ENDFILE NOWAIT CASE m.btnname='LOCATE' DEFINE WINDOW wzlocate FROM 1,1 TO 15,35; SYSTEM GROW CLOSE ZOOM FLOAT MOVE WINDOW wzlocate CENTER BROWSE WINDOW wzlocate NOEDIT NODELETE NOMENU ; TITLE C_BRTITLE RELEASE WINDOW wzlocate CASE m.btnname='ADD' AND !isediting &&add record isediting=.T. isadding=.T. =edithand('ADD') _curobj=1 DO refresh SHOW GETS RETURN CASE m.btnname='EDIT' AND !isediting &&edit record IF EOF() OR BOF() WAIT WINDOW C_ENDFILE NOWAIT RETURN ENDIF IF RLOCK() isediting=.T. _curobj=1 DO refresh RETURN ELSE WAIT WINDOW C_NOLOCK ENDIF CASE m.btnname='EDIT' AND isediting &&save record IF isadding =edithand('SAVE') ELSE GATHER MEMVAR MEMO UNLOCK ENDIF isediting=.F. isadding=.F. DO refresh CASE m.btnname='DELETE' AND isediting &&cancel record IF isadding =edithand('CANCEL') ENDIF isediting=.F. isadding=.F. WAIT WINDOW C_ECANCEL NOWAIT DO refresh CASE m.btnname='DELETE' IF EOF() OR BOF() WAIT WINDOW C_ENDFILE NOWAIT RETURN ENDIF IF fox_alert(C_DELREC) DELETE IF !EOF() SKIP 1 ENDIF IF EOF() WAIT WINDOW C_ENDFILE NOWAIT GO BOTTOM ENDIF ENDIF CASE m.btnname='PRINT' DO printrec RETURN CASE m.btnname='EXIT' m.bailout=.T. &&this is needed if used with FoxApp CLEAR READ RETURN ENDCASE SCATTER MEMVAR MEMO SHOW GETS RETURN PROCEDURE REFRESH DO CASE CASE m.isreadonly AND RECCOUNT()=0 SHOW GETS DISABLE CASE m.isreadonly SHOW GET add_btn DISABLE SHOW GET del_btn DISABLE SHOW GET edit_btn DISABLE CASE RECCOUNT()=0 SHOW GETS DISABLE SHOW GET add_btn ENABLE CASE isediting SHOW GET find_drop DISABLE SHOW GET top_btn DISABLE SHOW GET prev_btn DISABLE SHOW GET loc_btn DISABLE SHOW GET next_btn DISABLE SHOW GET end_btn DISABLE SHOW GET add_btn DISABLE SHOW GET prnt_btn DISABLE SHOW GET exit_btn DISABLE SHOW GET edit_btn,1 PROMPT "\<Save" SHOW GET del_btn,1 PROMPT "\<Cancel" OTHERWISE SHOW GET edit_btn,1 PROMPT "\<Edit" SHOW GET del_btn,1 PROMPT "\<Delete" SHOW GETS ENABLE ENDCASE RETURN PROCEDURE BTN_VAL PARAMETER m.btnname DO CASE CASE m.btnname='TOP' GO TOP WAIT WINDOW C_TOPFILE NOWAIT CASE m.btnname='PREV' IF !BOF() SKIP -1 ENDIF IF BOF() WAIT WINDOW C_TOPFILE NOWAIT GO TOP ENDIF CASE m.btnname='NEXT' IF !EOF() SKIP 1 ENDIF IF EOF() WAIT WINDOW C_ENDFILE NOWAIT GO BOTTOM ENDIF CASE m.btnname='END' GO BOTTOM WAIT WINDOW C_ENDFILE NOWAIT CASE m.btnname='LOCATE' DEFINE WINDOW wzlocate FROM 1,1 TO 15,35; SYSTEM GROW CLOSE ZOOM FLOAT MOVE WINDOW wzlocate CENTER BROWSE WINDOW wzlocate NOEDIT NODELETE NOMENU ; TITLE C_BRTITLE RELEASE WINDOW wzlocate CASE m.btnname='ADD' AND !isediting &&add record isediting=.T. isadding=.T. =edithand('ADD') _curobj=1 DO refresh SHOW GETS RETURN CASE m.btnname='EDIT' AND !isediting &&edit record IF EOF() OR BOF() WAIT WINDOW C_ENDFILE NOWAIT RETURN ENDIF IF RLOCK() isediting=.T. _curobj=1 DO refresh RETURN ELSE WAIT WINDOW C_NOLOCK ENDIF CASE m.btnname='SAVE' AND isediting &&save record IF isadding =edithand('SAVE') ELSE GATHER MEMVAR MEMO UNLOCK ENDIF isediting=.F. isadding=.F. DO refresh CASE m.btnname='CANCEL' AND isediting &&cancel record IF isadding =edithand('CANCEL') ENDIF isediting=.F. isadding=.F. WAIT WINDOW C_ECANCEL NOWAIT DO refresh CASE m.btnname='DELETE' IF EOF() OR BOF() WAIT WINDOW C_ENDFILE NOWAIT RETURN ENDIF IF fox_alert(C_DELREC) DELETE IF !EOF() SKIP 1 ENDIF IF EOF() WAIT WINDOW C_ENDFILE NOWAIT GO BOTTOM ENDIF ENDIF CASE m.btnname='PRINT' DO printrec RETURN CASE m.btnname='EXIT' m.bailout=.T. &&this is needed if used with FoxApp CLEAR READ RETURN OTHERWISE RETURN ENDCASE SCATTER MEMVAR MEMO SHOW GETS RETURN PROCEDURE REFRESH DO CASE CASE m.isreadonly AND RECCOUNT()=0 SHOW GETS DISABLE CASE m.isreadonly SHOW GET add_btn DISABLE SHOW GET edit_btn DISABLE SHOW GET del_btn DISABLE SHOW GET save_btn DISABLE SHOW GET can_btn DISABLE CASE RECCOUNT()=0 SHOW GETS DISABLE SHOW GET add_btn ENABLE CASE isediting SHOW GET find_drop DISABLE SHOW GET top_btn DISABLE SHOW GET prev_btn DISABLE SHOW GET loc_btn DISABLE SHOW GET next_btn DISABLE SHOW GET end_btn DISABLE SHOW GET add_btn DISABLE SHOW GET edit_btn,1 DISABLE SHOW GET del_btn,1 DISABLE SHOW GET prnt_btn DISABLE SHOW GET exit_btn DISABLE SHOW GET save_btn ENABLE SHOW GET can_btn ENABLE OTHERWISE SHOW GETS ENABLE SHOW GET save_btn DISABLE SHOW GET can_btn DISABLE ENDCASE RETURN PROCEDURE BTN_VAL PARAMETER m.btnname DO CASE CASE m.btnname='TOP' GO TOP WAIT WINDOW C_TOPFILE NOWAIT CASE m.btnname='PREV' IF !BOF() SKIP -1 ENDIF IF BOF() WAIT WINDOW C_TOPFILE NOWAIT GO TOP ENDIF CASE m.btnname='NEXT' IF !EOF() SKIP 1 ENDIF IF EOF() WAIT WINDOW C_ENDFILE NOWAIT GO BOTTOM ENDIF CASE m.btnname='END' GO BOTTOM WAIT WINDOW C_ENDFILE NOWAIT CASE m.btnname='LOCATE' DEFINE WINDOW wzlocate FROM 1,1 TO 15,35; SYSTEM GROW CLOSE ZOOM FLOAT MOVE WINDOW wzlocate CENTER BROWSE WINDOW wzlocate NOEDIT NODELETE NOMENU ; TITLE C_BRTITLE RELEASE WINDOW wzlocate CASE m.btnname='ADD' AND !isediting &&add record isediting=.T. isadding=.T. wzlastrec = RECNO() =edithand('ADD') _curobj=1 DO refresh SHOW GETS RETURN CASE m.btnname='EDIT' AND !isediting &&edit record IF edithand('EDIT') isediting=.T. _curobj=1 DO refresh RETURN ENDIF WAIT WINDOW C_NOLOCK CASE m.btnname='SAVE' AND isediting &&Save record IF m.isadding DO addrel ENDIF UNLOCK ALL isediting=.F. isadding=.F. DO refresh CASE m.btnname='CANCEL' AND isediting &&Cancel record IF isadding =edithand('CANADD') ELSE =edithand('CANCEL') ENDIF isediting=.F. isadding=.F. WAIT WINDOW C_ECANCEL NOWAIT DO refresh CASE m.btnname='DELETE' m.retval=deldlog() DO CASE CASE m.retval = 0 RETURN CASE m.retval = 1 &&delete only parent record DELETE CASE m.retval = 2 &&cascading delete WAIT WINDOW C_DELNOTE NOWAIT DO casdel WAIT CLEAR ENDCASE IF !EOF() SKIP ENDIF IF EOF() WAIT WINDOW C_ENDFILE NOWAIT GO BOTTOM ENDIF DO refresh CASE m.btnname='PRINT' DO printrec RETURN CASE m.btnname='EXIT' m.bailout=.T. &&this is needed if used with FoxApp CLEAR READ RETURN ENDCASE SCATTER MEMVAR MEMO SHOW GETS RETURN PROCEDURE refresh DO CASE CASE m.isreadonly AND RECCOUNT()=0 SHOW GETS DISABLE CASE m.isreadonly SHOW GET add_btn DISABLE SHOW GET edit_btn DISABLE SHOW GET del_btn DISABLE SHOW GET save_btn DISABLE SHOW GET can_btn DISABLE CASE RECCOUNT()=0 SHOW GETS DISABLE SHOW GET add_btn ENABLE CASE isediting SHOW GET find_drop DISABLE SHOW GET top_btn DISABLE SHOW GET prev_btn DISABLE SHOW GET loc_btn DISABLE SHOW GET next_btn DISABLE SHOW GET end_btn DISABLE SHOW GET add_btn DISABLE SHOW GET edit_btn,1 DISABLE SHOW GET del_btn,1 DISABLE SHOW GET prnt_btn DISABLE SHOW GET exit_btn DISABLE SHOW GET save_btn ENABLE SHOW GET can_btn ENABLE OTHERWISE SHOW GETS ENABLE SHOW GET save_btn DISABLE SHOW GET can_btn DISABLE ENDCASE RETURN PROCEDURE edithand PARAMETER m.paction * procedure handles edits PRIVATE i,tmparea tmparea = SELECT() DO CASE CASE m.paction = 'ADD' FOR i =1 TO ALEN(wztblarr,1) SELECT (wztblarr[m.i,1]) APPEND BLANK =RLOCK() ENDFOR CASE m.paction = 'EDIT' FOR i =1 TO ALEN(wztblarr,1) SELECT (wztblarr[m.i,1]) IF RLOCK() SCATTER TO (wztblarr[m.i,2]) MEMO ELSE SELECT (m.tmparea) RETURN .F. ENDIF ENDFOR CASE m.paction = 'CANCEL' FOR i =1 TO ALEN(wztblarr,1) SELECT (wztblarr[m.i,1]) GATHER FROM (wztblarr[m.i,2]) MEMO ENDFOR UNLOCK ALL CASE m.paction = 'CANADD' FOR i =1 TO ALEN(wztblarr,1) SELECT (wztblarr[m.i,1]) DELETE SELECT (m.tmparea) ENDFOR SELECT (m.tmparea) GO m.wzlastrec ENDCASE SELECT (m.tmparea) RETURN .T. PROCEDURE initarrays PRIVATE i,z m.i = 1 wztblarr[1,1]=ALIAS() wztblarr[1,2]=SYS(2015) * Get all tables involved in query. It checks for * parent-child relations and relations off of childs. DO WHILE .T. SELECT (wztblarr[m.i,1]) m.z=1 DO WHILE !EMPTY(TARG(m.z)) DIMENSION wztblarr[ALEN(wztblarr,1)+1,2] wztblarr[ALEN(wztblarr,1),1]=TARG(m.z) wztblarr[ALEN(wztblarr,1),2]=SYS(2015) m.z=m.z+1 ENDDO IF m.i=ALEN(wztblarr,1) EXIT ENDIF m.i=m.i+1 ENDDO IF RECCOUNT()=0 AND fox_alert(C_DBFEMPTY) APPEND BLANK ENDIF GOTO TOP RETURN PROCEDURE addrel PRIVATE i,wzfldname,tmprec,wzorder tmprec = RECNO() FOR m.i = 1 TO ALEN(wztblarr,1) SELECT (wztblarr[m.i,1]) m.z = 1 DO WHILE !EMPTY(TARGET(m.z,(wztblarr[m.i,1]))) SELECT (TARGET(m.z)) * need parser routine here to get actual fields m.wzkey=KEY() IF AT('(',m.wzkey)=0 AND AT('+',m.wzkey)=0 * for now - skip compound expressions wzfldname = RELATION(m.z,(wztblarr[m.i,1])) REPLACE (m.wzkey) WITH; EVAL(wztblarr[m.i,1]+'.'+m.wzfldname) ENDIF m.z = m.z + 1 ENDDO ENDFOR SELECT wztblarr[1,1] GO m.tmprec RETURN PROCEDURE deldlog DEFINE WINDOW _qmf0hyyqq ; AT 0.000, 0.000 SIZE 10.769,57.800 ; TITLE "Delete Record" ; FONT "MS Sans Serif", 8 ; FLOAT NOMINIMIZE DOUBLE MOVE WINDOW _qmf0hyyqq CENTER ACTIVATE WINDOW _qmf0hyyqq NOSHOW @ 2.846,7.200 GET m.cascade ; PICTURE "@*RVN Parent record only;Parent and related child records" ; SIZE 1.308,34.500,0.308 ; DEFAULT 1 FONT "MS Sans Serif", 8 STYLE "BT" @ 8.308,17.200 GET m.okbtn ; PICTURE "@*HTN \<Delete;\<Cancel" ; SIZE 1.769,8.667,1.333 ; DEFAULT 1 FONT "MS Sans Serif", 8 STYLE "B" ACTIVATE WINDOW _qmf0hyyqq READ CYCLE MODAL RELEASE WINDOW _qmf0hyyqq RETURN IIF(m.okbtn=2,0,m.cascade) PROCEDURE casdel * This routine does a cascading delete * across the entire relationship tree. * Note: it recursively calls itself PRIVATE i,pkey,ckey,totrel,palias m.palias = ALIAS() GO RECNO() m.totrel = 1 DO WHILE !EMPTY(RELATION(m.totrel+1)) m.totrel=m.totrel+1 ENDDO m.pkey = IIF(EMPTY(ORDER()),'',EVAL(ORDER())) * check if no relation exists IF !EMPTY(RELATION(1)) DO WHILE .T. *check all relationships for parent FOR i = 1 TO m.totrel m.ckey = EVAL(RELATION(m.i)) SELECT (TARGET(m.i)) * child related records IF !EOF() IF !EMPTY(RELATION(1)) * call recursively DO casdel ELSE * delete all child records DO WHILE .T. DELETE SKIP IF EVAL(ORDER())#m.ckey EXIT ENDIF ENDDO ENDIF ENDIF SELECT (m.palias) ENDFOR * delete only one for parent DELETE IF !EOF() SKIP ENDIF IF m.palias=wztblarr[1,1] OR EOF() OR; EMPTY(m.pkey) OR EVAL(ORDER())#m.pkey EXIT ENDIF ENDDO ENDIF RETURN PROCEDURE findval #DEFINE MAXGETS 100 * create the fields array from gets on screen DIMENSION wzafields(MAXGETS) i = 1 DO WHILE !EMPTY(FIELD(i)) wzafields(i) = FIELD(i) i = i + 1 ENDDO DIMENSION wzafields(i-1) m.retval=finddlog() DO CASE CASE m.retval=0 m.find_drop = ABS(m.find_drop-1) RETURN CASE m.retval=1 m.find_drop = 1 GO TOP COUNT to m.fndcnt WAIT WINDOW 'Found '+ALLTRIM(STR(m.fndcnt))+' records.' NOWAIT OTHERWISE m.find_drop = 0 ENDCASE IF EOF() GO TOP ENDIF SCATTER MEMVAR MEMO SHOW GETS RETURN PROCEDURE finddlog IF NOT WEXIST("_qn212xmo7") DEFINE WINDOW _qn212xmo7 ; FROM INT((SROW()-15)/2),INT((SCOL()-66)/2) ; TO INT((SROW()-15)/2)+14,INT((SCOL()-66)/2)+65 ; TITLE "Microsoft FoxPro" ; FLOAT NOCLOSE SHADOW ; NOMINIMIZE DOUBLE ; COLOR SCHEME 5 ENDIF dimension wzaops(7) wzaops(1) = "=" wzaops(2) = "<" wzaops(3) = "<=" wzaops(4) = ">" wzaops(5) = ">=" wzaops(6) = "<>" wzaops(7) = "==" IF WVISIBLE("_qn212xmo7") ACTIVATE WINDOW _qn212xmo7 SAME ACTIVATE WINDOW _qn212xmo7 NOSHOW ENDIF @ 1,3 SAY "Which records do you want to see?" ; SIZE 1,33, 0 @ 6,3 SAY "Fields:" ; SIZE 1,7, 0 @ 6,25 SAY "Operators:" ; SIZE 1,10, 0 @ 6,40 SAY "Value:" ; SIZE 1,6, 0 @ 3,16 GET fradio1 ; PICTURE "@*RHN \<Filter;\<All Records" ; SIZE 1,15,0 ; DEFAULT 1 ; VALID fradioval() @ 7,2 GET m.wzifields ; PICTURE "@^" ; FROM wzafields ; SIZE 3,19 ; DEFAULT 1 ; COLOR SCHEME 5, 6 @ 7,24 GET m.wziOps ; PICTURE "@^" ; FROM wzaOps ; SIZE 3,12 ; DEFAULT 1 ; COLOR SCHEME 5, 6 @ 8,40 GET m.wzsValue ; SIZE 1,22 ; DEFAULT " " ; PICTURE "@K!" ; WHEN valuewhen() @ 12,22 GET m.wzidone ; PICTURE "@*HN \<OK;\<Cancel" ; SIZE 1,8,2 ; DEFAULT 1 ; VALID findbtn() IF NOT WVISIBLE("_qn212xmo7") ACTIVATE WINDOW _qn212xmo7 ENDIF READ CYCLE MODAL RELEASE WINDOW _qn212xmo7 RETURN IIF(m.wzidone=2,0,m.fradio1) PROCEDURE valuewhen DO CASE CASE _Windows OR _DOS IF EMPTY(EVAL(VARREAD())) KEYBOARD "{home}" ENDIF ENDCASE RETURN PROCEDURE findbtn DO CASE CASE m.wzidone = 1 AND m.fradio1 = 1 DO CASE CASE TYPE(wzafields(m.wzifields)) = "C" m.theval = "'" + ALLTRIM(m.wzsvalue) +"'" CASE TYPE(wzafields(m.wzifields)) = "D" m.theval = "{" + ALLTRIM(m.wzsvalue) + "}" OTHERWISE m.theval = ALLTRIM(m.wzsvalue) ENDCASE m.wzcfiltexpr = wzafields(m.wzifields)+wzaops(m.wziops)+m.theval IF TYPE(m.wzcfiltexpr)#"L" WAIT WINDOW C_BADEXPR _CUROBJ = OBJNUM(m.wzsValue) RETURN ENDIF SET FILTER TO &wzcfiltexpr CASE m.wzidone = 1 AND m.fradio1 = 2 SET FILTER TO CASE m.wzidone = 2 ENDCASE CLEAR READ RETURN PROCEDURE fradioval DO CASE CASE m.fradio1 = 1 SHOW GETS ENABLE CASE m.fradio1 = 2 SHOW GET m.wzifields DISABLE SHOW GET m.wziOps DISABLE SHOW GET m.wzsValue DISABLE ENDCASE RETURN PROCEDURE findval DO CASE CASE m.find_drop = 1 #DEFINE MAXGETS 100 * create the fields array from gets on screen DIMENSION wzafields(MAXGETS) i = 1 DO WHILE !EMPTY(FIELD(i)) wzafields(i) = FIELD(i) i = i + 1 ENDDO DIMENSION wzafields(i-1) IF !finddlog() RETURN ENDIF GO TOP COUNT to m.fndcnt WAIT WINDOW 'Found '+ALLTRIM(STR(m.fndcnt))+' records.' NOWAIT CASE m.find_drop = 2 SET FILTER TO ENDCASE IF EOF() GO TOP ENDIF SCATTER MEMVAR MEMO SHOW GETS RETURN PROCEDURE finddlog m.rborder = SET("READBORDER") SET READBORDER ON IF NOT WEXIST("_qn20z1r1q") DEFINE WINDOW _qn20z1r1q ; AT 0.000, 0.000 ; SIZE 10.077,62.000 ; TITLE "Microsoft FoxPro" ; FONT "MS Sans Serif", 8 ; STYLE "B" FLOAT NOCLOSE ; MINIMIZE SYSTEM ; COLOR RGB(,,,192,192,192) MOVE WINDOW _qn20z1r1q CENTER ENDIF dimension wzaops(7) wzaops(1) = "=" wzaops(2) = "<" wzaops(3) = "<=" wzaops(4) = ">" wzaops(5) = ">=" wzaops(6) = "<>" wzaops(7) = "==" IF WVISIBLE("_qn20z1r1q") ACTIVATE WINDOW _qn20z1r1q SAME ELSE ACTIVATE WINDOW _qn20z1r1q NOSHOW ENDIF @ 4.615,2.833 GET m.wzifields ; PICTURE "@^" ; FROM wzafields ; SIZE 1.538,19.333 ; DEFAULT 1 ; FONT "MS Sans Serif", 8 ; STYLE "B" @ 4.615,24.833 GET m.wziOps ; PICTURE "@^" ; FROM wzaOps ; SIZE 1.538,12.000 ; DEFAULT 1 ; FONT "MS Sans Serif", 8 ; STYLE "B" @ 4.923,40.167 GET m.wzsValue ; SIZE 1.000,22.000 ; DEFAULT " " ; FONT "MS Sans Serif", 8 ; PICTURE "@K!" ; WHEN valuewhen() ; COLOR ,RGB(,,,255,255,255) @ 1.000,2.833 SAY "Which records do you want to see?" ; FONT "MS Sans Serif", 8 ; STYLE "BT" @ 7.538,20.833 GET m.wzidone ; PICTURE "@*HN \<OK;\<Cancel" ; SIZE 1.615,8.667,1.667 ; DEFAULT 1 ; FONT "MS Sans Serif", 8 ; STYLE "B" ; VALID findbtn() @ 3.538,3.000 SAY "Fields:" ; FONT "MS Sans Serif", 8 ; STYLE "BT" @ 3.538,24.833 SAY "Operators:" ; FONT "MS Sans Serif", 8 ; STYLE "BT" @ 3.538,40.833 SAY "Value:" ; FONT "MS Sans Serif", 8 ; STYLE "BT" @ 6.692,2.833 TO 6.692,59.000 ; PEN 1, 8 ; STYLE "1" ; COLOR RGB(128,128,128,128,128,128) @ 6.769,3.000 TO 6.769,59.167 ; PEN 1, 8 ; STYLE "1" ; COLOR RGB(255,255,255,255,255,255) IF NOT WVISIBLE("_qn20z1r1q") ACTIVATE WINDOW _qn20z1r1q ENDIF READ CYCLE MODAL RELEASE WINDOW _qn20z1r1q SET READBORDER &rborder RETURN m.wzidone=1 PROCEDURE valuewhen DO CASE CASE _Windows OR _DOS IF EMPTY(EVAL(VARREAD())) KEYBOARD "{home}" ENDIF ENDCASE RETURN PROCEDURE findbtn DO CASE CASE m.wzidone = 1 DO CASE CASE TYPE(wzafields(m.wzifields)) = "C" m.theval = "'" + ALLTRIM(m.wzsvalue) +"'" CASE TYPE(wzafields(m.wzifields)) = "D" m.theval = "{" + ALLTRIM(m.wzsvalue) + "}" OTHERWISE m.theval = ALLTRIM(m.wzsvalue) ENDCASE m.wzcfiltexpr = wzafields(m.wzifields)+wzaops(m.wziops)+m.theval IF TYPE(m.wzcfiltexpr)#"L" WAIT WINDOW C_BADEXPR _CUROBJ = OBJNUM(m.wzsValue) RETURN ENDIF SET FILTER TO &wzcfiltexpr CASE m.wzidone = 2 ENDCASE CLEAR READ RETURN FNAME wzback.bmp 8 wzclose.bmp 14 wzdelete.bmp 20 wzedit.bmp 26 wzend.bmp 32 wzlocate.bmp 38 wznew.bmp 44 wznext.bmp 50 wzsave.bmp 56 wztop.bmp 62 wzundo.bmp 68 wzclose.msk 74 wzdelete.msk 77 wzedit.msk 80 wzlocate.msk 83 wznew.msk 86 wzsave.msk 89 wzundo.msk 92 wzprint.bmp 95 wzprint.msk 101 SCREEN WSTYLE STYLEDESC SCRNFILE SCRNNUM LABEL1 LABEL2 MESSAGE BMPFILE BWBMPFILE PICTURE WFILE PREPROC POSTPROC TITLE pickfield wiz_2 2Available Fields: Selected Fields: 8QF_FLD.BMP BWQF_FLD.BMP Screen Wizard - Step 2 of 5 style Standard Standard wiz_3 4Select a style: Select a button type: 10QF_STY1.BMP BWSTNDRD.BMP wz_s1defaddbmps addcode Screen Wizard - Step 4 of 5 style Chiseled Chiseled wiz_3 4Select a style: Select a button type: 13QF_STY2.BMP BWCHISEL.BMP wz_s2defaddbmps addcode Screen Wizard - Step 4 of 5 style Shadowed Shadowed wiz_3 4Select a style: Select a button type: 16QF_STY3.BMP BWSHADOW.BMP wz_s3defaddbmps addcode Screen Wizard - Step 4 of 5 style Boxed Boxed wiz_3 4Select a style: Select a button type: 19QF_STY4.BMP BWBOXED.BMP wz_s4defaddbmps addcode Screen Wizard - Step 4 of 5 end wiz_5 6Enter a title for your screen: Your screen is finished. 22 Screen Wizard - Step 5 of 5 style Embossed Embossed wiz_3 4Select a screen style: Select a buttons type: 23QF_STY5.BMP BWEMBOSS.BMP wz_s5defaddbmps addcode Screen Wizard - Step 4 of 5 sort wiz_6 3Available Fields: Sort Order of Records: 26SORT.BMP BWQF_FLD.BMP Screen Wizard - Step 3 of 5 button wiz_edit 5Select a method for storing input fields: 29 Screen Wizard - Step 4b of 5 table wiz_1b 1Select a table: 30OPENTABL.BMP BWQF_FLD.BMP Screen Wizard - Step 1 of 5 \Which fields do you want to include? Select each field you want and click the Add button. :Which style and button type do you want for your screen? First, select an overall style for the screen. Then, choose a style for the record navigation and editing buttons. 8Which style and button type do you want for your screen? First, select an overall style for the screen. Then, choose a style for the record navigation and editing buttons. 8Which style and button type do you want for your screen? First, select an overall style for the screen. Then, choose a style for the record navigation and editing buttons. 8Which style and button type do you want for your screen? First, select an overall style for the screen. Then, choose a style for the record navigation and editing buttons. (Select an option below and click Finish. Which style and button type do you want for your screen? First, select an overall style for the screen. Then, choose a style for the record navigation and editing buttons. By which fields do you want to sort the records? Select each field you want to sort by and click the Add button. (Select up to 3 fields.)ds.) 1How do you want to store input field information? Which table do you want to use? WZMAINFF Wizard must be called from WIZARD.APP IPROGCNT LISGOOD WIZ_3 STANDARD WIZ_3 BWSTNDRD.BMP QF_STY1.BMP bwtxtbtn.bmp bwpicbtn.bmp8 textbtns.bmp pictbtns.bmp8 wizpix WIZ_SCRN WIZ_3.SPR ISTYLEITEMWZASTYARR SCRNFILE WSTYLE WZ_SPECS WIZPIX BWBMPFILE WZSBMPFILEBMPFILE LEWZSBTNFILEWZIBUTTONSSTYLEDESC ASTYARR CLREGN TEMWIZ_3 WIZ_3 BWSTNDRD.BMP QF_STY1.BMP wiz_pic.spr ISTYLEITEMSCRNFILE MWSTYLE WZASTYARR WIZPIX TEMBWBMPFILE WZSBMPFILEBMPFILE LEWIZ_PIC LESPR TNFILE bwtxtbtn.bmp textbtns.bmp bwpicbtn.bmp pictbtns.bmp wiz_pic.spr WZIBUTTONSWZSBTNFILEWIZ_PIC LESPR TYARR STYLEVAL VBUTTONS TALKz COMPATIBLEz wiz_scrn WIZ_SCRN WIZ_SCRN.PJX WIZ_SCRN WIZ_SCRN.SCX WIZ_SCRN WIZ_SCRN.MNX WIZ_SCRN WIZ_SCRN.PRG WIZ_SCRN WIZ_SCRN.FRX WIZ_SCRN WIZ_SCRN.QPR wiz_obj.spr wiz_scrn @ 10,19 GET m.iStyleitem PICTURE "@&N" FROM wzaStyarr SIZE 6,29 DEFAULT 1 WHEN styleval() COLOR SCHEME 16 wiz_btns.spr wiz_scrn wiz_scrn TALKz COMPATIBLEz READBORDERz wiz_scrn WIZ_SCRN WIZ_SCRN.PJX WIZ_SCRN WIZ_SCRN.SCX WIZ_SCRN WIZ_SCRN.MNX WIZ_SCRN WIZ_SCRN.PRG WIZ_SCRN WIZ_SCRN.FRX WIZ_SCRN WIZ_SCRN.QPR Geneva wiz_scrn Geneva Geneva Geneva Geneva Geneva |?U9@ @ 13.308,2.000 GET m.iStyleitem PICTURE "@&N3" FROM wzaStyarr SIZE 4.667,27.400 DEFAULT 1 FONT "Geneva", 9 WHEN styleval() Geneva @*RVN3 Text;Picture Geneva @*HN3 \?\<Cancel wiz_scrn Geneva @*HT3 < \<Back Geneva @*HT3 \<Next > Geneva @*HT3 \<Finish wiz_scrn wiz_scrn SET READBORDER &rborder TALKz COMPATIBLEz READBORDERz wiz_scrn WIZ_SCRN WIZ_SCRN.PJX WIZ_SCRN WIZ_SCRN.SCX WIZ_SCRN WIZ_SCRN.MNX WIZ_SCRN WIZ_SCRN.PRG WIZ_SCRN WIZ_SCRN.FRX WIZ_SCRN WIZ_SCRN.QPR MS Sans Serif wiz_pic.spr wiz_obj.spr wiz_scrn MS Sans Serif MS Sans Serif 3333332@ MS Sans Serif MS Sans Serif |?U9@ @ 13.308,2.200 GET m.iStyleitem PICTURE "@&N" FROM wzaStyarr SIZE 4.615,27.400 DEFAULT 1 FONT "MS Sans Serif", 8 WHEN styleval() MS Sans Serif @*RVN Text;Picture wiz_btns.spr wiz_scrn wiz_scrn SET READBORDER &rborder WZSCRNTITLWIZPIX TITLE CURRAREA TALKSTAT COMPSTAT WIZ_SCRN DO_IT TITLLABEL1 EXITWIZ _QN616POFZRBORDER MESSAGE LABEL2 WZIBUTTONSVBUTTONS WZICANBTN WZIBACKBTNWZINEXTBTNWZIENDBTN WZSBMPFILEWZSBTNFILE_QN616PP4CWIZ_PIC _QN616PPLU@ CURRWIND LWZ_SHOW WIZ_SCRN CURRWIND LWZ_SHOW WIZ_SCRN WZSBMPFILEWZSBTNFILE WIZ_SCRN 3333332@ CURRWIND LWZ_SHOW WIZ_SCRN WZSBTNFILE_QN616POFZ _QN616PP4C _QN616PPLU wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp xwwpp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp xwwpp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp xwwpp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp xwwpp xwwpp wwwwwwwwwwwwww wwwww xwwpp wwwwww wwwwwwww wwwwwww wwwwwww xwwpp wwwwww xwwpp wwwwwwwwwwwwwwwwwwwwwwwww p;wpw wwwwwwwwwwx wwwwwwwwww wwwwwwwwwww wwwwwwwwwwwx wwwwwww wwwwwww wwwwwwww wwwwwwwwx wwwww wwwww wwwwwwwwwwwwwww wwwwwwwwwwwwwwwx wwwwwwwwwwwwww pwwwwwwwwwwwwwww wwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwww wpwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwp wwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwp wwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp xwwpp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp xwwpp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp xwwpp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp xwwpp xwwpp wwwwwwwwwwwwww wwwww xwwpp wwwwww wwwwwwww wwwwwww wwwwwww xwwpp wwwwww xwwpp wwwwwwwwwwwwwwwwwwwwwwwww p;wpw wwwwwwwwwwx wwwwwwwwww wwwwwwwwwww wwwwwwwwwwwx wwwwwww wwwwwww wwwwwwww wwwwwwwwx wwwww wwwww wwwwwwwwwwwwwww wwwwwwwwwwwwwwwx wwwwwwwwwwwwww pwwwwwwwwwwwwwww wwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwww wpwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwp wwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwp wwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp xwwpp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp xwwpp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp xwwpp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp xwwpp xwwpp wwwwwwwwwwwwww wwwww xwwpp wwwwww wwwwwwww wwwwwww wwwwwww xwwpp wwwwww xwwpp wwwwwwwwwwwwwwwwwwwwwwwww p;wpw wwwwwwwwww wwwwwwwwww wwwwwwwwwwx wwwwwwwwww wwwwwwwwwww wwwwwwwwwwwx wwwwwww wwwwwww wwwwwwwwwwwwwwww wwwwwwwwwwwwwwww wwwwwwww wwwwwwwwx wwwww wwwww wwwwwwwwwwwwwww wwwwwwwwwwwwwwwx wwwwwwwwwwwwww pwwwwwwwwwwwwwww wwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwww wpwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwp wwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwp wwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp xwwpp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp xwwpp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp xwwpp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp xwwpp xwwpp wwwwwwwwwwwwww wwwww xwwpp wwwwww wwwwwwww wwwwwww wwwwwww xwwpp wwwwww xwwpp wwwwwwwwwwwwwwwwwwwwwwwww p;wpw wwwwwwwwwwx wwwwwwwwww wwwwwwwwwww wwwwwwwwwwwx wwwwwww wwwwwww wwwwwwww wwwwwwwwx wwwww wwwww wwwwwwwwwwwwwww wwwwwwwwwwwwwwwx pwDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD tDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@w wwwwwwwwwwwwww tDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@pwwwwwwwwwwwwwww wDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD wtDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD tDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD@w DDDDDDDDDDD DHDHHDHHDHHDHHDHHDDDDDDDDDDDD DDDDDDDDDDD@w DDDDDDDDDDD wwpOOOOOO@ DDHHDHHDHHDHHDHHDDDDDDDDDD@w OOOOOOOOOOOOOOOOOOOOOOO DDDDDDDDD wwpOOO wxDDDDDDDDDDDDDDDDDDDDDDDD@w OOOOO@ DDDDDDDDDDDDDDDDDDDDDDD wwpOOOOOOOO@ wDDDDDDDDDDDDDDDDDDDDDDD@w OOOOOOOOOOOOOOOOOOOOOOOOO wtDDDDDDDDDDDDDDDDDDDDDD wwpOOOOOOOOO@ wDDDDDDDDDDDDDDDDDDDDD@w OOOOOOOOOOOOOOOOOOOOOOOOOO wtDDDDDDDDDDDDDDDDDDDD wwwwwwwwwwwwwp pwtDDDDDDDDDDDDDDDDDD wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwww wwDDDDDDDDDDDDDDDD wpwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwww wwtDDDDDDDDDDDDD wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwp wwwwDDDDDDDDDD wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwp wwwwwDDDwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwp wwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp xwwpp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp xwwpp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp xwwpp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp xwwpp xwwpp wwwwwwwwwwwwww wwxooooogwww wwwww ooooooooooooooooooooooooooooo xwwpp wwwwhgwwp wwwwww wwwwwwwwogwwwwwwwo wwwwwwwooooo xwwpp wwwwww ooooo xwwpp fffffffo ffffffffffff ooooo ffffffffffffffo fffffffffffffffff wwoooooooooooooooooooooooo fffffffffffffffffff pffffffffffffffffffffo wwwwwwwwwwwwwwwwwwwwwwwww p;wpw fffffffffffffffffffffo pfffffffffffffffffffffff wwoooooooooooooooooooooo fffffffffffffffffffffffo wwpoo pfffffffffffffffffffffffff wwooooooooooooooooooooo fffffffffffffgwwwwwwwwwww wwpooo pffffffffffffff` oooooooooooooooooooo ffffffffffffff` wwwwwwwwwwv wwpooo`3x wwwwwwwwww oooooooooo wwpoooo pfff`fff wwooooooooooooooooooo ff`ff f`fff` wwpoooo`w ffff`f`f oooooooooooooooooo pffffff wwpoooo pffff f`ffffffffff` wwwwwwwwwww oooooooo ffffffffff` wwwwwwwwwwwv wwpooo`w fffffffffffffffff` woooooooooooooooooo pffffffffffffffffff` wwpooo pffffffffffffffffff` ooooooooooooooooo fffffffffffffffffffffffffffffffffffo wwpooo fffffffffffffffffffffffffffffffffffo ooooooooooooooooo ffffffffffffffffffffffffffffffffffff wwwwwww wwpoo`pfffffffffffffffffffffffffffffffffffff wwwwwwwoooooooooooo pfffffffffffffffffffffffffffffffffffffo wwpoo`pfffffffffffffffffffgwwwwwwwwwwwwwwwww wooooooooooooooooo pfffffffffffffffffff` wwpoo pfffffffffffffffffff` wooooooooooooooooo fffffffffffffffffff` wwpoo wwwwwwww ooooooooo wwwwwwwwv wwpoo wooooooooooooooooo fff`f`f` wwpoo wooooooooooooooooo wwpoo ffff`ffffffffffffff` wooooooooooooooooo ffff`ffffffffffffff` wwwww wwpoo fffffffffffffffffff` wwwwwooooooooooooo fffffffffffffffffff` wwpoo pvfffffffffffffffffffffffffffffffffffff ooooooooooooooooo pvfffffffffffffffffffffffffffffffffffff wwpoo`pvfffffffffffffffffffffffffffffffffffff woooooooooooooooooo pvfffffffffffffffffffffffffffffffffffff wwpoo` wfffffffffffffffffffffffffffffffffffff wwwwwwwwwwwwwww pwfffffffffffffffffffffffffffffffffffff wwwwwwwwwwwwwwwv wwpooo ffffffffffffffffffffffffffffffffffff`pw oooooooooooooooooo ffffffffffffffffffffffffffffffffffff`pwv wwpooo vfffffffffffffffffffffffffffffffffff`pwooooooooooooooooooo wwpooo`pwfffffffffffffffffffffffffffffffffff ooooooooooooooooooo vfffffffffffffffffffffffffffffffff`w wwwwwwwwwwwwww wwpoooo vfffffffffffffffffffffffffffffffff`pwwwwwwwwwwwwwwwoooooo wfffffffffffffffffffffffffffffffff wwpoooo` wvffffffffffffffffffffffffffffffff oooooooooooooooooooo vfffffffffffffffffffffffffffffff`w wwpooooo fffffffffff ooooooooooooooooooooo f`f``f``f``f``f``ffffffffffff fffffffffff`w fffffffffff wwpoooooo` ff``f``f``f``f``ffffffffff`w ooooooooooooooooooooooo fffffffff wwpooo ffffffffffffffffffffffff`w ooooo` fffffffffffffffffffffff wwpoooooooo` wfffffffffffffffffffffff`w ooooooooooooooooooooooooo wvffffffffffffffffffffff wwpooooooooo` wfffffffffffffffffffff`w oooooooooooooooooooooooooo wvffffffffffffffffffff wwwwwwwwwwwwwp pwvffffffffffffffffff wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwww wwffffffffffffffff wpwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwww wwvfffffffffffff wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwp wwwwffffffffff wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwp wwwwwfffwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwp wwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwww wwwwwwww wwwwwwww wwwwwwww wwwwwwww wwwwwwww wwwwwwww wwwwwwww wwwwwwww wwwwwwww wwwwwwww wwwwwwww wwwwwwww wwwwwwww wwwwwwx wwwwwwx wwwwwww wwwwwwx wwwwwwx wwwwwwwwwwww wwwwwwx wwwwwwx wwwwwwwwwwwwww wwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwww wwwwwwwwwwwwwww wwwwwwwwwwwwww wwwwwwwwwwwwww wwwpwww wwpww wpwww wwwwpwpw wwwwww wpwwwwwwwwww wwwwwwwwww wwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwww wwwpwpwp wwwwpwwwwwwwwwwwwww wwwwpwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwww wpwppwppwppwppwppwwwwwwwwwwww wwwwwwwwwwwp wwwwwwwwwww wwppwppwppwppwppwwwwwwwwwwp wwwwwwwww pwwwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwp wwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwww wwwwwwwwwwwww wwwwwwwwww wwwwp wwwwwwwwwwwwwwwwwwwwwww wwwwx wwwwp wwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwww wwwwp wwwwwwwwwwwwwwwwwwwwwww wwwwp wwwwwww pwppwwwwwww wwwwp wwwwwww wwwwwww wwwwx wwwwwww wwwwwww wwwwp wwwwwww wwwwwww wwwwp wwwwwww wwwwwww wwwwwww wwwww wwwwwww wwwwp wwwwwww wwwwwwwwwwwww wwwwp wwwwwwwwwwwwwwwwwwwwwww wwwwx wwwwp wwwwwwwwwwwwwwwwwwwwwww wwwwp wwwwwwwwwwwwwwwwwwwwwww wwwwx BOXED wzmemofldF wzcboxF wzfieldF nooffF wzlabel2F column2F wzlabel1F upperF lowerF wzfooterF inheadF .TMPFF wz_newwiz SKIPz wz_newwiz wz_newwiz wzborderF wz_newwiz postfldF wzprefxF wz_newwiz wzfxF postfldF wzborderF wzfooterF txtbuttonF inheadF wz_newwiz BOXED IHINC IVINC E wzITPOS le ;IMPOS OAT ILASTPOS OWZILBLWID WZIFLDWID IDEFLBLWIDWZSCOLON RWZILBLLEN LNOOFFSET WZIMAXFX WZIMAXLBL WZIMAXFLD WZATMPARR WZAARRAY *WZAREC ***WZLHASENVILISNEWCOL SSAVEDBF LCALCFLD ICALCPOS WZLHASALIAWZ_SPECS IWZTMPARR WZTMPCURS OBJTYPE WZ_MAXW -WIDTH N 2 WZ_MAXH HEIGHT *OBJCODE COMMENT WZ_MHEIGHTWZ_MWIDTH WZ_FVPOS VPOS WZ_FHPOS *HPOS *****WZ_FWIDTH WZ_L2VPOS WZ_COL2POSWZ_LVPOS SWZ_LHPOS WZ_V2OFFSEWZ_VOFFSETWZ_HOFFSETI MMENT *WZ_FIELDS WZ_FLIST WZTMPSTR WZ_MARGIN WZ_XSMARGIWZ_IS1COL WZ_TESTVPOGETVOFF POWZTBLARR OTSTAMP WZSSAVEFILGETTAG ATMPARR WZIEDITTYPWZ_STYLE AADDHEADER ACOLSCAN WZ_FCALC WZ_ALERT WZATEXT GETHPOS GETVPOS GETWIDTH GETPICTUREWZIBUTTONSADDLBLS ADDFX ****GETHOFF *WZ_NEWWIZ GROUPBOXES IGETHEIGHTWZ_FLIST ;WZ_V2OFFSEWZ_MHEIGHT GETVOFF NEWPOS GHTT1 FLIST V2OFFSEIHINC IGHTIVINC IGHTLISNEWCOL GETHEIGHT ILASTPOS RIMPOS GETHOFF WZ_IS1COL FLIST ;WZ_FIELDS IHINC IGHTWZIMAXFX TWZIMAXLBL WZIMAXFLD WZ_COL2POSIS2COL2LONLISNEWCOL WZ_LHPOS wzheaderF titleF upperF lowerF properF wz_newwiz wzheadfxF hstretchF floatF wz_newwiz MYTITLE STTWID MYTITLEWD STTHPOS COMMENT HTWZATMPARR OBJTYPE WZ_SPECS TSTAMP skipmemoF skiplogicF nomacF tietolblF vstretchF aboveF hstretchF hstretchF floatF floatF BOXED wz_newwiz CCONTENTS SVWIDTH SVVPOS TLBLWIDTH WZ_FLIST IMPOS COMMENT WZLBLSTR WZ_FIELDS SNEWCOL WZSCOLON WZ_FVPOS WZ_MHEIGHTLNOOFFSET WZILBLWID WZ_LHPOS *WZ_HOFFSETWZ_FHPOS WZ_FWIDTH IHINC TSTAMP WZ_SPECS AWZTMPCURS WZIMAXFX leftF wz_newwiz WZLARR WZLBLSTR WZ_FIELDS WZSCOLON WZ_LVPOS IVINC COMMENT IHINC IDEFLBLWIDTSTAMP WZIMAXLBL nooffF nooffF IGETHPOS COMMENT WZ_FLIST IMPOS WZ_FHPOS WZILBLWID WZ_LHPOS WZ_HOFFSETIHINC IGETVPOS WZ_FLIST IMPOS WZ_VOFFSETWZ_LVPOS IVINC 99/99/99@ ARRPOS IGETWIDTH WZ_FLIST WZ_MWIDTH mac3dF "@*C3 " "@*C "8 mac3dF "@3K "@K 8 mac3dF "@3K "@K 8 mac3dF "@3K" "@K"8 SGETPICTURSBASE WZ_FLIST IMPOS COMMENT URGETNUMSTR WZAARRAY BOXED IARRPOS URITMPWIDTH _FLIST WZ_FIELDS ITPOS URWZ_FLIST GETWIDTH WZ_SPECS RWZ_MAXW TWZ_COL2POSWZ_LHPOS WZILBLWID WZ_HOFFSET NUMCHARS RSGETNUMSTRZ ETNUMSTR CHR(195) CHR(194) CHR(193) CHR(180) CHR(193) CHR(197) CHR(193) CHR(194) CHR(180) CHR(197) CHR(194) CHR(194) CHR(193) CHR(180) wz_newwizQ WZTMPCURS WZATMPARR TSTAMP OBJTYPE WZLASTREC WZLASTVPOSVPOS WZLASTHPOSHPOS TWZLASTWID WIDTH WZLASTHI HEIGHT SETWZSKCNT WZ_IS1COL WZ_NEWWIZ WZTMPCNT SSAVEDBF GETHEIGHT GETVOFF GETHOFF ADDHEADER ADDFX ADDLBLS GETHPOS GETVPOS J' GETWIDTH GETPICTURE IS2COL2LON GETNUMSTR GROUPBOXES PLATFORM UNIQUEID TIMESTAMP OBJTYPE OBJCODE HEIGHT WIDTH STYLE PICTURE ORDER UNIQUE COMMENT ENVIRON BOXCHAR FILLCHAR PENRED PENGREEN PENBLUE FILLRED FILLGREEN FILLBLUE PENSIZE PENPAT FILLPAT FONTFACE FONTSTYLE FONTSIZE RULER RULERLINES GRIDV GRIDH SCHEME SCHEME2 COLORPAIR LOTYPE RANGELO HITYPE RANGEHI WHENTYPE VALIDTYPE VALID ERRORTYPE ERROR MESSTYPE MESSAGE SHOWTYPE ACTIVTYPE ACTIVATE DEACTTYPE DEACTIVATE PROCTYPE PROCCODE SETUPTYPE SETUPCODE FLOAT CLOSE MINIMIZE BORDER SHADOW CENTER REFRESH DISABLED SCROLLBAR ADDALIAS INITIALVAL INITIALNUM SPACING CURPOS DOS _QE30Y8YVJ 462790836 1 63 0.000 0.000 23.000 74.000 1 T 16 5 6 1 1 1 1 0 171 1 T T1TT T DOS _QEC145SW0 443979142 2 1 18 T 19 DOS _QE30YC4N1 443705105 5 0 20 0.000 2.000 1.000 5.000 21 0 DOS _QE30YCJ0C 444100024 7 4 1.000 0.000 1.000 72.000 22 0 DOS _QE5114T0H 443705028 5 0 23 0.000 25.000 1.000 15.000 GR+/B DOS _QE5116J24 444032845 7 4 8.000 11.000 9.000 42.000 0 DOS _QE5116N3E 443705043 5 0 24 8.000 13.000 1.000 16.000 0 DOS _QEB17DO5T 444100028 7 4 19.000 0.000 1.000 72.000 25 0 DOS _QE3120O9Q 44410000715 1 26 3.000 9.000 1.000 17.000 28 27 C 0 1 1 0 291 1 1 FFF F 0 DOS _QE311ZVLZ 44410001115 2 30 10.000 15.000 4.000 36.000 32 31 C 0 1 1 0 331 1 1 FFT F 0 DOS _QE310QBJ7 46272855914 1 34 15.000 15.000 1.000 5.000 36 35 0 0 371 1 F 0 DOS _QEC144R6M 44397911615 0 38 3.000 32.000 1.000 12.000 40 39 C 0 1 1 1 1 1 1 FFF F 0 DOS _QJD0LA38B 45688353412 1 41 20.000 0.000 1.000 5.000 43 42 0 0 1 1 1 0 44 0 45 F 46 1 1.000 DOS _QJD0LD4DB 45688352412 1 47 20.000 6.000 1.000 6.000 49 48 0 0 1 1 1 0 50 0 51 F 52 1 1.000 DOS _QJD0LDNBZ 45688352812 1 53 20.000 13.000 1.000 6.000 55 54 0 0 1 1 1 0 56 0 57 F 58 1 1.000 DOS _QJD0LE3M8 45688350812 1 59 20.000 20.000 1.000 5.000 61 60 0 0 1 1 1 0 62 0 63 F 64 1 1.000 DOS _QJD0LFIJC 45688350312 1 65 20.000 26.000 1.000 8.000 67 66 0 0 1 1 1 0 68 0 69 F 70 1 1.000 DOS _QJD0LFYWL 45688354212 1 71 20.000 35.000 1.000 5.000 73 72 0 0 1 1 1 0 74 0 75 F 76 1 1.000 DOS _QJD0LGDO7 45688354912 1 77 20.000 41.000 1.000 6.000 79 78 0 0 1 1 1 0 80 0 81 F 82 1 1.000 DOS _QJD0LGTKA 45688355612 1 83 20.000 48.000 1.000 8.000 85 84 0 0 1 1 1 0 86 0 87 F 88 1 1.000 DOS _QJD0LH85A 45688332512 1 89 20.000 57.000 1.000 7.000 91 90 0 0 1 1 1 0 92 0 93 F 94 1 1.000 DOS _QJD0LHS6B 45688330112 1 95 20.000 65.000 1.000 7.000 97 96 0 0 1 1 1 0 98 0 99 F 100 1 1.000 DOS _QLY0YILRL 462782670 5 0 101 3.000 2.000 1.000 6.000 102 0 DOS _QLY0YJ16Z 462782680 5 0 103 5.000 2.000 1.000 6.000 104 0 DOS _QN213GPZ0 47404891414 1 105 0.000 59.000 1.000 11.000 107 106 0 1 0 108 1 F 0 "Screen Name" readdeac() ..\OFFICES.DBF OFFICES "TITLE" wzheader title wzheader "Standard Style " "Default Objects:" wzfooter field wzfield isediting standard wzmemofld isediting m.wzckdummy wzcbox "@*C " isediting column2 column2 m.top_btn wzfooter txtbutton "@*HN \<Top" btn_val('TOP') 'Go to first record.' "Top"% m.prev_btn wzfooter txtbutton "@*HN \<Prev" btn_val('PREV') 'Go to previous record.' "Prev" m.next_btn wzfooter txtbutton "@*HN \<Next" btn_val('NEXT') 'Go to next record.' "Next" m.end_btn wzfooter txtbutton "@*HN \<End" btn_val('END') 'Go to last record.' "End" m.loc_btn wzfooter txtbutton "@*HN \<Locate" btn_val('LOCATE') 'Locate a record.' "Locate" m.add_btn wzfooter txtbutton "@*HN \<Add" btn_val('ADD') 'Add a new record.' "Add" m.edit_btn wzfooter txtbutton "@*HN Ed\<it" btn_val('EDIT') 'Edit current record.' "Edit" m.del_btn wzfooter txtbutton "@*HN \<Delete" btn_val('DELETE') 'Delete current record.' "Delete" m.prnt_btn wzfooter txtbutton "@*HN P\<rint" btn_val('PRINT') 'Print report.' "Print" m.exit_btn wzfooter txtbutton "@*HN \<Close" btn_val('EXIT') 'Close screen.' "Close" "label1" wzlabel1 : "label2" wzlabel2 m.find_drop findcbox "@*C \<Find..." findval()$ "Screen Name" readdeac() ..\OFFICES.DBF OFFICES "TITLE" wzheader title wzheader "Standard Style " "Default Objects:" wzfooter field wzfield isediting standard wzmemofld isediting m.wzckdummy "@*C " wzcbox isediting column2 column2 m.top_btn "@*HN \<Top" wzfooter txtbutton btn_val('TOP') 'Go to first record.' "Top" m.prev_btn "@*HN \<Prev" wzfooter txtbutton btn_val('PREV') 'Go to previous record.' "Prev" m.next_btn "@*HN \<Next" wzfooter txtbutton btn_val('NEXT') 'Go to next record.' "Next" m.end_btn "@*HN \<End" wzfooter txtbutton btn_val('END') 'Go to last record.' "End" m.loc_btn "@*HN \<Locate" wzfooter txtbutton btn_val('LOCATE') 'Locate a record.' "Locate" m.add_btn "@*HN \<Add" wzfooter txtbutton btn_val('ADD') 'Add a new record.' "Add" m.edit_btn "@*HN Ed\<it" wzfooter txtbutton btn_val('EDIT') 'Edit current record.' "Edit" m.del_btn "@*HN \<Delete" wzfooter txtbutton btn_val('DELETE') 'Delete current record.' "Delete" m.prnt_btn "@*HN P\<rint" wzfooter txtbutton btn_val('PRINT') 'Print report.' "Print" m.exit_btn "@*HN \<Close" wzfooter txtbutton btn_val('EXIT') 'Close screen.' "Close" "label1" wzlabel1 : "label2" wzlabel2 m.find_drop "@*C \<Find..." findval() PLATFORM UNIQUEID TIMESTAMP OBJTYPE OBJCODE HEIGHT WIDTH STYLE PICTURE ORDER UNIQUE COMMENT ENVIRON BOXCHAR FILLCHAR PENRED PENGREEN PENBLUE FILLRED FILLGREEN FILLBLUE PENSIZE PENPAT FILLPAT FONTFACE FONTSTYLE FONTSIZE RULER RULERLINES GRIDV GRIDH SCHEME SCHEME2 COLORPAIR LOTYPE RANGELO HITYPE RANGEHI WHENTYPE VALIDTYPE VALID ERRORTYPE ERROR MESSTYPE MESSAGE SHOWTYPE ACTIVTYPE ACTIVATE DEACTTYPE DEACTIVATE PROCTYPE PROCCODE SETUPTYPE SETUPCODE FLOAT CLOSE MINIMIZE BORDER SHADOW CENTER REFRESH DISABLED SCROLLBAR ADDALIAS INITIALVAL INITIALNUM SPACING CURPOS DOS _QE30Y8YVJ 462791699 1 63 0.000 0.000 23.000 76.000 1 T 16 8 9 1 1 1 1 0 171 1 T T1TT T DOS _QEC145SW0 443979142 2 1 18 T 19 DOS _QLY1831LL 462791752 7 4 0.000 0.000 3.000 74.000 20 B/B DOS _QE30YC4N1 443705105 5 0 21 1.000 3.000 1.000 5.000 22 W+/B DOS _QE5114T0H 443705028 5 0 23 1.000 26.000 1.000 15.000 W+/B DOS _QE5116J24 444032845 7 4 8.000 11.000 9.000 42.000 0 DOS _QE5116N3E 443705043 5 0 24 8.000 13.000 1.000 16.000 0 DOS _QEB17DO5T 462791733 7 4 18.000 0.000 3.000 74.000 25 B/B DOS _QE3120O9Q 46279179015 1 26 5.000 2.000 1.000 17.000 28 27 C 0 1 1 0 291 1 1 FFF F 0 DOS _QE311ZVLZ 46279178115 2 30 10.000 15.000 4.000 36.000 32 31 C 0 1 1 0 331 1 1 FFT F 0 DOS _QE310QBJ7 46279178414 1 34 15.000 15.000 1.000 5.000 36 35 0 0 371 1 F 0 DOS _QEC144R6M 44397911615 0 38 4.000 33.000 1.000 12.000 40 39 C 0 1 1 1 1 1 1 FFF F 0 DOS _QJD0LA38B 45688353412 1 41 19.000 1.000 1.000 5.000 43 42 1 0 1 1 1 0 44 0 45 F 46 1 1.000 DOS _QJD0LD4DB 45688352412 1 47 19.000 7.000 1.000 6.000 49 48 1 0 1 1 1 0 50 0 51 F 52 1 1.000 DOS _QJD0LDNBZ 45688352812 1 53 19.000 14.000 1.000 6.000 55 54 1 0 1 1 1 0 56 0 57 F 58 1 1.000 DOS _QJD0LE3M8 45688350812 1 59 19.000 21.000 1.000 5.000 61 60 1 0 1 1 1 0 62 0 63 F 64 1 1.000 DOS _QJD0LFIJC 45688350312 1 65 19.000 27.000 1.000 8.000 67 66 1 0 1 1 1 0 68 0 69 F 70 1 1.000 DOS _QJD0LFYWL 45688354212 1 71 19.000 36.000 1.000 5.000 73 72 1 0 1 1 1 0 74 0 75 F 76 1 1.000 DOS _QJD0LGDO7 45688354912 1 77 19.000 42.000 1.000 6.000 79 78 1 0 1 1 1 0 80 0 81 F 82 1 1.000 DOS _QJD0LGTKA 45688355612 1 83 19.000 49.000 1.000 8.000 85 84 1 0 1 1 1 0 86 0 87 F 88 1 1.000 DOS _QJD0LH85A 45688332512 1 89 19.000 58.000 1.000 7.000 91 90 1 0 1 1 1 0 92 0 93 F 94 1 1.000 DOS _QJD0LHS6B 45688330112 1 95 19.000 66.000 1.000 7.000 97 96 1 0 1 1 1 0 98 0 99 F 100 1 1.000 DOS _QLY0YILRL 462791823 5 0 101 4.000 2.000 1.000 6.000 102 B/BG DOS _QLY0YJ16Z 462782680 5 0 103 7.000 2.000 1.000 6.000 104 0 DOS _QLY180NVB 462791811 7 4 3.000 1.000 4.000 19.000 105 0 DOS _QN213I4Y4 47404892114 1 107 1.000 61.000 1.000 11.000 109 108 1 1 0 110 1 F 0 "Screen Name" readdeac() ..\OFFICES.DBF OFFICES wzheader "TITLE" wzheader title "Standard Style " "Default Objects:" wzfooter field wzfield nooff isediting standard wzmemofld nooff isediting m.wzckdummy wzcbox nooff "@*C " isediting column2 column2 m.top_btn wzfooter txtbutton "@*HN \<Top" btn_val('TOP') 'Go to first record.' "Top"% m.prev_btn wzfooter txtbutton "@*HN \<Prev" btn_val('PREV') 'Go to previous record.' "Prev" m.next_btn wzfooter txtbutton "@*HN \<Next" btn_val('NEXT') 'Go to next record.' "Next" m.end_btn wzfooter txtbutton "@*HN \<End" btn_val('END') 'Go to last record.' "End" m.loc_btn wzfooter txtbutton "@*HN \<Locate" btn_val('LOCATE') 'Locate a record.' "Locate" m.add_btn wzfooter txtbutton "@*HN \<Add" btn_val('ADD') 'Add a new record.' "Add" m.edit_btn wzfooter txtbutton "@*HN Ed\<it" btn_val('EDIT') 'Edit current record.' "Edit" m.del_btn wzfooter txtbutton "@*HN \<Delete" btn_val('DELETE') 'Delete current record.' "Delete" m.prnt_btn wzfooter txtbutton "@*HN P\<rint" btn_val('PRINT') 'Print report.' "Print" m.exit_btn wzfooter txtbutton "@*HN \<Close" btn_val('EXIT') 'Close screen.' "Close" "label1" wzlabel1 : postfld left "label2" wzlabel2 "wzprefx hstretch vstretch tietolbl m.find_drop findcbox "@*C \<Find..." findval() SCREEN WSTYLE STYLEDESC SCRNFILE SCRNNUM LABEL1 LABEL2 MESSAGE BMPFILE BWBMPFILE PICTURE WFILE PREPROC POSTPROC TITLE pickfield wiz_2 2Available Fields: Selected Fields: 8QF_FLD.BMP BWQF_FLD.BMP Screen Wizard - Step 2 of 5 style Standard Standard wiz_3 4Select a style: Select a button type: 10QF_STY1.BMP BWSTNDRD.BMP wz_s1dosaddbmps addcode Screen Wizard - Step 4 of 5 style Chiseled Chiseled wiz_3 4Select a style: Select a button type: 13QF_STY2.BMP BWCHISEL.BMP wz_s3dosaddbmps addcode Screen Wizard - Step 4 of 5 style Boxed Boxed wiz_3 4Select a style: Select a button type: 16QF_STY4.BMP BWBOXED.BMP wz_s2dosaddbmps addcode Screen Wizard - Step 4 of 5 end wiz_5 6Enter a title for your screen: Your screen is finished. 19 Screen Wizard - Step 5 of 5 sort wiz_6 3Available Fields: Sort Order of Records: 20QF_FLD.BMP BWQF_FLD.BMP Screen Wizard - Step 3 of 5 button wiz_edit 5Select a method for storing input fields: 23 Screen Wizard - Step 4b of 5 table wiz_1b 1Select a table: 24QF_FLD.BMP BWQF_FLD.BMP Screen Wizard - Step 1 of 5 \Which fields do you want to include? Select each field you want and click the Add button. (Which style do you want for your screen?for your screen? First, select an overall style for the screen. Then, choose a style for the record navigation and editing buttons. *Which style do you want for your screen? r your screen? verall style for the screen. Then, choose a style for the record navigation and editing buttons. *Which style do you want for your screen? r your screen? verall style for the screen. Then, choose a style for the record navigation and editing buttons. (Select an option below and click Finish. By which fields do you want to sort the records? Select each field you want to sort by and click the Add button. (Select up to 3 fields.)ds.) 1How do you want to store input field information? Which table do you want to use? PLATFORM UNIQUEID TIMESTAMP OBJTYPE OBJCODE HEIGHT WIDTH STYLE PICTURE ORDER UNIQUE COMMENT ENVIRON BOXCHAR FILLCHAR PENRED PENGREEN PENBLUE FILLRED FILLGREEN FILLBLUE PENSIZE PENPAT FILLPAT FONTFACE FONTSTYLE FONTSIZE RULER RULERLINES GRIDV GRIDH SCHEME SCHEME2 COLORPAIR LOTYPE RANGELO HITYPE RANGEHI WHENTYPE VALIDTYPE VALID ERRORTYPE ERROR MESSTYPE MESSAGE SHOWTYPE ACTIVTYPE ACTIVATE DEACTTYPE DEACTIVATE PROCTYPE PROCCODE SETUPTYPE SETUPCODE FLOAT CLOSE MINIMIZE BORDER SHADOW CENTER REFRESH DISABLED SCROLLBAR ADDALIAS INITIALVAL INITIALNUM SPACING CURPOS DOS _QE30Y8YVJ 462848353 1 63 0.000 0.000 23.000 74.000 1 T 16 1 2 1 1 1 1 0 171 1 T T1TT T DOS _QEC145SW0 443979142 2 1 18 T 19 DOS _QE30YC4N1 443705105 5 0 20 0.000 2.000 1.000 5.000 21 0 DOS _QE30YCJ0C 444100024 7 4 1.000 0.000 1.000 72.000 22 0 DOS _QE5114T0H 443705028 5 0 23 0.000 25.000 1.000 15.000 GR+/B DOS _QE5116J24 444032845 7 4 8.000 11.000 9.000 42.000 0 DOS _QE5116N3E 443705043 5 0 24 8.000 13.000 1.000 16.000 0 DOS _QEB17DO5T 444100028 7 4 19.000 0.000 1.000 72.000 25 0 DOS _QE3120O9Q 44410000715 1 26 3.000 9.000 1.000 17.000 28 27 C 0 1 1 0 291 1 1 FFF F 0 DOS _QE311ZVLZ 44410001115 2 30 10.000 15.000 4.000 36.000 32 31 C 0 1 1 0 331 1 1 FFT F 0 DOS _QE310QBJ7 46272855914 1 34 15.000 15.000 1.000 5.000 36 35 0 0 371 1 F 0 DOS _QEC144R6M 44397911615 0 38 3.000 32.000 1.000 12.000 40 39 C 0 1 1 1 1 1 1 FFF F 0 DOS _QJD0LA38B 45688353412 1 41 20.000 0.000 1.000 5.000 43 42 0 0 1 1 1 0 44 0 45 F 46 1 1.000 DOS _QJD0LD4DB 45688352412 1 47 20.000 6.000 1.000 6.000 49 48 0 0 1 1 1 0 50 0 51 F 52 1 1.000 DOS _QJD0LDNBZ 45688352812 1 53 20.000 13.000 1.000 6.000 55 54 0 0 1 1 1 0 56 0 57 F 58 1 1.000 DOS _QJD0LE3M8 45688350812 1 59 20.000 20.000 1.000 5.000 61 60 0 0 1 1 1 0 62 0 63 F 64 1 1.000 DOS _QJD0LFIJC 45688350312 1 65 20.000 26.000 1.000 8.000 67 66 0 0 1 1 1 0 68 0 69 F 70 1 1.000 DOS _QJD0LFYWL 45688354212 1 71 20.000 35.000 1.000 5.000 73 72 0 0 1 1 1 0 74 0 75 F 76 1 1.000 DOS _QJD0LGDO7 45688354912 1 77 20.000 41.000 1.000 6.000 79 78 0 0 1 1 1 0 80 0 81 F 82 1 1.000 DOS _QJD0LGTKA 45688355612 1 83 20.000 48.000 1.000 8.000 85 84 0 0 1 1 1 0 86 0 87 F 88 1 1.000 DOS _QJD0LH85A 45688332512 1 89 20.000 57.000 1.000 7.000 91 90 0 0 1 1 1 0 92 0 93 F 94 1 1.000 DOS _QJD0LHS6B 45688330112 1 95 20.000 65.000 1.000 7.000 97 96 0 0 1 1 1 0 98 0 99 F 100 1 1.000 DOS _QLY0YILRL 462782670 5 0 101 3.000 2.000 1.000 6.000 102 0 DOS _QLY0YJ16Z 462782680 5 0 103 6.000 2.000 1.000 6.000 104 0 DOS _QLZ0YEJXL 462848174 7 4 4.000 9.000 1.000 17.000 105 0 DOS _QN213J8XW 47404892914 1 106 0.000 59.000 1.000 11.000 108 107 0 1 0 109 1 F 0 "Screen Name" readdeac() ..\OFFICES.DBF OFFICES "TITLE" wzheader title wzheader "Standard Style " "Default Objects:" wzfooter field wzfield isediting standard wzmemofld isediting m.wzckdummy wzcbox "@*C " isediting column2 column2 m.top_btn wzfooter txtbutton "@*HN \<Top" btn_val('TOP') 'Go to first record.' "Top"% m.prev_btn wzfooter txtbutton "@*HN \<Prev" btn_val('PREV') 'Go to previous record.' "Prev" m.next_btn wzfooter txtbutton "@*HN \<Next" btn_val('NEXT') 'Go to next record.' "Next" m.end_btn wzfooter txtbutton "@*HN \<End" btn_val('END') 'Go to last record.' "End" m.loc_btn wzfooter txtbutton "@*HN \<Locate" btn_val('LOCATE') 'Locate a record.' "Locate" m.add_btn wzfooter txtbutton "@*HN \<Add" btn_val('ADD') 'Add a new record.' "Add" m.edit_btn wzfooter txtbutton "@*HN Ed\<it" btn_val('EDIT') 'Edit current record.' "Edit" m.del_btn wzfooter txtbutton "@*HN \<Delete" btn_val('DELETE') 'Delete current record.' "Delete" m.prnt_btn wzfooter txtbutton "@*HN P\<rint" btn_val('PRINT') 'Print report.' "Print" m.exit_btn wzfooter txtbutton "@*HN \<Close" btn_val('EXIT') 'Close screen.' "Close" "label1" wzlabel1 : "label2" wzlabel2 wzfx hstretch m.find_drop findcbox "@*C \<Find..." findval() "Screen Name" readdeac() ..\OFFICES.DBF OFFICES "TITLE" wzheader title wzheader "Standard Style " "Default Objects:" wzfooter field wzfield isediting standard wzmemofld isediting m.wzckdummy "@*C " wzcbox isediting column2 column2 m.top_btn "@*HN \<Top" wzfooter txtbutton btn_val('TOP') 'Go to first record.' "Top" m.prev_btn "@*HN \<Prev" wzfooter txtbutton btn_val('PREV') 'Go to previous record.' "Prev" m.next_btn "@*HN \<Next" wzfooter txtbutton btn_val('NEXT') 'Go to next record.' "Next" m.end_btn "@*HN \<End" wzfooter txtbutton btn_val('END') 'Go to last record.' "End" m.loc_btn "@*HN \<Locate" wzfooter txtbutton btn_val('LOCATE') 'Locate a record.' "Locate" m.add_btn "@*HN \<Add" wzfooter txtbutton btn_val('ADD') 'Add a new record.' "Add" m.edit_btn "@*HN Ed\<it" wzfooter txtbutton btn_val('EDIT') 'Edit current record.' "Edit" m.del_btn "@*HN \<Delete" wzfooter txtbutton btn_val('DELETE') 'Delete current record.' "Delete" m.prnt_btn "@*HN P\<rint" wzfooter txtbutton btn_val('PRINT') 'Print report.' "Print" m.exit_btn "@*HN \<Close" wzfooter txtbutton btn_val('EXIT') 'Close screen.' "Close" "label1" wzlabel1 : "label2" wzlabel2 wzfx hstretch m.find_drop "@*C \<Find..." findval() WIZ_BTNS WIZ_SCRN WZIBUTTONSWZSLASTBTNWZINEXTBTNWZIBACKBTNSCRNFILE CLREGN TALKz COMPATIBLEz READBORDERz wiz_pic.spr wiz_obj.spr wiz_scrn MS Sans Serif MS Sans Serif @*RVN Store in table fields with table name prefix (e.g., "cust.cno");Store to memory variables (e.g., "m.cno");Store in table fields, without a prefix (e.g., "cno");\\Store in an array wiz_btns.spr wiz_scrn wiz_scrn SET READBORDER &rborder CURRAREA TALKSTAT COMPSTAT RBORDER WIZ_SCRN WIZPIX TITLE WIZ_PIC DO_IT LABEL1 WZIEDITTYPEXITWIZ WZSBMPFILE wztcolf WZTARR WZTEXPR WZTCOL ACOLSCAN QFORM\ADDBMPS.PRG C:\WIZARDS\ ADDBMPS.FXP QFORM\ADDCODE.PRG ADDCODE.FXP QFORM\WZ_QFORM.PRG WZ_QFORM.FXP C:\WIZARDS\STYLES\ WZ_S1DEF.SCX WZ_S1DEF.SCT WZ_S2DEF.SCX WZ_S2DEF.SCT WZ_S3DEF.SCX WZ_S3DEF.SCT WZ_S4DEF.SCX WZ_S4DEF.SCT WZ_S5DEF.SCX WZ_S5DEF.SCT QFORM\WZ_SCRN.PRG WZ_SCRN.FXP C:\WIZARDS\QFORM\ SCXCODE.DBF SCXCODE.FPT WIZBMP.DBF WIZBMP.FPT WIZQFRM1.DBF WIZQFRM1.FPT WIZARD\CHKSRC.PRG CHKSRC.FXP QFORM\WIZ_3.PRG WIZ_3.FXP QFORM\WIZ_3.SPR WIZ_3.SPX C:\WIZARDS\BMP\ QF_STY1.BMP QF_STY1.MSK QF_STY2.BMP QF_STY2.MSK QF_STY3.BMP QF_STY3.MSK QF_STY4.BMP QF_STY4.MSK QF_STY5.BMP QF_STY5.MSK PICTBTNS.BMP QF_STY3N.BMP TEXTBTNS.BMP BWBOXED.BMP BWCHISEL.BMP BWEMBOSS.BMP BWPICBTN.BMP BWQF_FLD.BMP BWSHADOW.BMP BWSTNDRD.BMP BWTXTBTN.BMP QFORM\WZ_DSCRN.PRG WZ_DSCRN.FXP WZ_S1DOS.SCX WZ_S1DOS.SCT WZ_S2DOS.SCX WZ_S2DOS.SCT WIZQFRMD.DBF WIZQFRMD.FPT WZ_S3DOS.SCX WZ_S3DOS.SCT QFORM\WIZ_EDIT.PRG WIZ_EDIT.FXP QFORM\WIZ_EDIT.SPR WIZ_EDIT.SPX WIZARD\WIZ_PIC.SPR WIZ_PIC.SPX WIZARD\ACOLSCAN.PRG ACOLSCAN.FXP