>B
>F (never used it)
>V
>W
>Q
>G (I hope not)
>
>>>>> >>>>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 >>>> >>>>