Frank,
V_subtotal1, V_subtotal2 and V_subtotal3 have to be set or evaluated
first. Add a RETURN to the bottom.  Then your code works fine.  I tested
the following:
set v v_subtotal1 = 400
  set v v_subtotal2 = 500
  set v v_subtotal3 = 1000
  set v v_subtotal4 = 2000
  SET VAR v_subtotal5 = (.v_subtotal3 + .v_subtotal4)
  SET VAR v_1 = (FORMAT(.v_subtotal1,'[>>]$9,999.00'))
  SET VAR v_2 = (FORMAT(.v_subtotal2,'[>>]$9,999.00'))
  SET VAR v_3 = (FORMAT(.v_subtotal3,'[>>]$9,999.00'))
  SET VAR v_4 = (FORMAT(.v_subtotal4,'[>>]$9,999.00'))
  SET VAR v_5 = (FORMAT(.v_subtotal5,'[>>]$9,999.00'))
  WRI .v_1           AT 15,70 WHITE ON BLACK
  WRI .v_2           AT 16,70 WHITE ON BLACK
  WRI .v_3           AT 18,70 WHITE ON BLACK
  WRI .v_4           AT 19,70 WHITE ON BLACK
  WRI .v_5           AT 21,70 WHITE ON BLACK
*(END OF PROGRAM)
  RETURN
~Claudine :)

-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] On Behalf Of Frank
Carrubba
Sent: Wednesday, December 25, 2002 8:36 PM
To: RBASE-L Mailing List
Subject: [RBASE-L] - Screen Displays

I hope someone can help me with this problem,  I have an older Rbase
application I am converting to 6.5++.  This is a retail pint of sale
application, as item numbers are enter on to the screen running totals
and
sales tax is computer and displayed on the screen as each line is
entered by
calling and eep.  Here's the code:

SET VAR v_subtotal5 = (.v_subtotal3 + .v_subtotal4)
SET VAR v_1 = (FORMAT(.v_subtotal1,'[>>]$9,999.00'))
SET VAR v_2 = (FORMAT(.v_subtotal2,'[>>]$9,999.00'))
SET VAR v_3 = (FORMAT(.v_subtotal3,'[>>]$9,999.00'))
SET VAR v_4 = (FORMAT(.v_subtotal4,'[>>]$9,999.00'))
SET VAR v_5 = (FORMAT(.v_subtotal5,'[>>]$9,999.00'))
WRI .v_1           AT 15,70 White on Black
WRI .v_2           AT 16,70 White on Black
WRI .v_3           AT 18,70 White on Black
WRI .v_4           AT 19,70 White on Black
WRI .v_5           AT 21,70 White on Black
*(END OF PROGRAM)

The value of the variables are computing fine, but nothing is displaying
on
the screen.

Thanks,
Frank
Technology Solutions
[EMAIL PROTECTED]

Reply via email to