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

nSelect = "SELECT * FROM Tsm002a WHERE ?cSeqSupl = CONTSEQ "
TSEXEC("T",nSelect,"TMP_002A")

SELECT TMP_002A
GO TOP IN TMP_002A

IF ! USED("PARAMETRO")
   USE PARAMETRO IN 33 SHARED
ENDIF
SELECT PARAMETRO
cQEsp = 0

SET PRINTER TO NAME 'TSTISAT'

??? + SPACE(19) + "SUPLEMENTO" + CHR(13) + CHR(10)

??? REPLICATE("=",40) + CHR(13) + CHR(10)

??? "Valor: " + TRANSFORM(TMP_002A.VLR,"9,999,999.99") + CHR(13) + CHR(10)

??? "Obs: Suplemento" + CHR(13) + CHR(10)

??? "Caixa: " + TMP_002A.CONT + CHR(13) + CHR(10)

nSelect = "SELECT * FROM Tslc004 WHERE ?cCodUsu = CODIGO "
TSEXEC("T",nSelect,"TMP_004")
SELECT TMP_004
GO TOP IN TMP_004

??? "Usuario: " + TMP_004.NOME + CHR(13) + CHR(10)

??? DTOC(DATE()) + "   " + TIME()  + CHR(13) + CHR(10)

??? REPLICATE("=",40) + CHR(13) + CHR(10)

???  + CHR(13) + CHR(10)

???  + CHR(13) + CHR(10)

??? chr(27) + chr(109)

SET PRINTER TO NAME 'TSTISAT'