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