nSelect = "SELECT * FROM Tsl "
TSEXEC("T",nSelect,"TSL")

nSelect = "SELECT Tsd002.*,Tsd001.Seqdel01,Tsd001.Seq001,Tslc001.CLINOM,Tslc001.CLIEND,Tslc001.CLIBAI,Tslc001.CLICID,Tslc001.CLITel,Tsd001.NOMEENT,Tsd001.BAIENT,Tsd001.ENDENT, "
nSelect = nSelect + "Tsd001.TX_ENTREGA,Tsd001.TROCO,Tsd001.VIAGEM,Tsd001.CELENT,Tsd001.TELENT,Tslc003.CODIGO,Tslc003.DESCPRO,Tslc003.PROEMB,tsd002b.obs as Obs,Tsd001.DESCONTO,Tsd001.TOTAL AS TGERAL "
nSelect = nSelect + "FROM Tsd002 "
nSelect = nSelect + "LEFT JOIN Tslc001 ON Tsd001.SEQ001   = Tslc001.CLICOD "
nSelect = nSelect + "LEFT JOIN Tsd001  ON Tsd002.SEQdel01 = Tsd001.SEQdel01 "
nSelect = nSelect + "LEFT JOIN Tslc003 ON Tsd002.Seq003   = Tslc003.CODIGO "
nSelect = nSelect + "LEFT JOIN Tsd002b ON Tsd002.SEQdel02 = Tsd002b.SEQdel02 "
nSelect = nSelect + "WHERE ?cSeq01 = Tsd001.SEQdel01 And Tsd002.Exclui <> 'S'"
TSEXEC("T",nSelect,"TMP_IMPRIMIR")

cTabela2 = "TMP_IMPRIMIR"

cQEsp = 0

*cValor1 = LEN(ALLTRIM(cTpOrc))
*cVal1 = 28 - cValor1

SET DATE TO BRITISH

*??? CHR(18)

SET PRINTER TO NAME 'tstisat'

??? REPLICATE(" ",cQEsp) + REPLICATE("=",48) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + DTOC(&cTabela2..DATA) + REPLICATE(" ",30) + TIME() + CHR(10)+CHR(13)
??? chr(29) + chr(33) + chr(1) && altura da fonte
??? REPLICATE(" ",cQEsp) + space(int((48 - len(AllTrim(AllTrim(TSL.NOME)))) / 2))+AllTrim(AllTrim(TSL.NOME)) + CHR(10)+CHR(13)
??? chr(29) + chr(33) + chr(0) && altura da fonte
??? REPLICATE(" ",cQEsp) + space(int((48 - len(AllTrim(AllTrim(TSL.ENDERECO)))) / 2))+AllTrim(AllTrim(TSL.ENDERECO)) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((48 - len(AllTrim("Fone: " + AllTrim(TSL.FONE)))) / 2))+AllTrim("Fone: " + AllTrim(TSL.FONE)) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "DELIVERY: " + ALLTRIM(STR(&cTabela2..SEQDEL01,11)) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",48) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "DESCRICAO                     Qtde X Unit  Total" + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",48)+CHR(10)+CHR(13)


SELECT &cTabela2
GO TOP
DO WHILE ! EOF(cTabela2)


   ??? REPLICATE(" ",cQEsp) + SUBSTR(&cTabela2..DESCPRO,1,27) + " " + TRANSFORM(&cTabela2..QUANT,"999.99") + " " + TRANSFORM(&cTabela2..unit,"999.99") + " " + Transform(&cTabela2..QUANT*&cTabela2..UNIT,"999.99") + CHR(10)+CHR(13)

*   ??? REPLICATE(" ",cQEsp) +  + CHR(10)+CHR(13)

*   IF ! EMPTY(ALLTRIM(SUBSTR(&cTabela2..DESCPRO,27,40)))
*      ??? REPLICATE(" ",cQEsp) + SUBSTR(&cTabela2..DESCRICAO,27,40) + CHR(10)+CHR(13)
*   ENDIF

   IF ! EMPTY(ALLTRIM(&cTabela2..OBS)) .And. ! isnull(&cTabela2..OBS)
      ??? REPLICATE(" ",cQEsp) + SUBSTR(&cTabela2..OBS,1,26) + CHR(10)+CHR(13)
      IF ! EMPTY(ALLTRIM(SUBSTR(&cTabela2..OBS,27,40)))
         ??? REPLICATE(" ",cQEsp) + SUBSTR(&cTabela2..OBS,27,40) + CHR(10)+CHR(13)
      ENDIF
   ENDIF

   
   SKIP IN &cTabela2
   LOOP
   
ENDDO


??? REPLICATE(" ",cQEsp) + REPLICATE("-",48)+CHR(10)+CHR(13)
SELECT SUM(TMP_IMPRIMIR.QUANT*TMP_IMPRIMIR.UNIT) AS TOT_GERAL FROM TMP_IMPRIMIR INTO CURSOR TMP_TOT

??? REPLICATE(" ",cQEsp) + REPLICATE(" ",19) + "Total..........: " + TRANSFORM(TMP_TOT.TOT_GERAL,"9,999,999.99") + CHR(10)+CHR(13)

SELECT TMP_IMPRIMIR
GO TOP IN TMP_IMPRIMIR

IF TMP_IMPRIMIR.DESCONTO > 0 .Or. TMP_TOT.TOT_GERAL <> TMP_IMPRIMIR.TGERAL
   IF TMP_IMPRIMIR.DESCONTO > 0
      ??? REPLICATE(" ",cQEsp) + REPLICATE(" ",19) + "Desconto.......: " + TRANSFORM(TMP_IMPRIMIR.DESCONTO,"9,999,999.99") + CHR(10)+CHR(13)
   ELSE
      ??? REPLICATE(" ",cQEsp) + REPLICATE(" ",19) + "Desconto.......: " + TRANSFORM((TMP_TOT.TOT_GERAL - TMP_IMPRIMIR.TGERAL),"9,999,999.99") + CHR(10)+CHR(13)
   ENDIF
   ??? REPLICATE(" ",cQEsp) + REPLICATE(" ",19) + "Total..........: " + TRANSFORM(TMP_IMPRIMIR.TGERAL,"9,999,999.99") + CHR(10)+CHR(13)
ENDIF

*BROW
IF TMP_IMPRIMIR.TX_ENTREGA > 0
   ??? SPACE(19) + "Taxa Entrega...: " + TRANSFORM(TMP_IMPRIMIR.TX_ENTREGA,"9,999,999.99") + CHR(13) + CHR(10)
   ??? SPACE(19) + "Total Geral....: " + TRANSFORM((TMP_IMPRIMIR.TGERAL + TMP_IMPRIMIR.TX_ENTREGA),"9,999,999.99") + CHR(13) + CHR(10)
ENDIF

IF TMP_IMPRIMIR.TROCO > 0
   ??? CHR(13) + CHR(10)
   ??? SPACE(19) + "Dinheiro.......: " + TRANSFORM(TMP_IMPRIMIR.TROCO,"9,999,999.99") + CHR(13) + CHR(10)
   ??? SPACE(19) + "Troco..........: " + TRANSFORM((TMP_IMPRIMIR.TROCO) - (TMP_IMPRIMIR.TGERAL + TMP_IMPRIMIR.TX_ENTREGA),"9,999,999.99") + CHR(13) + CHR(10)
ENDIF

USE IN TMP_TOT

SELECT &cTabela2
GO TOP

??? REPLICATE(" ",cQEsp) + REPLICATE("-",48)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Endereco de Entrega" + CHR(10) + CHR(13)

??? REPLICATE(" ",cQEsp) + "Nome: " + SUBSTR(&cTabela2..NOMEENT,1,40)+CHR(10)+CHR(13)
IF &cTabela2..VIAGEM = 0
   ??? REPLICATE(" ",cQEsp) + "End.: " + ALLTRIM(&cTabela2..ENDENT) + chr(13) + chr(10)
   ??? REPLICATE(" ",cQEsp) + "Bai.: " + ALLTRIM(&cTabela2..BAIENT) +CHR(10)+CHR(13)
   ??? REPLICATE(" ",cQEsp) + "Tel.: " + ALLTRIM(&cTabela2..TELENT) +CHR(10)+CHR(13)
   ??? REPLICATE(" ",cQEsp) + "Cel.: " + ALLTRIM(&cTabela2..CELENT) +CHR(10)+CHR(13)
ELSE
   ??? REPLICATE(" ",cQEsp) + "Vem Buscar" +CHR(10)+CHR(13)
   ??? REPLICATE(" ",cQEsp) + "Tel.: " + ALLTRIM(&cTabela2..TELENT) +CHR(10)+CHR(13)
   ??? REPLICATE(" ",cQEsp) + "Cel.: " + ALLTRIM(&cTabela2..CELENT) +CHR(10)+CHR(13)
ENDIF
??? REPLICATE(" ",cQEsp) + REPLICATE("=",48)+CHR(13)+CHR(10)
??? "TSTI - Tecnologia da Informacao (15) 3262-4906" + 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(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 'tstisat'


**************************************** COMEA IMPRESSES ***************************************************************************
SELECT * FROM TMP_IMPRIMIR WHERE PROEMB = 1 INTO CURSOR TMP_COZINHA
SELECT * FROM TMP_IMPRIMIR WHERE PROEMB = 2 INTO CURSOR TMP_BAR
SELECT * FROM TMP_IMPRIMIR WHERE PROEMB = 3 INTO CURSOR TMP_CAIXA
SELECT * FROM TMP_IMPRIMIR WHERE PROEMB = 4 INTO CURSOR TMP_COZINHA2

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
      ??? "DELIVE: " + ALLTRIM(STR(TMP_BAR.SEQDEL01,10)) + 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)) .And. ! isnull(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")


   *??? "COMANDA: " + PADL(ALLTRIM(STR(cCo1)),5,'0') + chr(13) + chr(10)
   *??? "MESA...: " + PADL(ALLTRIM(STR(cCo1)),5,'0') + chr(13) + chr(10)
   ??? CHR(13) + CHR(10)
   ??? "*** ENTREGA DELIVERY ***" + 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'

   SELECT TMP_BAR
   skip in TMP_BAR
   IF ! EOF("tmp_bar")
      LOOP
   ENDIF

   
   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
      ??? "DELIVE: " + ALLTRIM(STR(TMP_COZINHA.SEQDEL01,10)) + 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)) .And. ! isnull(tmp_cozinha.OBS)
         ??? "OBS:" + TMP_COZINHA.OBS + CHR(13) + CHR(10)
      ENDIF 

      *IF TMP_COZINHA.SEQ003 = 218
      *   TSEXEC("T","Update Tscom02 Set Impresso = 1,Func = Seq004,EXCLUI = 'S' Where Seqcom02 = ?cSeqcom02 ","TMP_UPD")
      *ELSE
      *   TSEXEC("T","Update Tscom02 Set Impresso = 1,Func = Seq004 Where Seqcom02 = ?cSeqcom02 ","TMP_UPD")
      *ENDIF

   SELECT TMP_COZINHA
   skip in TMP_COZINHA
   IF ! EOF("tmp_COZINHA")
      LOOP
   ENDIF
   *??? "COMANDA: " + PADL(ALLTRIM(STR(cCo1)),5,'0') + chr(13) + chr(10)
   ??? CHR(13) + CHR(10)
   ??? "*** ENTREGA DELIVERY ***" + 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


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

   *??? CHR(15)   
   if cEntrar = 0
      cEntrar = 1
      ??? "MESA..: " + ALLTRIM(STR(TMP_CAIXA.SEQDEL01,10)) + chr(13) + chr(10)
      ??? "DATA..: " + DTOC(date()) + chr(13) + chr(10)
      ??? "HORA..: " + time() + CHR(13) + CHR(10)
      *if ! isnull(TMP_CAIXA.NOME)
      *   ??? "Garcon: " + substr(alltrim(TMP_CAIXA.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_CAIXA.DESCPRO,1,18) + TRANSFORM(TMP_CAIXA.QUANT,"999.99") + CHR(13) + CHR(10)
      *cSeqCom02 = TMP_CAIXA.SEQCOM02

      IF ! EMPTY(ALLTRIM(TMP_CAIXA.OBS)) .And. ! isnull(tmp_caixa.OBS)
         ??? "OBS:" + TMP_CAIXA.OBS + CHR(13) + CHR(10)
      ENDIF 

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

   SELECT TMP_CAIXA
   skip in TMP_CAIXA
   IF ! EOF("tmp_CAIXA")
      LOOP
   ENDIF
   *??? "COMANDA: " + PADL(ALLTRIM(STR(cCo1)),5,'0') + chr(13) + chr(10)
   ??? CHR(13) + CHR(10)
   ??? "*** ENTREGA DELIVERY ***" + 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 'TSTISAT'

   
   LOOP

ENDDO


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

   *??? CHR(15)   
   if cEntrar = 0
      cEntrar = 1
      ??? "DELIVE: " + ALLTRIM(STR(TMP_COZINHA2.SEQDEL01,10)) + chr(13) + chr(10)
      ??? "DATA..: " + DTOC(date()) + chr(13) + chr(10)
      ??? "HORA..: " + time() + CHR(13) + CHR(10)
      *if ! isnull(TMP_COZINHA2.NOME)
      *   ??? "Garcon: " + substr(alltrim(TMP_COZINHA2.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_COZINHA2.DESCPRO,1,18) + TRANSFORM(TMP_COZINHA2.QUANT,"999.99") + CHR(13) + CHR(10)
      *cSeqCom02 = TMP_COZINHA2.SEQCOM02

      IF ! EMPTY(ALLTRIM(TMP_COZINHA2.OBS)) .And. ! isnull(tmp_cozinha2.OBS)
         ??? "OBS:" + TMP_COZINHA2.OBS + CHR(13) + CHR(10)
      ENDIF 

      *IF TMP_COZINHA.SEQ003 = 218
      *   TSEXEC("T","Update Tscom02 Set Impresso = 1,Func = Seq004,EXCLUI = 'S' Where Seqcom02 = ?cSeqcom02 ","TMP_UPD")
      *ELSE
      *   TSEXEC("T","Update Tscom02 Set Impresso = 1,Func = Seq004 Where Seqcom02 = ?cSeqcom02 ","TMP_UPD")
      *ENDIF

   SELECT TMP_COZINHA2
   skip in TMP_COZINHA2
   IF ! EOF("tmp_COZINHA2")
      LOOP
   ENDIF
   *??? "COMANDA: " + PADL(ALLTRIM(STR(cCo1)),5,'0') + chr(13) + chr(10)
   ??? CHR(13) + CHR(10)
   ??? "*** ENTREGA DELIVERY ***" + 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 'MARMITEX'

   
   LOOP

ENDDO