cosa rara con maskedit
Publicado: Sab Mar 05, 2005 8:54 am
Algo estoy haciendo mal. He puesto un maskedit en la rebar para introducir
un valor y buscar. En el evento onexit de este maskedit llamo a un metodo
que realice tal busqueda, pero... a parte de que si vuelco el
oMaskedit:value en una variable, esta queda vacia, si por casualidad no
encuentra, muestro un mensaje que dice "No se ha encontrado" mediante una
llamada a una funcion, y veo que se ejecuta 3 veces que ando haciendo mal?
METHOD Search_OnExit( oMaskEdit ) CLASS TContactos
LOCAL cValor := PADR( RTRIM( oMaskEdit:Value, 40 ) )
LOCAL nRec := ( ::cAliasTEMP )->( Recno() )
If !Empty( oMaskEdit:Value )
::nActive_BUTTON := 11
::Refresh_datos( ::nActive_BUTTON )
If ( ::cAliasTEMP )->( DbSeek( Upper( PADR( oMaskEdit:Value, 40 ) ),
..T. ) )
::Select_Pos_Treeview()
::oTreeview_CONTACTOS:SetFocus()
Else
NoFound()
( ::cAliasTEMP )->( DBgoto( nRec ) )
Endif
Endif
Atentamente : Francisco Sanchez GERENTE GRUPO ST - Software TOTAL -
RETURN .T.
un valor y buscar. En el evento onexit de este maskedit llamo a un metodo
que realice tal busqueda, pero... a parte de que si vuelco el
oMaskedit:value en una variable, esta queda vacia, si por casualidad no
encuentra, muestro un mensaje que dice "No se ha encontrado" mediante una
llamada a una funcion, y veo que se ejecuta 3 veces que ando haciendo mal?
METHOD Search_OnExit( oMaskEdit ) CLASS TContactos
LOCAL cValor := PADR( RTRIM( oMaskEdit:Value, 40 ) )
LOCAL nRec := ( ::cAliasTEMP )->( Recno() )
If !Empty( oMaskEdit:Value )
::nActive_BUTTON := 11
::Refresh_datos( ::nActive_BUTTON )
If ( ::cAliasTEMP )->( DbSeek( Upper( PADR( oMaskEdit:Value, 40 ) ),
..T. ) )
::Select_Pos_Treeview()
::oTreeview_CONTACTOS:SetFocus()
Else
NoFound()
( ::cAliasTEMP )->( DBgoto( nRec ) )
Endif
Endif
Atentamente : Francisco Sanchez GERENTE GRUPO ST - Software TOTAL -
RETURN .T.