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

cQEsp = TSL.QECUP

SYS(1037) && INDICAR IMPRESSORA

??? CHR(15)

??? REPLICATE(" ",cQEsp) + REPLICATE("=",36) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + DTOC(DATE()) + REPLICATE(" ",18) + TIME() + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((36 - len(AllTrim(AllTrim(SUBSTR(TSL.NOME,1,36))))) / 2))+AllTrim(AllTrim(SUBSTR(TSL.NOME,1,36))) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((36 - len(AllTrim(AllTrim(TSL.ENDERECO)))) / 2))+AllTrim(AllTrim(TSL.ENDERECO)) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((36 - len(AllTrim("Fone: " + AllTrim(TSL.FONE)))) / 2))+AllTrim("Fone: " + AllTrim(TSL.FONE)) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + space(int((36 - len(AllTrim("EXTRATO DE CONTAS"))) / 2))+AllTrim("EXTRATO DE CONTAS") + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Cliente: " + PADL(ALLTRIM(STR(TMP_FINAN.RECCLI,6)),6,"0") + " - " + ALLTRIM(TMP_FINAN.CLINOM)+CHR(13)+CHR(10)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",36) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Titulo    Emissao Vencimen     Valor" + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",36) + CHR(10)+CHR(13)

cTotal = 0
SELECT TMP_FINAN
GO TOP IN TMP_FINAN
DO WHILE ! EOF("TMP_FINAN")

   ??? REPLICATE(" ",cQEsp) + SUBSTR(TMP_FINAN.RECTITULO,1,8) + " " + SUBSTR(DTOC(TMP_FINAN.RECEMISS),1,6) + SUBSTR(DTOC(TMP_FINAN.RECEMISS),9,2) + " " + ;
   SUBSTR(DTOC(TMP_FINAN.RECVENCI),1,6) + SUBSTR(DTOC(TMP_FINAN.RECVENCI),9,2) + " " + TRANSFORM(TMP_FINAN.RECVALOR,"99,999.99") + CHR(10)+CHR(13)
   cTotal = cTotal + TMP_FINAN.RECVALOR
   
   SKIP IN TMP_FINAN
   LOOP
   
ENDDO
??? REPLICATE(" ",cQEsp) + REPLICATE("-",36) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Total" + REPLICATE(".",19) + TRANSFORM(cTotal,"9,999,999.99") + 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(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(13)
??? " " + CHR(10)+CHR(13)

SET PRINTER TO