
TSEXEC("T","SELECT CODIGO,CODTIPO FROM TSLC003 ","TSLC003")

SELECT TSCOMP2
SELECT TSCOMP2.*,TSLC003.CODTIPO FROM TSCOMP2 INNER JOIN TSLC003 ON TSCOMP2.CODPROD = TSLC003.CODIGO WHERE TSCOMP2.EXCLUI <> 'S' .And. TSLC003.CODTIPO = 1 INTO CURSOR TMP_IMPRIMIR ORDER BY SEQIMP
cEntroui = 0
SELECT TMP_IMPRIMIR
GO TOP IN TMP_IMPRIMIR
DO WHILE ! EOF("TMP_IMPRIMIR")
   
*   for x = 1 TO TSCOMP2.QTD
      
      IF cEntroui = 0
         cEntroui = 1

         SET PRINTER TO NAME 'TSTISAT'

         ??? chr(29) + chr(33) + chr(1) && altura da fonte
         ??? chr(29) + chr(33) + chr(16)
         ??? SPACE(3) + "CONTROLE INTERNO" + CHR(13) + CHR(10)
         ??? "COMANDA: " + SUBSTR(STR(cIns[13],10),8,3) + CHR(13) + CHR(10)
         ??? chr(29) + chr(33) + chr(0) && altura da fonte
         ??? CHR(13) + CHR(10)
         ??? DTOC(DATE()) + SPACE(30) + TIME() + CHR(13) + CHR(10)
         ??? "   QUANT  DESCRICAO" + CHR(13) + CHR(10)
      ENDIF
      ??? chr(29) + chr(33) + chr(1) && altura da fonte
      ??? chr(29) + chr(33) + chr(16)
*      ??? CHR(13) + CHR(10)
*      ??? CHR(13) + CHR(10)
      ??? transform(TMP_IMPRIMIR.QTD,"9999") + " " + ALLTRIM(TMP_IMPRIMIR.DESCRICAO) + CHR(13) + CHR(10)
      IF ! EMPTY(ALLTRIM(TMP_IMPRIMIR.OBSADIC))
         ??? ALLTRIM(TMP_IMPRIMIR.OBSADIC) + CHR(13) + CHR(10)
      ENDIF
*      ??? CHR(13) + CHR(10)
*      ??? CHR(13) + CHR(10)
      ??? chr(29) + chr(33) + chr(0) && altura da fonte




      
*    NEXT

   SKIP IN TMP_IMPRIMIR

   IF EOF("TMP_IMPRIMIR")
      
      ??? CHR(13) + CHR(10)
      ??? SPACE(15) + "Sorveteria Hawai" + chr(13) + chr(10)
      ??? CHR(13) + CHR(10)
      ??? CHR(13) + CHR(10)
      ??? CHR(13) + CHR(10)
      ??? chr(27) + chr(109)

      ??? CHR(13) + CHR(10)
      ??? SPACE(15) + "SORVETERIA HAWAI" + CHR(13) + CHR(10)
      ??? chr(13) + chr(10)
      ??? chr(29) + chr(33) + chr(2) && altura da fonte
      ??? chr(29) + chr(33) + chr(48)
      ??? CHR(13) + CHR(10)
      ??? CHR(13) + CHR(10)
      ??? "Comanda: " + SUBSTR(STR(cIns[13],10),8,3) + CHR(13) + CHR(10)
      ??? CHR(13) + CHR(10)
      ??? CHR(13) + CHR(10)
      ??? chr(29) + chr(33) + chr(0) && altura da fonte
      ??? CHR(13) + CHR(10)
      ??? CHR(13) + CHR(10)
      ??? CHR(13) + CHR(10)
      ??? chr(27) + chr(109)

      SET PRINTER TO NAME 'TSTISAT'

   ENDIF
   LOOP

ENDDO