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_RECIBO")

SELECT TMP_RECIBO
GO TOP IN TMP_RECIBO

PUSH KEY CLEAR

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

REPORT FORM &cReport TO PRINTER PROMPT PREVIEW