G-Day all
This one is driving me nuts...
I am using RBase 6.5++ version 1.842xRT03
I can run a report using the Where builder that returns this:
WHERE Injuries.Company IN (tmd,palm,tech) AND
Injuries.InjuryDate BETWEEN 01/01/99 AND 12/31/01
ORDER BY Injuries.Company ASC, Injuries.InjuryDate DESC
and the report runs fine.. but when I am USING the following Code:
SET VAR vmtxt_begdt TEXT = NULL
SET VAR vmdt_begdt DATE = NULL
DIALOG 'Enter a begining date' vmtxt_begdt=10 vm_key1 1 AT 15 19
SET VAR vmdt_begdt DATE = .vmtxt_begdt
IF vm_key1 <> '[Esc]' THEN
SET VAR vmtxt_enddt TEXT = NULL
SET VAR vmdt_enddt DATE = NULL
DIALOG 'Enter an Ending date' vmtxt_enddt=10 vm_key2 1 AT 15 19
SET VAR vmdt_enddt DATE = .vmtxt_enddt
IF vm_key2 <> '[Esc]' THEN
IF vmdt_begdt IS NOT NULL AND vmdt_enddt IS NOT NULL THEN
CHOOSE prnorscr FROM menuprnscr IN wrkinjry.apx
IF prnorscr = 'Printer' THEN
SET LINES 79
CLEAR VAR prnorscr
OUTPUT PRINTER
ELSE
SET LINES 24
CLEAR VAR prnorscr
OUTPUT SCREEN
ENDIF
SET VAR vm_statement = +
'PRINT emplbycomp WHERE company IN (' + .vm_comp + +
') AND injurydate BETWEEN ' + .vmdt_begdt + ' AND ' + .vmdt_enddt
+ +
' ORDER BY company ASC, injurydate DESC'
&vm_statement
IF errvar <> 0 THEN
OUTPUT SCREEN
PAUSE FOR 3 USING 'No matching Items Found' AT CENTER CENTER
ENDIF
***** PRINT emplbycomp +
WHERE company IN (.vm_comp) AND injurydate BETWEEN .vmdt_begdt +
AND .vmdt_enddt ORDER BY company ASC, injurydate DESC
IF errvar <> 0 THEN
OUTPUT SCREEN
PAUSE FOR 3 USING 'No matching Items Found' AT CENTER CENTER
ENDIF
OUTPUT SCREEN
ENDIF
ENDIF
ENDIF
the variable vm_statement executes just fine... but the following
PRINT statement (where the ***** is) which is identical returns that
No rows exist to satisfy clause.
I built the vm_statement statement to see what was going on, and it
works fine. The ***** Print statement here should work.. I am not seeing
any reason for it not to work.
Has anyone seen similar results?
Jim Limburg
