> lcAliasTmp=LOWER(SYS(2015)) > IF .cTipoLigacao='ADO' > *// Procura Dados > .oDocFac.NovoCab(.oRS99) > .oDocFac.lst_VendasGerais(.oRS99,'1', ldDataI,ldDataF, lcCliI, lcCliF, lcArmI,lcArmF,TDoc,'ADO') > .RS2DBF(.oRS99,lcAliasTmp) > ENDIF > IF .cTipoLigacao='SQLEXEC' > .oDocFac.lst_VendasGerais(.oRS99,'1', ldDataI,ldDataF, lcCliI, lcCliF, lcArmI,lcArmF,TDoc,'SQLEXEC') > =SQLEXEC(.cSQLEXECCon,.oDocFac.cSQLQuery,lcAliasTmp) > > ENDIF > > lcAliasMapa=LOWER(SYS(2015)) > SELECT * FROM (m.lcAliasTmp) INTO TABLE '.\tmp\'+m.lcAliasMapa READWRITE > > ALTER TABLE &lcAliasMapa ADD COLUMN DataI d(8) > ALTER TABLE &lcAliasMapa ADD COLUMN DataF d(8) > ALTER TABLE &lcAliasMapa ADD COLUMN CliI c(5) > ALTER TABLE &lcAliasMapa ADD COLUMN CliF c(5)>João Batista
lnConn = SqlConnect("MyOdbcConnection", "User", "Password") ? SqlExec(lnConn, "Select * From myTableSql", "myCursor") Select * From myCursor Into Table C:\temp\myTable ALTER TABLE myTable ADD COLUMN DataI d(8) * Or Select *, {} DataI From myCursor Into Table C:\temp\myTable ? SqlDisconnect(lnConn)I hope this help you.