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

   ??? REPLICATE(" ",cQEsp) + DTOC(date()) + SPACE(25) + TIME()  + chr(13) + chr(10)
   ??? REPLICATE(" ",cQEsp) + SPACE(4) + "< R E S U M O   C O M A N D A >" + chr(13) + chr(10)
   ??? chr(13) + chr(10)
   ??? REPLICATE(" ",cQEsp) + "COMANDA: " + cSeq01 + REPLICATE(" ",29) + chr(13) + chr(10)

   ??? REPLICATE(" ",cQEsp) + REPLICATE("-",41) + chr(13) + chr(10)
   ??? REPLICATE(" ",cQEsp) + "DESCRICAO          Qtde  Unit.R$ Valor R$" + chr(13) + chr(10)
   ??? REPLICATE(" ",cQEsp) + REPLICATE("-",41) + chr(13) + chr(10)
   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(13) + chr(10)

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

   
      SKIP IN &cTabela2
      LOOP
   
   ENDDO
   
   c10 = round(cTotalCm * 0.1,2)

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

   ??? REPLICATE(" ",cQEsp) + SPACE(19) + "VALOR TOTAL.:" + TRANSFORM(cTotalCm,"9,999.99") +  chr(13) + chr(10)
   *??? REPLICATE(" ",cQEsp) + "10%........:" + TRANSFORM(c10,"9,999.99") +  chr(13) + chr(10)
   *??? REPLICATE(" ",cQEsp) + "VALOR TOTAL:" + TRANSFORM(cTotalCm + c10,"9,999.99") +  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)

   SET PRINTER TO NAME "TSTISAT"
  
ENDIF

