Jim,

I think you need:
WHERE company IN (&vm_comp).....

>***** PRINT emplbycomp +
>      WHERE company IN (.vm_comp) AND injurydate BETWEEN .vmdt_begdt +
>      AND .vmdt_enddt ORDER BY company ASC, injurydate DESC



===== Original Message from [EMAIL PROTECTED] at 11/12/01 12:15 pm
>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

Reply via email to