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

nSelect = "SELECT Tscom02.*,(Tscom02.Quant*Tscom02.Valor) as Total,Tslc003.CODBAR,Tslc003.Descpro,Tslc003.Preco1,Tslc003.CodTipo,Tscom02obs.obs FROM Tscom02 "
nSelect = nSelect + "LEFT JOIN Tslc003 ON Tscom02.Seq003 = Tslc003.CODIGO "
nSelect = nSelect + "LEFT JOIN Tscom02obs ON Tscom02.Seqcom02 = Tscom02Obs.Seqcom02 "
nSelect = nSelect + "WHERE ?cSeq01 = Tscom02.Seqcom01 And Tscom02.Baixa != 'S' And Tscom02.Exclui != 'S'"
TSEXEC("T",nSelect,"TMP_IMPRIMIR")

nSelect = "Select Tscom01Adic.*,Tslc004.Nome From Tscom01Adic Left Join Tslc004 On Tscom01Adic.Func = Tslc004.Codigo Where ?cSeq01 = Tscom01Adic.Seqcom01 And Tscom01Adic.Baixa != 'S' "
TSEXEC("T",nSelect,"TMP_ADIC")

nSelect = "Select * From Tslc003 "
TSEXEC("T",nSelect,"TMP_IMP_PROD")

SELECT TMP_IMPRIMIR
GO TOP IN TMP_IMPRIMIR
IF RECCOUNT() > 0
   

   SET PRINTER TO NAME 'esponsat'

   cTabela2 = "TMP_IMPRIMIR"

   cQEsp = 0

   ??? REPLICATE(" ",cQEsp) + DTOC(&cTabela2..DATA)  + SPACE(1) + "< R E S U M O   M E S A >"+  SPACE(1) + TIME() + CHR(10)+CHR(13)
   ??? REPLICATE(" ",cQEsp) + "MESA: " + ALLTRIM(STR(&cTabela2..Seqcom01,11)) + CHR(10)+CHR(13)
   ??? REPLICATE(" ",cQEsp) + REPLICATE("-",48) + CHR(10)+CHR(13)
   ??? REPLICATE(" ",cQEsp) + "DESCRICAO                       QTDE    TOTAL R$" + 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) + SPACE(1) + TRANSFORM(&cTabela2..QUANT,"9,999.99") + SPACE(4) + Transform                 (&cTabela2..QUANT*&cTabela2..valor,"9,999.99") + CHR(10)+CHR(13)

      SKIP IN &cTabela2
      LOOP
   
   ENDDO
   
   ??? REPLICATE("-",48) + CHR(13) + CHR(10)

   SELECT SUM(TOTAL) AS TOTAL FROM TMP_IMPRIMIR INTO CURSOR TMP_TOTAL
   ??? REPLICATE(" ",cQEsp) + "VALOR TOTAL:" + SPACE(28) +  TRANSFORM(TMP_TOTAL.TOTAL,"9,999.99") +  CHR(10)+CHR(13)
   ??? " " + CHR(10)+CHR(13)
*   ??? REPLICATE(" ",cQEsp) + "QUANT. PESSOAS:" + TMP_ADIC.QUANT_RATEIO +  CHR(10)+CHR(13)
*   nTotPessoa = TMP_TOTAL.TOTAL/TMP_ADIC.QUANT_RATEIO
*   ??? REPLICATE(" ",cQEsp) + "TOTAL POR PESSOA:" + TRANSFORM(nTotPessoa,"9,999.99") +  CHR(10)+CHR(13)
*   ??? REPLICATE(" ",cQEsp) + "ATENDIDO POR:" + TMP_ADIC.FUNC + "-" + TMP_ADIC.NOME +  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(27) + CHR(109)

   SET PRINTER TO NAME 'esponsat'

ENDIF

