*WAIT WINDOW cCodMicroTer

nSelect = "SELECT Tscom02.*,Tslc003.CODBAR,Tslc003.DESCPRO,Tslc003.PRECO1,Tslc003.Proemb,Tslc004.nome FROM Tscom02 INNER JOIN Tslc003 ON Tscom02.seq003 = Tslc003.codigo "
nSelect = nSelect + "LEFT JOIN Tslc004 ON Tscom02.SEQ004 = Tslc004.CODIGO "
nSelect = nSelect + "WHERE Tscom02.IMPRESSO = 0 and Tscom02.EXCLUI <> 'S' AND Tscom02.BAIXA <> 'S' and Tscom02.Dmovel = 1 "
TSEXEC("T",nSelect,"TMP_IMPRESS")


   SELECT * FROM TMP_IMPRESS WHERE PROEMB = 1 INTO CURSOR TMP_COZINHA ORDER BY SEQCOM01 && USANDO
   SELECT * FROM TMP_IMPRESS WHERE PROEMB = 2 INTO CURSOR TMP_BAR ORDER BY SEQCOM01 && USANDO
   SELECT * FROM TMP_IMPRESS WHERE PROEMB = 3 INTO CURSOR TMP_RESUMO


cCo1 = 0
SELECT TMP_BAR
GO TOP IN TMP_BAR
DO WHILE ! EOF("TMP_BAR")
   
   SET PRINTER TO NAME 'BAR'
   
   ??? chr(29) + chr(33) + chr(1) && altura da fonte
   ??? chr(29) + chr(33) + chr(16)

   *??? CHR(15)   
   if cCo1 <> TMP_BAR.SEQCOM01
      cCo1 = TMP_BAR.SEQCOM01
      ??? "MESA..: " + PADL(ALLTRIM(STR(TMP_BAR.SEQCOM01)),5,'0') + chr(13) + chr(10)
      ??? "DATA..: " + DTOC(date()) + chr(13) + chr(10)
      ??? "HORA..: " + time() + CHR(13) + CHR(10)
      if ! isnull(TMP_BAR.NOME)
         ??? "Garcon: " + substr(alltrim(TMP_BAR.NOME),1,16) + CHR(13) + CHR(10)
      ENDIF
      ??? REPLICATE("-",24) + CHR(13)+ CHR(10)
      ??? "Produto            Quant"  + CHR(10) + CHR(13)
      ??? REPLICATE("-",24) + CHR(13)+ CHR(10)
   ENDIF

        
      ??? SUBSTR(TMP_BAR.DESCPRO,1,18) + TRANSFORM(TMP_BAR.QUANT,"999.99") + CHR(13) + CHR(10)
      cSeqCom02 = TMP_BAR.SEQCOM02

      IF(! EMPTY(ALLTRIM(TMP_BAR.OBS)))
         ??? "OBS:" + TMP_BAR.OBS + CHR(13) + CHR(10)
      ENDIF 

      TSEXEC("T","Update Tscom02 Set Impresso = 1,Func = Seq004 Where Seqcom02 = ?cSeqcom02 ","TMP_UPD")

   SELECT TMP_BAR
   skip in TMP_BAR
   IF ! EOF("tmp_bar") .And. cCo1 = TMP_BAR.SEQCOM01
      LOOP
   ENDIF
   ??? chr(29) + chr(33) + chr(0) && altura da fonte
   ??? CHR(13) + CHR(10)
   ??? CHR(13)+ CHR(10)
   ??? 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 'BAR'

   
   LOOP

ENDDO


cCo1 = 0
SELECT TMP_COZINHA
GO TOP IN TMP_COZINHA
DO WHILE ! EOF("TMP_COZINHA")
   
   SET PRINTER TO NAME 'COZINHA'
   
   ??? chr(29) + chr(33) + chr(1) && altura da fonte
   ??? chr(29) + chr(33) + chr(16)

   *??? CHR(15)   
   if cCo1 <> TMP_COZINHA.SEQCOM01
      cCo1 = TMP_COZINHA.SEQCOM01
      ??? "MESA..: " + PADL(ALLTRIM(STR(TMP_COZINHA.SEQCOM01)),5,'0') + chr(13) + chr(10)
      ??? "DATA..: " + DTOC(date()) + chr(13) + chr(10)
      ??? "HORA..: " + time() + CHR(13) + CHR(10)
      if ! isnull(TMP_COZINHA.NOME)
         ??? "Garcon: " + substr(alltrim(TMP_COZINHA.NOME),1,16) + CHR(13) + CHR(10)
      ENDIF
      ??? REPLICATE("-",24) + CHR(13)+ CHR(10)
      ??? "Produto            Quant"  + CHR(10) + CHR(13)
      ??? REPLICATE("-",24) + CHR(13)+ CHR(10)
   ENDIF

        
      ??? SUBSTR(TMP_COZINHA.DESCPRO,1,18) + TRANSFORM(TMP_COZINHA.QUANT,"999.99") + CHR(13) + CHR(10)
      cSeqCom02 = TMP_COZINHA.SEQCOM02

      IF(! EMPTY(ALLTRIM(TMP_COZINHA.OBS)))
         ??? "OBS:" + TMP_COZINHA.OBS + CHR(13) + CHR(10)
      ENDIF 

      TSEXEC("T","Update Tscom02 Set Impresso = 1,Func = Seq004 Where Seqcom02 = ?cSeqcom02 ","TMP_UPD")

   SELECT TMP_COZINHA
   skip in TMP_COZINHA
   IF ! EOF("tmp_COZINHA") .And. cCo1 = TMP_COZINHA.SEQCOM01
      LOOP
   ENDIF
   ??? chr(29) + chr(33) + chr(0) && altura da fonte
   ??? CHR(13) + CHR(10)
   ??? CHR(13)+ CHR(10)
   ??? 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'

   
   LOOP

ENDDO

