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