>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