>USE tablesql EXCLUSIVE >ZAP>
>> >>USE tablesql IN 0 EXCLUSIVE >>SELECT tablesql >>DELETE ALL >>PACK >>PACK memo >> >>lcexppath = 'c:\users\public\sql\' >> >>lcpath=ADDBS(THIS.oparentbizobj.getfield("cpath_to_vfp"))+"convert" >>SET DEFAULT TO (lcpath) >> >>lcsql = "SELECT " >> >>lcdbc="inmatetrustfund.dbc" >> >>* ITERATE TABLES >> >>OPEN DATABASE (lcdbc) EXCLUSIVE >> >>ntables= ADBOBJECTS(latables,"TABLE") >> >>FOR i=1 TO ALEN(latables,1) >> >> lcdbf=latables(i) >> lcalias=JUSTSTEM(lcdbf) >> >> SELECT tablesql >> APPEND BLANK >> REPLACE tablename WITH lcalias >> >> WAIT WINDOW lcalias NOWAIT >> >> IF UPPER(lcalias) <> "SYSSETUP" >> USE (lcdbf) IN 0 EXCLU >> >> SELECT (lcalias) >> >> =AFIELDS(laflds) >> lnflds = ALEN(laflds,1) >> mcnt = 1 >> >>* SCAN FIELDS >> >> FOR N=1 TO lnflds >> >> lcfld=ALLTRIM(laflds(N,1)) >> lctype=laflds(N,2) >> lnsize=laflds(N,3) >> llnct=laflds(N,6) >> >> WAIT WINDOW lcalias + SPACE(10)+lcfld NOWAIT >> >> SELECT (lcalias) >> >> DO CASE >> >> CASE INLIST(lctype,"D","T") >> >> lcsql = lcsql + " NVL(TTOC("+lcfld+",3),[1800-01-01])" + IIF(N < lnflds,',','')+lf >> >> CASE (lctype="C" ) >> >> lcsql = lcsql + " "+lcfld+ IIF(N < lnflds,',','')+ lf >> >> CASE INLIST(lctype,'I','N','Y') >> >> lcsql = lcsql + " "+lcfld+IIF(N < lnflds,',','')+lf >> >> CASE (lctype = "L") >> >> lcsql = lcsql + " IIF("+lcfld+"=.t.,1,0) "+IIF(N < lnflds,',','')+lf >> >> CASE (lctype = "M") >> >> lcsql = lcsql + " IIF(LEN(ALLTRIM("+lcfld+")) < 220, STRTRAN("+lcfld+",CHR(13)+CHR(10),'@@'),'MCOL+"+ALLTRIM(STR(mcnt))+"') "+ IIF(N < lnflds,',','')+lf >> >> mcnt = mcnt+1 >> >> ENDCASE >> >> ENDFOR && field scan >> >> lcsql = lcsql + " FROM "+ lcalias + " INTO CURSOR C_"+lcalias >> >> &lcsql >> >> lcname = "C_"+lcalias >> >> SELECT (lcname) >> >> lcexpstr = [ COPY TO ']+lcexppath+lcname+[' DELIMITED WITH "" WITH CHARACTER '|' ] >> >> &lcexpstr >> >> SELECT tablesql >> LOCATE FOR ALLTRIM(tablename) = lcalias >> REPLACE mSQL WITH lcsql >> >> lcsql = "SELECT " +lf >> >> ENDIF >> >>ENDFOR && tablescan >> >>CLOSE DATABASE && inmatetrustfund >> >>********************************************************************************************************************** >> >>SET DEFAULT TO (lcdefa) >> >>RETURN >> >>