For Next Loop

[crimmelcp]

I have a button on a form with this code
it is not recognizing the if statements
What is the correct syntax inside the for next loop.
example
If tstat.OCCUPIED = .T. then
It will not recognize tstat.occupied
any ideas
Thanks
Charlie Crimmel

DIM Global vtable_no As C
DIM Global vTablenum as C
DIM Global vtableok as L
Dim Global vbuttonno as C
Dim Global vnexttable As C
Dim Global vicount AS N
Dim Global vcolor AS C
'var->vtable_no = "1"
'var->vtablenum = "1"
var->vbuttonno = ""
var->vtableok = .F.
var->vnexttable = ""
var->vicount = 0
var->vtable_no = ""
var->vcolor = ""
tstat = table.current()

FOR i = 1 TO 20 
var->vicount = var->vicount + 1
var->vtable_no = alltrim(str(var->vicount,5))

If tstat.OCCUPIED = .T. then
	var->vcolor = "Red"
end if
If tstat.notoccupied = .T. then
	var->vcolor = "Green"
end if	
If tstat.reserved = .T. then
	var->vcolor = "Yellow"
end if	
If tstat.closed = .T. then
	var->vcolor = "Pink"
end if
vbuttonno = "button" + alltrim(var->vtable_no) + ".fill.color=" + chr(34)+ var->vcolor + chr(34)
	
trace.WriteLn("var->vicount = " + var->vicount)
trace.WriteLn("var->vtable_no = " + var->vtable_no)
trace.WriteLn("Variable Button Fill Color = " + vbuttonno)
tstat.fetch_next()
next
end

[Stan Mathews]

Re: For Next Loop

Form based on table or set? If set, what is parent table?

[crimmelcp]

Re: For Next Loop

Single table
no set

tstat = table.current()
It stands for table status

[Tom Henkel]

Re: For Next Loop

Charlie,

Is it not recognizing it, or simply overwriting the vcolor?

I would put a debug(1) at the beginning of the loop and see what is going on. You can see the value of vcolor as you pas through each IF statement. Your traces only show the end result on each pass.

Tom

[Stan Mathews]

Re: For Next Loop

Works fine here.

var->vicount = 1
var->vtable_no = 1
Variable Button Fill Color = button1.fill.color="Red"
var->vicount = 1
var->vtable_no = 1
Variable Button Fill Color = button1.fill.color="Red"
var->vicount = 1
var->vtable_no = 1
Variable Button Fill Color = button1.fill.color="Red"
var->vicount = 2
var->vtable_no = 2
Variable Button Fill Color = button2.fill.color="Red"
var->vicount = 3
var->vtable_no = 3
Variable Button Fill Color = button3.fill.color="Red"
var->vicount = 4
var->vtable_no = 4
Variable Button Fill Color = button4.fill.color="Red"
var->vicount = 5
var->vtable_no = 5
Variable Button Fill Color = button5.fill.color="Red"
var->vicount = 6
var->vtable_no = 6
Variable Button Fill Color = button6.fill.color="Red"
var->vicount = 7
var->vtable_no = 7
Variable Button Fill Color = button7.fill.color="Red"
var->vicount = 8
var->vtable_no = 8
Variable Button Fill Color = button8.fill.color="Red"
var->vicount = 9
var->vtable_no = 9
Variable Button Fill Color = button9.fill.color="Red"
var->vicount = 10
var->vtable_no = 10
Variable Button Fill Color = button10.fill.color="Red"
var->vicount = 11
var->vtable_no = 11
Variable Button Fill Color = button11.fill.color="Red"
var->vicount = 12
var->vtable_no = 12
Variable Button Fill Color = button12.fill.color="Red"
var->vicount = 13
var->vtable_no = 13
Variable Button Fill Color = button13.fill.color="Red"
var->vicount = 14
var->vtable_no = 14
Variable Button Fill Color = button14.fill.color="Red"
var->vicount = 15
var->vtable_no = 15
Variable Button Fill Color = button15.fill.color="Red"
var->vicount = 16
var->vtable_no = 16
Variable Button Fill Color = button16.fill.color="Red"
var->vicount = 17
var->vtable_no = 17
Variable Button Fill Color = button17.fill.color="Red"
var->vicount = 18
var->vtable_no = 18
Variable Button Fill Color = button18.fill.color="Red"
var->vicount = 19
var->vtable_no = 19
Variable Button Fill Color = button19.fill.color="Red"
var->vicount = 20
var->vtable_no = 20

[Stan Mathews]

Re: For Next Loop

Are you trying to change the button colors?

evaluate_template(vbuttonno)

[Mike Wilson]

Re: For Next Loop

error

[EJR]

Re: For Next Loop

Charlie,

If tstat.OCCUPIED = .T. then
	var->vcolor = "Red"
end if
If tstat.notoccupied = .T. then
	var->vcolor = "Green"
end if	
If tstat.reserved = .T. then
	var->vcolor = "Yellow"
end if	
If tstat.closed = .T. then
	var->vcolor = "Pink"
end if

There's another issue you may want to consider. If tstat.OCCUPIED and tstat.notoccupied are opposites, get rid of one (eliminate tstat.notoccupied). You can then use:

if tstat.occupied then
    ....

OR

if .not. tstat.occupied then
    ....

Otherwise you could have the illogical situation where both variables = .t. or both = .f.


Eric

[martinwcole]

Re: For Next Loop

try this - note the code in the browse onsave and canrowchange events
there is a lot that needs to be done - like unchecking other columns when you check one. Also, in the table field rules, in field events, notice what I did with occupied

t=table.current()
if is_object("Table_Status_NewTest")
:Table_Status_NewTest:browse1.commit()
end if

[martinwcole]

Re: For Next Loop

ok - here it is cleaned up, with the change occurring when you click any of the logicals, and "unchecking" the rest

note no calculated fields or variables are used - the only looping occurs at the oninit event - to set all the colors


***********************
although as I think about it, I bet this is a touch screen app. If that is so, and the buttons are that large, I would put little colored buttons at each corner of each big table button, and let them click the corner to set the value

[crimmelcp]

Re: For Next Loop

Thanks for everyones help.
I changed my way of thinking.
Instead of using the table to control the buttons, I am using the buttons to control the table.
You can just touch (yes Martin it is a touch screen app) or click
the buttons. Each click will toggle the button to another status and change the tabls.