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(TSL.NOME)))) / 2))+AllTrim(AllTrim(TSL.NOME)) + 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
cTotalj = 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)
   
   IF TMP_FINAN.RECJUROS > 0
      ??? REPLICATE(" ",cQEsp) + "Valor com Juros" + REPLICATE(".",12) + transform(TMP_FINAN.RECTOTAL,"99,999.99") + CHR(13) + CHR(10)   
   ENDIF
   
   cTotal = cTotal + TMP_FINAN.RECVALOR
   cTotalj = cTotalj + TMP_FINAN.RECTOTAL   

   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)
??? REPLICATE(" ",cQEsp) + "Total com Juros" + REPLICATE(".",9) + TRANSFORM(cTotalj,"9,999,999.99") + chr(13) + chr(10)
??? " " + 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