??? "Cliente: " + ALLTRIM(cNomClie) + chr(13) + chr(10)
??? "Atendente: " + ALLTRIM(cNomVene) + chr(13) + chr(10)
??? "Comprador: " + ALLTRIM(cCompe) + chr(13) + chr(10)
??? ALLTRIM(cObse) + chr(13) + chr(10)
??? ALLTRIM(cObs2e) + chr(13) + chr(10)
??? REPLICATE("*",40) + chr(13) + chr(10)
??? chr(27)+chr(119)

SET PRINTER TO

SELECT * FROM TSCOMP4 WHERE PRAZO = 1 INTO CURSOR TMP_VER
SELECT TMP_VER
IF RECCOUNT() > 0
   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(119)
   set printer to

ENDIF

