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

nSelect = "SELECT Tscom02.*,(Tscom02.Quant*Tslc003.preco1) 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 Tscom02.Seqcom01 in (" + cSeq01 + ") And Tscom02.Baixa != 'S' And Tscom02.Exclui != 'S'"
TSEXEC("T",nSelect,"TMP_IMPRIMIR1")

SELECT DESCPRO,SUM(QUANT) AS QUANT,PRECO1 AS VALOR FROM TMP_IMPRIMIR1 GROUP BY DESCPRO,PRECO1 INTO CURSOR 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 "tstisat"

   cTabela2 = "TMP_IMPRIMIR"

   cQEsp = 0

   *cValor1 = LEN(ALLTRIM(cTpOrc))
   *cVal1 = 28 - cValor1
*   ??? chr(29) + chr(33) + chr(0) && altura da fonte
*   ??? CHR(18)

*   ??? REPLICATE(" ",cQEsp) + REPLICATE("=",40) + CHR(10)+CHR(13)
*   ??? REPLICATE(" ",cQEsp) + DTOC(date()) + REPLICATE(" ",22) + TIME() + CHR(10)+CHR(13)
   *??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(TSL.NOME)))) / 2))+AllTrim(AllTrim(TSL.NOME)) + CHR(10)+CHR(13)
   *??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim(AllTrim(TSL.ENDERECO)))) / 2))+AllTrim(AllTrim(TSL.ENDERECO)) + CHR(10)+CHR(13)
   *??? REPLICATE(" ",cQEsp) + space(int((40 - len(AllTrim("Fone: " + AllTrim(TSL.FONE)))) / 2))+AllTrim("Fone: " + AllTrim(TSL.FONE)) + CHR(10)+CHR(13)
   ??? REPLICATE(" ",cQEsp) + DTOC(date()) + SPACE(25) + TIME() + CHR(10)+CHR(13)
   ??? REPLICATE(" ",cQEsp) + SPACE(4) + "< R E S U M O   C O M A N D A >"+ CHR(10)+CHR(13)
   ??? chr(10) + chr(13)
*   ??? chr(29) + chr(33) + chr(1) && altura da fonte
*   ??? chr(29) + chr(33) + chr(16)

*   ??? REPLICATE(" ",cQEsp) + "COMANDA: " + ALLTRIM(STR(&cTabela2..Seqcom01,11)) + REPLICATE(" ",29) + CHR(10)+CHR(13)
   ??? REPLICATE(" ",cQEsp) + "COMANDA: " + cSeq01 + REPLICATE(" ",29) + CHR(10)+CHR(13)

*   ??? chr(29) + chr(33) + chr(0) && altura da fonte

   ??? REPLICATE(" ",cQEsp) + REPLICATE("-",41) + CHR(10)+CHR(13)
   ??? REPLICATE(" ",cQEsp) + "DESCRICAO          Qtde  Unit.R$ Valor R$" + CHR(10)+CHR(13)
   ??? REPLICATE(" ",cQEsp) + REPLICATE("-",41)+CHR(10)+CHR(13)
   cTotalCm = 0

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


      ??? REPLICATE(" ",cQEsp) + SUBSTR(&cTabela2..DESCPRO,1,15) + SPACE(1) + TRANSFORM(&cTabela2..QUANT,"9999.99") + SPACE(1) + TRANSFORM(&cTabela2..valor,"9,999.99") + SPACE(1) + Transform(&cTabela2..QUANT*&cTabela2..valor,"9,999.99") + CHR(10)+CHR(13)

*      ??? REPLICATE(" ",cQEsp) + SUBSTR(&cTabela2..DESCPRO,1,26) + CHR(10)+CHR(13)
      cTotalCm = cTotalCm + &cTabela2..QUANT*&cTabela2..valor

   
      SKIP IN &cTabela2
      LOOP
   
   ENDDO

   ??? REPLICATE(" ",cQEsp) + REPLICATE("-",41)+CHR(10)+CHR(13)

*   ??? chr(29) + chr(33) + chr(1) && altura da fonte
*   ??? chr(29) + chr(33) + chr(16)

*   SELECT SUM(TOTAL) AS TOTAL FROM TMP_IMPRIMIR INTO CURSOR TMP_TOTAL
   ??? REPLICATE(" ",cQEsp) + "VALOR TOTAL:" + TRANSFORM(cTotalCm,"9,999.99") +  CHR(10)+CHR(13)
   ??? " " + CHR(10)+CHR(13)


   *??? REPLICATE(" ",cQEsp) + "QUANT. PESSOAS:" + ALLTRIM(STR(cQtdPessoas)) +  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 "tstisat"

ENDIF

