Thanks GriffMG, I added that and this too:
DO WHILE ATC(" .t.",lcConsulta)>0
lcConsulta=STUFFC( lcConsulta,ATC(" .t.",lcConsulta),4,',1.0')
ENDDO
DO WHILE ATC(" .f.",lcConsulta)>0
lcConsulta=STUFFC( lcConsulta,ATC(" .f.",lcConsulta),4,'(0.0')
ENDDO
Because it has some queries like:
SELECT *...