IF MESSAGEBOX("Confirma Emisso de Recibo   ",292,"Impresso") = 7
   RETURN
ENDIF

TSEXEC("T","SELECT * FROM Tsl ","TSL")
SELECT TSL
cQEsp = TSL.QECUP

nSelect = "SELECT * FROM Tsrec WHERE ?cCodRec = SEQREC "
TSEXEC("T",nSelect,"TMP_IMPRIMIR")

SELECT TMP_IMPRIMIR
GO TOP IN TMP_IMPRIMIR

SYS(1037) && INDICAR IMPRESSORA

??? CHR(15)

??? REPLICATE(" ",cQEsp) + REPLICATE("-",40) + CHR(13)+CHR(10)
??? REPLICATE(" ",cQEsp) + SPACE(14) + "R E C I B O" + CHR(13) + CHR(10)
??? REPLICATE(" ",cQEsp) + REPLICATE("-",40) + CHR(13)+CHR(10)
??? REPLICATE(" ",cQEsp) + "Numero: " + PADL(ALLTRIM(STR(TMP_IMPRIMIR.SEQREC,4)),4,"0") + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Emissao: " + DTOC(TMP_IMPRIMIR.EMISSAO) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "Recebi (emos) de " + ALLTRIM(TMP_IMPRIMIR.CLIENTE) + CHR(10)+CHR(13)
??? REPLICATE(" ",cQEsp) + "a quantia de (" + TRANSFORM(TMP_IMPRIMIR.VALOR,"9,999,999.99") + ")" + CHR(13)+CHR(10)
??? REPLICATE(" ",cQEsp) + ALLTRIM(valext(TMP_IMPRIMIR.VALOR)) + CHR(13) + CHR(10)
??? REPLICATE(" ",cQEsp) + "Referente a(o) " + ALLTRIM(TMP_IMPRIMIR.REFER) + CHR(13)+CHR(10)
??? REPLICATE(" ",cQEsp) + "e para clareza firmo o presente." + chr(13)+chr(10)
??? " " + chr(13)+chr(10)
??? " " + chr(13)+chr(10)
??? REPLICATE(" ",cQEsp) + "Nome.....: " + ALLTRIM(TMP_IMPRIMIR.NOME) + CHR(13)+CHR(10)
??? REPLICATE(" ",cQEsp) + "Endereco.: " + ALLTRIM(TMP_IMPRIMIR.ENDE) + CHR(13)+CHR(10)
??? REPLICATE(" ",cQEsp) + "CNPJ/CPF.: " + MCPF(TMP_IMPRIMIR.CNPJ) + CHR(13) + CHR(10)
??? REPLICATE(" ",cQEsp) + "IE/RG....: " + ALLTRIM(TMP_IMPRIMIR.IE) + CHR(13)+CHR(10)
??? " " + chr(13)+chr(10)
??? " " + chr(13)+chr(10)
??? " " + chr(13)+chr(10)
??? " " + chr(13)+chr(10)
??? " " + chr(13)+chr(10)
??? REPLICATE(" ",cQEsp) + SPACE(10) + REPLICATE("_",20) + CHR(13) + CHR(10)
??? REPLICATE(" ",cQEsp) + SPACE(15) + "Assinatura" + 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