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

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

cCodCliente = c_Arq.RECCLI
SELECT c_Arq
GO TOP
DO WHILE ! EOF("c_Arq")
   ??? REPLICATE(" ",cQEsp) + c_arq.RECCOD + " " + DTOC(c_arq.RECEMISS) + TRANSFORM(c_arq.RECTOTAL,"9,999,999.99") + CHR(10)+CHR(13)
   SKIP IN c_arq
   LOOP
ENDDO
??? " " + CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Para Maior Clareza Firmo o Presente"+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + PROPER(ALLTRIM(TSL.CIDADE)) + ", " + ALLTRIM(TRANSFORM(DAY(cDataPag),"99")) + " de " + MES(MONTH(cDataPag)) + " de " + TRANSFORM(YEAR(cDataPag),"9999")+CHR(10)+CHR(13)
??? " " + CHR(10) + CHR(13)
??? " " + CHR(10) + CHR(13)
??? " " + CHR(10) + CHR(13)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",40)+CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + ALLTRIM(cNomeEmp)+CHR(10)+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
??? REPLICATE(" ",cQEsp) + "Restante: " + ALLTRIM(TRANSFORM(cValorDev,"9,999,999.99"))+CHR(10)+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
   ??? REPLICATE(" ",cQEsp) + "Restante " + ALLTRIM(TMP_TOTALA2.EMPNOM) + ": " + ALLTRIM(TRANSFORM(cValorDev,"9,999,999.99"))+CHR(10)+CHR(13)
   SKIP IN TMP_TOTALA2
   LOOP
ENDDO

nSelect = "SELECT SUM(BRUTO) AS TOTAL FROM Tslv022 WHERE ?cCodCliente = CODCLI "
nSelect = nSelect + "AND PEDIDO = 0 AND EXCLUI <> 'S' GROUP BY CODCLI AND ?cCodEmp = EMPRESA "
TSEXEC("T",nSelect,"TMP_CONSIR")
SELECT TMP_CONSIR
GO TOP IN TMP_CONSIR
IF TMP_CONSIR.TOTAL > 0
   ??? REPLICATE(" ",cQEsp) + "Consignacao: " + TRANSFORM(TMP_CONSIR.TOTAL,"9,999,999.99")+CHR(10)+CHR(13)
ENDIF

??? " "+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)
??? " "+Chr(10)+Chr(13)
??? " "+Chr(10)+Chr(13)
??? " "+Chr(10)+Chr(13)

Set Printer To

