>LcSQL = [select distinct(a.tiffile), b.proj_no, b.workpkg_no, c.tofrm, c.sequence,; >c.docdesc, c.org1, c.author1,c.reciporg1,c.recip1, c.ref1, c.docindex_i ]; >+[from ocrdata a, docudeck b, docindex c ; >WHERE UPPER(b.file_name) = UPPER(a.tiffile) ; >and b.docindex_i = c.docindex_i ; >and Upper(a.OCDATA) like "%] + Upper(alltrim(stxtocrstring)) + [%"] + swhere +; >[ order by a.id into Cursor lcSource] >****************** > > >WAIT WINDOW "OCR Search in Progress" >&LcSQL > >with thisform.pageframe1.page3.grid1 > .RecordSource = "" > .RecordSourceType = 1 &&1 - Alias &&4 - SQL > .RecordSource = "lcSource" >endwith >WAIT CLEAR >
SET NOTIFY ON SET TALK ON DEFINE WINDOW dummy FROM 0,0 SIZE 1,1 SET TALK WINDOW dummyand this after SELECT
RELEASE WINDOW dummy SET NOTIFY OFF SET TALK OFFHTH