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

SYS(1037) && INDICAR IMPRESSORA

??? CHR(27)+"0"+CHR(27)+"C"+CHR(44)
??? CHR(18)

CABECA = space(int((70 - len(AllTrim(TSL.NOME))) / 2)) + alltrim(TSL.NOME)+space(int((70 - len(AllTrim(TSL.NOME))) / 2))+dToc(TSLV020.DATA) + chr(13)+chr(10)
CABECA = CABECA + CHR(18)
CABECA = CABECA + space(int((72 - len(AllTrim(TSL.ENDERECO))) / 2)) + alltrim(TSL.ENDERECO)+space(int((72 - len(AllTrim(TSL.ENDERECO))) / 2)) + TIME()+chr(13)+chr(10)
CABECA = CABECA + space(int((80 - len(Alltrim(TSL.FONE))) / 2)) + AllTrim(TSL.FONE)+chr(13)+chr(10)
??? CABECA

??? replicate("-",80) + CHR(10) + CHR(13)
??? "Recebi(emos) do(a) Sr.(a)" + CHR(10) + CHR(13)
??? ALLTRIM(c_arq.CLINOM) + CHR(10) + CHR(13)
??? "A Quantia de R$ " + ALLTRIM(TRANSFORM(cValorBx,"9,999,999.99")) + chr(10) + chr(13)
??? ALLTRIM(VALEXT(cValorBx)) + CHR(10) + CHR(13)
??? " " + chr(13) + chr(10)
??? "DOCUMENTO       EMISSAO   VENCIMENTO      VLR. TOTAL    JUROS/DESC.    VLR. PAGO" + CHR(10) + CHR(13)
??? " " + chr(13) + chr(10)

cValor1 = 0
cValor2 = 0
cValor3 = 0
cCodCliente = c_Arq.RECCLI
SELECT c_Arq
GO TOP
DO WHILE ! EOF("c_Arq")
   ??? c_arq.RECCOD + " " + DTOC(c_arq.RECEMISS) + " " + DTOC(c_arq.RECVENCI) + "    " + TRANSFORM(c_arq.RECVALOR,"9,999,999.99") + "   " + TRANSFORM((c_arq.RECJUROS - c_arq.RECDESCO),"9,999,999.99") + " " + TRANSFORM(c_arq.RECTOTAL,"9,999,999.99") + CHR(10)+CHR(13)

   cValor1 = cvalor1 + c_arq.RECVALOR
   cValor2 = cValor2 + (c_arq.RECJUROS - c_arq.RECDESCO)
   cValor3 = cValor3 + c_arq.RECTOTAL

   SKIP IN c_arq
   LOOP
ENDDO

??? "                                        ------------   ------------  -----------" + CHR(10) + CHR(13)
??? SPACE(40) + TRANSFORM(cValor1,"9,999,999.99") + "   " + transform(cValor2,"9,999,999.99") + " " + transform(cValor3,"9,999,999.99") + chr(13) + chr(10)
??? " " + chr(13) + chr(10)
??? "Para Maior Clareza Firmo o Presente" + chr(13) + chr(10)
??? ALLTRIM(TRANSFORM(DAY(cDataPag),"99")) + " de " + MES(MONTH(cDataPag)) + " de " + TRANSFORM(YEAR(cDataPag),"9999") + CHR(10) + CHR(13)
??? " " + chr(13) + chr(10)
??? replicate("-",80) + chr(13) + chr(10)

Dimension Vet(1)
Vet(1) = 0
nSelect = "Select Sum(RECVALOR) as TOTAL FROM Tsm003 Where RECCLI = ?cCodCliente AND RECEST = 0 AND RECBAIXA <> 'S' AND ?cCodEmp = Tsm003.RECEMPR "
TSEXEC("T",nSelect,"TMP_TOTALA")
cValorDev = TMP_TOTALA.TOTAL
??? "Restante: " + ALLTRIM(TRANSFORM(cValorDev,"9,999,999.99"))+CHR(10)+CHR(13)

??? chr(12)

Set Printer To
Set Printer To Default