At 09:50 AM 12/18/2015, Hodges, Dennis wrote:
Thanks Razzak, it worked perfectly, just what I needed.
Happy Holidays, Dennis!
Very Best R:egards,
Razzak
Dennis Hodges
Maintenance Management Manager
FDOT Office of Maintenance MS #52
PH: (850) 410-5635
FAX: (850) 410-5511
[email protected]
"Life doesn't have a remote, get up and change yourself."
Please note: e-mail may be subject to public disclosure.
-----Original Message-----
From: [email protected] [mailto:[email protected]] On Behalf Of A.
Razzak Memon
Sent: Friday, December 18, 2015 9:06 AM
To: Hodges, Dennis
Subject: [RBASE-L] - Re: Error trapping on Print command
At 08:51 AM 12/18/2015, Hodges, Dennis wrote:
>In the following print command if the where command returns no records,
>the value of holder is 0, but I get a 2059 error message. How can I
>trap this error?
>
>SET ERROR VARIABLE verrvar
> PRINT needfile ORDER BY site WHERE datecomp IS NULL AND ((crew1
= .zcrew) +
> OR (crew2 = .zcrew) +
> OR (crew3 = .zcrew) +
> OR (crew4 = .zcrew)) +
> OPTION SCREEN|WINDOW_STATE MAXIMIZED +
> |ZOOM_TYPE percentage 98
> set var holderr = .verrvar
Dennis,
Here is the best approach to handle such circumstances ...
-- Start here ...
SET VAR vRows INTEGER = 0
SELECT COUNT(*) INTO vRows INDIC iv1 FROM reporttablename + WHERE
datecomp IS NULL AND ((crew1 = .zcrew) +
OR (crew2 = .zcrew) +
OR (crew3 = .zcrew) +
OR (crew4 = .zcrew))
IF vRows = 0 THEN
CLS
PAUSE 2 USING 'No qualifying records to print this report' +
CAPTION 'Print Report' ICON WARNING +
BUTTON 'Press any key to continue ...' +
OPTION BACK_COLOR WHITE +
|MESSAGE_FONT_NAME Tahoma +
|MESSAGE_FONT_COLOR RED +
|MESSAGE_FONT_SIZE 11
GOTO Done
ENDIF
CLS
PRINT needfile ORDER BY site WHERE datecomp IS NULL AND ((crew1
= .zcrew) +
OR (crew2 = .zcrew) +
OR (crew3 = .zcrew) +
OR (crew4 = .zcrew)) +
OPTION SCREEN|WINDOW_STATE MAXIMIZED +
|ZOOM_TYPE percentage 98
LABEL Done
CLS
CLEAR VARIABLES iv%,vRows
RETURN
-- End here ...
Hope that helps!
Very Best R:egards,
Razzak
