cCodCom02Imp = TMP_IMPTOUCH.SEQCOM02

nSelect = "SELECT Tscom02.*,Tslc003.PROEMB,Tslc003.DESCPRO FROM Tscom02 INNER JOIN Tslc003 ON Tscom02.SEQ003 = Tslc003.CODIGO "
nSelect = nSelect + "WHERE Tscom02.SEQCOM02 = ?cCodCom02Imp And Tslc003.PROEMB = 1 "
TSEXEC("T",nSelect,"TMP_IMPTH")

SELECT TMP_IMPTH
IF RECCOUNT() > 0
   
   SELECT TMP_IMPTH
   GO TOP IN TMP_IMPTH
   DO WHILE ! EOF("TMP_IMPTH")

      SET PRINTER TO NAME 'COZINHA'
      
      ??? chr(29) + chr(33) + chr(1) && altura da fonte
      ??? chr(29) + chr(33) + chr(16)

      ??? dtoc(TMP_IMPTH.DATA) + SPACE(7) + TMP_IMPTH.HORA + CHR(13) + CHR(10)
      ??? "COMANDA: " + ALLTRIM(STR(TMP_IMPTH.SEQCOM01,10)) + CHR(13) + CHR(10)
      ??? CHR(13) + CHR(10)
      ??? SPACE(5) + "PEDIDO INTERNO" + CHR(13) + CHR(10)
      ??? CHR(13) + CHR(10)
      ??? "    QUANT PRODUTO" + CHR(13) + CHR(10)
      ??? chr(29) + chr(33) + chr(0) && altura da fonte
      ??? REPLICATE("-",48) + CHR(13) + CHR(10)
      ??? chr(29) + chr(33) + chr(1) && altura da fonte
      ??? chr(29) + chr(33) + chr(16)
      ??? TRANSFORM(TMP_IMPTH.QUANT,"999999.99") + " " + ALLTRIM(TMP_IMPTH.DESCPRO) + CHR(13) + CHR(10)
      IF ! EMPTY(ALLTRIM(TMP_IMPTH.obs))
         ??? ALLTRIM(TMP_IMPTH.OBS) + CHR(13) + CHR(10)
      ENDIF
      ??? chr(13) + chr(10)
      ??? chr(13) + chr(10)
      ??? chr(13) + chr(10)
      ??? chr(13) + chr(10)
      ??? chr(27) + chr(109)
      ??? chr(27) + chr(40) + chr(65) + chr(5) + + chr(0) + chr(97) + chr(100) + chr(3) + chr(5) + chr(50)

      SET PRINTER TO NAME 'COZINHA'

      SKIP IN TMP_IMPTH
      LOOP

   ENDDO

ENDIF