FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour lEditCol y bValid
jicorral
Posts: 47
Joined: Thu Jul 10, 2008 07:33 AM
lEditCol y bValid
Posted: Mon Nov 10, 2008 06: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.

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


Code: Select all Collapse
bValid := {|| ProvExi(@uDato) }
lSigo := oBro:lEditCol(1, @uDato, '@!', bValid)
Jorge Ignacio Corral
Enjoy it :)
jicorral
Posts: 47
Joined: Thu Jul 10, 2008 07:33 AM
Re: lEditCol y bValid
Posted: Tue Nov 11, 2008 06:07 PM
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 Collapse
@ 10, 0 BUTTON oBtn PROMPT "" ACTION ( oDlg:End(), lOk := .t. ) OF oDlg DEFAULT


A:

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


¿Es normal esto?
Jorge Ignacio Corral
Enjoy it :)

Continue the discussion

Static archive · New replies & topics via GitHub Discussions