Jim,

Is assembly# text or numeric?
What happens if you comment out the code you have and simply place a command
such as:

-- If assembly# numeric:
PRINT assemblycost WHERE Assembly#  = 123 +
OPTION SCREEN|Window_State MAXIMIZED

-- If assembly# Text:
PRINT assemblycost WHERE Assembly#  = 'ABC' +
OPTION SCREEN|Window_State MAXIMIZED

This way you take the variable out. You can run it from the R> prompt first
to make sure you have the right values for assembly# and the report runs
correctly.

Also, can you turn Messages and Error Messages on to make sure you are not
getting an error message?
Have you tried using the error variable to capture potential error messages?
At the beginning of your print utility add:

SET ERROR VARIABLE vErrorVariable

--your print code goes here
...
--Use both cases below  to make sure the code is not being by-passed 
IF vErrorVariable <> 0 THEN
  PAUSE 2 USING . vErrorVariable CAPTION 'Error Message Present...' ICON APP

ELSE
  PAUSE 2 USING 'No error present' CAPTION 'Error Message Not Present...'
ICON APP
ENDIF
...
The rest of your print code.

Javier,

Javier Valencia, PE
O: 913-829-0888
H: 913-397-9605
C: 913-915-3137

-----Original Message-----
From: [email protected] [mailto:[email protected]] On Behalf Of Jim Belisle
Sent: Tuesday, April 08, 2014 1:32 PM
To: RBASE-L Mailing List
Subject: [RBASE-L] - STRANGE REPORT PROBLEM

 

Frank,

 

I completely recreated the report but got the same result after compiling
it.

The code is so simple and the same as I have for other reports on the same
form.

Assemblycost is the report name.

The report works when in the explorer mode when using the WHERE builder.

In the application it does not work. 

Below is the simple code I use. The same code is used on another report that
works. 

 

SELECT (COUNT(*)) INTO vac2 INDICATOR ivac2 FROM assy_part +

WHERE assembly# = .vpartnumid

IF vac2 = 0 THEN

  PAUSE 1 USING 'Information not available. Use Assy_Part Entry Button!'
+

  CAPTION 'Assembly Part Information' BUTTON 'Finish'

  GOTO done

ELSE

  PRINT assemblycost WHERE assembly# = .vpartnumid +

  OPTION SCREEN|WINDOW_STATE MAXIMIZED +

  |ZOOM_TYPE PERCENTAGE|ZOOMPERCENT 100

ENDIF

RECALC VAR

LABEL done

CLEAR VAR vac2, ivac2

SKIP TO partnum

RETURN

 

James Belisle

 

Making Information Systems People Friendly Since 1990

 

 


Reply via email to