nSelect = "SELECT Tsm003.*,Tslc001.CLINOM FROM Tsm003 LEFT JOIN Tslc001 ON Tsm003.RECCLI = Tslc001.CLICOD "
nSelect = nSelect + "WHERE ?cCodSeqBol = Tsm003.SEQCUP AND Tsm003.FLAG = 'B' "
TSEXEC("T",nSelect,"TMP_BOLETO")

SELECT TMP_BOLETO
GO TOP IN TMP_BOLETO

cObs = "AGRADECEMOS A PREFERENCIA"
cReport = FULLPATH(CURDIR()) + "IMPRESS\CARNE.FRX"

REPORT FORM &cReport to print prompt preview