*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 And Tslc003.PROEMB <> 0 "
TSEXEC("T",nSelect,"TMP_IMPRESS")

SELECT SEQCOM01 FROM TMP_IMPRESS GROUP BY SEQCOM01 INTO CURSOR TMP_MESAS

INKEY(2)

SELECT TMP_MESAS
GO TOP IN TMP_MESAS
DO WHILE ! EOF("TMP_MESAS")

   cCo1 = TMP_MESAS.SEQCOM01

   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 And "
   nSelect = nSelect + "Tslc003.PROEMB = 1 And Tscom02.SEQCOM01 = ?cCo1 "
   TSEXEC("T",nSelect,"TMP_COZINHA")

   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 And "
   nSelect = nSelect + "Tslc003.PROEMB = 2 And Tscom02.SEQCOM01 = ?cCo1 "
   TSEXEC("T",nSelect,"TMP_BAR")

   *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
*   SELECT * FROM TMP_IMPRESS WHERE PROEMB = 2 INTO CURSOR TMP_BAR2 && BEBIDAS TESTE

cEntrar = 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 cEntrar = 0
      cEntrar = 1
      *??? "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")
      LOOP
   ENDIF
   ??? "MESA..: " + PADL(ALLTRIM(STR(cCo1)),5,'0') + 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(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


cEntrar = 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 cEntrar = 0
      cEntrar = 1
      *??? "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")
      LOOP
   ENDIF
   ??? "MESA..: " + PADL(ALLTRIM(STR(cCo1)),5,'0') + 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(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


skip in TMP_MESAS
LOOP

ENDDO

