FiveTech Software tech support forums

Posted: **Mon Nov 10, 2008 6:12 pm**

Siempre sale del campo y salta al siguiente campo. Evalua el bloque pero no tiene en cuenta el valor retornado. Tambien lSigo siempre es .T.

bValid := {|| .F. }
lSigo := oBro:lEditcol( 2, @uDato, '@!', bValid )

bValid := {|| ProvExi(@uDato) }
lSigo := oBro:lEditCol(1, @uDato, '@!', bValid)

Posted: **Tue Nov 11, 2008 6:07 pm**

He tenido que modificar el metodo lEditCol de TWBrowse() para que valide y no salga del campo con un valor erroneo.

De:

@ 10, 0 BUTTON oBtn PROMPT "" ACTION ( oDlg:End(), lOk := .t. ) OF oDlg DEFAULT

A:

@ 10, 0 BUTTON oBtn PROMPT "" ACTION ( lOk := oGet:lValid(), if(lOk, oDlg:End(),) ) OF oDlg DEFAULT

¿Es normal esto?

lEditCol y bValid