lEditCol y bValid

[jicorral]

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.

Code: Select all | Expand

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

Code: Select all | Expand

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

[jicorral]

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

De:

Code: Select all | Expand

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

A:

Code: Select all | Expand

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

¿Es normal esto?