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

cQEsp = TSL.QECUP

cImprimir = ""

cImprimir = cImprimir +  REPLICATE(" ",cQEsp) + space(int((80 - len(AllTrim(AllTrim(cNomeEmp)))) / 2))+AllTrim(AllTrim(cNomeEmp)) + CHR(13)
cImprimir = cImprimir +  REPLICATE(" ",cQEsp) + space(int((80 - len(AllTrim(AllTrim(TSL.ENDERECO)))) / 2))+AllTrim(AllTrim(TSL.ENDERECO)) + CHR(13)
cImprimir = cImprimir +  REPLICATE(" ",cQEsp) + space(int((80 - len(AllTrim("Fone: " + AllTrim(TSL.FONE)))) / 2))+AllTrim("Fone: " + AllTrim(TSL.FONE)) + CHR(13)
cImprimir = cImprimir +  REPLICATE(" ",cQEsp) + REPLICATE("-",80)+CHR(13)
cImprimir = cImprimir +  REPLICATE(" ",cQEsp) + "Recebi(emos) do(a) Sr.(a)"+CHR(13)
cImprimir = cImprimir +  REPLICATE(" ",cQEsp) + ALLTRIM(c_Arq.CLINOM)+CHR(13)
cImprimir = cImprimir +  REPLICATE(" ",cQEsp) + "A Quantia de R$ " + ALLTRIM(TRANSFORM(cValorBx,"9,999,999.99"))+CHR(13)
cImprimir = cImprimir +  REPLICATE(" ",cQEsp) + ALLTRIM(VALEXT(cValorBx))+CHR(13)
cImprimir = cImprimir +  " " +CHR(13)

cCodCliente = c_Arq.RECCLI
SELECT c_Arq
GO TOP
DO WHILE ! EOF("c_Arq")
   cImprimir = cImprimir +  REPLICATE(" ",cQEsp) + c_arq.RECCOD + " " + DTOC(c_arq.RECEMISS) + TRANSFORM(c_arq.RECTOTAL,"9,999,999.99") + CHR(13)
   SKIP IN c_arq
   LOOP
ENDDO
cImprimir = cImprimir +  " " + CHR(13)
cImprimir = cImprimir +  " " + CHR(13)
cImprimir = cImprimir +  REPLICATE(" ",cQEsp) + "Para Maior Clareza Firmo o Presente" + CHR(13)
cImprimir = cImprimir +  REPLICATE(" ",cQEsp) + PROPER(ALLTRIM(TSL.CIDADE)) + ", " + ALLTRIM(TRANSFORM(DAY(cDataPag),"99")) + " de " + MES(MONTH(cDataPag)) + " de " + TRANSFORM(YEAR(cDataPag),"9999")+CHR(13)
cImprimir = cImprimir +  " " + CHR(13)
cImprimir = cImprimir +  " " + CHR(13)
cImprimir = cImprimir +  " " + CHR(13)
cImprimir = cImprimir +  REPLICATE(" ",cQEsp) + REPLICATE("-",80)+CHR(13)
cImprimir = cImprimir +  REPLICATE(" ",cQEsp) + ALLTRIM(cNomeEmp)+CHR(13)

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
cImprimir = cImprimir +  REPLICATE(" ",cQEsp) + "Restante: " + ALLTRIM(TRANSFORM(cValorDev,"9,999,999.99"))+CHR(13)

nSelect = "Select Tsm003.RECEMPR,Tsc008a.EMPNOM,Sum(Tsm003.RECVALOR) as TOTAL FROM Tsm003 "
nSelect = nSelect + "INNER JOIN Tsc008a ON Tsm003.RECEMPR = Tsc008a.EMPCOD "
nSelect = nSelect + "Where Tsm003.RECCLI = ?cCodCliente AND Tsm003.RECEST = 0 AND Tsm003.RECBAIXA <> 'S' AND "
nSelect = nSelect + "?cCodEmp <> Tsm003.RECEMPR GROUP BY Tsm003.RECEMPR,Tsc008a.EMPNOM "
TSEXEC("T",nSelect,"TMP_TOTALA2")
SELECT TMP_TOTALA2
GO TOP IN TMP_TOTALA2
DO WHILE ! EOF("TMP_TOTALA2")
   cValorDev = TMP_TOTALA2.TOTAL
   cImprimir = cImprimir +  REPLICATE(" ",cQEsp) + "Restante " + ALLTRIM(TMP_TOTALA2.EMPNOM) + ": " + ALLTRIM(TRANSFORM(cValorDev,"9,999,999.99"))+CHR(13)
   SKIP IN TMP_TOTALA2
   LOOP
ENDDO

CREATE CURSOR TMP_IMPRIMIR;
(CODIGO M(04))
SELECT TMP_IMPRIMIR
INSERT INTO TMP_IMPRIMIR (CODIGO) VALUES (cImprimir)
SELECT TMP_IMPRIMIR
GO TOP IN TMP_IMPRIMIR

cReport = FULLPATH(CURDIR()) + "IMPRESS\RECIBO.FRX"

REPORT FORM &cReport TO PRINTER PROMPT