
nSelect = "SELECT Tscomtroca.*,Tslc003.DESCPRO,Tslc003.CODBAR FROM Tscomtroca "
nSelect = nSelect + "INNER JOIN Tslc003 ON Tscomtroca.codprod = Tslc003.CODIGO "
nSelect = nSelect + "WHERE Tscomtroca.SEQCOMTROCA = ?cCodCom01 "

TSEXEC("T",nSelect,"TMP_TROCA")

SELECT TMP_TROCA
GO TOP IN TMP_TROCA
DO WHILE ! EOF("TMP_TROCA")
   
   SET PRINTER TO NAME "TSTISAT"
   
   ??? space(int((40 - len(AllTrim(AllTrim(TSL.NOME)))) / 2))+AllTrim(AllTrim(TSL.NOME))+space(int((40 - len(AllTrim(AllTrim(TSL.NOME)))) / 2)) + chr(13) + chr(10)

*   ??? space(int((40 - len(AllTrim(AllTrim(TSL.ENDERECO)))) / 2))+AllTrim(AllTrim(TSL.ENDERECO))+ space(int((40 - len(AllTrim(AllTrim(TSL.ENDERECO)))) / 2)) + chr(13) + chr(10)

*   ??? space(int((40 - len(AllTrim("Fone: " + AllTrim(TSL.FONE)))) / 2))+AllTrim("Fone: " + AllTrim(TSL.FONE))+ space(int((40 - len(AllTrim("Fone: " + AllTrim(TSL.FONE)))) / 2)) + chr(13) + chr(10)

   ??? space(int((40 - len(AllTrim("< CUPOM SEM VALOR FISCAL >"))) / 2))+AllTrim("< CUPOM SEM VALOR FISCAL >")+ space(int((40 - len(AllTrim("< CUPOM SEM VALOR FISCAL >"))) / 2)) + chr(13) + chr(10)
   ??? DTOC(DATE()) + SPACE(22) + TIME() + CHR(13) + CHR(10)
   ??? REPLICATE("-",40) + CHR(13) + CHR(10)
   ??? space(int((40 - len(AllTrim("< CONTROLE DE VASILHAMES >"))) / 2))+AllTrim("< CONTROLE DE TROCAS >")+ space(int((40 - len(AllTrim("< CONTROLE DE TROCAS >"))) / 2)) + chr(13) + chr(10)
   ??? REPLICATE("-",40) + CHR(13) + CHR(10)
   ??? "Valor        Produto" + chr(13) + chr(10)
   ??? replicate("-",40) + chr(13) + chr(10)
   ??? transform(TMP_TROCA.TOTAL,"999.999,99") + " - " + TMP_TROCA.CODBAR + " " + ALLTRIM(TMP_TROCA.DESCPRO) + CHR(13) + CHR(10)
   ??? " " + CHR(13) + CHR(10)
   ??? " " + CHR(13) + CHR(10)
cP1 = '9998' + PADL(ALLTRIM(STR(TMP_TROCA.SEQCOMTROCA)),9,'0')
   
   *cP1 = ALLTRIM(TMP_IMPCABSAT.CHAVE)

   ??? CHR(29) + CHR(104) + CHR(50)
   ??? CHR(29) + CHR(119) + CHR(2)
   ??? CHR(29) + CHR(102) + CHR(1)
   ??? CHR(29) + CHR(72) + CHR(0)
   ??? CHR(29) + CHR(107) + CHR(73) + CHR(15) && ERA 24
   ??? '{123}' + CHR(66) + cP1
   ??? "COD:" + cP1 + 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"

   SKIP IN TMP_TROCA
   LOOP

ENDDO