hi

I have the following problem.
I did a procedure for valid the fields that must fill with obligatory form
everything works well but the order in which them valid not, though every control takes his tabindex as a debit to be them valid without this order.

this is code, sorry bad tab.

for x=1 to thisform.controlcount
	nom=thisform.controls(x).name
	oj='thisform.'+nom
	if pemstatus(&oj,'enblanco',5)
		oj2='!'+oj+'.enblanco'
		oj3=oj+'.value'
		come=oj+'.tag'
		cam=&come
		cvalor=&oj3
	if type('cvalor')="C" or type('cvalor')="U" or type('cvalor')="D"
		oj9=iif(!empty(cam),cam+' En Blanco No Permitido, Verifique, Por      Favor','Campo En Blanco No Permitido, Verifique, Por Favor')
	oj8='empty(&oj3)'
	endif
	if type('cvalor')="N"
				if &oj3<=0
					oj9=iif(!empty(cam),cam+' No Puede Ser Menor o Igual a Cero, Verifique, Por Favor','Campo No Puede Ser Menor o Igual a Cero, Verifique, Por Favor')
				endif
				oj8='&oj3<=0'
			endif
			if &oj2 and &oj8  and thisform.controls(x).enabled
				thisform.mensajes(oj9,1)
				oj7=oj+'.setfocus'
				&oj7
				thisform.refresh
				return 0
			endif
		endif
	endif
endfor