/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual Foxpro 6.0 (Ent. Edition) / Vf6ent Extractor.EXE / FFC / AUTGRAPH.VCT

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 d2 2b 00 00 00 01 | 00 00 00 00 00 00 00 00 |...+....|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 01 00 00 00 10 | 56 45 52 53 49 4f 4e 20 |........|VERSION |
|00000210| 3d 20 20 20 33 2e 30 30 | 00 00 00 01 00 00 00 ab |=   3.00|........|
|00000220| fe f2 ff 20 02 01 00 00 | 00 92 00 00 00 92 00 00 |... ....|........|
|00000230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000240| 00 00 00 00 00 00 00 c8 | 6a 01 00 00 00 25 00 00 |........|j....%..|
|00000250| 00 33 00 00 00 00 00 00 | 00 49 00 00 00 02 00 00 |.3......|.I......|
|00000260| 00 45 00 00 00 00 00 00 | 00 00 00 00 00 fc 03 00 |.E......|........|
|00000270| 03 00 55 00 00 03 00 03 | 00 55 00 00 08 00 47 6f |..U.....|.U....Go|
|00000280| 74 46 6f 63 75 73 2c 00 | 00 00 00 00 ff ff 31 00 |tFocus,.|......1.|
|00000290| 33 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |3.......|........|
|000002a0| 00 00 01 00 00 00 14 00 | 00 00 21 00 00 00 01 00 |........|..!.....|
|000002b0| 00 00 00 29 00 00 00 92 | 00 00 00 00 00 00 00 00 |...)....|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|000002d0| 00 00 0c 67 72 61 70 68 | 70 72 65 76 69 65 77 00 |...graph|preview.|
|000002e0| 00 00 01 00 00 00 14 01 | 00 0a 00 61 75 74 67 72 |........|...autgr|
|000002f0| 61 70 68 2e 68 3e e7 00 | 00 82 24 00 00 00 01 00 |aph.h>..|..$.....|
|00000300| 00 00 09 61 75 74 6f 67 | 72 61 70 68 00 00 00 01 |...autog|raph....|
|00000310| 00 00 00 0a 61 75 74 67 | 72 61 70 68 2e 68 00 00 |....autg|raph.h..|
|00000320| 00 01 00 00 00 1a 6e 74 | 6f 74 61 6c 64 61 74 61 |......nt|otaldata|
|00000330| 66 6c 64 73 0d 0a 69 63 | 75 72 72 72 65 63 0d 0a |flds..ic|urrrec..|
|00000340| 00 00 00 01 00 00 00 06 | 50 69 78 65 6c 73 00 00 |........|Pixels..|
|00000350| 00 01 00 00 00 05 43 6c | 61 73 73 00 00 00 01 00 |......Cl|ass.....|
|00000360| 00 00 01 31 00 00 00 01 | 00 00 00 0a 61 75 74 6f |...1....|....auto|
|00000370| 6d 61 74 69 6f 6e 00 00 | 00 01 00 00 00 09 61 75 |mation..|......au|
|00000380| 74 6f 67 72 61 70 68 00 | 00 00 01 00 00 00 06 63 |tograph.|.......c|
|00000390| 75 73 74 6f 6d 00 00 00 | 01 00 00 00 0d 63 6f 6d |ustom...|.....com|
|000003a0| 6d 61 6e 64 62 75 74 74 | 6f 6e 00 00 00 01 00 00 |mandbutt|on......|
|000003b0| 00 2b 50 52 4f 43 45 44 | 55 52 45 20 43 6c 69 63 |.+PROCED|URE Clic|
|000003c0| 6b 0d 0a 54 48 49 53 46 | 4f 52 4d 2e 48 49 44 45 |k..THISF|ORM.HIDE|
|000003d0| 28 29 0d 0a 45 4e 44 50 | 52 4f 43 0d 0a 00 00 00 |()..ENDP|ROC.....|
|000003e0| 01 00 00 00 70 54 6f 70 | 20 3d 20 32 36 35 0d 0a |....pTop| = 265..|
|000003f0| 4c 65 66 74 20 3d 20 31 | 35 36 0d 0a 48 65 69 67 |Left = 1|56..Heig|
|00000400| 68 74 20 3d 20 33 39 0d | 0a 57 69 64 74 68 20 3d |ht = 39.|.Width =|
|00000410| 20 31 32 37 0d 0a 43 61 | 70 74 69 6f 6e 20 3d 20 | 127..Ca|ption = |
|00000420| 22 52 65 74 75 72 6e 20 | 54 6f 20 57 69 7a 61 72 |"Return |To Wizar|
|00000430| 64 22 0d 0a 54 61 62 49 | 6e 64 65 78 20 3d 20 31 |d"..TabI|ndex = 1|
|00000440| 0d 0a 4e 61 6d 65 20 3d | 20 22 63 6f 6d 6d 61 6e |..Name =| "comman|
|00000450| 64 31 22 0d 0a 00 00 00 | 01 00 00 00 0d 63 6f 6d |d1".....|.....com|
|00000460| 6d 61 6e 64 62 75 74 74 | 6f 6e 00 00 00 01 00 00 |mandbutt|on......|
|00000470| 00 21 41 72 69 61 6c 2c | 20 30 2c 20 39 2c 20 35 |.!Arial,| 0, 9, 5|
|00000480| 2c 20 31 35 2c 20 31 32 | 2c 20 31 33 2c 20 33 2c |, 15, 12|, 13, 3,|
|00000490| 20 30 0a 00 00 00 01 00 | 00 00 09 63 6d 64 72 65 | 0......|...cmdre|
|000004a0| 74 75 72 6e 00 00 00 01 | 00 00 00 06 50 69 78 65 |turn....|....Pixe|
|000004b0| 6c 73 00 00 00 01 00 00 | 00 05 43 6c 61 73 73 00 |ls......|..Class.|
|000004c0| 00 00 01 00 00 00 0d 63 | 6f 6d 6d 61 6e 64 62 75 |.......c|ommandbu|
|000004d0| 74 74 6f 6e 00 00 00 01 | 00 00 00 09 63 6d 64 72 |tton....|....cmdr|
|000004e0| 65 74 75 72 6e 00 00 00 | 01 00 00 00 01 33 00 00 |eturn...|.....3..|
|000004f0| 00 01 00 00 00 01 31 00 | 00 00 01 00 00 00 6a 54 |......1.|......jT|
|00000500| 6f 70 20 3d 20 30 0d 0a | 4c 65 66 74 20 3d 20 30 |op = 0..|Left = 0|
|00000510| 0d 0a 48 65 69 67 68 74 | 20 3d 20 32 35 30 0d 0a |..Height| = 250..|
|00000520| 57 69 64 74 68 20 3d 20 | 34 35 30 0d 0a 53 69 7a |Width = |450..Siz|
|00000530| 61 62 6c 65 20 3d 20 2e | 46 2e 0d 0a 41 75 74 6f |able = .|F...Auto|
|00000540| 41 63 74 69 76 61 74 65 | 20 3d 20 32 0d 0a 4e 61 |Activate| = 2..Na|
|00000550| 6d 65 20 3d 20 22 6f 6c | 65 62 6f 75 6e 64 63 6f |me = "ol|eboundco|
|00000560| 6e 74 72 6f 6c 31 22 0d | 0a 00 00 00 01 00 00 00 |ntrol1".|........|
|00000570| 0d 63 6f 6d 6d 61 6e 64 | 62 75 74 74 6f 6e 00 00 |.command|button..|
|00000580| 00 01 00 00 00 0c 67 72 | 61 70 68 70 72 65 76 69 |......gr|aphprevi|
|00000590| 65 77 00 00 00 01 00 00 | 00 04 66 6f 72 6d 00 00 |ew......|..form..|
|000005a0| 00 01 00 00 00 08 63 6f | 6d 6d 61 6e 64 31 00 00 |......co|mmand1..|
|000005b0| 00 01 00 00 00 21 41 72 | 69 61 6c 2c 20 30 2c 20 |.....!Ar|ial, 0, |
|000005c0| 39 2c 20 35 2c 20 31 35 | 2c 20 31 32 2c 20 31 33 |9, 5, 15|, 12, 13|
|000005d0| 2c 20 33 2c 20 30 0a 00 | 00 00 01 00 00 00 0c 67 |, 3, 0..|.......g|
|000005e0| 72 61 70 68 70 72 65 76 | 69 65 77 00 00 00 01 00 |raphprev|iew.....|
|000005f0| 00 00 06 50 69 78 65 6c | 73 00 00 00 01 00 00 00 |...Pixel|s.......|
|00000600| 05 43 6c 61 73 73 00 00 | 00 01 00 00 00 04 66 6f |.Class..|......fo|
|00000610| 72 6d 00 00 00 01 00 00 | 00 0c 67 72 61 70 68 70 |rm......|..graphp|
|00000620| 72 65 76 69 65 77 00 00 | 00 01 00 00 00 b2 48 65 |review..|......He|
|00000630| 69 67 68 74 20 3d 20 33 | 31 35 0d 0a 57 69 64 74 |ight = 3|15..Widt|
|00000640| 68 20 3d 20 34 35 30 0d | 0a 44 6f 43 72 65 61 74 |h = 450.|.DoCreat|
|00000650| 65 20 3d 20 2e 54 2e 0d | 0a 41 75 74 6f 43 65 6e |e = .T..|.AutoCen|
|00000660| 74 65 72 20 3d 20 2e 54 | 2e 0d 0a 43 61 70 74 69 |ter = .T|...Capti|
|00000670| 6f 6e 20 3d 20 22 47 72 | 61 70 68 20 50 72 65 76 |on = "Gr|aph Prev|
|00000680| 69 65 77 22 0d 0a 43 6c | 6f 73 61 62 6c 65 20 3d |iew"..Cl|osable =|
|00000690| 20 2e 46 2e 0d 0a 57 69 | 6e 64 6f 77 54 79 70 65 | .F...Wi|ndowType|
|000006a0| 20 3d 20 31 0d 0a 41 6c | 77 61 79 73 4f 6e 54 6f | = 1..Al|waysOnTo|
|000006b0| 70 20 3d 20 2e 54 2e 0d | 0a 44 65 66 4f 6c 65 4c |p = .T..|.DefOleL|
|000006c0| 43 49 44 20 3d 20 30 0d | 0a 4e 61 6d 65 20 3d 20 |CID = 0.|.Name = |
|000006d0| 22 67 72 61 70 68 70 72 | 65 76 69 65 77 22 0d 0a |"graphpr|eview"..|
|000006e0| 00 00 00 01 00 00 00 2c | 50 52 4f 43 45 44 55 52 |.......,|PROCEDUR|
|000006f0| 45 20 47 6f 74 46 6f 63 | 75 73 0d 0a 2a 20 6e 6f |E GotFoc|us..* no|
|00000700| 64 65 66 61 75 6c 74 0d | 0a 0d 0a 45 4e 44 50 52 |default.|...ENDPR|
|00000710| 4f 43 0d 0a 00 00 00 01 | 00 00 00 10 6f 6c 65 62 |OC......|....oleb|
|00000720| 6f 75 6e 64 63 6f 6e 74 | 72 6f 6c 31 00 00 00 01 |oundcont|rol1....|
|00000730| 00 00 00 0f 6f 6c 65 62 | 6f 75 6e 64 63 6f 6e 74 |....oleb|oundcont|
|00000740| 72 6f 6c 00 00 00 01 00 | 00 00 0f 6f 6c 65 62 6f |rol.....|...olebo|
|00000750| 75 6e 64 63 6f 6e 74 72 | 6f 6c 00 00 00 01 00 00 |undcontr|ol......|
|00000760| 00 5b 48 65 69 67 68 74 | 20 3d 20 33 39 0d 0a 57 |.[Height| = 39..W|
|00000770| 69 64 74 68 20 3d 20 31 | 32 37 0d 0a 43 61 70 74 |idth = 1|27..Capt|
|00000780| 69 6f 6e 20 3d 20 22 52 | 65 74 75 72 6e 20 54 6f |ion = "R|eturn To|
|00000790| 20 57 69 7a 61 72 64 22 | 0d 0a 44 65 66 61 75 6c | Wizard"|..Defaul|
|000007a0| 74 20 3d 20 2e 54 2e 0d | 0a 4e 61 6d 65 20 3d 20 |t = .T..|.Name = |
|000007b0| 22 63 6d 64 72 65 74 75 | 72 6e 22 0d 0a 00 00 00 |"cmdretu|rn".....|
|000007c0| 01 00 00 00 2b 50 52 4f | 43 45 44 55 52 45 20 43 |....+PRO|CEDURE C|
|000007d0| 6c 69 63 6b 0d 0a 54 48 | 49 53 46 4f 52 4d 2e 48 |lick..TH|ISFORM.H|
|000007e0| 69 64 65 28 29 0d 0a 45 | 4e 44 50 52 4f 43 0d 0a |ide()..E|NDPROC..|
|000007f0| 00 00 00 01 00 00 05 f6 | 6e 61 63 74 69 6f 6e 20 |........|naction |
|00000800| 4f 75 74 70 75 74 20 61 | 63 74 69 6f 6e 20 28 30 |Output a|ction (0|
|00000810| 2d 70 72 65 76 69 65 77 | 2c 20 31 2d 73 61 76 65 |-preview|, 1-save|
|00000820| 20 74 6f 20 66 6f 72 6d | 2c 20 32 2d 20 73 61 76 | to form|, 2- sav|
|00000830| 65 20 74 6f 20 74 61 62 | 6c 65 2c 20 33 2d 20 73 |e to tab|le, 3- s|
|00000840| 61 76 65 20 74 6f 20 71 | 75 65 72 79 29 2e 0d 0a |ave to q|uery)...|
|00000850| 63 6f 75 74 66 69 6c 65 | 20 4e 61 6d 65 20 6f 66 |coutfile| Name of|
|00000860| 20 6f 75 74 66 69 6c 65 | 20 69 66 20 61 6e 79 2e | outfile| if any.|
|00000870| 0d 0a 63 63 61 74 65 67 | 6f 72 79 66 69 65 6c 64 |..ccateg|oryfield|
|00000880| 0d 0a 6e 63 68 61 72 74 | 74 79 70 65 20 4e 75 6d |..nchart|type Num|
|00000890| 65 72 69 63 20 63 6f 64 | 65 20 66 6f 72 20 63 68 |eric cod|e for ch|
|000008a0| 61 72 74 20 74 79 70 65 | 0d 0a 6e 63 68 61 72 74 |art type|..nchart|
|000008b0| 73 75 62 74 79 70 65 20 | 53 75 62 20 74 79 70 65 |subtype |Sub type|
|000008c0| 20 6f 66 20 63 68 61 72 | 74 2e 0d 0a 6c 75 73 65 | of char|t...luse|
|000008d0| 61 75 74 6f 66 6f 72 6d | 61 74 20 55 73 65 20 4d |autoform|at Use M|
|000008e0| 53 20 47 72 61 70 68 20 | 61 75 74 6f 63 68 61 72 |S Graph |autochar|
|000008f0| 74 69 6e 67 20 67 61 6c | 6c 65 72 79 2e 0d 0a 6e |ting gal|lery...n|
|00000900| 67 72 61 70 68 76 65 72 | 73 69 6f 6e 20 56 65 72 |graphver|sion Ver|
|00000910| 73 69 6f 6e 20 6f 66 20 | 47 72 61 70 68 20 62 65 |sion of |Graph be|
|00000920| 69 6e 67 20 75 73 65 64 | 2e 0d 0a 63 74 69 74 6c |ing used|...ctitl|
|00000930| 65 20 54 69 74 6c 65 20 | 63 61 70 74 69 6f 6e 20 |e Title |caption |
|00000940| 6f 66 20 63 68 61 72 74 | 2e 0d 0a 6c 61 64 64 74 |of chart|...laddt|
|00000950| 69 74 6c 65 20 41 64 64 | 20 74 69 74 6c 65 20 74 |itle Add| title t|
|00000960| 6f 20 63 68 61 72 74 2e | 0d 0a 6c 61 64 64 65 64 |o chart.|..ladded|
|00000970| 64 61 74 61 20 46 6c 61 | 67 20 69 66 20 64 61 74 |data Fla|g if dat|
|00000980| 61 20 61 6c 72 65 61 64 | 79 20 61 64 64 65 64 20 |a alread|y added |
|00000990| 66 6f 72 20 70 65 72 66 | 6f 72 6d 61 6e 63 65 2e |for perf|ormance.|
|000009a0| 0d 0a 6c 73 68 6f 77 6e | 75 6c 6c 73 20 44 69 73 |..lshown|ulls Dis|
|000009b0| 70 6c 61 79 20 6e 75 6c | 6c 73 20 69 6e 20 63 68 |play nul|ls in ch|
|000009c0| 61 72 74 2e 0d 0a 6c 73 | 65 72 69 65 73 62 79 72 |art...ls|eriesbyr|
|000009d0| 6f 77 20 50 6c 6f 74 20 | 73 65 72 69 65 73 20 62 |ow Plot |series b|
|000009e0| 79 20 72 6f 77 20 6f 72 | 20 63 6f 6c 75 6d 6e 2e |y row or| column.|
|000009f0| 0d 0a 63 67 72 61 70 68 | 66 6c 64 72 6f 77 0d 0a |..cgraph|fldrow..|
|00000a00| 63 67 72 61 70 68 66 6c | 64 63 6f 6c 0d 0a 63 67 |cgraphfl|dcol..cg|
|00000a10| 72 61 70 68 66 69 65 6c | 64 0d 0a 63 6c 61 73 74 |raphfiel|d..clast|
|00000a20| 64 61 74 61 72 6f 77 0d | 0a 63 6c 61 73 74 64 61 |datarow.|.clastda|
|00000a30| 74 61 63 6f 6c 0d 0a 6f | 67 72 61 70 68 72 65 66 |tacol..o|graphref|
|00000a40| 0d 0a 67 72 61 70 68 70 | 72 65 76 69 65 77 0d 0a |..graphp|review..|
|00000a50| 6c 61 75 74 6f 67 72 61 | 70 68 0d 0a 6c 61 64 64 |lautogra|ph..ladd|
|00000a60| 6c 65 67 65 6e 64 20 41 | 64 64 20 6c 65 67 65 6e |legend A|dd legen|
|00000a70| 64 20 74 6f 20 63 68 61 | 72 74 2e 0d 0a 6c 68 61 |d to cha|rt...lha|
|00000a80| 64 70 72 65 76 69 65 77 | 0d 0a 63 6f 70 65 6e 61 |dpreview|..copena|
|00000a90| 6c 69 61 73 0d 0a 63 6f | 75 74 67 65 6e 66 69 65 |lias..co|utgenfie|
|00000aa0| 6c 64 0d 0a 63 64 65 66 | 6e 65 77 66 69 65 6c 64 |ld..cdef|newfield|
|00000ab0| 0d 0a 63 67 72 61 70 68 | 64 62 66 0d 0a 63 67 72 |..cgraph|dbf..cgr|
|00000ac0| 61 70 68 70 72 65 76 63 | 6c 61 73 73 0d 0a 63 6f |aphprevc|lass..co|
|00000ad0| 6c 65 73 65 72 76 65 72 | 0d 0a 6c 72 65 70 6c 61 |leserver|..lrepla|
|00000ae0| 63 65 64 62 66 0d 0a 6e | 63 68 61 72 74 61 75 74 |cedbf..n|chartaut|
|00000af0| 6f 66 6f 72 6d 61 74 20 | 47 61 6c 6c 65 72 79 20 |oformat |Gallery |
|00000b00| 63 68 61 72 74 20 66 6f | 72 6d 61 74 20 66 6f 72 |chart fo|rmat for|
|00000b10| 20 61 75 74 6f 66 6f 72 | 6d 61 74 20 28 73 65 74 | autofor|mat (set|
|00000b20| 74 69 6e 67 20 32 29 2e | 0d 0a 6e 63 68 61 72 74 |ting 2).|..nchart|
|00000b30| 61 75 74 6f 67 61 6c 6c | 65 72 79 20 47 61 6c 6c |autogall|ery Gall|
|00000b40| 65 72 79 20 63 68 61 72 | 74 20 66 6f 72 6d 61 74 |ery char|t format|
|00000b50| 20 66 6f 72 20 61 75 74 | 6f 66 6f 72 6d 61 74 20 | for aut|oformat |
|00000b60| 28 73 65 74 74 69 6e 67 | 20 31 29 2e 0d 0a 6e 74 |(setting| 1)...nt|
|00000b70| 6f 74 61 6c 64 61 74 61 | 66 6c 64 73 0d 0a 6e 64 |otaldata|flds..nd|
|00000b80| 61 74 61 73 65 72 69 65 | 73 0d 0a 6e 64 61 74 61 |ataserie|s..ndata|
|00000b90| 63 6f 75 6e 74 0d 0a 6c | 73 74 72 69 70 65 78 63 |count..l|stripexc|
|00000ba0| 65 73 73 6c 65 67 65 6e | 64 0d 0a 6e 6c 61 73 74 |esslegen|d..nlast|
|00000bb0| 61 63 74 69 6f 6e 0d 0a | 6c 64 6f 6e 74 73 74 72 |action..|ldontstr|
|00000bc0| 69 70 6c 65 67 65 6e 64 | 0d 0a 6c 73 68 6f 77 77 |iplegend|..lshoww|
|00000bd0| 68 65 6e 64 6f 6e 65 20 | 49 66 20 2e 54 2e 2c 20 |hendone |If .T., |
|00000be0| 64 6f 20 53 48 4f 57 20 | 6f 66 20 70 72 65 76 69 |do SHOW |of previ|
|00000bf0| 65 77 20 66 6f 72 6d 20 | 77 68 65 6e 20 64 6f 6e |ew form |when don|
|00000c00| 65 0d 0a 6c 75 73 65 38 | 74 79 70 65 20 55 73 65 |e..luse8|type Use|
|00000c10| 20 74 68 65 20 63 68 61 | 72 74 74 79 70 65 20 70 | the cha|rttype p|
|00000c20| 72 6f 70 65 72 74 79 20 | 66 6f 72 20 73 65 74 74 |roperty |for sett|
|00000c30| 69 6e 67 20 63 68 61 72 | 74 20 74 79 70 65 2e 0d |ing char|t type..|
|00000c40| 0a 6c 67 72 61 70 68 72 | 65 63 6f 72 64 20 57 68 |.lgraphr|ecord Wh|
|00000c50| 65 74 68 65 72 20 74 6f | 20 67 72 61 70 68 20 63 |ether to| graph c|
|00000c60| 75 72 72 65 6e 74 20 72 | 65 63 6f 72 64 20 6f 72 |urrent r|ecord or|
|00000c70| 20 65 6e 74 69 72 65 20 | 63 75 72 73 6f 72 2e 0d | entire |cursor..|
|00000c80| 0a 69 63 75 72 72 72 65 | 63 20 48 6f 6c 64 20 74 |.icurrre|c Hold t|
|00000c90| 68 65 20 63 75 72 72 65 | 6e 74 20 72 65 63 6f 72 |he curre|nt recor|
|00000ca0| 64 20 6e 75 6d 62 65 72 | 2c 20 69 66 20 6f 6e 6c |d number|, if onl|
|00000cb0| 79 20 67 72 61 70 68 69 | 6e 67 20 6f 6e 65 20 72 |y graphi|ng one r|
|00000cc0| 65 63 6f 72 64 2e 0d 0a | 6c 6b 65 65 70 66 6f 72 |ecord...|lkeepfor|
|00000cd0| 6d 20 55 73 65 20 75 73 | 65 72 20 73 75 70 70 6c |m Use us|er suppl|
|00000ce0| 69 65 64 20 66 6f 72 6d | 20 61 6e 64 20 6f 6c 65 |ied form| and ole|
|00000cf0| 63 6f 6e 74 72 6f 6c 3f | 0d 0a 2a 6d 73 67 72 61 |control?|..*msgra|
|00000d00| 70 68 63 68 65 63 6b 20 | 0d 0a 2a 67 65 74 73 61 |phcheck |..*getsa|
|00000d10| 76 65 66 69 6c 65 20 0d | 0a 2a 63 68 65 63 6b 74 |vefile .|.*checkt|
|00000d20| 61 62 6c 65 20 0d 0a 2a | 6d 61 6b 65 71 70 72 20 |able ..*|makeqpr |
|00000d30| 0d 0a 5e 61 64 61 74 61 | 66 69 65 6c 64 73 5b 31 |..^adata|fields[1|
|00000d40| 2c 31 5d 20 41 72 72 61 | 79 20 6f 66 20 64 61 74 |,1] Arra|y of dat|
|00000d50| 61 20 66 69 65 6c 64 73 | 2e 0d 0a 2a 61 64 64 67 |a fields|...*addg|
|00000d60| 72 61 70 68 64 61 74 61 | 20 41 64 64 73 20 64 61 |raphdata| Adds da|
|00000d70| 74 61 20 74 6f 20 63 68 | 61 72 74 2e 0d 0a 2a 76 |ta to ch|art...*v|
|00000d80| 61 6c 69 64 64 61 74 61 | 74 61 62 6c 65 20 0d 0a |aliddata|table ..|
|00000d90| 2a 67 65 74 6f 6c 65 64 | 61 74 61 20 0d 0a 2a 73 |*getoled|ata ..*s|
|00000da0| 65 74 63 61 70 69 74 61 | 6c 73 20 0d 0a 2a 6d 61 |etcapita|ls ..*ma|
|00000db0| 70 74 6f 63 68 61 72 20 | 0d 0a 2a 61 64 64 67 72 |ptochar |..*addgr|
|00000dc0| 61 70 68 66 78 20 41 64 | 64 73 20 63 68 61 72 74 |aphfx Ad|ds chart|
|00000dd0| 20 66 6f 72 6d 61 74 74 | 69 6e 67 2e 0d 0a 2a 67 | formatt|ing...*g|
|00000de0| 65 74 6f 6c 65 73 65 72 | 76 65 72 20 0d 0a 00 00 |etoleser|ver ....|
|00000df0| 00 01 00 00 02 60 6e 61 | 63 74 69 6f 6e 20 3d 20 |.....`na|ction = |
|00000e00| 31 0d 0a 63 6f 75 74 66 | 69 6c 65 20 3d 20 0d 0a |1..coutf|ile = ..|
|00000e10| 63 63 61 74 65 67 6f 72 | 79 66 69 65 6c 64 20 3d |ccategor|yfield =|
|00000e20| 20 0d 0a 6e 63 68 61 72 | 74 74 79 70 65 20 3d 20 | ..nchar|ttype = |
|00000e30| 31 0d 0a 6e 63 68 61 72 | 74 73 75 62 74 79 70 65 |1..nchar|tsubtype|
|00000e40| 20 3d 20 31 0d 0a 6e 67 | 72 61 70 68 76 65 72 73 | = 1..ng|raphvers|
|00000e50| 69 6f 6e 20 3d 20 35 0d | 0a 63 74 69 74 6c 65 20 |ion = 5.|.ctitle |
|00000e60| 3d 20 0d 0a 6c 61 64 64 | 74 69 74 6c 65 20 3d 20 |= ..ladd|title = |
|00000e70| 2e 54 2e 0d 0a 6c 73 68 | 6f 77 6e 75 6c 6c 73 20 |.T...lsh|ownulls |
|00000e80| 3d 20 2e 54 2e 0d 0a 6c | 73 65 72 69 65 73 62 79 |= .T...l|seriesby|
|00000e90| 72 6f 77 20 3d 20 2e 54 | 2e 0d 0a 63 67 72 61 70 |row = .T|...cgrap|
|00000ea0| 68 66 6c 64 72 6f 77 20 | 3d 20 0d 0a 63 67 72 61 |hfldrow |= ..cgra|
|00000eb0| 70 68 66 6c 64 63 6f 6c | 20 3d 20 0d 0a 63 67 72 |phfldcol| = ..cgr|
|00000ec0| 61 70 68 66 69 65 6c 64 | 20 3d 20 0d 0a 63 6c 61 |aphfield| = ..cla|
|00000ed0| 73 74 64 61 74 61 72 6f | 77 20 3d 20 0d 0a 63 6c |stdataro|w = ..cl|
|00000ee0| 61 73 74 64 61 74 61 63 | 6f 6c 20 3d 20 0d 0a 6c |astdatac|ol = ..l|
|00000ef0| 61 64 64 6c 65 67 65 6e | 64 20 3d 20 2e 54 2e 0d |addlegen|d = .T..|
|00000f00| 0a 63 6f 70 65 6e 61 6c | 69 61 73 20 3d 20 0d 0a |.copenal|ias = ..|
|00000f10| 63 6f 75 74 67 65 6e 66 | 69 65 6c 64 20 3d 20 0d |coutgenf|ield = .|
|00000f20| 0a 63 64 65 66 6e 65 77 | 66 69 65 6c 64 20 3d 20 |.cdefnew|field = |
|00000f30| 0d 0a 63 67 72 61 70 68 | 64 62 66 20 3d 20 0d 0a |..cgraph|dbf = ..|
|00000f40| 63 67 72 61 70 68 70 72 | 65 76 63 6c 61 73 73 20 |cgraphpr|evclass |
|00000f50| 3d 20 0d 0a 63 6f 6c 65 | 73 65 72 76 65 72 20 3d |= ..cole|server =|
|00000f60| 20 0d 0a 6c 72 65 70 6c | 61 63 65 64 62 66 20 3d | ..lrepl|acedbf =|
|00000f70| 20 2e 54 2e 0d 0a 6e 63 | 68 61 72 74 61 75 74 6f | .T...nc|hartauto|
|00000f80| 66 6f 72 6d 61 74 20 3d | 20 31 0d 0a 6e 63 68 61 |format =| 1..ncha|
|00000f90| 72 74 61 75 74 6f 67 61 | 6c 6c 65 72 79 20 3d 20 |rtautoga|llery = |
|00000fa0| 31 0d 0a 6e 64 61 74 61 | 73 65 72 69 65 73 20 3d |1..ndata|series =|
|00000fb0| 20 30 0d 0a 6e 64 61 74 | 61 63 6f 75 6e 74 20 3d | 0..ndat|acount =|
|00000fc0| 20 30 0d 0a 6e 6c 61 73 | 74 61 63 74 69 6f 6e 20 | 0..nlas|taction |
|00000fd0| 3d 20 39 39 0d 0a 6c 73 | 68 6f 77 77 68 65 6e 64 |= 99..ls|howwhend|
|00000fe0| 6f 6e 65 20 3d 20 2e 54 | 2e 0d 0a 6e 73 61 76 65 |one = .T|...nsave|
|00000ff0| 6c 6f 63 61 6c 65 69 64 | 20 3d 20 31 30 33 33 0d |localeid| = 1033.|
|00001000| 0a 62 75 69 6c 64 65 72 | 20 3d 20 0d 0a 62 75 69 |.builder| = ..bui|
|00001010| 6c 64 65 72 78 20 3d 20 | 28 48 4f 4d 45 28 29 2b |lderx = |(HOME()+|
|00001020| 22 57 69 7a 61 72 64 73 | 5c 42 75 69 6c 64 65 72 |"Wizards|\Builder|
|00001030| 44 2c 42 75 69 6c 64 65 | 72 44 46 6f 72 6d 22 29 |D,Builde|rDForm")|
|00001040| 0d 0a 4e 61 6d 65 20 3d | 20 22 61 75 74 6f 67 72 |..Name =| "autogr|
|00001050| 61 70 68 22 0d 0a 00 00 | 00 01 00 00 00 0c 61 75 |aph"....|......au|
|00001060| 74 6f 6d 61 74 65 2e 76 | 63 78 00 00 00 01 00 00 |tomate.v|cx......|
|00001070| 00 c7 fe f2 ff 20 02 01 | 00 00 00 ae 00 00 00 ae |..... ..|........|
|00001080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001090| 00 00 00 00 00 00 00 00 | 00 df c3 01 00 00 00 25 |........|.......%|
|000010a0| 00 00 00 50 00 00 00 00 | 00 00 00 65 00 00 00 03 |...P....|...e....|
|000010b0| 00 00 00 5f 00 00 00 00 | 00 00 00 00 00 00 00 fc |..._....|........|
|000010c0| 03 00 03 00 55 00 00 10 | 00 0d 00 99 fc 43 f4 00 |....U...|.....C..|
|000010d0| 00 f6 01 00 fd fe 03 00 | 55 02 00 08 00 54 48 49 |........|U....THI|
|000010e0| 53 46 4f 52 4d 04 00 48 | 49 44 45 05 00 43 6c 69 |SFORM..H|IDE..Cli|
|000010f0| 63 6b 2c 00 00 00 00 00 | ff ff 31 00 d1 00 31 00 |ck,.....|..1...1.|
|00001100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001110| 01 00 00 00 11 00 00 00 | 20 00 00 00 01 00 00 00 |........| .......|
|00001120| 00 29 00 00 00 ae 00 00 | 00 00 00 00 00 00 00 00 |.)......|........|
|00001130| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|00001140| c7 fe f2 ff 20 02 01 00 | 00 00 ae 00 00 00 ae 00 |.... ...|........|
|00001150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001160| 00 00 00 00 00 00 00 00 | df c3 01 00 00 00 25 00 |........|......%.|
|00001170| 00 00 50 00 00 00 00 00 | 00 00 65 00 00 00 03 00 |..P.....|..e.....|
|00001180| 00 00 5f 00 00 00 00 00 | 00 00 00 00 00 00 fc 03 |.._.....|........|
|00001190| 00 03 00 55 00 00 10 00 | 0d 00 99 fc 43 f4 00 00 |...U....|....C...|
|000011a0| f6 01 00 fd fe 03 00 55 | 02 00 08 00 54 48 49 53 |.......U|....THIS|
|000011b0| 46 4f 52 4d 04 00 48 49 | 44 45 05 00 43 6c 69 63 |FORM..HI|DE..Clic|
|000011c0| 6b 2c 00 00 00 00 00 ff | ff 31 00 d1 00 31 00 00 |k,......|.1...1..|
|000011d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|000011e0| 00 00 00 11 00 00 00 20 | 00 00 00 01 00 00 00 00 |....... |........|
|000011f0| 29 00 00 00 ae 00 00 00 | 00 00 00 00 00 00 00 00 |).......|........|
|00001200| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 6f 29 |........|......o)|
|00001210| 50 52 4f 43 45 44 55 52 | 45 20 6d 73 67 72 61 70 |PROCEDUR|E msgrap|
|00001220| 68 63 68 65 63 6b 0d 0a | 09 4c 4f 43 41 4c 20 63 |hcheck..|.LOCAL c|
|00001230| 41 70 70 4b 65 79 2c 63 | 41 70 70 4e 61 6d 65 2c |AppKey,c|AppName,|
|00001240| 6e 45 72 72 4e 75 6d 2c | 63 43 6c 61 73 73 2c 69 |nErrNum,|cClass,i|
|00001250| 0d 0a 0d 0a 09 2a 2d 20 | 52 45 47 49 53 54 52 59 |.....*- |REGISTRY|
|00001260| 2e 56 43 58 20 69 73 20 | 61 64 64 65 64 20 74 6f |.VCX is |added to|
|00001270| 20 74 68 65 20 43 4c 41 | 53 53 4c 49 42 20 6c 69 | the CLA|SSLIB li|
|00001280| 73 74 20 69 6e 20 74 68 | 65 20 49 4e 49 54 20 6f |st in th|e INIT o|
|00001290| 66 20 74 68 65 20 0d 0a | 09 2a 2d 20 41 55 54 4f |f the ..|.*- AUTO|
|000012a0| 4d 41 54 49 4f 4e 20 63 | 6c 61 73 73 0d 0a 09 0d |MATION c|lass....|
|000012b0| 0a 09 6f 52 65 67 20 3d | 20 63 72 65 61 74 65 28 |..oReg =| create(|
|000012c0| 27 46 69 6c 65 52 65 67 | 27 29 0d 0a 0d 0a 09 63 |'FileReg|').....c|
|000012d0| 43 6c 61 73 73 20 3d 20 | 4d 53 47 52 41 50 48 5f |Class = |MSGRAPH_|
|000012e0| 43 4c 41 53 53 0d 0a 09 | 63 41 70 70 4b 65 79 20 |CLASS...|cAppKey |
|000012f0| 3d 20 22 22 0d 0a 09 63 | 41 70 70 4e 61 6d 65 20 |= ""...c|AppName |
|00001300| 3d 20 22 22 0d 0a 0d 0a | 09 2a 20 47 65 74 20 4d |= ""....|.* Get M|
|00001310| 53 20 47 72 61 70 68 20 | 52 65 67 69 73 74 72 79 |S Graph |Registry|
|00001320| 20 65 6e 74 72 79 0d 0a | 09 6e 45 72 72 4e 75 6d | entry..|.nErrNum|
|00001330| 20 3d 20 6f 52 65 67 2e | 47 65 74 4c 61 74 65 73 | = oReg.|GetLates|
|00001340| 74 56 65 72 73 69 6f 6e | 28 6d 2e 63 43 6c 61 73 |tVersion|(m.cClas|
|00001350| 73 2c 40 63 41 70 70 4b | 65 79 2c 40 63 41 70 70 |s,@cAppK|ey,@cApp|
|00001360| 4e 61 6d 65 2c 2e 54 2e | 29 0d 0a 09 49 46 20 6d |Name,.T.|)...IF m|
|00001370| 2e 6e 45 72 72 4e 75 6d | 20 23 20 45 52 52 4f 52 |.nErrNum| # ERROR|
|00001380| 5f 53 55 43 43 45 53 53 | 0d 0a 09 09 3d 4d 45 53 |_SUCCESS|....=MES|
|00001390| 53 41 47 45 42 4f 58 28 | 43 5f 42 41 44 4d 53 47 |SAGEBOX(|C_BADMSG|
|000013a0| 52 41 50 48 5f 4c 4f 43 | 29 0d 0a 09 09 52 45 54 |RAPH_LOC|)....RET|
|000013b0| 55 52 4e 20 2e 46 2e 0d | 0a 09 45 4e 44 49 46 0d |URN .F..|..ENDIF.|
|000013c0| 0a 09 0d 0a 09 2a 20 44 | 6f 65 73 20 66 69 6c 65 |.....* D|oes file|
|000013d0| 20 65 78 69 73 74 3f 0d | 0a 09 49 46 20 21 46 49 | exist?.|..IF !FI|
|000013e0| 4c 45 28 6d 2e 63 41 70 | 70 4e 61 6d 65 29 0d 0a |LE(m.cAp|pName)..|
|000013f0| 09 09 2a 20 49 66 20 66 | 61 69 6c 2c 20 74 72 79 |..* If f|ail, try|
|00001400| 20 64 69 66 66 65 72 65 | 6e 74 20 52 65 67 69 73 | differe|nt Regis|
|00001410| 74 79 20 6b 65 79 0d 0a | 09 09 63 41 70 70 4e 61 |ty key..|..cAppNa|
|00001420| 6d 65 20 3d 20 22 22 0d | 0a 09 09 63 41 70 70 4b |me = "".|...cAppK|
|00001430| 65 79 20 3d 20 22 22 0d | 0a 09 09 6e 45 72 72 4e |ey = "".|...nErrN|
|00001440| 75 6d 20 3d 20 6f 52 65 | 67 2e 47 65 74 4c 61 74 |um = oRe|g.GetLat|
|00001450| 65 73 74 56 65 72 73 69 | 6f 6e 28 6d 2e 63 43 6c |estVersi|on(m.cCl|
|00001460| 61 73 73 2c 40 63 41 70 | 70 4b 65 79 2c 40 63 41 |ass,@cAp|pKey,@cA|
|00001470| 70 70 4e 61 6d 65 29 0d | 0a 09 09 49 46 20 6d 2e |ppName).|...IF m.|
|00001480| 6e 45 72 72 4e 75 6d 20 | 23 20 45 52 52 4f 52 5f |nErrNum |# ERROR_|
|00001490| 53 55 43 43 45 53 53 0d | 0a 09 09 09 3d 4d 45 53 |SUCCESS.|....=MES|
|000014a0| 53 41 47 45 42 4f 58 28 | 43 5f 42 41 44 4d 53 47 |SAGEBOX(|C_BADMSG|
|000014b0| 52 41 50 48 5f 4c 4f 43 | 29 0d 0a 09 09 09 52 45 |RAPH_LOC|).....RE|
|000014c0| 54 55 52 4e 20 2e 46 2e | 0d 0a 09 09 45 4e 44 49 |TURN .F.|....ENDI|
|000014d0| 46 0d 0a 09 09 0d 0a 09 | 09 49 46 20 21 46 49 4c |F.......|.IF !FIL|
|000014e0| 45 28 6d 2e 63 41 70 70 | 4e 61 6d 65 29 0d 0a 09 |E(m.cApp|Name)...|
|000014f0| 09 09 3d 4d 45 53 53 41 | 47 45 42 4f 58 28 43 5f |..=MESSA|GEBOX(C_|
|00001500| 4e 4f 4d 53 47 52 41 50 | 48 5f 4c 4f 43 29 0d 0a |NOMSGRAP|H_LOC)..|
|00001510| 09 09 09 52 45 54 55 52 | 4e 20 2e 46 2e 0d 0a 09 |...RETUR|N .F....|
|00001520| 09 45 4e 44 49 46 0d 0a | 09 45 4e 44 49 46 0d 0a |.ENDIF..|.ENDIF..|
|00001530| 0d 0a 09 2a 20 49 73 20 | 74 68 69 73 20 61 20 76 |...* Is |this a v|
|00001540| 61 6c 69 64 20 76 65 72 | 73 69 6f 6e 20 6f 66 20 |alid ver|sion of |
|00001550| 4d 53 20 47 72 61 70 68 | 20 28 3e 33 2e 30 29 3f |MS Graph| (>3.0)?|
|00001560| 0d 0a 09 54 48 49 53 2e | 6e 47 72 61 70 68 56 65 |...THIS.|nGraphVe|
|00001570| 72 73 69 6f 6e 20 3d 20 | 56 41 4c 28 52 49 47 48 |rsion = |VAL(RIGH|
|00001580| 54 28 6d 2e 63 41 70 70 | 4b 65 79 2c 31 29 29 0d |T(m.cApp|Key,1)).|
|00001590| 0a 09 49 46 20 54 48 49 | 53 2e 6e 47 72 61 70 68 |..IF THI|S.nGraph|
|000015a0| 56 65 72 73 69 6f 6e 20 | 3c 20 4d 53 47 52 41 50 |Version |< MSGRAP|
|000015b0| 48 5f 56 45 52 53 49 4f | 4e 0d 0a 09 09 3d 4d 45 |H_VERSIO|N....=ME|
|000015c0| 53 53 41 47 45 42 4f 58 | 28 43 5f 4d 53 47 52 41 |SSAGEBOX|(C_MSGRA|
|000015d0| 50 48 56 45 52 5f 4c 4f | 43 29 0d 0a 09 09 52 45 |PHVER_LO|C)....RE|
|000015e0| 54 55 52 4e 20 2e 46 2e | 0d 0a 09 45 4e 44 49 46 |TURN .F.|...ENDIF|
|000015f0| 0d 0a 09 0d 0a 09 2a 20 | 4c 65 74 27 73 20 63 68 |......* |Let's ch|
|00001600| 65 63 6b 20 66 6f 72 20 | 6e 65 77 65 72 20 76 65 |eck for |newer ve|
|00001610| 72 73 69 6f 6e 20 6f 66 | 20 47 72 61 70 68 20 77 |rsion of| Graph w|
|00001620| 68 69 63 68 20 6d 61 79 | 20 62 65 20 68 69 67 68 |hich may| be high|
|00001630| 65 72 20 74 68 61 6e 0d | 0a 09 2a 20 72 65 67 69 |er than.|..* regi|
|00001640| 73 74 65 72 65 64 20 63 | 75 72 72 65 6e 74 20 76 |stered c|urrent v|
|00001650| 65 72 73 69 6f 6e 2c 20 | 62 75 74 20 73 6f 6d 65 |ersion, |but some|
|00001660| 68 6f 77 20 67 6f 74 20 | 6d 65 73 73 65 64 20 75 |how got |messed u|
|00001670| 70 20 69 6e 20 52 65 67 | 69 73 74 72 79 2e 0d 0a |p in Reg|istry...|
|00001680| 09 46 4f 52 20 69 20 3d | 20 54 48 49 53 2e 6e 47 |.FOR i =| THIS.nG|
|00001690| 72 61 70 68 56 65 72 73 | 69 6f 6e 2b 31 20 54 4f |raphVers|ion+1 TO|
|000016a0| 20 31 35 0d 0a 09 09 49 | 46 20 6f 52 65 67 2e 4f | 15....I|F oReg.O|
|000016b0| 70 65 6e 4b 65 79 28 4d | 53 47 52 41 50 48 5f 43 |penKey(M|SGRAPH_C|
|000016c0| 4c 41 53 53 2b 22 2e 22 | 2b 41 4c 4c 54 52 49 4d |LASS+"."|+ALLTRIM|
|000016d0| 28 53 54 52 28 6d 2e 69 | 29 29 2c 48 4b 45 59 5f |(STR(m.i|)),HKEY_|
|000016e0| 43 4c 41 53 53 45 53 5f | 52 4f 4f 54 29 20 3d 20 |CLASSES_|ROOT) = |
|000016f0| 30 0d 0a 09 09 09 6f 52 | 65 67 2e 43 6c 6f 73 65 |0.....oR|eg.Close|
|00001700| 4b 65 79 28 29 0d 0a 09 | 09 09 54 48 49 53 2e 6e |Key()...|..THIS.n|
|00001710| 47 72 61 70 68 56 65 72 | 73 69 6f 6e 20 3d 20 6d |GraphVer|sion = m|
|00001720| 2e 69 0d 0a 09 09 09 45 | 58 49 54 0d 0a 09 09 45 |.i.....E|XIT....E|
|00001730| 4e 44 49 46 0d 0a 09 45 | 4e 44 46 4f 52 0d 0a 09 |NDIF...E|NDFOR...|
|00001740| 52 45 54 55 52 4e 20 2e | 54 2e 20 09 26 26 4f 4b |RETURN .|T. .&&OK|
|00001750| 0d 0a 0d 0a 45 4e 44 50 | 52 4f 43 0d 0a 50 52 4f |....ENDP|ROC..PRO|
|00001760| 43 45 44 55 52 45 20 67 | 65 74 73 61 76 65 66 69 |CEDURE g|etsavefi|
|00001770| 6c 65 0d 0a 50 41 52 41 | 4d 45 54 45 52 20 63 43 |le..PARA|METER cC|
|00001780| 75 72 41 6c 69 61 73 0d | 0a 4c 4f 43 41 4c 20 63 |urAlias.|.LOCAL c|
|00001790| 45 78 74 2c 63 50 72 6f | 6d 70 74 2c 63 53 61 76 |Ext,cPro|mpt,cSav|
|000017a0| 65 46 69 6c 65 2c 63 54 | 6d 70 46 69 6c 65 2c 6e |eFile,cT|mpFile,n|
|000017b0| 53 61 76 65 41 72 65 61 | 2c 20 63 4f 6c 64 53 61 |SaveArea|, cOldSa|
|000017c0| 66 65 0d 0a 44 4f 20 43 | 41 53 45 0d 0a 09 43 41 |fe..DO C|ASE...CA|
|000017d0| 53 45 20 54 48 49 53 2e | 6e 41 63 74 69 6f 6e 20 |SE THIS.|nAction |
|000017e0| 3d 20 30 0d 0a 09 09 52 | 45 54 55 52 4e 20 2e 54 |= 0....R|ETURN .T|
|000017f0| 2e 0d 0a 09 09 0d 0a 09 | 43 41 53 45 20 54 48 49 |........|CASE THI|
|00001800| 53 2e 6e 41 63 74 69 6f | 6e 20 3d 20 31 09 26 26 |S.nActio|n = 1.&&|
|00001810| 20 73 61 76 65 20 74 6f | 20 66 6f 72 6d 0d 0a 09 | save to| form...|
|00001820| 09 63 45 78 74 20 3d 20 | 22 53 43 58 22 0d 0a 09 |.cExt = |"SCX"...|
|00001830| 09 63 53 61 76 65 46 69 | 6c 65 20 3d 20 46 4f 52 |.cSaveFi|le = FOR|
|00001840| 43 45 45 58 54 28 49 49 | 46 28 45 4d 50 54 59 28 |CEEXT(II|F(EMPTY(|
|00001850| 43 55 52 53 4f 52 47 45 | 54 50 52 4f 50 28 22 44 |CURSORGE|TPROP("D|
|00001860| 41 54 41 42 41 53 45 22 | 2c 20 6d 2e 63 43 75 72 |ATABASE"|, m.cCur|
|00001870| 41 6c 69 61 73 29 29 2c | 20 6d 2e 63 43 75 72 41 |Alias)),| m.cCurA|
|00001880| 6c 69 61 73 2c 20 43 55 | 52 53 4f 52 47 45 54 50 |lias, CU|RSORGETP|
|00001890| 52 4f 50 28 22 53 6f 75 | 72 63 65 4e 61 6d 65 22 |ROP("Sou|rceName"|
|000018a0| 2c 20 6d 2e 63 43 75 72 | 41 6c 69 61 73 29 29 2c |, m.cCur|Alias)),|
|000018b0| 6d 2e 63 45 78 74 29 0d | 0a 09 09 63 50 72 6f 6d |m.cExt).|...cProm|
|000018c0| 70 74 20 3d 20 43 5f 53 | 41 56 45 50 52 4f 4d 50 |pt = C_S|AVEPROMP|
|000018d0| 54 33 5f 4c 4f 43 0d 0a | 09 09 63 4f 6c 64 53 61 |T3_LOC..|..cOldSa|
|000018e0| 66 65 20 3d 20 53 45 54 | 28 27 53 41 46 45 54 59 |fe = SET|('SAFETY|
|000018f0| 27 29 0d 0a 09 09 53 45 | 54 20 53 41 46 45 54 59 |')....SE|T SAFETY|
|00001900| 20 4f 46 46 0d 0a 09 09 | 54 48 49 53 2e 63 4f 75 | OFF....|THIS.cOu|
|00001910| 74 46 69 6c 65 20 3d 20 | 50 55 54 46 49 4c 45 28 |tFile = |PUTFILE(|
|00001920| 6d 2e 63 50 72 6f 6d 70 | 74 2c 6d 2e 63 53 61 76 |m.cPromp|t,m.cSav|
|00001930| 65 46 69 6c 65 2c 6d 2e | 63 45 78 74 29 0d 0a 09 |eFile,m.|cExt)...|
|00001940| 09 53 45 54 20 53 41 46 | 45 54 59 20 26 63 4f 6c |.SET SAF|ETY &cOl|
|00001950| 64 53 61 66 65 0d 0a 09 | 09 52 45 54 55 52 4e 20 |dSafe...|.RETURN |
|00001960| 28 21 45 4d 50 54 59 28 | 54 48 49 53 2e 63 4f 75 |(!EMPTY(|THIS.cOu|
|00001970| 74 46 69 6c 65 29 29 0d | 0a 09 09 0d 0a 09 43 41 |tFile)).|......CA|
|00001980| 53 45 20 54 48 49 53 2e | 6e 41 63 74 69 6f 6e 20 |SE THIS.|nAction |
|00001990| 3d 20 32 09 26 26 20 73 | 61 76 65 20 74 6f 20 74 |= 2.&& s|ave to t|
|000019a0| 61 62 6c 65 0d 0a 09 09 | 52 45 54 55 52 4e 20 54 |able....|RETURN T|
|000019b0| 48 49 53 2e 43 68 65 63 | 6b 54 61 62 6c 65 28 29 |HIS.Chec|kTable()|
|000019c0| 0d 0a 09 09 0d 0a 09 43 | 41 53 45 20 54 48 49 53 |.......C|ASE THIS|
|000019d0| 2e 6e 41 63 74 69 6f 6e | 20 3d 20 33 09 26 26 20 |.nAction| = 3.&& |
|000019e0| 73 61 76 65 20 74 6f 20 | 71 75 65 72 79 0d 0a 09 |save to |query...|
|000019f0| 09 44 4f 20 43 41 53 45 | 0d 0a 09 09 09 43 41 53 |.DO CASE|.....CAS|
|00001a00| 45 20 54 48 49 53 2e 6e | 43 75 72 72 65 6e 74 4f |E THIS.n|CurrentO|
|00001a10| 53 20 3d 20 4f 53 5f 57 | 33 32 53 20 41 4e 44 20 |S = OS_W|32S AND |
|00001a20| 3b 0d 0a 09 09 09 20 20 | 43 55 52 53 4f 52 47 45 |;.....  |CURSORGE|
|00001a30| 54 50 52 4f 50 28 22 73 | 6f 75 72 63 65 74 79 70 |TPROP("s|ourcetyp|
|00001a40| 65 22 2c 6d 2e 63 43 75 | 72 41 6c 69 61 73 29 20 |e",m.cCu|rAlias) |
|00001a50| 3d 20 33 09 0d 0a 09 09 | 09 09 2a 20 75 73 65 20 |= 3.....|..* use |
|00001a60| 73 68 6f 72 74 20 44 4f | 53 20 6e 61 6d 65 20 66 |short DO|S name f|
|00001a70| 6f 72 20 57 69 6e 33 32 | 53 0d 0a 09 09 09 09 63 |or Win32|S......c|
|00001a80| 53 61 76 65 46 69 6c 65 | 20 3d 20 54 48 49 53 2e |SaveFile| = THIS.|
|00001a90| 46 6f 72 63 65 45 78 74 | 28 44 42 46 28 6d 2e 63 |ForceExt|(DBF(m.c|
|00001aa0| 43 75 72 41 6c 69 61 73 | 29 2c 22 51 50 52 22 29 |CurAlias|),"QPR")|
|00001ab0| 0d 0a 09 09 09 43 41 53 | 45 20 54 48 49 53 2e 6e |.....CAS|E THIS.n|
|00001ac0| 43 75 72 72 65 6e 74 4f | 53 20 3d 20 4f 53 5f 57 |CurrentO|S = OS_W|
|00001ad0| 33 32 53 20 0d 0a 09 09 | 09 09 63 53 61 76 65 46 |32S ....|..cSaveF|
|00001ae0| 69 6c 65 20 3d 20 4c 45 | 46 54 28 6d 2e 63 43 75 |ile = LE|FT(m.cCu|
|00001af0| 72 41 6c 69 61 73 2c 38 | 29 20 2b 20 22 2e 51 50 |rAlias,8|) + ".QP|
|00001b00| 52 22 0d 0a 09 09 09 4f | 54 48 45 52 57 49 53 45 |R".....O|THERWISE|
|00001b10| 0d 0a 09 09 09 09 63 53 | 61 76 65 46 69 6c 65 20 |......cS|aveFile |
|00001b20| 3d 20 54 48 49 53 2e 46 | 6f 72 63 65 45 78 74 28 |= THIS.F|orceExt(|
|00001b30| 63 75 72 73 6f 72 67 65 | 74 70 72 6f 70 28 22 73 |cursorge|tprop("s|
|00001b40| 6f 75 72 63 65 6e 61 6d | 65 22 2c 6d 2e 63 43 75 |ourcenam|e",m.cCu|
|00001b50| 72 41 6c 69 61 73 29 2c | 22 51 50 52 22 29 0d 0a |rAlias),|"QPR")..|
|00001b60| 09 09 45 4e 44 43 41 53 | 45 0d 0a 09 09 63 45 78 |..ENDCAS|E....cEx|
|00001b70| 74 20 3d 20 22 51 50 52 | 22 0d 0a 09 09 63 50 72 |t = "QPR|"....cPr|
|00001b80| 6f 6d 70 74 20 3d 20 43 | 5f 53 41 56 45 50 52 4f |ompt = C|_SAVEPRO|
|00001b90| 4d 50 54 32 5f 4c 4f 43 | 0d 0a 09 09 52 45 54 55 |MPT2_LOC|....RETU|
|00001ba0| 52 4e 20 54 48 49 53 2e | 53 61 76 65 4f 75 74 46 |RN THIS.|SaveOutF|
|00001bb0| 69 6c 65 28 6d 2e 63 50 | 72 6f 6d 70 74 2c 6d 2e |ile(m.cP|rompt,m.|
|00001bc0| 63 53 61 76 65 46 69 6c | 65 2c 6d 2e 63 45 78 74 |cSaveFil|e,m.cExt|
|00001bd0| 29 20 20 26 26 75 73 65 | 20 63 61 6e 63 65 6c 65 |)  &&use| cancele|
|00001be0| 64 0d 0a 45 4e 44 43 41 | 53 45 09 0d 0a 0d 0a 45 |d..ENDCA|SE.....E|
|00001bf0| 4e 44 50 52 4f 43 0d 0a | 50 52 4f 43 45 44 55 52 |NDPROC..|PROCEDUR|
|00001c00| 45 20 63 68 65 63 6b 74 | 61 62 6c 65 0d 0a 4c 4f |E checkt|able..LO|
|00001c10| 43 41 4c 20 63 4f 75 74 | 47 65 6e 46 69 65 6c 64 |CAL cOut|GenField|
|00001c20| 2c 69 2c 6e 53 61 76 65 | 41 72 65 61 2c 63 54 6d |,i,nSave|Area,cTm|
|00001c30| 70 46 69 6c 65 0d 0a 4c | 4f 43 41 4c 20 63 45 78 |pFile..L|OCAL cEx|
|00001c40| 74 2c 63 50 72 6f 6d 70 | 74 2c 63 53 61 76 65 46 |t,cPromp|t,cSaveF|
|00001c50| 69 6c 65 2c 63 4f 70 65 | 6e 41 6c 69 61 73 2c 63 |ile,cOpe|nAlias,c|
|00001c60| 4f 6c 64 53 61 66 65 0d | 0a 0d 0a 63 45 78 74 20 |OldSafe.|...cExt |
|00001c70| 3d 20 22 44 42 46 22 0d | 0a 63 53 61 76 65 46 69 |= "DBF".|.cSaveFi|
|00001c80| 6c 65 20 3d 20 43 5f 47 | 52 41 50 48 44 42 46 0d |le = C_G|RAPHDBF.|
|00001c90| 0a 63 50 72 6f 6d 70 74 | 20 3d 20 43 5f 53 41 56 |.cPrompt| = C_SAV|
|00001ca0| 45 50 52 4f 4d 50 54 31 | 5f 4c 4f 43 0d 0a 6e 53 |EPROMPT1|_LOC..nS|
|00001cb0| 61 76 65 41 72 65 61 20 | 3d 20 53 45 4c 45 43 54 |aveArea |= SELECT|
|00001cc0| 28 29 0d 0a 63 4f 6c 64 | 53 61 66 65 20 3d 20 53 |()..cOld|Safe = S|
|00001cd0| 45 54 28 27 53 41 46 45 | 54 59 27 29 0d 0a 63 54 |ET('SAFE|TY')..cT|
|00001ce0| 6d 70 46 69 6c 65 20 3d | 20 22 22 0d 0a 0d 0a 44 |mpFile =| ""....D|
|00001cf0| 4f 20 57 48 49 4c 45 20 | 2e 54 2e 0d 0a 09 54 48 |O WHILE |.T....TH|
|00001d00| 49 53 2e 63 4f 75 74 47 | 65 6e 46 69 65 6c 64 20 |IS.cOutG|enField |
|00001d10| 3d 20 22 22 09 26 26 72 | 65 73 65 74 20 66 69 65 |= "".&&r|eset fie|
|00001d20| 6c 64 0d 0a 09 63 4f 70 | 65 6e 41 6c 69 61 73 20 |ld...cOp|enAlias |
|00001d30| 3d 20 22 22 0d 0a 09 0d | 0a 09 2a 20 43 68 65 63 |= ""....|..* Chec|
|00001d40| 6b 20 69 66 20 54 48 49 | 53 2e 63 4f 75 74 46 69 |k if THI|S.cOutFi|
|00001d50| 6c 65 20 70 61 73 73 65 | 64 20 66 61 69 6c 65 64 |le passe|d failed|
|00001d60| 0d 0a 09 49 46 20 21 45 | 4d 50 54 59 28 63 54 6d |...IF !E|MPTY(cTm|
|00001d70| 70 46 69 6c 65 29 0d 0a | 09 09 54 48 49 53 2e 63 |pFile)..|..THIS.c|
|00001d80| 4f 75 74 46 69 6c 65 20 | 3d 20 22 22 0d 0a 09 45 |OutFile |= ""...E|
|00001d90| 4e 44 49 46 0d 0a 09 0d | 0a 09 49 46 20 45 4d 50 |NDIF....|..IF EMP|
|00001da0| 54 59 28 54 48 49 53 2e | 63 4f 75 74 46 69 6c 65 |TY(THIS.|cOutFile|
|00001db0| 29 0d 0a 09 09 53 45 54 | 20 53 41 46 45 54 59 20 |)....SET| SAFETY |
|00001dc0| 4f 46 46 0d 0a 09 09 63 | 54 6d 70 46 69 6c 65 20 |OFF....c|TmpFile |
|00001dd0| 3d 20 50 55 54 46 49 4c | 45 28 6d 2e 63 50 72 6f |= PUTFIL|E(m.cPro|
|00001de0| 6d 70 74 2c 6d 2e 63 53 | 61 76 65 46 69 6c 65 2c |mpt,m.cS|aveFile,|
|00001df0| 6d 2e 63 45 78 74 29 0d | 0a 09 09 53 45 54 20 53 |m.cExt).|...SET S|
|00001e00| 41 46 45 54 59 20 26 63 | 4f 6c 64 53 61 66 65 0d |AFETY &c|OldSafe.|
|00001e10| 0a 09 0d 0a 09 09 2a 20 | 55 73 65 72 20 68 69 74 |......* |User hit|
|00001e20| 20 63 61 6e 63 65 6c 65 | 64 0d 0a 09 09 49 46 20 | cancele|d....IF |
|00001e30| 45 4d 50 54 59 28 6d 2e | 63 54 6d 70 46 69 6c 65 |EMPTY(m.|cTmpFile|
|00001e40| 29 0d 0a 09 09 09 45 58 | 49 54 0d 0a 09 09 45 4e |).....EX|IT....EN|
|00001e50| 44 49 46 0d 0a 09 09 0d | 0a 09 09 2a 20 46 69 6c |DIF.....|...* Fil|
|00001e60| 65 20 64 6f 65 73 20 6e | 6f 74 20 65 78 69 73 74 |e does n|ot exist|
|00001e70| 20 73 6f 2c 20 6c 65 74 | 73 20 73 6b 69 70 20 63 | so, let|s skip c|
|00001e80| 68 65 63 6b 0d 0a 09 09 | 63 54 6d 70 46 69 6c 65 |heck....|cTmpFile|
|00001e90| 20 3d 20 54 48 49 53 2e | 46 6f 72 63 65 45 78 74 | = THIS.|ForceExt|
|00001ea0| 28 6d 2e 63 54 6d 70 46 | 69 6c 65 2c 22 44 42 46 |(m.cTmpF|ile,"DBF|
|00001eb0| 22 29 0d 0a 09 09 49 46 | 20 21 46 49 4c 45 28 6d |")....IF| !FILE(m|
|00001ec0| 2e 63 54 6d 70 46 69 6c | 65 29 0d 0a 09 09 09 45 |.cTmpFil|e).....E|
|00001ed0| 58 49 54 0d 0a 09 09 45 | 4e 44 49 46 0d 0a 09 45 |XIT....E|NDIF...E|
|00001ee0| 4c 53 45 0d 0a 09 09 63 | 54 6d 70 46 69 6c 65 20 |LSE....c|TmpFile |
|00001ef0| 3d 20 54 48 49 53 2e 63 | 4f 75 74 46 69 6c 65 0d |= THIS.c|OutFile.|
|00001f00| 0a 09 09 49 46 20 21 46 | 49 4c 45 28 6d 2e 63 54 |...IF !F|ILE(m.cT|
|00001f10| 6d 70 46 69 6c 65 29 0d | 0a 09 09 09 45 58 49 54 |mpFile).|....EXIT|
|00001f20| 0d 0a 09 09 45 4e 44 49 | 46 0d 0a 09 45 4e 44 49 |....ENDI|F...ENDI|
|00001f30| 46 0d 0a 09 0d 0a 09 2a | 20 53 65 65 20 69 66 20 |F......*| See if |
|00001f40| 77 65 20 61 6c 72 65 61 | 64 79 20 68 61 76 65 20 |we alrea|dy have |
|00001f50| 66 69 6c 65 20 6f 70 65 | 6e 20 61 6e 64 20 75 73 |file ope|n and us|
|00001f60| 65 20 69 74 2e 0d 0a 09 | 63 4f 70 65 6e 41 6c 69 |e it....|cOpenAli|
|00001f70| 61 73 20 3d 20 54 48 49 | 53 2e 4a 55 53 54 53 54 |as = THI|S.JUSTST|
|00001f80| 45 4d 28 6d 2e 63 54 6d | 70 46 69 6c 65 29 0d 0a |EM(m.cTm|pFile)..|
|00001f90| 09 49 46 20 55 53 45 44 | 28 6d 2e 63 4f 70 65 6e |.IF USED|(m.cOpen|
|00001fa0| 41 6c 69 61 73 29 20 41 | 4e 44 20 55 50 50 45 52 |Alias) A|ND UPPER|
|00001fb0| 28 44 42 46 28 6d 2e 63 | 4f 70 65 6e 41 6c 69 61 |(DBF(m.c|OpenAlia|
|00001fc0| 73 29 29 20 3d 20 55 50 | 50 45 52 28 6d 2e 63 54 |s)) = UP|PER(m.cT|
|00001fd0| 6d 70 46 69 6c 65 29 0d | 0a 09 09 53 45 4c 45 43 |mpFile).|...SELEC|
|00001fe0| 54 20 28 6d 2e 63 4f 70 | 65 6e 41 6c 69 61 73 29 |T (m.cOp|enAlias)|
|00001ff0| 0d 0a 09 45 4c 53 45 0d | 0a 09 09 63 4f 70 65 6e |...ELSE.|...cOpen|
|00002000| 41 6c 69 61 73 20 3d 20 | 22 22 0d 0a 09 45 4e 44 |Alias = |""...END|
|00002010| 49 46 0d 0a 09 0d 0a 09 | 2a 20 54 65 73 74 20 66 |IF......|* Test f|
|00002020| 69 6c 65 20 66 6f 72 20 | 61 6c 72 65 61 64 79 20 |ile for |already |
|00002030| 69 6e 2d 75 73 65 0d 0a | 09 49 46 20 45 4d 50 54 |in-use..|.IF EMPT|
|00002040| 59 28 6d 2e 63 4f 70 65 | 6e 41 6c 69 61 73 29 0d |Y(m.cOpe|nAlias).|
|00002050| 0a 09 09 53 45 4c 45 43 | 54 20 30 0d 0a 09 09 54 |...SELEC|T 0....T|
|00002060| 48 49 53 2e 53 65 74 45 | 72 72 6f 72 4f 66 66 20 |HIS.SetE|rrorOff |
|00002070| 3d 20 2e 54 2e 0d 0a 09 | 09 55 53 45 20 28 6d 2e |= .T....|.USE (m.|
|00002080| 63 54 6d 70 46 69 6c 65 | 29 20 41 47 41 49 4e 20 |cTmpFile|) AGAIN |
|00002090| 53 48 41 52 45 44 0d 0a | 09 09 54 48 49 53 2e 53 |SHARED..|..THIS.S|
|000020a0| 65 74 45 72 72 6f 72 4f | 66 66 20 3d 20 2e 46 2e |etErrorO|ff = .F.|
|000020b0| 0d 0a 09 09 0d 0a 09 09 | 2a 20 46 61 69 6c 65 64 |........|* Failed|
|000020c0| 20 74 6f 20 6f 70 65 6e | 20 66 69 6c 65 20 73 68 | to open| file sh|
|000020d0| 61 72 65 64 20 2d 2d 20 | 66 69 6c 65 20 69 6e 20 |ared -- |file in |
|000020e0| 75 73 65 0d 0a 09 09 49 | 46 20 45 4d 50 54 59 28 |use....I|F EMPTY(|
|000020f0| 41 4c 49 41 53 28 29 29 | 0d 0a 09 09 09 54 48 49 |ALIAS())|.....THI|
|00002100| 53 2e 41 4c 45 52 54 28 | 43 5f 46 49 4c 45 49 4e |S.ALERT(|C_FILEIN|
|00002110| 55 53 45 5f 4c 4f 43 29 | 0d 0a 09 09 09 4c 4f 4f |USE_LOC)|.....LOO|
|00002120| 50 0d 0a 09 09 45 4e 44 | 49 46 0d 0a 09 45 4e 44 |P....END|IF...END|
|00002130| 49 46 0d 0a 09 0d 0a 09 | 2a 20 54 65 73 74 20 66 |IF......|* Test f|
|00002140| 6f 72 20 47 65 6e 65 72 | 61 6c 20 66 69 65 6c 64 |or Gener|al field|
|00002150| 73 20 69 6e 20 74 61 62 | 6c 65 0d 0a 09 46 4f 52 |s in tab|le...FOR|
|00002160| 20 69 20 3d 20 31 20 54 | 4f 20 46 43 4f 55 4e 54 | i = 1 T|O FCOUNT|
|00002170| 28 29 0d 0a 09 09 49 46 | 20 54 59 50 45 28 46 49 |()....IF| TYPE(FI|
|00002180| 45 4c 44 28 6d 2e 69 29 | 29 20 3d 20 22 47 22 0d |ELD(m.i)|) = "G".|
|00002190| 0a 09 09 09 54 48 49 53 | 2e 63 4f 75 74 47 65 6e |....THIS|.cOutGen|
|000021a0| 46 69 65 6c 64 20 3d 20 | 46 49 45 4c 44 28 6d 2e |Field = |FIELD(m.|
|000021b0| 69 29 0d 0a 09 09 09 45 | 58 49 54 09 09 09 0d 0a |i).....E|XIT.....|
|000021c0| 09 09 45 4e 44 49 46 0d | 0a 09 45 4e 44 46 4f 52 |..ENDIF.|..ENDFOR|
|000021d0| 0d 0a 09 0d 0a 09 2a 20 | 54 61 62 6c 65 20 73 65 |......* |Table se|
|000021e0| 6c 65 63 74 65 64 20 68 | 61 73 20 6e 6f 20 47 65 |lected h|as no Ge|
|000021f0| 6e 65 72 61 6c 20 66 69 | 65 6c 64 20 0d 0a 09 2a |neral fi|eld ...*|
|00002200| 20 73 6f 20 6c 65 74 27 | 73 20 6e 6f 74 20 61 6c | so let'|s not al|
|00002210| 6c 6f 77 20 74 68 65 6d | 20 74 6f 20 61 70 70 65 |low them| to appe|
|00002220| 6e 64 2e 0d 0a 09 49 46 | 20 45 4d 50 54 59 28 54 |nd....IF| EMPTY(T|
|00002230| 48 49 53 2e 63 4f 75 74 | 47 65 6e 46 69 65 6c 64 |HIS.cOut|GenField|
|00002240| 29 0d 0a 09 09 2a 20 42 | 79 20 64 65 66 61 75 6c |)....* B|y defaul|
|00002250| 74 2c 20 75 73 65 20 72 | 65 70 6c 61 63 65 20 6f |t, use r|eplace o|
|00002260| 70 74 69 6f 6e 20 68 65 | 72 65 2e 0d 0a 09 09 54 |ption he|re.....T|
|00002270| 48 49 53 2e 6c 52 65 70 | 6c 61 63 65 44 42 46 20 |HIS.lRep|laceDBF |
|00002280| 3d 20 2e 54 2e 0d 0a 09 | 45 4c 53 45 0d 0a 09 09 |= .T....|ELSE....|
|00002290| 54 48 49 53 2e 6c 52 65 | 70 6c 61 63 65 44 42 46 |THIS.lRe|placeDBF|
|000022a0| 20 3d 20 2e 46 2e 0d 0a | 09 45 4e 44 49 46 0d 0a | = .F...|.ENDIF..|
|000022b0| 09 0d 0a 09 49 46 20 54 | 48 49 53 2e 6c 52 65 70 |....IF T|HIS.lRep|
|000022c0| 6c 61 63 65 44 42 46 20 | 0d 0a 09 09 2a 20 54 61 |laceDBF |....* Ta|
|000022d0| 62 6c 65 20 61 6c 72 65 | 61 64 79 20 6f 70 65 6e |ble alre|ady open|
|000022e0| 65 64 0d 0a 09 09 49 46 | 20 21 45 4d 50 54 59 28 |ed....IF| !EMPTY(|
|000022f0| 6d 2e 63 4f 70 65 6e 41 | 6c 69 61 73 29 20 41 4e |m.cOpenA|lias) AN|
|00002300| 44 20 49 53 45 58 43 4c | 55 53 49 56 45 28 29 0d |D ISEXCL|USIVE().|
|00002310| 0a 09 09 09 2a 20 41 6c | 6c 20 69 73 20 77 65 6c |....* Al|l is wel|
|00002320| 6c 2c 20 73 6f 20 6c 65 | 74 27 73 20 6a 75 73 74 |l, so le|t's just|
|00002330| 20 65 78 69 74 0d 0a 09 | 09 09 45 58 49 54 0d 0a | exit...|..EXIT..|
|00002340| 09 09 45 4e 44 49 46 0d | 0a 09 09 0d 0a 09 09 2a |..ENDIF.|.......*|
|00002350| 20 4c 65 74 27 73 20 74 | 65 73 74 20 74 6f 20 6d | Let's t|est to m|
|00002360| 61 6b 65 20 73 75 72 65 | 20 74 68 61 74 20 77 65 |ake sure| that we|
|00002370| 20 63 61 6e 20 65 6e 74 | 69 72 65 20 6f 76 65 72 | can ent|ire over|
|00002380| 77 72 69 74 65 20 74 61 | 62 6c 65 0d 0a 09 09 54 |write ta|ble....T|
|00002390| 48 49 53 2e 53 65 74 45 | 72 72 6f 72 4f 66 66 20 |HIS.SetE|rrorOff |
|000023a0| 3d 20 2e 54 2e 0d 0a 09 | 09 55 53 45 20 28 6d 2e |= .T....|.USE (m.|
|000023b0| 63 54 6d 70 46 69 6c 65 | 29 20 41 47 41 49 4e 20 |cTmpFile|) AGAIN |
|000023c0| 45 58 43 4c 55 53 49 56 | 45 0d 0a 09 09 54 48 49 |EXCLUSIV|E....THI|
|000023d0| 53 2e 53 65 74 45 72 72 | 6f 72 4f 66 66 20 3d 20 |S.SetErr|orOff = |
|000023e0| 2e 46 2e 0d 0a 09 09 2a | 20 46 61 69 6c 65 64 20 |.F.....*| Failed |
|000023f0| 74 6f 20 6f 70 65 6e 20 | 66 69 6c 65 20 65 78 63 |to open |file exc|
|00002400| 6c 75 73 69 76 65 20 2d | 2d 20 66 69 6c 65 20 69 |lusive -|- file i|
|00002410| 6e 20 75 73 65 0d 0a 09 | 09 49 46 20 45 4d 50 54 |n use...|.IF EMPT|
|00002420| 59 28 41 4c 49 41 53 28 | 29 29 0d 0a 09 09 09 54 |Y(ALIAS(|)).....T|
|00002430| 48 49 53 2e 41 4c 45 52 | 54 28 43 5f 46 49 4c 45 |HIS.ALER|T(C_FILE|
|00002440| 49 4e 55 53 45 5f 4c 4f | 43 29 0d 0a 09 09 09 4c |INUSE_LO|C).....L|
|00002450| 4f 4f 50 0d 0a 09 09 45 | 4e 44 49 46 0d 0a 09 45 |OOP....E|NDIF...E|
|00002460| 4e 44 49 46 0d 0a 09 0d | 0a 09 2a 20 54 65 73 74 |NDIF....|..* Test|
|00002470| 20 66 6f 72 20 72 65 61 | 64 2d 6f 6e 6c 79 0d 0a | for rea|d-only..|
|00002480| 09 49 46 20 49 53 52 45 | 41 44 4f 4e 4c 59 28 29 |.IF ISRE|ADONLY()|
|00002490| 0d 0a 09 09 54 48 49 53 | 2e 41 4c 45 52 54 28 43 |....THIS|.ALERT(C|
|000024a0| 5f 52 45 41 44 4f 4e 4c | 59 5f 4c 4f 43 29 0d 0a |_READONL|Y_LOC)..|
|000024b0| 09 09 49 46 20 45 4d 50 | 54 59 28 6d 2e 63 4f 70 |..IF EMP|TY(m.cOp|
|000024c0| 65 6e 41 6c 69 61 73 29 | 0d 0a 09 09 09 55 53 45 |enAlias)|.....USE|
|000024d0| 0d 0a 09 09 45 4e 44 49 | 46 0d 0a 09 09 4c 4f 4f |....ENDI|F....LOO|
|000024e0| 50 0d 0a 09 45 4e 44 49 | 46 0d 0a 0d 0a 09 49 46 |P...ENDI|F.....IF|
|000024f0| 20 45 4d 50 54 59 28 6d | 2e 63 4f 70 65 6e 41 6c | EMPTY(m|.cOpenAl|
|00002500| 69 61 73 29 0d 0a 09 09 | 55 53 45 0d 0a 09 45 4e |ias)....|USE...EN|
|00002510| 44 49 46 0d 0a 09 45 58 | 49 54 0d 0a 45 4e 44 44 |DIF...EX|IT..ENDD|
|00002520| 4f 0d 0a 54 48 49 53 2e | 63 4f 75 74 46 69 6c 65 |O..THIS.|cOutFile|
|00002530| 20 3d 20 6d 2e 63 54 6d | 70 46 69 6c 65 0d 0a 54 | = m.cTm|pFile..T|
|00002540| 48 49 53 2e 63 4f 70 65 | 6e 41 6c 69 61 73 20 3d |HIS.cOpe|nAlias =|
|00002550| 20 6d 2e 63 4f 70 65 6e | 41 6c 69 61 73 0d 0a 53 | m.cOpen|Alias..S|
|00002560| 45 4c 45 43 54 20 28 6d | 2e 6e 53 61 76 65 41 72 |ELECT (m|.nSaveAr|
|00002570| 65 61 29 0d 0a 52 45 54 | 55 52 4e 20 21 45 4d 50 |ea)..RET|URN !EMP|
|00002580| 54 59 28 6d 2e 63 54 6d | 70 46 69 6c 65 29 0d 0a |TY(m.cTm|pFile)..|
|00002590| 0d 0a 45 4e 44 50 52 4f | 43 0d 0a 50 52 4f 43 45 |..ENDPRO|C..PROCE|
|000025a0| 44 55 52 45 20 6d 61 6b | 65 71 70 72 0d 0a 2a 2d |DURE mak|eqpr..*-|
|000025b0| 20 4d 61 6b 65 73 20 61 | 20 74 65 6d 70 6f 72 61 | Makes a| tempora|
|000025c0| 72 79 20 63 75 72 73 6f | 72 20 77 69 74 68 20 6d |ry curso|r with m|
|000025d0| 65 6d 6f 20 74 6f 20 63 | 72 65 61 74 65 20 51 50 |emo to c|reate QP|
|000025e0| 52 20 66 69 6c 65 73 0d | 0a 4c 4f 43 41 4c 20 63 |R files.|.LOCAL c|
|000025f0| 54 6d 70 43 75 72 73 6f | 72 2c 6e 57 6b 41 72 65 |TmpCurso|r,nWkAre|
|00002600| 61 2c 63 53 51 4c 41 6c | 69 61 73 2c 66 6c 64 45 |a,cSQLAl|ias,fldE|
|00002610| 78 70 72 2c 63 54 6d 70 | 54 79 70 65 2c 63 54 6d |xpr,cTmp|Type,cTm|
|00002620| 70 53 75 62 2c 63 44 42 | 43 50 61 74 68 2c 69 20 |pSub,cDB|CPath,i |
|00002630| 0d 0a 6d 2e 6e 57 6b 41 | 72 65 61 20 3d 20 53 45 |..m.nWkA|rea = SE|
|00002640| 4c 45 43 54 28 29 0d 0a | 6d 2e 63 54 6d 70 43 75 |LECT()..|m.cTmpCu|
|00002650| 72 73 6f 72 20 3d 20 53 | 59 53 28 32 30 31 35 29 |rsor = S|YS(2015)|
|00002660| 0d 0a 0d 0a 49 46 20 21 | 45 4d 50 54 59 28 43 55 |....IF !|EMPTY(CU|
|00002670| 52 53 4f 52 47 45 54 50 | 52 4f 50 28 22 64 61 74 |RSORGETP|ROP("dat|
|00002680| 61 62 61 73 65 22 29 29 | 09 09 09 09 26 26 20 44 |abase"))|....&& D|
|00002690| 42 43 20 73 74 75 66 66 | 0d 0a 09 63 53 51 4c 53 |BC stuff|...cSQLS|
|000026a0| 6f 75 72 63 65 3d 20 50 | 52 4f 50 45 52 28 43 55 |ource= P|ROPER(CU|
|000026b0| 52 53 4f 52 47 45 54 50 | 52 4f 50 28 22 53 6f 75 |RSORGETP|ROP("Sou|
|000026c0| 72 63 65 4e 61 6d 65 22 | 29 29 0d 0a 45 4c 53 45 |rceName"|))..ELSE|
|000026d0| 09 09 09 09 09 09 09 09 | 09 09 09 26 26 20 74 61 |........|...&& ta|
|000026e0| 62 6c 65 0d 0a 09 63 53 | 51 4c 53 6f 75 72 63 65 |ble...cS|QLSource|
|000026f0| 20 3d 20 53 59 53 28 32 | 30 31 34 2c 44 42 46 28 | = SYS(2|014,DBF(|
|00002700| 29 2c 54 48 49 53 2e 63 | 4f 75 74 46 69 6c 65 29 |),THIS.c|OutFile)|
|00002710| 0d 0a 45 4e 44 49 46 0d | 0a 63 53 51 4c 41 6c 69 |..ENDIF.|.cSQLAli|
|00002720| 61 73 20 3d 20 41 4c 49 | 41 53 28 29 0d 0a 0d 0a |as = ALI|AS()....|
|00002730| 2a 20 47 65 74 20 53 51 | 4c 20 53 65 6c 65 63 74 |* Get SQ|L Select|
|00002740| 20 73 74 61 74 65 6d 65 | 6e 74 20 70 69 65 63 65 | stateme|nt piece|
|00002750| 73 0d 0a 49 46 20 21 45 | 4d 50 54 59 28 54 48 49 |s..IF !E|MPTY(THI|
|00002760| 53 2e 63 43 61 74 65 67 | 6f 72 79 46 69 65 6c 64 |S.cCateg|oryField|
|00002770| 29 0d 0a 09 6d 2e 66 6c | 64 45 78 70 72 20 3d 20 |)...m.fl|dExpr = |
|00002780| 6d 2e 63 53 51 4c 41 6c | 69 61 73 20 2b 20 22 2e |m.cSQLAl|ias + ".|
|00002790| 22 20 2b 20 54 48 49 53 | 2e 63 43 61 74 65 67 6f |" + THIS|.cCatego|
|000027a0| 72 79 46 69 65 6c 64 0d | 0a 45 4e 44 49 46 0d 0a |ryField.|.ENDIF..|
|000027b0| 0d 0a 46 4f 52 20 69 20 | 3d 20 31 20 54 4f 20 41 |..FOR i |= 1 TO A|
|000027c0| 4c 45 4e 28 54 48 49 53 | 2e 61 44 61 74 61 46 69 |LEN(THIS|.aDataFi|
|000027d0| 65 6c 64 73 29 0d 0a 09 | 49 46 20 45 4d 50 54 59 |elds)...|IF EMPTY|
|000027e0| 28 54 48 49 53 2e 61 44 | 61 74 61 46 69 65 6c 64 |(THIS.aD|ataField|
|000027f0| 73 5b 6d 2e 69 5d 29 0d | 0a 09 09 4c 4f 4f 50 0d |s[m.i]).|...LOOP.|
|00002800| 0a 09 45 4e 44 49 46 0d | 0a 09 6d 2e 66 6c 64 45 |..ENDIF.|..m.fldE|
|00002810| 78 70 72 3d 6d 2e 66 6c | 64 45 78 70 72 20 2b 20 |xpr=m.fl|dExpr + |
|00002820| 22 2c 20 22 2b 6d 2e 63 | 53 51 4c 41 6c 69 61 73 |", "+m.c|SQLAlias|
|00002830| 20 2b 20 22 2e 22 20 2b | 20 54 48 49 53 2e 61 44 | + "." +| THIS.aD|
|00002840| 61 74 61 46 69 65 6c 64 | 73 5b 6d 2e 69 5d 0d 0a |ataField|s[m.i]..|
|00002850| 45 4e 44 46 4f 52 0d 0a | 0d 0a 49 46 20 21 45 4d |ENDFOR..|..IF !EM|
|00002860| 50 54 59 28 43 55 52 53 | 4f 52 47 45 54 50 52 4f |PTY(CURS|ORGETPRO|
|00002870| 50 28 27 64 61 74 61 62 | 61 73 65 27 29 29 20 20 |P('datab|ase'))  |
|00002880| 26 26 6c 65 74 73 20 70 | 75 74 20 74 68 65 20 44 |&&lets p|ut the D|
|00002890| 42 43 20 61 6c 69 61 73 | 20 62 65 66 6f 72 65 20 |BC alias| before |
|000028a0| 74 61 62 6c 65 0d 0a 09 | 63 44 42 43 50 61 74 68 |table...|cDBCPath|
|000028b0| 20 3d 20 54 48 49 53 2e | 4a 75 73 74 53 74 65 6d | = THIS.|JustStem|
|000028c0| 28 53 59 53 28 32 30 31 | 34 2c 43 55 52 53 4f 52 |(SYS(201|4,CURSOR|
|000028d0| 47 45 54 50 52 4f 50 28 | 27 64 61 74 61 62 61 73 |GETPROP(|'databas|
|000028e0| 65 27 29 2c 54 48 49 53 | 2e 63 4f 75 74 46 69 6c |e'),THIS|.cOutFil|
|000028f0| 65 29 29 0d 0a 09 63 53 | 51 4c 53 6f 75 72 63 65 |e))...cS|QLSource|
|00002900| 20 3d 20 6d 2e 63 44 42 | 43 50 61 74 68 20 2b 20 | = m.cDB|CPath + |
|00002910| 22 21 22 20 2b 20 6d 2e | 63 53 51 4c 53 6f 75 72 |"!" + m.|cSQLSour|
|00002920| 63 65 0d 0a 45 4e 44 49 | 46 0d 0a 63 53 51 4c 53 |ce..ENDI|F..cSQLS|
|00002930| 6f 75 72 63 65 20 3d 20 | 22 27 22 20 2b 20 6d 2e |ource = |"'" + m.|
|00002940| 63 53 51 4c 53 6f 75 72 | 63 65 20 2b 20 22 27 20 |cSQLSour|ce + "' |
|00002950| 22 20 2b 20 6d 2e 63 53 | 51 4c 41 6c 69 61 73 0d |" + m.cS|QLAlias.|
|00002960| 0a 0d 0a 49 46 20 54 48 | 49 53 2e 6c 55 73 65 41 |...IF TH|IS.lUseA|
|00002970| 75 74 6f 46 6f 72 6d 61 | 74 0d 0a 09 6d 2e 63 54 |utoForma|t...m.cT|
|00002980| 6d 70 54 79 70 65 20 3d | 20 54 48 49 53 2e 6e 43 |mpType =| THIS.nC|
|00002990| 68 61 72 74 41 75 74 6f | 47 61 6c 6c 65 72 79 0d |hartAuto|Gallery.|
|000029a0| 0a 09 6d 2e 63 54 6d 70 | 53 75 62 20 3d 20 54 48 |..m.cTmp|Sub = TH|
|000029b0| 49 53 2e 6e 43 68 61 72 | 74 41 75 74 6f 46 6f 72 |IS.nChar|tAutoFor|
|000029c0| 6d 61 74 0d 0a 45 4c 53 | 45 0d 0a 09 6d 2e 63 54 |mat..ELS|E...m.cT|
|000029d0| 6d 70 54 79 70 65 20 3d | 20 54 48 49 53 2e 6e 43 |mpType =| THIS.nC|
|000029e0| 68 61 72 74 54 79 70 65 | 0d 0a 09 6d 2e 63 54 6d |hartType|...m.cTm|
|000029f0| 70 53 75 62 20 3d 20 54 | 48 49 53 2e 6e 43 68 61 |pSub = T|HIS.nCha|
|00002a00| 72 74 53 75 62 54 79 70 | 65 0d 0a 45 4e 44 49 46 |rtSubTyp|e..ENDIF|
|00002a10| 0d 0a 0d 0a 43 52 45 41 | 54 45 20 43 55 52 53 4f |....CREA|TE CURSO|
|00002a20| 52 20 28 6d 2e 63 54 6d | 70 43 75 72 73 6f 72 29 |R (m.cTm|pCursor)|
|00002a30| 20 28 73 71 6c 73 74 72 | 69 6e 67 20 6d 29 0d 0a | (sqlstr|ing m)..|
|00002a40| 41 50 50 45 4e 44 20 42 | 4c 41 4e 4b 0d 0a 52 45 |APPEND B|LANK..RE|
|00002a50| 50 4c 41 43 45 20 73 71 | 6c 73 74 72 69 6e 67 20 |PLACE sq|lstring |
|00002a60| 57 49 54 48 20 3b 0d 0a | 09 22 53 45 4c 45 43 54 |WITH ;..|."SELECT|
|00002a70| 20 22 2b 6d 2e 66 6c 64 | 45 78 70 72 20 2b 20 22 | "+m.fld|Expr + "|
|00002a80| 3b 22 20 2b 20 43 52 4c | 46 20 2b 3b 0d 0a 09 22 |;" + CRL|F +;..."|
|00002a90| 20 20 20 20 46 52 4f 4d | 20 22 20 2b 20 6d 2e 63 |    FROM| " + m.c|
|00002aa0| 53 51 4c 53 6f 75 72 63 | 65 20 2b 20 22 3b 22 20 |SQLSourc|e + ";" |
|00002ab0| 2b 20 43 52 4c 46 20 2b | 3b 0d 0a 09 22 20 20 20 |+ CRLF +|;..."   |
|00002ac0| 20 49 4e 54 4f 20 43 55 | 52 53 4f 52 20 53 59 53 | INTO CU|RSOR SYS|
|00002ad0| 28 32 30 31 35 29 22 20 | 2b 20 43 52 4c 46 20 2b |(2015)" |+ CRLF +|
|00002ae0| 3b 0d 0a 09 22 44 4f 20 | 28 5f 47 45 4e 47 52 41 |;..."DO |(_GENGRA|
|00002af0| 50 48 29 20 57 49 54 48 | 20 22 2b 3b 0d 0a 09 22 |PH) WITH| "+;..."|
|00002b00| 27 41 55 54 4f 47 52 41 | 50 48 27 2c 22 2b 3b 0d |'AUTOGRA|PH',"+;.|
|00002b10| 0a 09 41 4c 4c 54 52 49 | 4d 28 53 54 52 28 6d 2e |..ALLTRI|M(STR(m.|
|00002b20| 63 54 6d 70 54 79 70 65 | 29 29 2b 22 2c 22 2b 3b |cTmpType|))+","+;|
|00002b30| 20 0d 0a 09 41 4c 4c 54 | 52 49 4d 28 53 54 52 28 | ...ALLT|RIM(STR(|
|00002b40| 6d 2e 63 54 6d 70 53 75 | 62 29 29 2b 22 2c 22 2b |m.cTmpSu|b))+","+|
|00002b50| 3b 0d 0a 09 22 27 22 2b | 54 48 49 53 2e 63 54 69 |;..."'"+|THIS.cTi|
|00002b60| 74 6c 65 2b 22 27 2c 22 | 2b 3b 0d 0a 09 49 49 46 |tle+"',"|+;...IIF|
|00002b70| 28 54 48 49 53 2e 6c 53 | 65 72 69 65 73 42 79 52 |(THIS.lS|eriesByR|
|00002b80| 6f 77 20 2c 22 2e 54 2e | 22 2c 22 2e 46 2e 22 29 |ow ,".T.|",".F.")|
|00002b90| 2b 22 2c 22 2b 3b 0d 0a | 09 49 49 46 28 54 48 49 |+","+;..|.IIF(THI|
|00002ba0| 53 2e 6c 41 64 64 4c 65 | 67 65 6e 64 2c 22 2e 54 |S.lAddLe|gend,".T|
|00002bb0| 2e 22 2c 22 2e 46 2e 22 | 29 2b 22 2c 22 2b 3b 0d |.",".F."|)+","+;.|
|00002bc0| 0a 09 49 49 46 28 54 48 | 49 53 2e 6c 55 73 65 41 |..IIF(TH|IS.lUseA|
|00002bd0| 75 74 6f 46 6f 72 6d 61 | 74 2c 22 2e 54 2e 22 2c |utoForma|t,".T.",|
|00002be0| 22 2e 46 2e 22 29 2b 3b | 0d 0a 09 22 2c 2c 2e 46 |".F.")+;|...",,.F|
|00002bf0| 2e 22 20 2b 20 3b 0d 0a | 09 49 49 46 28 54 48 49 |." + ;..|.IIF(THI|
|00002c00| 53 2e 6c 53 68 6f 77 4e | 75 6c 6c 73 2c 22 2c 2e |S.lShowN|ulls,",.|
|00002c10| 54 2e 22 2c 22 22 29 20 | 41 44 44 49 54 49 56 45 |T.","") |ADDITIVE|
|00002c20| 0d 0a 43 4f 50 59 20 4d | 45 4d 4f 20 73 71 6c 73 |..COPY M|EMO sqls|
|00002c30| 74 72 69 6e 67 20 54 4f | 20 28 54 48 49 53 2e 63 |tring TO| (THIS.c|
|00002c40| 4f 75 74 46 69 6c 65 29 | 0d 0a 55 53 45 0d 0a 53 |OutFile)|..USE..S|
|00002c50| 45 4c 45 43 54 20 28 6d | 2e 6e 57 6b 41 72 65 61 |ELECT (m|.nWkArea|
|00002c60| 29 0d 0a 0d 0a 45 4e 44 | 50 52 4f 43 0d 0a 50 52 |)....END|PROC..PR|
|00002c70| 4f 43 45 44 55 52 45 20 | 61 64 64 67 72 61 70 68 |OCEDURE |addgraph|
|00002c80| 64 61 74 61 0d 0a 4c 4f | 43 41 4c 20 63 44 61 74 |data..LO|CAL cDat|
|00002c90| 61 43 6f 6e 74 65 6e 74 | 73 2c 20 61 47 72 61 70 |aContent|s, aGrap|
|00002ca0| 68 46 6c 64 73 2c 20 63 | 54 6d 70 43 75 72 73 2c |hFlds, c|TmpCurs,|
|00002cb0| 20 63 46 69 65 6c 64 73 | 2c 20 63 54 6d 70 58 4c | cFields|, cTmpXL|
|00002cc0| 53 46 69 6c 65 2c 20 63 | 4f 6c 64 43 6c 69 70 54 |SFile, c|OldClipT|
|00002cd0| 65 78 74 0d 0a 44 49 4d | 45 4e 53 49 4f 4e 20 61 |ext..DIM|ENSION a|
|00002ce0| 47 72 61 70 68 46 6c 64 | 73 5b 31 5d 0d 0a 0d 0a |GraphFld|s[1]....|
|00002cf0| 49 46 20 21 54 48 49 53 | 2e 43 68 65 63 6b 44 61 |IF !THIS|.CheckDa|
|00002d00| 74 61 28 29 0d 0a 09 52 | 45 54 55 52 4e 20 2e 46 |ta()...R|ETURN .F|
|00002d10| 2e 0d 0a 45 4e 44 49 46 | 09 0d 0a 0d 0a 54 48 49 |...ENDIF|.....THI|
|00002d20| 53 2e 6e 74 6f 74 61 6c | 64 61 74 61 66 6c 64 73 |S.ntotal|dataflds|
|00002d30| 20 3d 20 41 4c 45 4e 28 | 54 48 49 53 2e 61 44 61 | = ALEN(|THIS.aDa|
|00002d40| 74 61 46 69 65 6c 64 73 | 2c 31 29 0d 0a 0d 0a 49 |taFields|,1)....I|
|00002d50| 46 20 54 48 49 53 2e 6c | 41 64 64 65 64 44 61 74 |F THIS.l|AddedDat|
|00002d60| 61 20 41 4e 44 20 55 53 | 45 44 28 27 76 66 70 67 |a AND US|ED('vfpg|
|00002d70| 74 65 6d 70 27 29 0d 0a | 09 53 45 4c 45 43 54 20 |temp')..|.SELECT |
|00002d80| 76 66 70 67 74 65 6d 70 | 0d 0a 45 4e 44 49 46 0d |vfpgtemp|..ENDIF.|
|00002d90| 0a 0d 0a 49 46 20 21 54 | 48 49 53 2e 6c 41 64 64 |...IF !T|HIS.lAdd|
|00002da0| 65 64 44 61 74 61 0d 0a | 0d 0a 09 49 46 20 54 48 |edData..|...IF TH|
|00002db0| 49 53 2e 6e 41 63 74 69 | 6f 6e 20 3d 20 32 20 4f |IS.nActi|on = 2 O|
|00002dc0| 52 20 28 54 48 49 53 2e | 6e 67 72 61 70 68 56 65 |R (THIS.|ngraphVe|
|00002dd0| 72 73 69 6f 6e 20 3c 20 | 38 29 0d 0a 09 09 2a 2d |rsion < |8)....*-|
|00002de0| 20 73 61 76 65 20 74 6f | 20 61 20 74 61 62 6c 65 | save to| a table|
|00002df0| 0d 0a 09 09 6d 2e 63 44 | 61 74 61 43 6f 6e 74 65 |....m.cD|ataConte|
|00002e00| 6e 74 73 20 3d 20 54 48 | 49 53 2e 47 65 74 4f 6c |nts = TH|IS.GetOl|
|00002e10| 65 44 61 74 61 28 29 0d | 0a 09 09 49 46 20 45 4d |eData().|...IF EM|
|00002e20| 50 54 59 28 6d 2e 63 44 | 61 74 61 43 6f 6e 74 65 |PTY(m.cD|ataConte|
|00002e30| 6e 74 73 29 0d 0a 09 09 | 09 54 48 49 53 2e 6c 41 |nts)....|.THIS.lA|
|00002e40| 64 64 65 64 44 61 74 61 | 20 3d 20 2e 46 2e 0d 0a |ddedData| = .F...|
|00002e50| 09 09 09 52 45 54 55 52 | 4e 20 2e 46 2e 0d 0a 09 |...RETUR|N .F....|
|00002e60| 09 45 4e 44 49 46 0d 0a | 0d 0a 09 09 6d 2e 63 54 |.ENDIF..|....m.cT|
|00002e70| 6d 70 43 75 72 73 20 3d | 20 22 5f 22 2b 53 59 53 |mpCurs =| "_"+SYS|
|00002e80| 28 33 29 0d 0a 09 09 53 | 45 4c 45 43 54 20 30 0d |(3)....S|ELECT 0.|
|00002e90| 0a 09 09 2a 20 4f 70 65 | 6e 20 44 42 46 20 63 6f |...* Ope|n DBF co|
|00002ea0| 6e 74 61 69 6e 69 6e 67 | 20 47 65 6e 65 72 61 6c |ntaining| General|
|00002eb0| 20 66 69 65 6c 64 20 77 | 69 74 68 20 73 6f 75 72 | field w|ith sour|
|00002ec0| 63 65 20 4d 53 20 47 72 | 61 70 68 0d 0a 09 09 55 |ce MS Gr|aph....U|
|00002ed0| 53 45 20 28 54 48 49 53 | 2e 63 47 72 61 70 68 44 |SE (THIS|.cGraphD|
|00002ee0| 42 46 29 20 41 47 41 49 | 4e 20 41 4c 49 41 53 28 |BF) AGAI|N ALIAS(|
|00002ef0| 6d 2e 63 54 6d 70 43 75 | 72 73 29 0d 0a 09 09 0d |m.cTmpCu|rs).....|
|00002f00| 0a 09 09 2a 20 43 68 65 | 63 6b 20 74 6f 20 6d 61 |...* Che|ck to ma|
|00002f10| 6b 65 20 73 75 72 65 20 | 77 65 20 68 61 76 65 20 |ke sure |we have |
|00002f20| 76 61 6c 69 64 20 47 72 | 61 70 68 20 44 42 46 0d |valid Gr|aph DBF.|
|00002f30| 0a 09 09 44 4f 20 43 41 | 53 45 0d 0a 09 09 09 43 |...DO CA|SE.....C|
|00002f40| 41 53 45 20 54 59 50 45 | 28 54 48 49 53 2e 63 47 |ASE TYPE|(THIS.cG|
|00002f50| 72 61 70 68 46 6c 64 52 | 6f 77 29 23 22 47 22 20 |raphFldR|ow)#"G" |
|00002f60| 41 4e 44 20 54 59 50 45 | 28 54 48 49 53 2e 63 47 |AND TYPE|(THIS.cG|
|00002f70| 72 61 70 68 46 6c 64 43 | 6f 6c 29 23 22 47 22 0d |raphFldC|ol)#"G".|
|00002f80| 0a 09 09 09 09 3d 4d 45 | 53 53 41 47 45 42 4f 58 |.....=ME|SSAGEBOX|
|00002f90| 28 43 5f 42 41 44 46 49 | 45 4c 44 53 5f 4c 4f 43 |(C_BADFI|ELDS_LOC|
|00002fa0| 29 0d 0a 09 09 09 09 52 | 45 54 55 52 4e 20 2e 46 |)......R|ETURN .F|
|00002fb0| 2e 0d 0a 09 09 09 43 41 | 53 45 20 54 59 50 45 28 |......CA|SE TYPE(|
|00002fc0| 54 48 49 53 2e 63 47 72 | 61 70 68 46 6c 64 52 6f |THIS.cGr|aphFldRo|
|00002fd0| 77 29 3d 22 47 22 20 41 | 4e 44 20 54 59 50 45 28 |w)="G" A|ND TYPE(|
|00002fe0| 54 48 49 53 2e 63 47 72 | 61 70 68 46 6c 64 43 6f |THIS.cGr|aphFldCo|
|00002ff0| 6c 29 3d 22 47 22 0d 0a | 09 09 09 09 2a 20 64 6f |l)="G"..|....* do|
|00003000| 20 6e 6f 74 68 69 6e 67 | 0d 0a 09 09 09 43 41 53 | nothing|.....CAS|
|00003010| 45 20 54 59 50 45 28 54 | 48 49 53 2e 63 47 72 61 |E TYPE(T|HIS.cGra|
|00003020| 70 68 46 6c 64 52 6f 77 | 29 23 22 47 22 20 41 4e |phFldRow|)#"G" AN|
|00003030| 44 20 54 48 49 53 2e 6c | 53 65 72 69 65 73 42 79 |D THIS.l|SeriesBy|
|00003040| 52 6f 77 20 0d 0a 09 09 | 09 09 54 48 49 53 2e 6c |Row ....|..THIS.l|
|00003050| 53 65 72 69 65 73 42 79 | 52 6f 77 20 3d 20 2e 46 |SeriesBy|Row = .F|
|00003060| 2e 0d 0a 09 09 09 43 41 | 53 45 20 21 54 48 49 53 |......CA|SE !THIS|
|00003070| 2e 6c 53 65 72 69 65 73 | 42 79 52 6f 77 20 09 09 |.lSeries|ByRow ..|
|00003080| 26 26 20 63 47 72 61 70 | 68 46 6c 64 43 6f 6c 20 |&& cGrap|hFldCol |
|00003090| 23 20 22 47 22 0d 0a 09 | 09 09 09 54 48 49 53 2e |# "G"...|...THIS.|
|000030a0| 6c 53 65 72 69 65 73 42 | 79 52 6f 77 20 3d 20 2e |lSeriesB|yRow = .|
|000030b0| 54 2e 0d 0a 09 09 45 4e | 44 43 41 53 45 0d 0a 0d |T.....EN|DCASE...|
|000030c0| 0a 09 09 3d 41 46 49 45 | 4c 44 53 28 61 47 72 61 |...=AFIE|LDS(aGra|
|000030d0| 70 68 46 6c 64 73 29 0d | 0a 0d 0a 09 09 49 46 20 |phFlds).|.....IF |
|000030e0| 55 53 45 44 28 27 76 66 | 70 67 74 65 6d 70 27 29 |USED('vf|pgtemp')|
|000030f0| 0d 0a 09 09 09 55 53 45 | 20 49 4e 20 76 66 70 67 |.....USE| IN vfpg|
|00003100| 74 65 6d 70 0d 0a 09 09 | 45 4e 44 49 46 0d 0a 0d |temp....|ENDIF...|
|00003110| 0a 09 09 43 52 45 41 54 | 45 20 43 55 52 53 4f 52 |...CREAT|E CURSOR|
|00003120| 20 76 66 70 67 74 65 6d | 70 20 46 52 4f 4d 20 41 | vfpgtem|p FROM A|
|00003130| 52 52 41 59 20 61 47 72 | 61 70 68 46 6c 64 73 0d |RRAY aGr|aphFlds.|
|00003140| 0a 09 09 53 45 4c 45 43 | 54 20 76 66 70 67 74 65 |...SELEC|T vfpgte|
|00003150| 6d 70 0d 0a 0d 0a 09 09 | 41 50 50 45 4e 44 20 46 |mp......|APPEND F|
|00003160| 52 4f 4d 20 28 54 48 49 | 53 2e 63 47 72 61 70 68 |ROM (THI|S.cGraph|
|00003170| 44 42 46 29 0d 0a 09 09 | 55 53 45 20 49 4e 20 28 |DBF)....|USE IN (|
|00003180| 6d 2e 63 54 6d 70 43 75 | 72 73 29 0d 0a 09 09 0d |m.cTmpCu|rs).....|
|00003190| 0a 09 09 54 48 49 53 2e | 63 4c 61 73 74 44 61 74 |...THIS.|cLastDat|
|000031a0| 61 52 6f 77 20 3d 20 22 | 22 09 26 26 20 72 65 73 |aRow = "|".&& res|
|000031b0| 65 74 0d 0a 09 09 54 48 | 49 53 2e 63 4c 61 73 74 |et....TH|IS.cLast|
|000031c0| 44 61 74 61 43 6f 6c 20 | 3d 20 22 22 09 26 26 20 |DataCol |= "".&& |
|000031d0| 72 65 73 65 74 0d 0a 0d | 0a 09 09 2a 20 53 65 6c |reset...|...* Sel|
|000031e0| 65 63 74 20 67 72 61 70 | 68 20 62 61 73 65 64 20 |ect grap|h based |
|000031f0| 6f 6e 20 53 65 72 69 65 | 73 20 42 79 20 52 6f 77 |on Serie|s By Row|
|00003200| 2f 43 6f 6c 0d 0a 09 09 | 49 46 20 54 48 49 53 2e |/Col....|IF THIS.|
|00003210| 6c 53 65 72 69 65 73 42 | 79 52 6f 77 20 0d 0a 09 |lSeriesB|yRow ...|
|00003220| 09 09 54 48 49 53 2e 63 | 47 72 61 70 68 46 69 65 |..THIS.c|GraphFie|
|00003230| 6c 64 20 3d 20 54 48 49 | 53 2e 63 47 72 61 70 68 |ld = THI|S.cGraph|
|00003240| 46 6c 64 52 6f 77 0d 0a | 09 09 09 49 46 20 54 48 |FldRow..|...IF TH|
|00003250| 49 53 2e 63 4c 61 73 74 | 44 61 74 61 52 6f 77 20 |IS.cLast|DataRow |
|00003260| 3d 20 6d 2e 63 44 61 74 | 61 43 6f 6e 74 65 6e 74 |= m.cDat|aContent|
|00003270| 73 0d 0a 09 09 09 09 52 | 45 54 55 52 4e 0d 0a 09 |s......R|ETURN...|
|00003280| 09 09 45 4e 44 49 46 0d | 0a 09 09 45 4c 53 45 0d |..ENDIF.|...ELSE.|
|00003290| 0a 09 09 09 54 48 49 53 | 2e 63 47 72 61 70 68 46 |....THIS|.cGraphF|
|000032a0| 69 65 6c 64 20 3d 20 54 | 48 49 53 2e 63 47 72 61 |ield = T|HIS.cGra|
|000032b0| 70 68 46 6c 64 43 6f 6c | 20 0d 0a 09 09 09 49 46 |phFldCol| .....IF|
|000032c0| 20 54 48 49 53 2e 63 4c | 61 73 74 44 61 74 61 43 | THIS.cL|astDataC|
|000032d0| 6f 6c 20 3d 20 6d 2e 63 | 44 61 74 61 43 6f 6e 74 |ol = m.c|DataCont|
|000032e0| 65 6e 74 73 0d 0a 09 09 | 09 09 52 45 54 55 52 4e |ents....|..RETURN|
|000032f0| 0d 0a 09 09 09 45 4e 44 | 49 46 0d 0a 09 09 45 4e |.....END|IF....EN|
|00003300| 44 49 46 0d 0a 0d 0a 09 | 09 57 41 49 54 20 57 49 |DIF.....|.WAIT WI|
|00003310| 4e 44 4f 57 20 4e 4f 57 | 41 49 54 20 43 5f 57 41 |NDOW NOW|AIT C_WA|
|00003320| 49 54 44 41 54 41 5f 4c | 4f 43 0d 0a 0d 0a 09 09 |ITDATA_L|OC......|
|00003330| 2a 2d 20 41 64 64 20 64 | 61 74 61 20 74 6f 20 47 |*- Add d|ata to G|
|00003340| 65 6e 65 72 61 6c 20 66 | 69 65 6c 64 0d 0a 09 09 |eneral f|ield....|
|00003350| 41 50 50 45 4e 44 20 47 | 45 4e 45 52 41 4c 20 28 |APPEND G|ENERAL (|
|00003360| 54 48 49 53 2e 63 47 72 | 61 70 68 46 69 65 6c 64 |THIS.cGr|aphField|
|00003370| 29 20 44 41 54 41 20 6d | 2e 63 44 61 74 61 43 6f |) DATA m|.cDataCo|
|00003380| 6e 74 65 6e 74 73 0d 0a | 0d 0a 09 09 57 41 49 54 |ntents..|....WAIT|
|00003390| 20 43 4c 45 41 52 0d 0a | 0d 0a 09 09 49 46 20 54 | CLEAR..|....IF T|
|000033a0| 48 49 53 2e 48 61 64 65 | 72 72 6f 72 0d 0a 09 09 |HIS.Hade|rror....|
|000033b0| 09 52 45 54 55 52 4e 20 | 2e 46 2e 0d 0a 09 09 45 |.RETURN |.F.....E|
|000033c0| 4e 44 49 46 0d 0a 0d 0a | 09 09 2a 2d 20 53 65 74 |NDIF....|..*- Set|
|000033d0| 20 73 6f 20 77 65 20 64 | 6f 6e 27 74 20 68 61 76 | so we d|on't hav|
|000033e0| 65 20 74 6f 20 72 65 61 | 64 20 64 61 74 61 20 6c |e to rea|d data l|
|000033f0| 61 74 65 72 0d 0a 09 09 | 49 46 20 54 48 49 53 2e |ater....|IF THIS.|
|00003400| 6c 53 65 72 69 65 73 42 | 79 52 6f 77 20 0d 0a 09 |lSeriesB|yRow ...|
|00003410| 09 09 54 48 49 53 2e 63 | 4c 61 73 74 44 61 74 61 |..THIS.c|LastData|
|00003420| 52 6f 77 20 3d 20 6d 2e | 63 44 61 74 61 43 6f 6e |Row = m.|cDataCon|
|00003430| 74 65 6e 74 73 0d 0a 09 | 09 45 4c 53 45 0d 0a 09 |tents...|.ELSE...|
|00003440| 09 09 54 48 49 53 2e 63 | 4c 61 73 74 44 61 74 61 |..THIS.c|LastData|
|00003450| 43 6f 6c 20 3d 20 6d 2e | 63 44 61 74 61 43 6f 6e |Col = m.|cDataCon|
|00003460| 74 65 6e 74 73 0d 0a 09 | 09 45 4e 44 49 46 0d 0a |tents...|.ENDIF..|
|00003470| 0d 0a 09 09 54 48 49 53 | 2e 6c 41 64 64 65 64 44 |....THIS|.lAddedD|
|00003480| 61 74 61 20 3d 20 2e 54 | 2e 0d 0a 09 09 0d 0a 09 |ata = .T|........|
|00003490| 45 4c 53 45 0d 0a 09 09 | 2a 2d 20 73 61 76 65 20 |ELSE....|*- save |
|000034a0| 74 6f 20 61 20 66 6f 72 | 6d 0d 0a 0d 0a 09 09 49 |to a for|m......I|
|000034b0| 46 20 21 54 48 49 53 2e | 47 65 74 4f 6c 65 53 65 |F !THIS.|GetOleSe|
|000034c0| 72 76 65 72 28 29 0d 0a | 09 09 09 52 45 54 55 52 |rver()..|...RETUR|
|000034d0| 4e 20 2e 46 2e 0d 0a 09 | 09 45 4e 44 49 46 0d 0a |N .F....|.ENDIF..|
|000034e0| 0d 0a 09 09 2a 2d 20 53 | 65 74 20 76 61 6c 75 65 |....*- S|et value|
|000034f0| 20 6f 66 20 63 65 6c 6c | 73 20 69 6e 20 67 72 61 | of cell|s in gra|
|00003500| 70 68 27 73 20 44 61 74 | 61 53 68 65 65 74 0d 0a |ph's Dat|aSheet..|
|00003510| 09 09 50 52 49 56 41 54 | 45 20 69 2c 66 6c 64 2c |..PRIVAT|E i,fld,|
|00003520| 63 6f 6c 73 2c 66 69 65 | 6c 64 6e 61 6d 65 2c 6e |cols,fie|ldname,n|
|00003530| 4e 75 6c 6c 43 6f 75 6e | 74 0d 0a 09 09 50 52 49 |NullCoun|t....PRI|
|00003540| 56 41 54 45 20 6e 66 69 | 65 6c 64 76 61 6c 75 65 |VATE nfi|eldvalue|
|00003550| 2c 63 4c 69 6e 65 64 61 | 74 61 0d 0a 0d 0a 09 09 |,cLineda|ta......|
|00003560| 6d 2e 63 4c 69 6e 65 44 | 61 74 61 20 3d 20 22 22 |m.cLineD|ata = ""|
|00003570| 0d 0a 0d 0a 09 09 57 41 | 49 54 20 57 49 4e 44 4f |......WA|IT WINDO|
|00003580| 57 20 4e 4f 57 41 49 54 | 20 43 5f 57 41 49 54 44 |W NOWAIT| C_WAITD|
|00003590| 41 54 41 5f 4c 4f 43 0d | 0a 0d 0a 09 09 2a 2d 20 |ATA_LOC.|.....*- |
|000035a0| 64 65 6c 65 74 65 20 63 | 6f 6e 74 65 6e 74 73 0d |delete c|ontents.|
|000035b0| 0a 09 09 54 48 49 53 2e | 6f 47 72 61 70 68 52 65 |...THIS.|oGraphRe|
|000035c0| 66 2e 61 70 70 6c 69 63 | 61 74 69 6f 6e 2e 64 61 |f.applic|ation.da|
|000035d0| 74 61 73 68 65 65 74 2e | 72 61 6e 67 65 28 22 30 |tasheet.|range("0|
|000035e0| 30 3a 5a 39 39 22 29 2e | 64 65 6c 65 74 65 0d 0a |0:Z99").|delete..|
|000035f0| 0d 0a 09 09 6d 2e 63 44 | 61 74 61 43 6f 6e 74 65 |....m.cD|ataConte|
|00003600| 6e 74 73 20 3d 20 54 48 | 49 53 2e 47 65 74 4f 6c |nts = TH|IS.GetOl|
|00003610| 65 44 61 74 61 28 29 0d | 0a 09 09 49 46 20 45 4d |eData().|...IF EM|
|00003620| 50 54 59 28 6d 2e 63 44 | 61 74 61 43 6f 6e 74 65 |PTY(m.cD|ataConte|
|00003630| 6e 74 73 29 0d 0a 09 09 | 09 54 48 49 53 2e 6c 41 |nts)....|.THIS.lA|
|00003640| 64 64 65 64 44 61 74 61 | 20 3d 20 2e 46 2e 0d 0a |ddedData| = .F...|
|00003650| 09 09 09 52 45 54 55 52 | 4e 20 2e 46 2e 0d 0a 09 |...RETUR|N .F....|
|00003660| 09 45 4e 44 49 46 0d 0a | 09 09 63 4f 6c 64 43 6c |.ENDIF..|..cOldCl|
|00003670| 69 70 54 65 78 74 20 3d | 20 5f 63 6c 69 70 74 65 |ipText =| _clipte|
|00003680| 78 74 0d 0a 09 09 5f 63 | 6c 69 70 74 65 78 74 20 |xt...._c|liptext |
|00003690| 3d 20 6d 2e 63 44 61 74 | 61 43 6f 6e 74 65 6e 74 |= m.cDat|aContent|
|000036a0| 73 0d 0a 09 09 54 48 49 | 53 2e 6f 47 72 61 70 68 |s....THI|S.oGraph|
|000036b0| 52 65 66 2e 41 70 70 6c | 69 63 61 74 69 6f 6e 2e |Ref.Appl|ication.|
|000036c0| 44 61 74 61 73 68 65 65 | 74 2e 52 61 6e 67 65 28 |Datashee|t.Range(|
|000036d0| 22 30 30 22 29 2e 50 61 | 73 74 65 0d 0a 09 09 54 |"00").Pa|ste....T|
|000036e0| 48 49 53 2e 6f 47 72 61 | 70 68 52 65 66 2e 41 70 |HIS.oGra|phRef.Ap|
|000036f0| 70 6c 69 63 61 74 69 6f | 6e 2e 55 70 64 61 74 65 |plicatio|n.Update|
|00003700| 0d 0a 09 09 0d 0a 09 09 | 2a 2d 20 72 65 73 74 6f |........|*- resto|
|00003710| 72 65 20 5f 63 6c 69 70 | 74 65 78 74 0d 0a 09 09 |re _clip|text....|
|00003720| 5f 63 6c 69 70 74 65 78 | 74 20 3d 20 6d 2e 63 4f |_cliptex|t = m.cO|
|00003730| 6c 64 43 6c 69 70 54 65 | 78 74 0d 0a 0d 0a 09 09 |ldClipTe|xt......|
|00003740| 54 48 49 53 2e 6c 41 64 | 64 65 64 44 61 74 61 20 |THIS.lAd|dedData |
|00003750| 3d 20 21 54 48 49 53 2e | 48 61 64 45 72 72 6f 72 |= !THIS.|HadError|
|00003760| 0d 0a 09 09 0d 0a 09 45 | 4e 44 49 46 09 09 26 26 |.......E|NDIF..&&|
|00003770| 20 54 48 49 53 2e 6e 41 | 63 74 69 6f 6e 20 3d 20 | THIS.nA|ction = |
|00003780| 32 20 28 6f 75 74 70 75 | 74 20 74 6f 20 74 61 62 |2 (outpu|t to tab|
|00003790| 6c 65 29 0d 0a 09 0d 0a | 45 4e 44 49 46 20 26 26 |le).....|ENDIF &&|
|000037a0| 20 54 48 49 53 2e 6c 41 | 64 64 65 64 44 61 74 61 | THIS.lA|ddedData|
|000037b0| 0d 0a 0d 0a 52 45 54 55 | 52 4e 20 2e 74 2e 0d 0a |....RETU|RN .t...|
|000037c0| 0d 0a 45 4e 44 50 52 4f | 43 0d 0a 50 52 4f 43 45 |..ENDPRO|C..PROCE|
|000037d0| 44 55 52 45 20 76 61 6c | 69 64 64 61 74 61 74 61 |DURE val|iddatata|
|000037e0| 62 6c 65 0d 0a 2a 20 4e | 6f 74 65 3a 20 69 66 20 |ble..* N|ote: if |
|000037f0| 6e 6f 20 61 44 61 74 61 | 46 69 65 6c 64 73 20 6f |no aData|Fields o|
|00003800| 72 20 63 43 61 74 65 67 | 6f 72 79 46 69 65 6c 64 |r cCateg|oryField|
|00003810| 2c 20 74 72 79 20 74 6f | 20 66 69 6e 64 20 73 6f |, try to| find so|
|00003820| 6d 65 0d 0a 0d 0a 4c 4f | 43 41 4c 20 6e 54 6f 74 |me....LO|CAL nTot|
|00003830| 52 65 63 73 2c 69 2c 61 | 54 6d 70 44 61 74 61 2c |Recs,i,a|TmpData,|
|00003840| 61 46 6c 64 44 61 74 61 | 0d 0a 44 49 4d 45 4e 53 |aFldData|..DIMENS|
|00003850| 49 4f 4e 20 61 54 6d 70 | 44 61 74 61 5b 31 5d 0d |ION aTmp|Data[1].|
|00003860| 0a 0d 0a 2a 20 43 68 65 | 63 6b 20 66 6f 72 20 74 |...* Che|ck for t|
|00003870| 6f 6f 20 6d 61 6e 79 20 | 72 65 63 6f 72 64 73 20 |oo many |records |
|00003880| 69 6e 20 64 61 74 61 73 | 6f 75 72 63 65 0d 0a 43 |in datas|ource..C|
|00003890| 4f 55 4e 54 20 54 4f 20 | 6d 2e 6e 54 6f 74 52 65 |OUNT TO |m.nTotRe|
|000038a0| 63 73 0d 0a 44 4f 20 43 | 41 53 45 0d 0a 43 41 53 |cs..DO C|ASE..CAS|
|000038b0| 45 20 6d 2e 6e 54 6f 74 | 52 65 63 73 20 3d 20 30 |E m.nTot|Recs = 0|
|000038c0| 0d 0a 09 3d 4d 45 53 53 | 41 47 45 42 4f 58 28 43 |...=MESS|AGEBOX(C|
|000038d0| 5f 4e 4f 44 41 54 41 50 | 4f 49 4e 54 53 5f 4c 4f |_NODATAP|OINTS_LO|
|000038e0| 43 29 0d 0a 09 52 45 54 | 55 52 4e 20 2e 46 2e 0d |C)...RET|URN .F..|
|000038f0| 0a 43 41 53 45 20 6d 2e | 6e 54 6f 74 52 65 63 73 |.CASE m.|nTotRecs|
|00003900| 20 3e 20 4d 41 58 5f 4d | 53 47 52 41 50 48 20 0d | > MAX_M|SGRAPH .|
|00003910| 0a 09 3d 4d 45 53 53 41 | 47 45 42 4f 58 28 43 5f |..=MESSA|GEBOX(C_|
|00003920| 4d 41 58 47 52 41 50 48 | 5f 4c 4f 43 29 0d 0a 09 |MAXGRAPH|_LOC)...|
|00003930| 52 45 54 55 52 4e 20 2e | 46 2e 0d 0a 43 41 53 45 |RETURN .|F...CASE|
|00003940| 20 6d 2e 6e 54 6f 74 52 | 65 63 73 20 3e 20 4d 41 | m.nTotR|ecs > MA|
|00003950| 58 5f 44 41 54 41 50 4f | 49 4e 54 53 20 41 4e 44 |X_DATAPO|INTS AND|
|00003960| 20 3b 0d 0a 09 4d 45 53 | 53 41 47 45 42 4f 58 28 | ;...MES|SAGEBOX(|
|00003970| 43 5f 54 4f 4f 4d 41 4e | 59 50 4f 49 4e 54 53 5f |C_TOOMAN|YPOINTS_|
|00003980| 4c 4f 43 2c 20 59 45 53 | 4e 4f 5f 44 49 41 4c 4f |LOC, YES|NO_DIALO|
|00003990| 47 20 2b 20 4e 4f 5f 42 | 54 4e 29 20 23 20 49 53 |G + NO_B|TN) # IS|
|000039a0| 5f 59 45 53 0d 0a 09 52 | 45 54 55 52 4e 20 2e 46 |_YES...R|ETURN .F|
|000039b0| 2e 0d 0a 45 4e 44 43 41 | 53 45 0d 0a 0d 0a 2a 20 |...ENDCA|SE....* |
|000039c0| 43 68 65 63 6b 20 66 6f | 72 20 66 61 75 6c 74 79 |Check fo|r faulty|
|000039d0| 20 64 61 74 61 20 66 69 | 65 6c 64 73 20 61 72 72 | data fi|elds arr|
|000039e0| 61 79 0d 0a 49 46 20 45 | 4d 50 54 59 28 54 48 49 |ay..IF E|MPTY(THI|
|000039f0| 53 2e 61 44 61 74 61 46 | 69 65 6c 64 73 5b 31 5d |S.aDataF|ields[1]|
|00003a00| 29 20 41 4e 44 20 41 4c | 45 4e 28 54 48 49 53 2e |) AND AL|EN(THIS.|
|00003a10| 61 44 61 74 61 46 69 65 | 6c 64 73 29 3e 31 0d 0a |aDataFie|lds)>1..|
|00003a20| 09 2a 20 72 65 73 65 74 | 20 64 61 74 61 20 66 69 |.* reset| data fi|
|00003a30| 65 6c 64 73 20 61 72 72 | 61 79 0d 0a 09 44 49 4d |elds arr|ay...DIM|
|00003a40| 45 4e 53 49 4f 4e 20 54 | 48 49 53 2e 61 44 61 74 |ENSION T|HIS.aDat|
|00003a50| 61 46 69 65 6c 64 73 5b | 31 5d 0d 0a 09 54 48 49 |aFields[|1]...THI|
|00003a60| 53 2e 61 44 61 74 61 46 | 69 65 6c 64 73 20 3d 20 |S.aDataF|ields = |
|00003a70| 22 22 0d 0a 45 4e 44 49 | 46 0d 0a 0d 0a 2a 20 43 |""..ENDI|F....* C|
|00003a80| 68 65 63 6b 20 74 6f 20 | 6d 61 6b 65 20 73 75 72 |heck to |make sur|
|00003a90| 65 20 66 69 65 6c 64 73 | 20 61 72 65 20 69 6e 20 |e fields| are in |
|00003aa0| 64 61 74 61 20 73 6f 75 | 72 63 65 0d 0a 49 46 20 |data sou|rce..IF |
|00003ab0| 21 45 4d 50 54 59 28 54 | 48 49 53 2e 63 43 61 74 |!EMPTY(T|HIS.cCat|
|00003ac0| 65 67 6f 72 79 46 69 65 | 6c 64 29 20 4f 52 20 21 |egoryFie|ld) OR !|
|00003ad0| 45 4d 50 54 59 28 54 48 | 49 53 2e 61 44 61 74 61 |EMPTY(TH|IS.aData|
|00003ae0| 46 69 65 6c 64 73 5b 31 | 5d 29 0d 0a 09 44 49 4d |Fields[1|])...DIM|
|00003af0| 45 4e 53 49 4f 4e 20 61 | 46 6c 64 44 61 74 61 5b |ENSION a|FldData[|
|00003b00| 46 43 4f 55 4e 54 28 29 | 5d 0d 0a 09 46 4f 52 20 |FCOUNT()|]...FOR |
|00003b10| 69 20 3d 20 31 20 54 4f | 20 46 43 4f 55 4e 54 28 |i = 1 TO| FCOUNT(|
|00003b20| 29 0d 0a 09 09 61 46 6c | 64 44 61 74 61 5b 6d 2e |)....aFl|dData[m.|
|00003b30| 69 5d 20 3d 20 46 49 45 | 4c 44 5b 6d 2e 69 5d 0d |i] = FIE|LD[m.i].|
|00003b40| 0a 09 45 4e 44 46 4f 52 | 0d 0a 0d 0a 09 49 46 20 |..ENDFOR|.....IF |
|00003b50| 21 45 4d 50 54 59 28 54 | 48 49 53 2e 63 43 61 74 |!EMPTY(T|HIS.cCat|
|00003b60| 65 67 6f 72 79 46 69 65 | 6c 64 29 20 41 4e 44 20 |egoryFie|ld) AND |
|00003b70| 3b 0d 0a 09 09 28 54 59 | 50 45 28 22 54 48 49 53 |;....(TY|PE("THIS|
|00003b80| 2e 63 43 61 74 65 67 6f | 72 79 46 69 65 6c 64 22 |.cCatego|ryField"|
|00003b90| 29 23 22 43 22 20 4f 52 | 3b 0d 0a 09 09 20 41 53 |)#"C" OR|;.... AS|
|00003ba0| 43 41 4e 28 61 46 6c 64 | 44 61 74 61 2c 55 50 50 |CAN(aFld|Data,UPP|
|00003bb0| 45 52 28 54 48 49 53 2e | 63 43 61 74 65 67 6f 72 |ER(THIS.|cCategor|
|00003bc0| 79 46 69 65 6c 64 29 29 | 3d 30 29 0d 0a 09 09 3d |yField))|=0)....=|
|00003bd0| 4d 45 53 53 41 47 45 42 | 4f 58 28 43 5f 42 41 44 |MESSAGEB|OX(C_BAD|
|00003be0| 43 41 54 45 47 4f 52 59 | 5f 4c 4f 43 29 0d 0a 09 |CATEGORY|_LOC)...|
|00003bf0| 09 52 45 54 55 52 4e 20 | 2e 46 2e 0d 0a 09 45 4e |.RETURN |.F....EN|
|00003c00| 44 49 46 0d 0a 09 49 46 | 20 21 45 4d 50 54 59 28 |DIF...IF| !EMPTY(|
|00003c10| 54 48 49 53 2e 61 44 61 | 74 61 46 69 65 6c 64 73 |THIS.aDa|taFields|
|00003c20| 29 0d 0a 09 09 46 4f 52 | 20 69 20 3d 20 31 20 54 |)....FOR| i = 1 T|
|00003c30| 4f 20 41 4c 45 4e 28 54 | 48 49 53 2e 61 44 61 74 |O ALEN(T|HIS.aDat|
|00003c40| 61 46 69 65 6c 64 73 29 | 0d 0a 09 09 09 49 46 20 |aFields)|.....IF |
|00003c50| 54 59 50 45 28 22 54 48 | 49 53 2e 61 44 61 74 61 |TYPE("TH|IS.aData|
|00003c60| 46 69 65 6c 64 73 5b 6d | 2e 69 5d 22 29 23 22 43 |Fields[m|.i]")#"C|
|00003c70| 22 20 4f 52 20 41 53 43 | 41 4e 28 61 46 6c 64 44 |" OR ASC|AN(aFldD|
|00003c80| 61 74 61 2c 55 50 50 45 | 52 28 54 48 49 53 2e 61 |ata,UPPE|R(THIS.a|
|00003c90| 44 61 74 61 46 69 65 6c | 64 73 5b 6d 2e 69 5d 29 |DataFiel|ds[m.i])|
|00003ca0| 29 3d 30 0d 0a 09 09 09 | 09 3d 4d 45 53 53 41 47 |)=0.....|.=MESSAG|
|00003cb0| 45 42 4f 58 28 43 5f 42 | 41 44 44 41 54 41 46 49 |EBOX(C_B|ADDATAFI|
|00003cc0| 45 4c 44 5f 4c 4f 43 29 | 0d 0a 09 09 09 09 52 45 |ELD_LOC)|......RE|
|00003cd0| 54 55 52 4e 20 2e 46 2e | 0d 0a 09 09 09 45 4e 44 |TURN .F.|.....END|
|00003ce0| 49 46 0d 0a 09 09 45 4e | 44 46 4f 52 0d 0a 09 45 |IF....EN|DFOR...E|
|00003cf0| 4e 44 49 46 0d 0a 45 4e | 44 49 46 0d 0a 0d 0a 20 |NDIF..EN|DIF.... |
|00003d00| 0d 0a 2a 20 43 68 65 63 | 6b 20 66 6f 72 20 76 61 |..* Chec|k for va|
|00003d10| 6c 69 64 20 66 69 65 6c | 64 20 74 79 70 65 73 0d |lid fiel|d types.|
|00003d20| 0a 44 4f 20 43 41 53 45 | 0d 0a 09 43 41 53 45 20 |.DO CASE|...CASE |
|00003d30| 45 4d 50 54 59 28 54 48 | 49 53 2e 63 43 61 74 65 |EMPTY(TH|IS.cCate|
|00003d40| 67 6f 72 79 46 69 65 6c | 64 29 20 41 4e 44 20 45 |goryFiel|d) AND E|
|00003d50| 4d 50 54 59 28 54 48 49 | 53 2e 61 44 61 74 61 46 |MPTY(THI|S.aDataF|
|00003d60| 69 65 6c 64 73 29 0d 0a | 09 09 2a 20 61 73 73 75 |ields)..|..* assu|
|00003d70| 6d 65 20 74 68 61 74 20 | 75 73 65 72 20 77 61 6e |me that |user wan|
|00003d80| 74 73 20 74 6f 20 75 73 | 65 20 66 69 72 73 74 20 |ts to us|e first |
|00003d90| 66 69 65 6c 64 20 61 73 | 20 63 61 74 65 67 6f 72 |field as| categor|
|00003da0| 79 20 73 6f 75 72 63 65 | 0d 0a 09 09 54 48 49 53 |y source|....THIS|
|00003db0| 2e 63 43 61 74 65 67 6f | 72 79 46 69 65 6c 64 20 |.cCatego|ryField |
|00003dc0| 3d 20 46 49 45 4c 44 5b | 31 5d 0d 0a 09 43 41 53 |= FIELD[|1]...CAS|
|00003dd0| 45 20 45 4d 50 54 59 28 | 54 48 49 53 2e 63 43 61 |E EMPTY(|THIS.cCa|
|00003de0| 74 65 67 6f 72 79 46 69 | 65 6c 64 29 0d 0a 09 09 |tegoryFi|eld)....|
|00003df0| 3d 41 43 4f 50 59 28 54 | 48 49 53 2e 61 44 61 74 |=ACOPY(T|HIS.aDat|
|00003e00| 61 46 69 65 6c 64 73 2c | 61 54 6d 70 44 61 74 61 |aFields,|aTmpData|
|00003e10| 29 0d 0a 09 09 46 4f 52 | 20 69 20 3d 20 31 20 54 |)....FOR| i = 1 T|
|00003e20| 4f 20 41 4c 45 4e 28 61 | 54 6d 70 44 61 74 61 29 |O ALEN(a|TmpData)|
|00003e30| 0d 0a 09 09 09 61 54 6d | 70 44 61 74 61 5b 6d 2e |.....aTm|pData[m.|
|00003e40| 69 5d 20 3d 20 55 50 50 | 45 52 28 61 54 6d 70 44 |i] = UPP|ER(aTmpD|
|00003e50| 61 74 61 5b 6d 2e 69 5d | 29 0d 0a 09 09 45 4e 44 |ata[m.i]|)....END|
|00003e60| 46 4f 52 20 0d 0a 09 09 | 46 4f 52 20 6d 2e 69 20 |FOR ....|FOR m.i |
|00003e70| 3d 20 31 20 54 4f 20 46 | 43 4f 55 4e 54 28 29 0d |= 1 TO F|COUNT().|
|00003e80| 0a 09 09 09 49 46 20 41 | 53 43 41 4e 28 61 54 6d |....IF A|SCAN(aTm|
|00003e90| 70 44 61 74 61 2c 46 49 | 45 4c 44 5b 6d 2e 69 5d |pData,FI|ELD[m.i]|
|00003ea0| 29 3d 30 0d 0a 09 09 09 | 09 54 48 49 53 2e 63 43 |)=0.....|.THIS.cC|
|00003eb0| 61 74 65 67 6f 72 79 46 | 69 65 6c 64 20 3d 20 46 |ategoryF|ield = F|
|00003ec0| 49 45 4c 44 5b 6d 2e 69 | 5d 0d 0a 09 09 09 09 45 |IELD[m.i|]......E|
|00003ed0| 58 49 54 0d 0a 09 09 09 | 45 4e 44 49 46 0d 0a 09 |XIT.....|ENDIF...|
|00003ee0| 09 45 4e 44 46 4f 52 0d | 0a 45 4e 44 43 41 53 45 |.ENDFOR.|.ENDCASE|
|00003ef0| 0d 0a 0d 0a 2a 20 50 6f | 70 75 6c 61 74 65 20 64 |....* Po|pulate d|
|00003f00| 61 74 61 20 66 69 65 6c | 64 73 20 61 72 72 61 79 |ata fiel|ds array|
|00003f10| 0d 0a 49 46 20 45 4d 50 | 54 59 28 54 48 49 53 2e |..IF EMP|TY(THIS.|
|00003f20| 61 44 61 74 61 46 69 65 | 6c 64 73 29 0d 0a 09 46 |aDataFie|lds)...F|
|00003f30| 4f 52 20 6d 2e 69 20 3d | 20 31 20 54 4f 20 46 43 |OR m.i =| 1 TO FC|
|00003f40| 4f 55 4e 54 28 29 0d 0a | 09 09 49 46 20 46 49 45 |OUNT()..|..IF FIE|
|00003f50| 4c 44 5b 6d 2e 69 5d 20 | 3d 3d 20 55 50 50 45 52 |LD[m.i] |== UPPER|
|00003f60| 28 54 48 49 53 2e 63 43 | 61 74 65 67 6f 72 79 46 |(THIS.cC|ategoryF|
|00003f70| 69 65 6c 64 29 0d 0a 09 | 09 09 4c 4f 4f 50 0d 0a |ield)...|..LOOP..|
|00003f80| 09 09 45 4e 44 49 46 0d | 0a 09 09 49 46 20 21 49 |..ENDIF.|...IF !I|
|00003f90| 4e 4c 49 53 54 28 54 59 | 50 45 28 46 49 45 4c 44 |NLIST(TY|PE(FIELD|
|00003fa0| 5b 6d 2e 69 5d 29 2c 27 | 4e 27 2c 27 46 27 2c 27 |[m.i]),'|N','F','|
|00003fb0| 59 27 2c 27 42 27 29 0d | 0a 09 09 09 4c 4f 4f 50 |Y','B').|....LOOP|
|00003fc0| 0d 0a 09 09 45 4e 44 49 | 46 0d 0a 09 09 0d 0a 09 |....ENDI|F.......|
|00003fd0| 09 49 46 20 21 45 4d 50 | 54 59 28 54 48 49 53 2e |.IF !EMP|TY(THIS.|
|00003fe0| 61 44 61 74 61 46 69 65 | 6c 64 73 29 0d 0a 09 09 |aDataFie|lds)....|
|00003ff0| 09 44 49 4d 45 4e 53 49 | 4f 4e 20 54 48 49 53 2e |.DIMENSI|ON THIS.|
|00004000| 61 44 61 74 61 46 69 65 | 6c 64 73 5b 41 4c 45 4e |aDataFie|lds[ALEN|
|00004010| 28 54 48 49 53 2e 61 44 | 61 74 61 46 69 65 6c 64 |(THIS.aD|ataField|
|00004020| 73 29 2b 31 5d 0d 0a 09 | 09 45 4e 44 49 46 0d 0a |s)+1]...|.ENDIF..|
|00004030| 09 09 54 48 49 53 2e 61 | 44 61 74 61 46 69 65 6c |..THIS.a|DataFiel|
|00004040| 64 73 5b 41 4c 45 4e 28 | 54 48 49 53 2e 61 44 61 |ds[ALEN(|THIS.aDa|
|00004050| 74 61 46 69 65 6c 64 73 | 29 5d 20 3d 20 46 49 45 |taFields|)] = FIE|
|00004060| 4c 44 5b 6d 2e 69 5d 0d | 0a 09 45 4e 44 46 4f 52 |LD[m.i].|..ENDFOR|
|00004070| 0d 0a 45 4e 44 49 46 0d | 0a 0d 0a 2a 20 43 68 65 |..ENDIF.|...* Che|
|00004080| 63 6b 20 66 6f 72 20 76 | 61 6c 69 64 20 64 61 74 |ck for v|alid dat|
|00004090| 61 20 66 69 65 6c 64 73 | 20 69 6e 20 61 72 72 61 |a fields| in arra|
|000040a0| 79 0d 0a 46 4f 52 20 6d | 2e 69 20 3d 20 31 20 54 |y..FOR m|.i = 1 T|
|000040b0| 4f 20 41 4c 45 4e 28 54 | 48 49 53 2e 61 44 61 74 |O ALEN(T|HIS.aDat|
|000040c0| 61 46 69 65 6c 64 73 29 | 0d 0a 09 49 46 20 21 28 |aFields)|...IF !(|
|000040d0| 54 59 50 45 28 54 48 49 | 53 2e 61 44 61 74 61 46 |TYPE(THI|S.aDataF|
|000040e0| 69 65 6c 64 73 5b 6d 2e | 69 5d 29 24 20 27 4e 46 |ields[m.|i])$ 'NF|
|000040f0| 59 42 27 29 0d 0a 09 09 | 2a 20 41 73 6b 20 69 66 |YB')....|* Ask if|
|00004100| 20 74 68 65 79 20 77 61 | 6e 74 20 74 6f 20 63 6f | they wa|nt to co|
|00004110| 6e 74 69 6e 75 65 0d 0a | 09 09 49 46 20 4d 45 53 |ntinue..|..IF MES|
|00004120| 53 41 47 45 42 4f 58 28 | 43 5f 4e 4f 54 4e 55 4d |SAGEBOX(|C_NOTNUM|
|00004130| 45 52 49 43 5f 4c 4f 43 | 2c 20 59 45 53 4e 4f 5f |ERIC_LOC|, YESNO_|
|00004140| 44 49 41 4c 4f 47 29 20 | 23 20 49 53 5f 59 45 53 |DIALOG) |# IS_YES|
|00004150| 0d 0a 09 09 09 52 45 54 | 55 52 4e 20 2e 46 2e 0d |.....RET|URN .F..|
|00004160| 0a 09 09 45 4e 44 49 46 | 0d 0a 09 45 4e 44 49 46 |...ENDIF|...ENDIF|
|00004170| 0d 0a 45 4e 44 46 4f 52 | 0d 0a 0d 0a 2a 20 4d 61 |..ENDFOR|....* Ma|
|00004180| 6b 65 20 73 75 72 65 20 | 77 65 20 68 61 76 65 20 |ke sure |we have |
|00004190| 72 69 67 68 74 20 73 65 | 74 74 69 6e 67 73 0d 0a |right se|ttings..|
|000041a0| 54 48 49 53 2e 63 54 69 | 74 6c 65 20 3d 20 41 4c |THIS.cTi|tle = AL|
|000041b0| 4c 54 52 49 4d 28 54 48 | 49 53 2e 63 54 69 74 6c |LTRIM(TH|IS.cTitl|
|000041c0| 65 29 0d 0a 49 46 20 45 | 4d 50 54 59 28 54 48 49 |e)..IF E|MPTY(THI|
|000041d0| 53 2e 63 54 69 74 6c 65 | 29 0d 0a 09 54 48 49 53 |S.cTitle|)...THIS|
|000041e0| 2e 6c 41 64 64 54 69 74 | 6c 65 20 3d 20 2e 46 2e |.lAddTit|le = .F.|
|000041f0| 0d 0a 45 4e 44 49 46 0d | 0a 0d 0a 49 46 20 54 48 |..ENDIF.|...IF TH|
|00004200| 49 53 2e 6e 47 72 61 70 | 68 56 65 72 73 69 6f 6e |IS.nGrap|hVersion|
|00004210| 20 3d 20 35 20 41 4e 44 | 20 54 48 49 53 2e 6e 43 | = 5 AND| THIS.nC|
|00004220| 68 61 72 74 41 75 74 6f | 47 61 6c 6c 65 72 79 20 |hartAuto|Gallery |
|00004230| 3d 20 31 36 0d 0a 09 2a | 20 53 70 65 63 69 61 6c |= 16...*| Special|
|00004240| 20 63 61 73 65 20 68 65 | 72 65 20 65 6c 73 65 20 | case he|re else |
|00004250| 47 72 61 70 68 35 20 77 | 69 6c 6c 20 63 72 61 73 |Graph5 w|ill cras|
|00004260| 68 21 0d 0a 09 54 48 49 | 53 2e 6e 43 68 61 72 74 |h!...THI|S.nChart|
|00004270| 41 75 74 6f 47 61 6c 6c | 65 72 79 20 3d 20 31 0d |AutoGall|ery = 1.|
|00004280| 0a 45 4e 44 49 46 0d 0a | 0d 0a 52 45 54 55 52 4e |.ENDIF..|..RETURN|
|00004290| 20 2e 54 2e 0d 0a 0d 0a | 45 4e 44 50 52 4f 43 0d | .T.....|ENDPROC.|
|000042a0| 0a 50 52 4f 43 45 44 55 | 52 45 20 67 65 74 6f 6c |.PROCEDU|RE getol|
|000042b0| 65 64 61 74 61 0d 0a 2a | 2d 20 41 73 73 65 6d 62 |edata..*|- Assemb|
|000042c0| 6c 65 20 47 72 61 70 68 | 20 54 69 74 6c 65 73 20 |le Graph| Titles |
|000042d0| 61 6e 64 20 48 65 61 64 | 65 72 73 2e 20 20 50 75 |and Head|ers.  Pu|
|000042e0| 74 20 6e 75 6d 65 72 69 | 63 20 64 61 74 61 20 74 |t numeri|c data t|
|000042f0| 6f 20 62 65 20 0d 0a 2a | 2d 20 67 72 61 70 68 65 |o be ..*|- graphe|
|00004300| 64 20 69 6e 74 6f 20 61 | 20 43 46 5f 54 65 78 74 |d into a| CF_Text|
|00004310| 20 66 6f 72 6d 61 74 20 | 72 65 63 74 61 6e 67 6c | format |rectangl|
|00004320| 65 2e 0d 0a 0d 0a 4c 4f | 43 41 4c 20 63 53 63 6f |e.....LO|CAL cSco|
|00004330| 70 65 2c 20 69 43 75 72 | 72 52 65 63 0d 0a 0d 0a |pe, iCur|rRec....|
|00004340| 50 52 49 56 41 54 45 20 | 69 2c 63 4f 6c 65 44 61 |PRIVATE |i,cOleDa|
|00004350| 74 61 2c 66 6c 64 2c 63 | 6f 6c 73 2c 66 69 65 6c |ta,fld,c|ols,fiel|
|00004360| 64 6e 61 6d 65 2c 6e 4e | 75 6c 6c 43 6f 75 6e 74 |dname,nN|ullCount|
|00004370| 0d 0a 50 52 49 56 41 54 | 45 20 6e 66 69 65 6c 64 |..PRIVAT|E nfield|
|00004380| 76 61 6c 75 65 2c 63 4c | 69 6e 65 64 61 74 61 0d |value,cL|inedata.|
|00004390| 0a 0d 0a 6d 2e 63 4f 6c | 65 44 61 74 61 20 3d 20 |...m.cOl|eData = |
|000043a0| 22 22 0d 0a 6d 2e 63 4c | 69 6e 65 44 61 74 61 20 |""..m.cL|ineData |
|000043b0| 3d 20 22 22 0d 0a 0d 0a | 54 48 49 53 2e 53 65 74 |= ""....|THIS.Set|
|000043c0| 43 61 70 69 74 61 6c 73 | 28 29 0d 0a 0d 0a 2a 20 |Capitals|()....* |
|000043d0| 43 6f 75 6e 74 20 74 68 | 65 20 6e 75 6d 65 72 69 |Count th|e numeri|
|000043e0| 63 20 66 69 65 6c 64 73 | 20 61 6e 64 20 66 69 6c |c fields| and fil|
|000043f0| 6c 20 69 6e 20 74 68 65 | 20 74 6f 70 20 72 6f 77 |l in the| top row|
|00004400| 20 6f 66 20 74 68 65 20 | 64 61 74 61 20 72 65 63 | of the |data rec|
|00004410| 74 61 6e 67 6c 65 0d 0a | 2a 20 43 61 6e 20 77 65 |tangle..|* Can we|
|00004420| 20 61 6c 73 6f 20 75 73 | 65 20 64 61 74 65 73 3f | also us|e dates?|
|00004430| 0d 0a 6d 2e 63 6f 6c 73 | 20 3d 20 31 0d 0a 46 4f |..m.cols| = 1..FO|
|00004440| 52 20 6d 2e 66 6c 64 20 | 3d 20 31 20 54 4f 20 54 |R m.fld |= 1 TO T|
|00004450| 48 49 53 2e 6e 74 6f 74 | 61 6c 64 61 74 61 66 6c |HIS.ntot|aldatafl|
|00004460| 64 73 0d 0a 20 20 20 6d | 2e 66 69 65 6c 64 6e 61 |ds..   m|.fieldna|
|00004470| 6d 65 20 3d 20 54 48 49 | 53 2e 61 44 61 74 61 46 |me = THI|S.aDataF|
|00004480| 69 65 6c 64 73 28 6d 2e | 66 6c 64 29 0d 0a 20 20 |ields(m.|fld)..  |
|00004490| 20 49 46 20 21 45 4d 50 | 54 59 28 6d 2e 66 69 65 | IF !EMP|TY(m.fie|
|000044a0| 6c 64 6e 61 6d 65 29 20 | 41 4e 44 20 54 59 50 45 |ldname) |AND TYPE|
|000044b0| 28 6d 2e 66 69 65 6c 64 | 6e 61 6d 65 29 20 24 20 |(m.field|name) $ |
|000044c0| 27 4e 46 59 42 27 0d 0a | 20 20 20 20 20 20 2a 20 |'NFYB'..|      * |
|000044d0| 5f 47 45 4e 58 54 41 42 | 20 77 69 6c 6c 20 70 72 |_GENXTAB| will pr|
|000044e0| 65 70 65 6e 64 20 4e 5f | 20 74 6f 20 61 20 6e 75 |epend N_| to a nu|
|000044f0| 6d 65 72 69 63 20 66 69 | 65 6c 64 20 6e 61 6d 65 |meric fi|eld name|
|00004500| 20 22 61 63 72 6f 73 73 | 20 74 68 65 20 74 6f 70 | "across| the top|
|00004510| 22 20 74 6f 20 66 6f 72 | 6d 20 61 0d 0a 20 20 20 |" to for|m a..   |
|00004520| 20 20 20 2a 20 76 61 6c | 69 64 20 66 69 65 6c 64 |   * val|id field|
|00004530| 20 6e 61 6d 65 20 66 72 | 6f 6d 20 61 20 6e 75 6d | name fr|om a num|
|00004540| 62 65 72 20 28 73 69 6e | 63 65 20 78 62 61 73 65 |ber (sin|ce xbase|
|00004550| 20 66 69 65 6c 64 73 20 | 63 61 6e 6e 6f 74 20 62 | fields |cannot b|
|00004560| 65 67 69 6e 20 77 69 74 | 68 20 61 20 6e 75 6d 62 |egin wit|h a numb|
|00004570| 65 72 29 0d 0a 20 20 20 | 20 20 20 6d 2e 66 69 65 |er)..   |   m.fie|
|00004580| 6c 64 6e 61 6d 65 20 3d | 20 49 49 46 28 4c 45 46 |ldname =| IIF(LEF|
|00004590| 54 28 6d 2e 66 69 65 6c | 64 6e 61 6d 65 2c 32 29 |T(m.fiel|dname,2)|
|000045a0| 20 3d 20 27 4e 5f 27 2c | 20 53 55 42 53 54 52 28 | = 'N_',| SUBSTR(|
|000045b0| 6d 2e 66 69 65 6c 64 6e | 61 6d 65 2c 20 33 29 2c |m.fieldn|ame, 3),|
|000045c0| 20 6d 2e 66 69 65 6c 64 | 6e 61 6d 65 29 0d 0a 20 | m.field|name).. |
|000045d0| 20 20 20 20 20 6d 2e 63 | 4f 6c 65 44 61 74 61 20 |     m.c|OleData |
|000045e0| 3d 20 6d 2e 63 4f 6c 65 | 44 61 74 61 20 2b 20 54 |= m.cOle|Data + T|
|000045f0| 41 42 20 2b 20 6d 2e 66 | 69 65 6c 64 6e 61 6d 65 |AB + m.f|ieldname|
|00004600| 0d 0a 20 20 20 20 20 20 | 6d 2e 63 6f 6c 73 20 3d |..      |m.cols =|
|00004610| 20 6d 2e 63 6f 6c 73 20 | 2b 20 31 0d 0a 20 20 20 | m.cols |+ 1..   |
|00004620| 45 4e 44 49 46 0d 0a 45 | 4e 44 46 4f 52 0d 0a 6d |ENDIF..E|NDFOR..m|
|00004630| 2e 63 4f 6c 65 44 61 74 | 61 20 3d 20 6d 2e 63 4f |.cOleDat|a = m.cO|
|00004640| 6c 65 44 61 74 61 20 2b | 20 43 52 4c 46 0d 0a 0d |leData +| CRLF...|
|00004650| 0a 49 46 20 6d 2e 63 6f | 6c 73 20 3d 20 31 0d 0a |.IF m.co|ls = 1..|
|00004660| 20 20 20 3d 4d 45 53 53 | 41 47 45 42 4f 58 28 43 |   =MESS|AGEBOX(C|
|00004670| 5f 4e 4f 44 41 54 41 46 | 4c 44 53 5f 4c 4f 43 29 |_NODATAF|LDS_LOC)|
|00004680| 0d 0a 20 20 20 52 45 54 | 55 52 4e 20 22 22 0d 0a |..   RET|URN ""..|
|00004690| 45 4e 44 49 46 0d 0a 0d | 0a 54 48 49 53 2e 6e 44 |ENDIF...|.THIS.nD|
|000046a0| 61 74 61 43 6f 75 6e 74 | 20 3d 20 30 0d 0a 0d 0a |ataCount| = 0....|
|000046b0| 2a 20 4f 75 74 70 75 74 | 20 6f 6e 65 20 6c 69 6e |* Output| one lin|
|000046c0| 65 20 6f 66 20 64 61 74 | 61 20 66 6f 72 20 65 61 |e of dat|a for ea|
|000046d0| 63 68 20 72 65 63 6f 72 | 64 0d 0a 49 46 20 54 48 |ch recor|d..IF TH|
|000046e0| 49 53 2e 6c 47 72 61 70 | 68 52 65 63 6f 72 64 0d |IS.lGrap|hRecord.|
|000046f0| 0a 09 63 53 63 6f 70 65 | 20 3d 20 22 4e 45 58 54 |..cScope| = "NEXT|
|00004700| 20 31 22 0d 0a 09 47 4f | 54 4f 20 54 48 49 53 2e | 1"...GO|TO THIS.|
|00004710| 69 43 75 72 72 52 65 63 | 0d 0a 45 4c 53 45 0d 0a |iCurrRec|..ELSE..|
|00004720| 09 63 53 63 6f 70 65 20 | 3d 20 22 41 4c 4c 22 0d |.cScope |= "ALL".|
|00004730| 0a 45 4e 44 49 46 0d 0a | 53 43 41 4e 20 26 63 53 |.ENDIF..|SCAN &cS|
|00004740| 63 6f 70 65 0d 0a 20 20 | 20 2a 20 46 69 6c 6c 20 |cope..  | * Fill |
|00004750| 69 6e 20 74 68 65 20 6c | 65 66 74 6d 6f 73 74 20 |in the l|eftmost |
|00004760| 63 6f 6c 75 6d 6e 0d 0a | 20 20 20 2a 20 48 61 76 |column..|   * Hav|
|00004770| 65 20 6f 70 74 69 6f 6e | 20 74 6f 20 73 6b 69 70 |e option| to skip|
|00004780| 20 65 6d 70 74 79 20 76 | 61 6c 75 65 73 20 21 21 | empty v|alues !!|
|00004790| 21 0d 0a 20 20 20 6d 2e | 63 4c 69 6e 65 64 61 74 |!..   m.|cLinedat|
|000047a0| 61 20 3d 20 49 49 46 28 | 45 4d 50 54 59 28 54 48 |a = IIF(|EMPTY(TH|
|000047b0| 49 53 2e 63 43 61 74 65 | 67 6f 72 79 46 69 65 6c |IS.cCate|goryFiel|
|000047c0| 64 29 2c 22 22 2c 54 48 | 49 53 2e 6d 61 70 74 6f |d),"",TH|IS.mapto|
|000047d0| 63 68 61 72 28 45 56 41 | 4c 28 54 48 49 53 2e 63 |char(EVA|L(THIS.c|
|000047e0| 43 61 74 65 67 6f 72 79 | 46 69 65 6c 64 29 29 29 |Category|Field)))|
|000047f0| 0d 0a 20 20 20 6e 4e 75 | 6c 6c 43 6f 75 6e 74 20 |..   nNu|llCount |
|00004800| 3d 20 30 0d 0a 20 20 20 | 2a 20 46 69 6c 6c 20 69 |= 0..   |* Fill i|
|00004810| 6e 20 74 68 65 20 64 61 | 74 61 20 63 6f 6c 75 6d |n the da|ta colum|
|00004820| 6e 73 0d 0a 20 20 20 46 | 4f 52 20 6d 2e 69 20 3d |ns..   F|OR m.i =|
|00004830| 20 31 20 54 4f 20 54 48 | 49 53 2e 6e 74 6f 74 61 | 1 TO TH|IS.ntota|
|00004840| 6c 64 61 74 61 66 6c 64 | 73 20 20 20 20 20 20 20 |ldatafld|s       |
|00004850| 20 20 20 20 20 26 26 20 | 46 6f 72 6d 61 74 20 6e |     && |Format n|
|00004860| 75 6d 65 72 69 63 20 66 | 69 65 6c 64 73 0d 0a 20 |umeric f|ields.. |
|00004870| 20 20 20 20 20 49 46 20 | 21 45 4d 50 54 59 28 54 |     IF |!EMPTY(T|
|00004880| 48 49 53 2e 61 44 61 74 | 61 46 69 65 6c 64 73 5b |HIS.aDat|aFields[|
|00004890| 6d 2e 69 5d 29 20 41 4e | 44 20 54 59 50 45 28 54 |m.i]) AN|D TYPE(T|
|000048a0| 48 49 53 2e 61 44 61 74 | 61 46 69 65 6c 64 73 5b |HIS.aDat|aFields[|
|000048b0| 6d 2e 69 5d 29 20 24 20 | 27 4e 46 59 42 27 0d 0a |m.i]) $ |'NFYB'..|
|000048c0| 20 20 20 20 20 20 20 20 | 66 69 65 6c 64 6e 61 6d |        |fieldnam|
|000048d0| 65 20 3d 20 54 48 49 53 | 2e 61 44 61 74 61 46 69 |e = THIS|.aDataFi|
|000048e0| 65 6c 64 73 5b 6d 2e 69 | 5d 0d 0a 09 09 6e 66 69 |elds[m.i|]....nfi|
|000048f0| 65 6c 64 76 61 6c 75 65 | 20 3d 20 45 56 41 4c 28 |eldvalue| = EVAL(|
|00004900| 6d 2e 66 69 65 6c 64 6e | 61 6d 65 29 09 09 0d 0a |m.fieldn|ame)....|
|00004910| 09 09 44 4f 20 43 41 53 | 45 0d 0a 09 09 09 43 41 |..DO CAS|E.....CA|
|00004920| 53 45 20 49 53 4e 55 4c | 4c 28 6d 2e 6e 66 69 65 |SE ISNUL|L(m.nfie|
|00004930| 6c 64 76 61 6c 75 65 29 | 0d 0a 09 20 20 20 20 20 |ldvalue)|...     |
|00004940| 20 20 20 09 20 63 4c 69 | 6e 65 64 61 74 61 20 3d |   . cLi|nedata =|
|00004950| 20 6d 2e 63 4c 69 6e 65 | 64 61 74 61 20 2b 20 54 | m.cLine|data + T|
|00004960| 41 42 20 2b 20 22 22 0d | 0a 09 09 09 09 20 6e 4e |AB + "".|..... nN|
|00004970| 75 6c 6c 43 6f 75 6e 74 | 20 3d 20 6d 2e 6e 4e 75 |ullCount| = m.nNu|
|00004980| 6c 6c 43 6f 75 6e 74 20 | 2b 20 31 0d 0a 09 09 09 |llCount |+ 1.....|
|00004990| 43 41 53 45 20 49 4e 54 | 28 6d 2e 6e 66 69 65 6c |CASE INT|(m.nfiel|
|000049a0| 64 76 61 6c 75 65 29 20 | 3d 20 6d 2e 6e 66 69 65 |dvalue) |= m.nfie|
|000049b0| 6c 64 76 61 6c 75 65 09 | 26 26 20 6e 6f 20 64 65 |ldvalue.|&& no de|
|000049c0| 63 69 6d 61 6c 73 0d 0a | 09 09 20 20 20 20 20 20 |cimals..|..      |
|000049d0| 20 20 20 63 4c 69 6e 65 | 64 61 74 61 20 3d 20 6d |   cLine|data = m|
|000049e0| 2e 63 4c 69 6e 65 64 61 | 74 61 20 2b 20 54 41 42 |.cLineda|ta + TAB|
|000049f0| 20 2b 20 41 4c 4c 54 52 | 49 4d 28 53 54 52 28 6d | + ALLTR|IM(STR(m|
|00004a00| 2e 6e 66 69 65 6c 64 76 | 61 6c 75 65 29 29 0d 0a |.nfieldv|alue))..|
|00004a10| 09 09 09 43 41 53 45 20 | 54 59 50 45 28 54 48 49 |...CASE |TYPE(THI|
|00004a20| 53 2e 61 44 61 74 61 46 | 69 65 6c 64 73 5b 6d 2e |S.aDataF|ields[m.|
|00004a30| 69 5d 29 3d 27 59 27 0d | 0a 09 09 20 20 20 20 20 |i])='Y'.|...     |
|00004a40| 20 20 20 20 63 4c 69 6e | 65 64 61 74 61 20 3d 20 |    cLin|edata = |
|00004a50| 6d 2e 63 4c 69 6e 65 64 | 61 74 61 20 2b 20 54 41 |m.cLined|ata + TA|
|00004a60| 42 20 2b 20 41 4c 4c 54 | 52 49 4d 28 53 54 52 28 |B + ALLT|RIM(STR(|
|00004a70| 6d 2e 6e 66 69 65 6c 64 | 76 61 6c 75 65 2c 31 36 |m.nfield|value,16|
|00004a80| 2c 34 29 29 0d 0a 09 09 | 09 4f 54 48 45 52 57 49 |,4))....|.OTHERWI|
|00004a90| 53 45 0d 0a 09 09 20 20 | 20 20 20 20 20 20 20 63 |SE....  |       c|
|00004aa0| 4c 69 6e 65 64 61 74 61 | 20 3d 20 6d 2e 63 4c 69 |Linedata| = m.cLi|
|00004ab0| 6e 65 64 61 74 61 20 2b | 20 54 41 42 20 2b 20 41 |nedata +| TAB + A|
|00004ac0| 4c 4c 54 52 49 4d 28 53 | 54 52 28 6d 2e 6e 66 69 |LLTRIM(S|TR(m.nfi|
|00004ad0| 65 6c 64 76 61 6c 75 65 | 2c 31 36 2c 38 29 29 0d |eldvalue|,16,8)).|
|00004ae0| 0a 09 09 45 4e 44 43 41 | 53 45 0d 0a 20 20 20 20 |...ENDCA|SE..    |
|00004af0| 20 20 45 4e 44 49 46 0d | 0a 20 20 20 45 4e 44 46 |  ENDIF.|.   ENDF|
|00004b00| 4f 52 0d 0a 20 20 20 0d | 0a 20 20 20 2a 20 43 68 |OR..   .|.   * Ch|
|00004b10| 65 63 6b 20 66 6f 72 20 | 61 6c 6c 20 4d 75 6c 6c |eck for |all Mull|
|00004b20| 73 0d 0a 20 20 20 49 46 | 20 21 54 48 49 53 2e 6c |s..   IF| !THIS.l|
|00004b30| 53 68 6f 77 4e 75 6c 6c | 73 20 41 4e 44 20 54 48 |ShowNull|s AND TH|
|00004b40| 49 53 2e 6e 74 6f 74 61 | 6c 64 61 74 61 66 6c 64 |IS.ntota|ldatafld|
|00004b50| 73 20 3d 20 6d 2e 6e 4e | 75 6c 6c 43 6f 75 6e 74 |s = m.nN|ullCount|
|00004b60| 0d 0a 20 20 20 09 09 4c | 4f 4f 50 0d 0a 20 20 20 |..   ..L|OOP..   |
|00004b70| 45 4e 44 49 46 0d 0a 20 | 20 20 6d 2e 63 4f 6c 65 |ENDIF.. |  m.cOle|
|00004b80| 44 61 74 61 20 3d 20 6d | 2e 63 4f 6c 65 44 61 74 |Data = m|.cOleDat|
|00004b90| 61 20 2b 20 6d 2e 63 4c | 69 6e 65 44 61 74 61 20 |a + m.cL|ineData |
|00004ba0| 2b 20 43 52 4c 46 0d 0a | 20 20 20 54 48 49 53 2e |+ CRLF..|   THIS.|
|00004bb0| 6e 44 61 74 61 43 6f 75 | 6e 74 20 3d 20 54 48 49 |nDataCou|nt = THI|
|00004bc0| 53 2e 6e 44 61 74 61 43 | 6f 75 6e 74 20 2b 20 31 |S.nDataC|ount + 1|
|00004bd0| 0d 0a 0d 0a 45 4e 44 53 | 43 41 4e 0d 0a 0d 0a 49 |....ENDS|CAN....I|
|00004be0| 46 20 54 48 49 53 2e 6c | 47 72 61 70 68 52 65 63 |F THIS.l|GraphRec|
|00004bf0| 6f 72 64 0d 0a 09 2a 2d | 20 72 65 70 6f 73 69 74 |ord...*-| reposit|
|00004c00| 69 6f 6e 20 72 65 63 6f | 72 64 20 70 6f 69 6e 74 |ion reco|rd point|
|00004c10| 65 72 0d 0a 09 49 46 20 | 42 45 54 57 45 45 4e 28 |er...IF |BETWEEN(|
|00004c20| 54 48 49 53 2e 69 43 75 | 72 72 52 65 63 2c 31 2c |THIS.iCu|rrRec,1,|
|00004c30| 52 45 43 43 28 29 29 0d | 0a 09 09 47 4f 20 54 48 |RECC()).|...GO TH|
|00004c40| 49 53 2e 69 43 75 72 72 | 52 65 63 0d 0a 09 45 4e |IS.iCurr|Rec...EN|
|00004c50| 44 49 46 0d 0a 45 4e 44 | 49 46 0d 0a 0d 0a 52 45 |DIF..END|IF....RE|
|00004c60| 54 55 52 4e 20 6d 2e 63 | 4f 6c 65 44 61 74 61 0d |TURN m.c|OleData.|
|00004c70| 0a 0d 0a 45 4e 44 50 52 | 4f 43 0d 0a 50 52 4f 43 |...ENDPR|OC..PROC|
|00004c80| 45 44 55 52 45 20 73 65 | 74 63 61 70 69 74 61 6c |EDURE se|tcapital|
|00004c90| 73 0d 0a 2a 20 53 65 74 | 20 63 61 70 69 74 61 6c |s..* Set| capital|
|00004ca0| 69 7a 61 74 69 6f 6e 20 | 6f 66 20 66 69 65 6c 64 |ization |of field|
|00004cb0| 73 20 66 6f 72 20 73 65 | 72 69 65 73 0d 0a 49 46 |s for se|ries..IF|
|00004cc0| 20 54 59 50 45 28 22 54 | 48 49 53 2e 6e 43 61 74 | TYPE("T|HIS.nCat|
|00004cd0| 43 61 70 69 74 61 6c 22 | 29 20 23 20 22 4e 22 20 |Capital"|) # "N" |
|00004ce0| 4f 52 20 21 49 4e 4c 49 | 53 54 28 54 48 49 53 2e |OR !INLI|ST(THIS.|
|00004cf0| 6e 43 61 74 43 61 70 69 | 74 61 6c 2c 31 2c 32 2c |nCatCapi|tal,1,2,|
|00004d00| 33 29 0d 0a 09 52 45 54 | 55 52 4e 0d 0a 45 4e 44 |3)...RET|URN..END|
|00004d10| 49 46 0d 0a 4c 4f 43 41 | 4c 20 69 0d 0a 46 4f 52 |IF..LOCA|L i..FOR|
|00004d20| 20 69 20 3d 20 31 20 54 | 4f 20 41 4c 45 4e 28 54 | i = 1 T|O ALEN(T|
|00004d30| 48 49 53 2e 61 44 61 74 | 61 46 69 65 6c 64 73 29 |HIS.aDat|aFields)|
|00004d40| 0d 0a 09 44 4f 20 43 41 | 53 45 0d 0a 09 43 41 53 |...DO CA|SE...CAS|
|00004d50| 45 20 54 48 49 53 2e 6e | 43 61 74 43 61 70 69 74 |E THIS.n|CatCapit|
|00004d60| 61 6c 20 3d 20 31 0d 0a | 09 09 54 48 49 53 2e 61 |al = 1..|..THIS.a|
|00004d70| 44 61 74 61 46 69 65 6c | 64 73 5b 6d 2e 69 5d 20 |DataFiel|ds[m.i] |
|00004d80| 3d 20 4c 4f 57 45 52 28 | 54 48 49 53 2e 61 44 61 |= LOWER(|THIS.aDa|
|00004d90| 74 61 46 69 65 6c 64 73 | 5b 6d 2e 69 5d 29 0d 0a |taFields|[m.i])..|
|00004da0| 09 43 41 53 45 20 54 48 | 49 53 2e 6e 43 61 74 43 |.CASE TH|IS.nCatC|
|00004db0| 61 70 69 74 61 6c 20 3d | 20 32 0d 0a 09 09 54 48 |apital =| 2....TH|
|00004dc0| 49 53 2e 61 44 61 74 61 | 46 69 65 6c 64 73 5b 6d |IS.aData|Fields[m|
|00004dd0| 2e 69 5d 20 3d 20 55 50 | 50 45 52 28 54 48 49 53 |.i] = UP|PER(THIS|
|00004de0| 2e 61 44 61 74 61 46 69 | 65 6c 64 73 5b 6d 2e 69 |.aDataFi|elds[m.i|
|00004df0| 5d 29 0d 0a 09 43 41 53 | 45 20 54 48 49 53 2e 6e |])...CAS|E THIS.n|
|00004e00| 43 61 74 43 61 70 69 74 | 61 6c 20 3d 20 33 0d 0a |CatCapit|al = 3..|
|00004e10| 09 09 54 48 49 53 2e 61 | 44 61 74 61 46 69 65 6c |..THIS.a|DataFiel|
|00004e20| 64 73 5b 6d 2e 69 5d 20 | 3d 20 50 52 4f 50 45 52 |ds[m.i] |= PROPER|
|00004e30| 28 54 48 49 53 2e 61 44 | 61 74 61 46 69 65 6c 64 |(THIS.aD|ataField|
|00004e40| 73 5b 6d 2e 69 5d 29 0d | 0a 09 45 4e 44 43 41 53 |s[m.i]).|..ENDCAS|
|00004e50| 45 0d 0a 45 4e 44 46 4f | 52 0d 0a 0d 0a 45 4e 44 |E..ENDFO|R....END|
|00004e60| 50 52 4f 43 0d 0a 50 52 | 4f 43 45 44 55 52 45 20 |PROC..PR|OCEDURE |
|00004e70| 6d 61 70 74 6f 63 68 61 | 72 0d 0a 2a 20 43 6f 6e |maptocha|r..* Con|
|00004e80| 76 65 72 74 73 20 61 20 | 76 61 72 69 61 62 6c 65 |verts a |variable|
|00004e90| 20 6f 66 20 61 6e 79 20 | 74 79 70 65 20 74 6f 20 | of any |type to |
|00004ea0| 61 20 63 68 61 72 61 63 | 74 65 72 0d 0a 4c 50 41 |a charac|ter..LPA|
|00004eb0| 52 41 4d 45 54 45 52 20 | 6d 2e 76 61 6c 75 65 0d |RAMETER |m.value.|
|00004ec0| 0a 4c 4f 43 41 4c 20 63 | 44 61 74 61 54 79 70 65 |.LOCAL c|DataType|
|00004ed0| 0d 0a 6d 2e 63 44 61 74 | 61 54 79 70 65 20 3d 20 |..m.cDat|aType = |
|00004ee0| 54 59 50 45 28 22 6d 2e | 76 61 6c 75 65 22 29 0d |TYPE("m.|value").|
|00004ef0| 0a 44 4f 20 43 41 53 45 | 0d 0a 09 43 41 53 45 20 |.DO CASE|...CASE |
|00004f00| 49 53 4e 55 4c 4c 28 6d | 2e 76 61 6c 75 65 29 0d |ISNULL(m|.value).|
|00004f10| 0a 09 09 52 45 54 55 52 | 4e 20 22 4e 75 6c 6c 22 |...RETUR|N "Null"|
|00004f20| 0d 0a 09 43 41 53 45 20 | 49 4e 4c 49 53 54 28 6d |...CASE |INLIST(m|
|00004f30| 2e 63 44 61 74 61 54 79 | 70 65 2c 27 43 27 2c 27 |.cDataTy|pe,'C','|
|00004f40| 4d 27 29 0d 0a 09 20 20 | 20 52 45 54 55 52 4e 20 |M')...  | RETURN |
|00004f50| 6d 2e 76 61 6c 75 65 0d | 0a 09 43 41 53 45 20 49 |m.value.|..CASE I|
|00004f60| 4e 4c 49 53 54 28 6d 2e | 63 44 61 74 61 54 79 70 |NLIST(m.|cDataTyp|
|00004f70| 65 2c 27 4e 27 2c 27 46 | 27 2c 27 42 27 2c 27 59 |e,'N','F|','B','Y|
|00004f80| 27 29 0d 0a 09 20 20 20 | 52 45 54 55 52 4e 20 41 |')...   |RETURN A|
|00004f90| 4c 4c 54 52 49 4d 28 53 | 54 52 28 6d 2e 76 61 6c |LLTRIM(S|TR(m.val|
|00004fa0| 75 65 2c 31 35 29 29 0d | 0a 09 43 41 53 45 20 6d |ue,15)).|..CASE m|
|00004fb0| 2e 63 44 61 74 61 54 79 | 70 65 20 3d 20 27 44 27 |.cDataTy|pe = 'D'|
|00004fc0| 0d 0a 09 20 20 20 52 45 | 54 55 52 4e 20 44 54 4f |...   RE|TURN DTO|
|00004fd0| 43 28 6d 2e 76 61 6c 75 | 65 29 0d 0a 09 43 41 53 |C(m.valu|e)...CAS|
|00004fe0| 45 20 6d 2e 63 44 61 74 | 61 54 79 70 65 20 3d 20 |E m.cDat|aType = |
|00004ff0| 27 54 27 0d 0a 09 20 20 | 20 52 45 54 55 52 4e 20 |'T'...  | RETURN |
|00005000| 54 54 4f 43 28 6d 2e 76 | 61 6c 75 65 29 0d 0a 09 |TTOC(m.v|alue)...|
|00005010| 43 41 53 45 20 6d 2e 63 | 44 61 74 61 54 79 70 65 |CASE m.c|DataType|
|00005020| 20 3d 20 27 4c 27 0d 0a | 09 20 20 20 52 45 54 55 | = 'L'..|.   RETU|
|00005030| 52 4e 20 49 49 46 28 6d | 2e 76 61 6c 75 65 2c 20 |RN IIF(m|.value, |
|00005040| 27 59 45 53 27 2c 20 27 | 4e 4f 27 29 0d 0a 09 43 |'YES', '|NO')...C|
|00005050| 41 53 45 20 6d 2e 63 44 | 61 74 61 54 79 70 65 20 |ASE m.cD|ataType |
|00005060| 3d 20 27 47 27 0d 0a 09 | 20 20 20 52 45 54 55 52 |= 'G'...|   RETUR|
|00005070| 4e 20 22 4f 6c 65 22 0d | 0a 09 4f 54 48 45 52 57 |N "Ole".|..OTHERW|
|00005080| 49 53 45 0d 0a 09 09 52 | 45 54 55 52 4e 20 22 22 |ISE....R|ETURN ""|
|00005090| 0d 0a 45 4e 44 43 41 53 | 45 0d 0a 0d 0a 45 4e 44 |..ENDCAS|E....END|
|000050a0| 50 52 4f 43 0d 0a 50 52 | 4f 43 45 44 55 52 45 20 |PROC..PR|OCEDURE |
|000050b0| 61 64 64 67 72 61 70 68 | 66 78 0d 0a 4c 4f 43 41 |addgraph|fx..LOCA|
|000050c0| 4c 20 69 53 65 72 69 65 | 73 43 6f 75 6e 74 2c 20 |L iSerie|sCount, |
|000050d0| 69 4c 65 67 65 6e 64 43 | 6f 75 6e 74 2c 20 69 0d |iLegendC|ount, i.|
|000050e0| 0a 0d 0a 57 41 49 54 20 | 57 49 4e 44 4f 57 20 4e |...WAIT |WINDOW N|
|000050f0| 4f 57 41 49 54 20 43 5f | 57 41 49 54 46 4f 52 4d |OWAIT C_|WAITFORM|
|00005100| 41 54 5f 4c 4f 43 0d 0a | 0d 0a 49 46 20 54 48 49 |AT_LOC..|..IF THI|
|00005110| 53 2e 6e 41 63 74 69 6f | 6e 3d 32 20 4f 52 20 54 |S.nActio|n=2 OR T|
|00005120| 48 49 53 2e 6e 67 72 61 | 70 68 56 65 72 73 69 6f |HIS.ngra|phVersio|
|00005130| 6e 3c 38 0d 0a 09 2a 2d | 20 73 61 76 65 20 74 6f |n<8...*-| save to|
|00005140| 20 74 61 62 6c 65 0d 0a | 09 49 46 20 21 54 48 49 | table..|.IF !THI|
|00005150| 53 2e 47 65 74 4f 6c 65 | 53 65 72 76 65 72 28 29 |S.GetOle|Server()|
|00005160| 0d 0a 09 09 52 45 54 55 | 52 4e 20 2e 46 2e 0d 0a |....RETU|RN .F...|
|00005170| 09 45 4e 44 49 46 0d 0a | 09 0d 0a 09 49 46 20 54 |.ENDIF..|....IF T|
|00005180| 59 50 45 28 22 54 48 49 | 53 2e 6f 47 72 61 70 68 |YPE("THI|S.oGraph|
|00005190| 52 65 66 2e 63 6f 6e 74 | 72 6f 6c 73 6f 75 72 63 |Ref.cont|rolsourc|
|000051a0| 65 22 29 23 22 55 22 0d | 0a 09 09 49 46 20 54 48 |e")#"U".|...IF TH|
|000051b0| 49 53 2e 6f 47 72 61 70 | 68 52 65 66 2e 63 6f 6e |IS.oGrap|hRef.con|
|000051c0| 74 72 6f 6c 73 6f 75 72 | 63 65 23 54 48 49 53 2e |trolsour|ce#THIS.|
|000051d0| 63 47 72 61 70 68 46 69 | 65 6c 64 0d 0a 09 09 09 |cGraphFi|eld.....|
|000051e0| 54 48 49 53 2e 6f 47 72 | 61 70 68 52 65 66 2e 63 |THIS.oGr|aphRef.c|
|000051f0| 6f 6e 74 72 6f 6c 73 6f | 75 72 63 65 20 3d 20 54 |ontrolso|urce = T|
|00005200| 48 49 53 2e 63 47 72 61 | 70 68 46 69 65 6c 64 0d |HIS.cGra|phField.|
|00005210| 0a 09 09 09 49 46 20 54 | 48 49 53 2e 48 61 64 65 |....IF T|HIS.Hade|
|00005220| 72 72 6f 72 0d 0a 09 09 | 09 09 52 45 54 55 52 4e |rror....|..RETURN|
|00005230| 20 2e 46 2e 0d 0a 09 09 | 09 45 4e 44 49 46 0d 0a | .F.....|.ENDIF..|
|00005240| 09 09 45 4e 44 49 46 0d | 0a 09 45 4e 44 49 46 0d |..ENDIF.|..ENDIF.|
|00005250| 0a 0d 0a 09 2a 20 41 64 | 64 20 6c 65 67 65 6e 64 |....* Ad|d legend|
|00005260| 0d 0a 09 54 48 49 53 2e | 6f 47 72 61 70 68 52 65 |...THIS.|oGraphRe|
|00005270| 66 2e 48 61 73 4c 65 67 | 65 6e 64 20 3d 20 54 48 |f.HasLeg|end = TH|
|00005280| 49 53 2e 6c 41 64 64 4c | 65 67 65 6e 64 0d 0a 09 |IS.lAddL|egend...|
|00005290| 0d 0a 09 2a 20 43 68 65 | 63 6b 20 66 6f 72 20 61 |...* Che|ck for a|
|000052a0| 75 74 6f 6d 61 74 69 6f | 6e 20 65 72 72 6f 72 20 |utomatio|n error |
|000052b0| 68 65 72 65 0d 0a 09 49 | 46 20 54 48 49 53 2e 48 |here...I|F THIS.H|
|000052c0| 61 64 45 72 72 6f 72 20 | 0d 0a 09 09 52 45 54 55 |adError |....RETU|
|000052d0| 52 4e 20 2e 46 2e 0d 0a | 09 45 4e 44 49 46 0d 0a |RN .F...|.ENDIF..|
|000052e0| 0d 0a 09 2a 20 41 64 64 | 20 74 69 74 6c 65 0d 0a |...* Add| title..|
|000052f0| 09 54 48 49 53 2e 6f 47 | 72 61 70 68 52 65 66 2e |.THIS.oG|raphRef.|
|00005300| 48 61 73 54 69 74 6c 65 | 20 3d 20 54 48 49 53 2e |HasTitle| = THIS.|
|00005310| 6c 41 64 64 54 69 74 6c | 65 0d 0a 09 49 46 20 54 |lAddTitl|e...IF T|
|00005320| 48 49 53 2e 6c 41 64 64 | 54 69 74 6c 65 0d 0a 09 |HIS.lAdd|Title...|
|00005330| 09 54 48 49 53 2e 6f 47 | 72 61 70 68 52 65 66 2e |.THIS.oG|raphRef.|
|00005340| 43 68 61 72 74 54 69 74 | 6c 65 2e 63 61 70 74 69 |ChartTit|le.capti|
|00005350| 6f 6e 20 3d 20 54 48 49 | 53 2e 63 54 69 74 6c 65 |on = THI|S.cTitle|
|00005360| 0d 0a 09 45 4e 44 49 46 | 09 09 0d 0a 0d 0a 09 2a |...ENDIF|.......*|
|00005370| 20 53 65 74 20 43 68 61 | 72 74 20 74 79 70 65 0d | Set Cha|rt type.|
|00005380| 0a 09 49 46 20 21 54 48 | 49 53 2e 6c 48 61 64 50 |..IF !TH|IS.lHadP|
|00005390| 72 65 76 69 65 77 20 20 | 26 26 69 66 20 75 73 65 |review  |&&if use|
|000053a0| 72 20 70 72 65 76 69 65 | 77 65 64 2c 20 74 68 65 |r previe|wed, the|
|000053b0| 79 20 6d 61 79 20 68 61 | 76 65 20 65 6e 74 65 72 |y may ha|ve enter|
|000053c0| 65 64 20 4d 53 20 47 72 | 61 70 68 20 61 6e 64 20 |ed MS Gr|aph and |
|000053d0| 6d 61 6e 75 61 6c 6c 79 | 20 63 68 61 6e 67 65 64 |manually| changed|
|000053e0| 20 63 68 61 72 74 20 74 | 79 70 65 0d 0a 09 09 49 | chart t|ype....I|
|000053f0| 46 20 54 48 49 53 2e 6c | 55 73 65 41 75 74 6f 46 |F THIS.l|UseAutoF|
|00005400| 6f 72 6d 61 74 0d 0a 09 | 09 09 54 48 49 53 2e 6f |ormat...|..THIS.o|
|00005410| 47 72 61 70 68 52 65 66 | 2e 61 75 74 6f 66 6f 72 |GraphRef|.autofor|
|00005420| 6d 61 74 28 54 48 49 53 | 2e 6e 43 68 61 72 74 41 |mat(THIS|.nChartA|
|00005430| 75 74 6f 47 61 6c 6c 65 | 72 79 2c 54 48 49 53 2e |utoGalle|ry,THIS.|
|00005440| 6e 43 68 61 72 74 41 75 | 74 6f 46 6f 72 6d 61 74 |nChartAu|toFormat|
|00005450| 29 0d 0a 09 09 45 4c 53 | 45 0d 0a 09 09 09 54 48 |)....ELS|E.....TH|
|00005460| 49 53 2e 6f 47 72 61 70 | 68 52 65 66 2e 74 79 70 |IS.oGrap|hRef.typ|
|00005470| 65 20 3d 20 54 48 49 53 | 2e 6e 43 68 61 72 74 54 |e = THIS|.nChartT|
|00005480| 79 70 65 0d 0a 09 09 09 | 54 48 49 53 2e 6f 47 72 |ype.....|THIS.oGr|
|00005490| 61 70 68 52 65 66 2e 73 | 75 62 74 79 70 65 20 3d |aphRef.s|ubtype =|
|000054a0| 20 54 48 49 53 2e 6e 43 | 68 61 72 74 53 75 62 54 | THIS.nC|hartSubT|
|000054b0| 79 70 65 0d 0a 09 09 45 | 4e 44 49 46 0d 0a 09 45 |ype....E|NDIF...E|
|000054c0| 4e 44 49 46 0d 0a 0d 0a | 09 57 41 49 54 20 43 4c |NDIF....|.WAIT CL|
|000054d0| 45 41 52 0d 0a 09 52 45 | 54 55 52 4e 20 21 54 48 |EAR...RE|TURN !TH|
|000054e0| 49 53 2e 48 61 64 65 72 | 72 6f 72 0d 0a 0d 0a 45 |IS.Hader|ror....E|
|000054f0| 4c 53 45 0d 0a 09 2a 2d | 20 73 61 76 65 20 74 6f |LSE...*-| save to|
|00005500| 20 66 6f 72 6d 20 28 6f | 72 20 70 72 65 76 69 65 | form (o|r previe|
|00005510| 77 29 0d 0a 09 0d 0a 09 | 2a 2d 20 53 65 74 20 43 |w)......|*- Set C|
|00005520| 68 61 72 74 20 74 79 70 | 65 0d 0a 09 49 46 20 21 |hart typ|e...IF !|
|00005530| 54 48 49 53 2e 6c 48 61 | 64 50 72 65 76 69 65 77 |THIS.lHa|dPreview|
|00005540| 20 20 26 26 20 69 66 20 | 75 73 65 72 20 70 72 65 |  && if |user pre|
|00005550| 76 69 65 77 65 64 2c 20 | 74 68 65 79 20 6d 61 79 |viewed, |they may|
|00005560| 20 68 61 76 65 20 65 6e | 74 65 72 65 64 20 4d 53 | have en|tered MS|
|00005570| 20 47 72 61 70 68 20 61 | 6e 64 20 6d 61 6e 75 61 | Graph a|nd manua|
|00005580| 6c 6c 79 20 63 68 61 6e | 67 65 64 20 63 68 61 72 |lly chan|ged char|
|00005590| 74 20 74 79 70 65 0d 0a | 09 09 44 4f 20 43 41 53 |t type..|..DO CAS|
|000055a0| 45 0d 0a 09 09 09 43 41 | 53 45 20 54 48 49 53 2e |E.....CA|SE THIS.|
|000055b0| 6c 55 73 65 41 75 74 6f | 46 6f 72 6d 61 74 0d 0a |lUseAuto|Format..|
|000055c0| 09 09 09 09 54 48 49 53 | 2e 6f 47 72 61 70 68 52 |....THIS|.oGraphR|
|000055d0| 65 66 2e 61 75 74 6f 66 | 6f 72 6d 61 74 28 54 48 |ef.autof|ormat(TH|
|000055e0| 49 53 2e 6e 43 68 61 72 | 74 41 75 74 6f 47 61 6c |IS.nChar|tAutoGal|
|000055f0| 6c 65 72 79 2c 54 48 49 | 53 2e 6e 43 68 61 72 74 |lery,THI|S.nChart|
|00005600| 41 75 74 6f 46 6f 72 6d | 61 74 29 0d 0a 09 09 09 |AutoForm|at).....|
|00005610| 43 41 53 45 20 54 48 49 | 53 2e 6c 55 73 65 38 54 |CASE THI|S.lUse8T|
|00005620| 79 70 65 0d 0a 09 09 09 | 09 54 48 49 53 2e 6f 47 |ype.....|.THIS.oG|
|00005630| 72 61 70 68 52 65 66 2e | 63 68 61 72 74 74 79 70 |raphRef.|charttyp|
|00005640| 65 20 3d 20 54 48 49 53 | 2e 6e 43 68 61 72 74 54 |e = THIS|.nChartT|
|00005650| 79 70 65 0d 0a 09 09 09 | 4f 54 48 45 52 57 49 53 |ype.....|OTHERWIS|
|00005660| 45 0d 0a 09 09 09 09 54 | 48 49 53 2e 6f 47 72 61 |E......T|HIS.oGra|
|00005670| 70 68 52 65 66 2e 74 79 | 70 65 20 3d 20 54 48 49 |phRef.ty|pe = THI|
|00005680| 53 2e 6e 43 68 61 72 74 | 54 79 70 65 0d 0a 09 09 |S.nChart|Type....|
|00005690| 09 09 54 48 49 53 2e 6f | 47 72 61 70 68 52 65 66 |..THIS.o|GraphRef|
|000056a0| 2e 73 75 62 74 79 70 65 | 20 3d 20 54 48 49 53 2e |.subtype| = THIS.|
|000056b0| 6e 43 68 61 72 74 53 75 | 62 54 79 70 65 0d 0a 09 |nChartSu|bType...|
|000056c0| 09 45 4e 44 43 41 53 45 | 0d 0a 09 45 4e 44 49 46 |.ENDCASE|...ENDIF|
|000056d0| 0d 0a 09 0d 0a 09 54 48 | 49 53 2e 6f 47 72 61 70 |......TH|IS.oGrap|
|000056e0| 68 52 65 66 2e 48 61 73 | 4c 65 67 65 6e 64 20 3d |hRef.Has|Legend =|
|000056f0| 20 2e 46 2e 09 26 26 20 | 74 6f 20 66 6f 72 63 65 | .F..&& |to force|
|00005700| 20 4d 53 47 72 61 70 68 | 20 72 65 63 72 65 61 74 | MSGraph| recreat|
|00005710| 65 20 6c 65 67 65 6e 64 | 20 66 6f 72 20 67 72 61 |e legend| for gra|
|00005720| 70 68 2c 20 74 6f 20 72 | 65 73 74 6f 72 65 20 63 |ph, to r|estore c|
|00005730| 6f 75 6e 74 20 61 6e 64 | 20 64 65 66 61 75 6c 74 |ount and| default|
|00005740| 20 6f 62 6a 65 63 74 73 | 0d 0a 0d 0a 09 2a 2d 20 | objects|.....*- |
|00005750| 41 64 64 20 74 69 74 6c | 65 0d 0a 09 54 48 49 53 |Add titl|e...THIS|
|00005760| 2e 6f 47 72 61 70 68 52 | 65 66 2e 48 61 73 54 69 |.oGraphR|ef.HasTi|
|00005770| 74 6c 65 20 3d 20 54 48 | 49 53 2e 6c 41 64 64 54 |tle = TH|IS.lAddT|
|00005780| 69 74 6c 65 0d 0a 09 49 | 46 20 54 48 49 53 2e 6c |itle...I|F THIS.l|
|00005790| 41 64 64 54 69 74 6c 65 | 0d 0a 09 09 57 49 54 48 |AddTitle|....WITH|
|000057a0| 20 54 48 49 53 2e 6f 47 | 72 61 70 68 52 65 66 2e | THIS.oG|raphRef.|
|000057b0| 43 68 61 72 74 54 69 74 | 6c 65 0d 0a 09 09 09 2e |ChartTit|le......|
|000057c0| 54 65 78 74 20 3d 20 54 | 48 49 53 2e 63 54 69 74 |Text = T|HIS.cTit|
|000057d0| 6c 65 0d 0a 09 09 45 4e | 44 57 49 54 48 0d 0a 09 |le....EN|DWITH...|
|000057e0| 45 4e 44 49 46 0d 0a 09 | 0d 0a 09 2a 20 43 68 65 |ENDIF...|...* Che|
|000057f0| 63 6b 20 66 6f 72 20 61 | 75 74 6f 6d 61 74 69 6f |ck for a|utomatio|
|00005800| 6e 20 65 72 72 6f 72 20 | 68 65 72 65 0d 0a 09 49 |n error |here...I|
|00005810| 46 20 54 48 49 53 2e 48 | 61 64 45 72 72 6f 72 20 |F THIS.H|adError |
|00005820| 0d 0a 09 09 52 45 54 55 | 52 4e 20 2e 46 2e 0d 0a |....RETU|RN .F...|
|00005830| 09 45 4e 44 49 46 0d 0a | 0d 0a 09 2a 2d 20 77 65 |.ENDIF..|...*- we|
|00005840| 20 6d 6f 76 65 20 74 68 | 65 20 6f 72 69 65 6e 74 | move th|e orient|
|00005850| 61 74 69 6f 6e 20 61 72 | 6f 75 6e 64 20 74 6f 20 |ation ar|ound to |
|00005860| 72 65 6d 6f 76 65 20 65 | 78 74 72 61 20 73 65 72 |remove e|xtra ser|
|00005870| 69 65 73 20 61 75 74 6f | 6d 61 74 69 63 61 6c 6c |ies auto|maticall|
|00005880| 79 0d 0a 09 2a 2d 20 61 | 64 64 65 64 20 62 79 20 |y...*- a|dded by |
|00005890| 4d 53 20 47 72 61 70 68 | 0d 0a 09 49 46 20 54 48 |MS Graph|...IF TH|
|000058a0| 49 53 2e 6c 53 65 72 69 | 65 73 42 79 52 6f 77 0d |IS.lSeri|esByRow.|
|000058b0| 0a 09 09 54 48 49 53 2e | 6f 47 72 61 70 68 52 65 |...THIS.|oGraphRe|
|000058c0| 66 2e 41 70 70 6c 69 63 | 61 74 69 6f 6e 2e 50 6c |f.Applic|ation.Pl|
|000058d0| 6f 74 42 79 20 3d 20 32 | 0d 0a 09 09 54 48 49 53 |otBy = 2|....THIS|
|000058e0| 2e 6e 64 61 74 61 73 65 | 72 69 65 73 20 3d 20 54 |.ndatase|ries = T|
|000058f0| 48 49 53 2e 6e 74 6f 74 | 61 6c 64 61 74 61 66 6c |HIS.ntot|aldatafl|
|00005900| 64 73 0d 0a 09 45 4c 53 | 45 0d 0a 09 09 2a 2d 20 |ds...ELS|E....*- |
|00005910| 54 48 49 53 2e 6f 47 72 | 61 70 68 52 65 66 2e 41 |THIS.oGr|aphRef.A|
|00005920| 70 70 6c 69 63 61 74 69 | 6f 6e 2e 50 6c 6f 74 42 |pplicati|on.PlotB|
|00005930| 79 20 3d 20 31 0d 0a 09 | 09 54 48 49 53 2e 6e 64 |y = 1...|.THIS.nd|
|00005940| 61 74 61 73 65 72 69 65 | 73 20 3d 20 54 48 49 53 |ataserie|s = THIS|
|00005950| 2e 6e 64 61 74 61 63 6f | 75 6e 74 0d 0a 09 45 4e |.ndataco|unt...EN|
|00005960| 44 49 46 0d 0a 0d 0a 09 | 2a 20 43 68 65 63 6b 20 |DIF.....|* Check |
|00005970| 66 6f 72 20 61 75 74 6f | 6d 61 74 69 6f 6e 20 65 |for auto|mation e|
|00005980| 72 72 6f 72 20 68 65 72 | 65 0d 0a 09 49 46 20 54 |rror her|e...IF T|
|00005990| 48 49 53 2e 48 61 64 45 | 72 72 6f 72 20 0d 0a 09 |HIS.HadE|rror ...|
|000059a0| 09 52 45 54 55 52 4e 20 | 2e 46 2e 0d 0a 09 45 4e |.RETURN |.F....EN|
|000059b0| 44 49 46 0d 0a 0d 0a 09 | 6d 2e 69 53 65 72 69 65 |DIF.....|m.iSerie|
|000059c0| 73 43 6f 75 6e 74 20 3d | 20 54 48 49 53 2e 6f 47 |sCount =| THIS.oG|
|000059d0| 72 61 70 68 52 65 66 2e | 53 65 72 69 65 73 43 6f |raphRef.|SeriesCo|
|000059e0| 6c 6c 65 63 74 69 6f 6e | 2e 43 6f 75 6e 74 0d 0a |llection|.Count..|
|000059f0| 09 2a 2d 20 72 65 6d 6f | 76 65 20 75 6e 6e 65 65 |.*- remo|ve unnee|
|00005a00| 64 65 64 20 73 65 72 69 | 65 73 0d 0a 09 54 48 49 |ded seri|es...THI|
|00005a10| 53 2e 53 65 74 45 72 72 | 6f 72 4f 66 66 3d 2e 54 |S.SetErr|orOff=.T|
|00005a20| 2e 0d 0a 09 49 46 20 6d | 2e 69 53 65 72 69 65 73 |....IF m|.iSeries|
|00005a30| 43 6f 75 6e 74 20 3e 20 | 54 48 49 53 2e 6e 64 61 |Count > |THIS.nda|
|00005a40| 74 61 73 65 72 69 65 73 | 0d 0a 09 09 46 4f 52 20 |taseries|....FOR |
|00005a50| 69 20 3d 20 30 20 54 4f | 20 6d 2e 69 53 65 72 69 |i = 0 TO| m.iSeri|
|00005a60| 65 73 43 6f 75 6e 74 20 | 2d 20 54 48 49 53 2e 6e |esCount |- THIS.n|
|00005a70| 64 61 74 61 73 65 72 69 | 65 73 20 2d 20 31 0d 0a |dataseri|es - 1..|
|00005a80| 09 09 09 54 48 49 53 2e | 6f 47 72 61 70 68 52 65 |...THIS.|oGraphRe|
|00005a90| 66 2e 53 65 72 69 65 73 | 43 6f 6c 6c 65 63 74 69 |f.Series|Collecti|
|00005aa0| 6f 6e 28 6d 2e 69 53 65 | 72 69 65 73 43 6f 75 6e |on(m.iSe|riesCoun|
|00005ab0| 74 20 2d 20 69 29 2e 44 | 65 6c 65 74 65 0d 0a 09 |t - i).D|elete...|
|00005ac0| 09 09 49 46 20 54 48 49 | 53 2e 48 61 64 45 72 72 |..IF THI|S.HadErr|
|00005ad0| 6f 72 0d 0a 09 09 09 09 | 54 48 49 53 2e 53 65 74 |or......|THIS.Set|
|00005ae0| 45 72 72 6f 72 4f 66 66 | 3d 2e 46 2e 0d 0a 09 09 |ErrorOff|=.F.....|
|00005af0| 09 09 52 45 54 55 52 4e | 20 2e 46 2e 0d 0a 09 09 |..RETURN| .F.....|
|00005b00| 09 45 4e 44 49 46 0d 0a | 09 09 4e 45 58 54 0d 0a |.ENDIF..|..NEXT..|
|00005b10| 09 45 4e 44 49 46 0d 0a | 09 54 48 49 53 2e 53 65 |.ENDIF..|.THIS.Se|
|00005b20| 74 45 72 72 6f 72 4f 66 | 66 3d 2e 46 2e 0d 0a 0d |tErrorOf|f=.F....|
|00005b30| 0a 09 2a 2d 20 72 65 73 | 65 74 20 63 68 61 72 74 |..*- res|et chart|
|00005b40| 20 6f 72 69 65 6e 74 61 | 74 69 6f 6e 20 74 6f 20 | orienta|tion to |
|00005b50| 77 68 61 74 20 77 65 20 | 72 65 61 6c 6c 79 20 77 |what we |really w|
|00005b60| 61 6e 74 0d 0a 09 49 46 | 20 54 48 49 53 2e 6c 53 |ant...IF| THIS.lS|
|00005b70| 65 72 69 65 73 42 79 52 | 6f 77 0d 0a 09 09 54 48 |eriesByR|ow....TH|
|00005b80| 49 53 2e 6f 47 72 61 70 | 68 52 65 66 2e 41 70 70 |IS.oGrap|hRef.App|
|00005b90| 6c 69 63 61 74 69 6f 6e | 2e 50 6c 6f 74 42 79 20 |lication|.PlotBy |
|00005ba0| 3d 20 31 0d 0a 09 09 54 | 48 49 53 2e 6e 64 61 74 |= 1....T|HIS.ndat|
|00005bb0| 61 73 65 72 69 65 73 20 | 3d 20 54 48 49 53 2e 6e |aseries |= THIS.n|
|00005bc0| 64 61 74 61 63 6f 75 6e | 74 0d 0a 09 45 4c 53 45 |datacoun|t...ELSE|
|00005bd0| 0d 0a 09 09 54 48 49 53 | 2e 6f 47 72 61 70 68 52 |....THIS|.oGraphR|
|00005be0| 65 66 2e 41 70 70 6c 69 | 63 61 74 69 6f 6e 2e 50 |ef.Appli|cation.P|
|00005bf0| 6c 6f 74 42 79 20 3d 20 | 32 0d 0a 09 09 0d 0a 09 |lotBy = |2.......|
|00005c00| 09 46 4f 52 20 69 20 3d | 20 54 48 49 53 2e 6e 74 |.FOR i =| THIS.nt|
|00005c10| 6f 74 61 6c 64 61 74 61 | 66 6c 64 73 20 2b 20 31 |otaldata|flds + 1|
|00005c20| 20 54 4f 20 34 0d 0a 09 | 09 09 2a 2d 20 64 65 6c | TO 4...|..*- del|
|00005c30| 65 74 65 20 63 6f 6c 75 | 6d 6e 73 20 2d 2d 20 74 |ete colu|mns -- t|
|00005c40| 68 69 73 20 77 69 6c 6c | 20 72 65 6d 6f 76 65 20 |his will| remove |
|00005c50| 75 6e 6e 65 65 64 65 64 | 20 6c 65 67 65 6e 64 73 |unneeded| legends|
|00005c60| 2c 20 61 6e 64 20 73 68 | 69 66 74 20 65 76 65 72 |, and sh|ift ever|
|00005c70| 79 74 68 69 6e 67 20 74 | 6f 20 74 68 65 20 6c 65 |ything t|o the le|
|00005c80| 66 74 0d 0a 09 09 09 54 | 48 49 53 2e 6f 47 72 61 |ft.....T|HIS.oGra|
|00005c90| 70 68 52 65 66 2e 41 70 | 70 6c 69 63 61 74 69 6f |phRef.Ap|plicatio|
|00005ca0| 6e 2e 44 61 74 61 53 68 | 65 65 74 2e 52 61 6e 67 |n.DataSh|eet.Rang|
|00005cb0| 65 28 43 48 52 28 36 35 | 20 2b 20 54 48 49 53 2e |e(CHR(65| + THIS.|
|00005cc0| 6e 74 6f 74 61 6c 64 61 | 74 61 66 6c 64 73 29 29 |ntotalda|taflds))|
|00005cd0| 2e 44 65 6c 65 74 65 0d | 0a 09 09 4e 45 58 54 0d |.Delete.|...NEXT.|
|00005ce0| 0a 0d 0a 09 09 49 46 20 | 54 48 49 53 2e 6c 55 73 |.....IF |THIS.lUs|
|00005cf0| 65 38 54 79 70 65 20 41 | 4e 44 20 54 48 49 53 2e |e8Type A|ND THIS.|
|00005d00| 6c 53 74 72 69 70 45 78 | 63 65 73 73 4c 65 67 65 |lStripEx|cessLege|
|00005d10| 6e 64 0d 0a 09 09 09 54 | 48 49 53 2e 6e 64 61 74 |nd.....T|HIS.ndat|
|00005d20| 61 73 65 72 69 65 73 20 | 3d 20 54 48 49 53 2e 6e |aseries |= THIS.n|
|00005d30| 74 6f 74 61 6c 64 61 74 | 61 66 6c 64 73 0d 0a 09 |totaldat|aflds...|
|00005d40| 09 09 0d 0a 09 09 09 49 | 46 20 54 48 49 53 2e 6c |.......I|F THIS.l|
|00005d50| 55 73 65 41 75 74 6f 46 | 6f 72 6d 61 74 0d 0a 09 |UseAutoF|ormat...|
|00005d60| 09 09 45 4c 53 45 0d 0a | 09 09 09 09 6d 2e 69 53 |..ELSE..|....m.iS|
|00005d70| 65 72 69 65 73 43 6f 75 | 6e 74 20 3d 20 54 48 49 |eriesCou|nt = THI|
|00005d80| 53 2e 6f 47 72 61 70 68 | 52 65 66 2e 53 65 72 69 |S.oGraph|Ref.Seri|
|00005d90| 65 73 43 6f 6c 6c 65 63 | 74 69 6f 6e 2e 43 6f 75 |esCollec|tion.Cou|
|00005da0| 6e 74 0d 0a 09 09 09 09 | 2a 2d 20 72 65 6d 6f 76 |nt......|*- remov|
|00005db0| 65 20 75 6e 6e 65 65 64 | 65 64 20 73 65 72 69 65 |e unneed|ed serie|
|00005dc0| 73 0d 0a 09 09 09 09 49 | 46 20 6d 2e 69 53 65 72 |s......I|F m.iSer|
|00005dd0| 69 65 73 43 6f 75 6e 74 | 20 3e 20 54 48 49 53 2e |iesCount| > THIS.|
|00005de0| 6e 64 61 74 61 73 65 72 | 69 65 73 0d 0a 09 09 09 |ndataser|ies.....|
|00005df0| 09 09 46 4f 52 20 69 20 | 3d 20 30 20 54 4f 20 6d |..FOR i |= 0 TO m|
|00005e00| 2e 69 53 65 72 69 65 73 | 43 6f 75 6e 74 20 2d 20 |.iSeries|Count - |
|00005e10| 54 48 49 53 2e 6e 64 61 | 74 61 73 65 72 69 65 73 |THIS.nda|taseries|
|00005e20| 20 2d 20 31 0d 0a 09 09 | 09 09 09 09 49 46 20 54 | - 1....|....IF T|
|00005e30| 59 50 45 28 22 54 48 49 | 53 2e 6f 47 72 61 70 68 |YPE("THI|S.oGraph|
|00005e40| 52 65 66 2e 53 65 72 69 | 65 73 43 6f 6c 6c 65 63 |Ref.Seri|esCollec|
|00005e50| 74 69 6f 6e 28 6d 2e 69 | 53 65 72 69 65 73 43 6f |tion(m.i|SeriesCo|
|00005e60| 75 6e 74 20 2d 20 69 29 | 22 29 20 3d 3d 20 27 4f |unt - i)|") == 'O|
|00005e70| 27 0d 0a 09 09 09 09 09 | 09 09 54 48 49 53 2e 6f |'.......|..THIS.o|
|00005e80| 47 72 61 70 68 52 65 66 | 2e 53 65 72 69 65 73 43 |GraphRef|.SeriesC|
|00005e90| 6f 6c 6c 65 63 74 69 6f | 6e 28 6d 2e 69 53 65 72 |ollectio|n(m.iSer|
|00005ea0| 69 65 73 43 6f 75 6e 74 | 20 2d 20 69 29 2e 44 65 |iesCount| - i).De|
|00005eb0| 6c 65 74 65 0d 0a 09 09 | 09 09 09 09 45 4e 44 49 |lete....|....ENDI|
|00005ec0| 46 0d 0a 09 09 09 09 09 | 4e 45 58 54 0d 0a 09 09 |F.......|NEXT....|
|00005ed0| 09 09 45 4e 44 49 46 0d | 0a 09 09 09 45 4e 44 49 |..ENDIF.|....ENDI|
|00005ee0| 46 0d 0a 09 09 45 4e 44 | 49 46 0d 0a 09 45 4e 44 |F....END|IF...END|
|00005ef0| 49 46 0d 0a 09 2a 2d 20 | 72 65 6d 6f 76 65 20 64 |IF...*- |remove d|
|00005f00| 61 74 61 6c 61 62 65 6c | 73 20 74 68 61 74 20 6d |atalabel|s that m|
|00005f10| 61 79 20 62 65 20 6c 65 | 66 74 20 66 72 6f 6d 20 |ay be le|ft from |
|00005f20| 61 20 70 72 65 76 69 6f | 75 73 20 67 72 61 70 68 |a previo|us graph|
|00005f30| 0d 0a 09 6d 2e 69 53 65 | 72 69 65 73 43 6f 75 6e |...m.iSe|riesCoun|
|00005f40| 74 20 3d 20 54 48 49 53 | 2e 6f 47 72 61 70 68 52 |t = THIS|.oGraphR|
|00005f50| 65 66 2e 53 65 72 69 65 | 73 43 6f 6c 6c 65 63 74 |ef.Serie|sCollect|
|00005f60| 69 6f 6e 2e 43 6f 75 6e | 74 0d 0a 09 46 4f 52 20 |ion.Coun|t...FOR |
|00005f70| 69 20 3d 20 31 20 54 4f | 20 6d 2e 69 53 65 72 69 |i = 1 TO| m.iSeri|
|00005f80| 65 73 43 6f 75 6e 74 0d | 0a 09 09 49 46 20 54 59 |esCount.|...IF TY|
|00005f90| 50 45 28 22 54 48 49 53 | 2e 6f 47 72 61 70 68 52 |PE("THIS|.oGraphR|
|00005fa0| 65 66 2e 53 65 72 69 65 | 73 43 6f 6c 6c 65 63 74 |ef.Serie|sCollect|
|00005fb0| 69 6f 6e 28 69 29 2e 48 | 61 73 44 61 74 61 4c 61 |ion(i).H|asDataLa|
|00005fc0| 62 65 6c 73 22 29 20 3d | 3d 20 27 4c 27 0d 0a 09 |bels") =|= 'L'...|
|00005fd0| 09 09 54 48 49 53 2e 6f | 47 72 61 70 68 52 65 66 |..THIS.o|GraphRef|
|00005fe0| 2e 53 65 72 69 65 73 43 | 6f 6c 6c 65 63 74 69 6f |.SeriesC|ollectio|
|00005ff0| 6e 28 69 29 2e 48 61 73 | 44 61 74 61 4c 61 62 65 |n(i).Has|DataLabe|
|00006000| 6c 73 20 3d 20 2e 46 2e | 0d 0a 09 09 45 4e 44 49 |ls = .F.|....ENDI|
|00006010| 46 0d 0a 09 4e 45 58 54 | 0d 0a 0d 0a 09 2a 2d 20 |F...NEXT|.....*- |
|00006020| 53 65 74 20 43 68 61 72 | 74 20 74 79 70 65 0d 0a |Set Char|t type..|
|00006030| 09 49 46 20 21 54 48 49 | 53 2e 6c 48 61 64 50 72 |.IF !THI|S.lHadPr|
|00006040| 65 76 69 65 77 20 20 26 | 26 20 69 66 20 75 73 65 |eview  &|& if use|
|00006050| 72 20 70 72 65 76 69 65 | 77 65 64 2c 20 74 68 65 |r previe|wed, the|
|00006060| 79 20 6d 61 79 20 68 61 | 76 65 20 65 6e 74 65 72 |y may ha|ve enter|
|00006070| 65 64 20 4d 53 20 47 72 | 61 70 68 20 61 6e 64 20 |ed MS Gr|aph and |
|00006080| 6d 61 6e 75 61 6c 6c 79 | 20 63 68 61 6e 67 65 64 |manually| changed|
|00006090| 20 63 68 61 72 74 20 74 | 79 70 65 0d 0a 09 09 44 | chart t|ype....D|
|000060a0| 4f 20 43 41 53 45 0d 0a | 09 09 09 43 41 53 45 20 |O CASE..|...CASE |
|000060b0| 54 48 49 53 2e 6c 55 73 | 65 41 75 74 6f 46 6f 72 |THIS.lUs|eAutoFor|
|000060c0| 6d 61 74 0d 0a 09 09 09 | 09 54 48 49 53 2e 6f 47 |mat.....|.THIS.oG|
|000060d0| 72 61 70 68 52 65 66 2e | 61 75 74 6f 66 6f 72 6d |raphRef.|autoform|
|000060e0| 61 74 28 54 48 49 53 2e | 6e 43 68 61 72 74 41 75 |at(THIS.|nChartAu|
|000060f0| 74 6f 47 61 6c 6c 65 72 | 79 2c 54 48 49 53 2e 6e |toGaller|y,THIS.n|
|00006100| 43 68 61 72 74 41 75 74 | 6f 46 6f 72 6d 61 74 29 |ChartAut|oFormat)|
|00006110| 0d 0a 09 09 09 43 41 53 | 45 20 54 48 49 53 2e 6c |.....CAS|E THIS.l|
|00006120| 55 73 65 38 54 79 70 65 | 0d 0a 09 09 09 09 54 48 |Use8Type|......TH|
|00006130| 49 53 2e 6f 47 72 61 70 | 68 52 65 66 2e 63 68 61 |IS.oGrap|hRef.cha|
|00006140| 72 74 74 79 70 65 20 3d | 20 54 48 49 53 2e 6e 43 |rttype =| THIS.nC|
|00006150| 68 61 72 74 54 79 70 65 | 0d 0a 09 09 09 4f 54 48 |hartType|.....OTH|
|00006160| 45 52 57 49 53 45 0d 0a | 09 09 09 09 54 48 49 53 |ERWISE..|....THIS|
|00006170| 2e 6f 47 72 61 70 68 52 | 65 66 2e 74 79 70 65 20 |.oGraphR|ef.type |
|00006180| 3d 20 54 48 49 53 2e 6e | 43 68 61 72 74 54 79 70 |= THIS.n|ChartTyp|
|00006190| 65 0d 0a 09 09 09 09 54 | 48 49 53 2e 6f 47 72 61 |e......T|HIS.oGra|
|000061a0| 70 68 52 65 66 2e 73 75 | 62 74 79 70 65 20 3d 20 |phRef.su|btype = |
|000061b0| 54 48 49 53 2e 6e 43 68 | 61 72 74 53 75 62 54 79 |THIS.nCh|artSubTy|
|000061c0| 70 65 0d 0a 09 09 45 4e | 44 43 41 53 45 0d 0a 09 |pe....EN|DCASE...|
|000061d0| 45 4e 44 49 46 0d 0a 0d | 0a 09 2a 2d 20 41 64 64 |ENDIF...|..*- Add|
|000061e0| 20 6c 65 67 65 6e 64 0d | 0a 09 54 48 49 53 2e 6f | legend.|..THIS.o|
|000061f0| 47 72 61 70 68 52 65 66 | 2e 48 61 73 4c 65 67 65 |GraphRef|.HasLege|
|00006200| 6e 64 20 3d 20 54 48 49 | 53 2e 6c 41 64 64 4c 65 |nd = THI|S.lAddLe|
|00006210| 67 65 6e 64 0d 0a 09 49 | 46 20 54 48 49 53 2e 6c |gend...I|F THIS.l|
|00006220| 41 64 64 4c 65 67 65 6e | 64 0d 0a 09 09 57 49 54 |AddLegen|d....WIT|
|00006230| 48 20 54 48 49 53 2e 6f | 47 72 61 70 68 52 65 66 |H THIS.o|GraphRef|
|00006240| 2e 4c 65 67 65 6e 64 0d | 0a 09 09 09 49 46 20 54 |.Legend.|....IF T|
|00006250| 48 49 53 2e 6c 55 73 65 | 38 54 79 70 65 0d 0a 09 |HIS.lUse|8Type...|
|00006260| 09 09 09 6d 2e 69 4c 65 | 67 65 6e 64 43 6f 75 6e |...m.iLe|gendCoun|
|00006270| 74 20 3d 20 2e 4c 65 67 | 65 6e 64 45 6e 74 72 69 |t = .Leg|endEntri|
|00006280| 65 73 2e 43 6f 75 6e 74 | 0d 0a 09 09 09 09 49 46 |es.Count|......IF|
|00006290| 20 21 54 48 49 53 2e 6c | 44 6f 6e 74 53 74 72 69 | !THIS.l|DontStri|
|000062a0| 70 4c 65 67 65 6e 64 0d | 0a 09 09 09 09 09 49 46 |pLegend.|......IF|
|000062b0| 20 6d 2e 69 4c 65 67 65 | 6e 64 43 6f 75 6e 74 20 | m.iLege|ndCount |
|000062c0| 3e 20 54 48 49 53 2e 6e | 64 61 74 61 73 65 72 69 |> THIS.n|dataseri|
|000062d0| 65 73 0d 0a 09 09 09 09 | 09 09 46 4f 52 20 69 20 |es......|..FOR i |
|000062e0| 3d 20 30 20 54 4f 20 6d | 2e 69 4c 65 67 65 6e 64 |= 0 TO m|.iLegend|
|000062f0| 43 6f 75 6e 74 20 2d 20 | 54 48 49 53 2e 6e 64 61 |Count - |THIS.nda|
|00006300| 74 61 73 65 72 69 65 73 | 20 2d 20 31 0d 0a 09 09 |taseries| - 1....|
|00006310| 09 09 09 09 09 49 46 20 | 54 59 50 45 28 22 2e 4c |.....IF |TYPE(".L|
|00006320| 65 67 65 6e 64 45 6e 74 | 72 69 65 73 28 6d 2e 69 |egendEnt|ries(m.i|
|00006330| 4c 65 67 65 6e 64 43 6f | 75 6e 74 20 2d 20 69 29 |LegendCo|unt - i)|
|00006340| 22 29 20 3d 3d 20 27 4f | 27 0d 0a 09 09 09 09 09 |") == 'O|'.......|
|00006350| 09 09 09 2e 4c 65 67 65 | 6e 64 45 6e 74 72 69 65 |....Lege|ndEntrie|
|00006360| 73 28 6d 2e 69 4c 65 67 | 65 6e 64 43 6f 75 6e 74 |s(m.iLeg|endCount|
|00006370| 20 2d 20 69 29 2e 44 65 | 6c 65 74 65 0d 0a 09 09 | - i).De|lete....|
|00006380| 09 09 09 09 09 45 4e 44 | 49 46 0d 0a 09 09 09 09 |.....END|IF......|
|00006390| 09 09 4e 45 58 54 0d 0a | 09 09 09 09 09 45 4e 44 |..NEXT..|.....END|
|000063a0| 49 46 0d 0a 09 09 09 09 | 45 4e 44 49 46 0d 0a 09 |IF......|ENDIF...|
|000063b0| 09 09 45 4e 44 49 46 0d | 0a 09 09 45 4e 44 57 49 |..ENDIF.|...ENDWI|
|000063c0| 54 48 0d 0a 09 45 4e 44 | 49 46 0d 0a 0d 0a 09 57 |TH...END|IF.....W|
|000063d0| 41 49 54 20 43 4c 45 41 | 52 0d 0a 09 52 45 54 55 |AIT CLEA|R...RETU|
|000063e0| 52 4e 20 21 54 48 49 53 | 2e 48 61 64 65 72 72 6f |RN !THIS|.Haderro|
|000063f0| 72 0d 0a 0d 0a 45 4e 44 | 49 46 09 09 26 26 20 6e |r....END|IF..&& n|
+--------+-------------------------+-------------------------+--------+--------+