SELECT * FROM TSCOMP4 WHERE PRAZO = 1 INTO CURSOR TMP_VER
SELECT TMP_VER
IF RECCOUNT() > 0

   SET PRINTER TO name 'TSTISAT'
   select * from tscomp3 into cursor tmp_imprimir
   select tmp_imprimir
   go top in tmp_imprimir
   do while ! eof("tmp_imprimir")
   
      ??? alltrim(tmp_imprimir.impress) + chr(13) + chr(10)
   
      skip in tmp_imprimir
      loop

   enddo

   ??? chr(27)+chr(109)
   set printer to NAME 'TSTISAT'

ENDIF

