home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 3 / Developers_Source_Vol_03_1996.iso / parad / mar95 / mcin105.gif < prev    next >
Graphics Interchange Format  |  1995-11-15  |  11.4 KB  |  497x384  |  4-bit (5 colors)
   ocr: HCURESSSLHschpt-ron method run(var eventinfo Event) var tc TCursor numrecs Number tempArray Array[2] Anyiype enduar temparrayl1] = 1900 cemparraylz] = - 8000 C.open(CURDERS.DE", "Total Invoice") CC.Setkange(temparray) numrecs = tc.nRecords0) nsginfo(" "There are : :E String(numrecs) + : invoices between An" + Stringenparrayt1):" : + String(tempArrayl2])) endmethod Edit Line: 17 Col: 5