GET cuando esta como PASSWORD no funciona del todo el change

[goosfancito]

Hola.

Code: Select all  Expand view

METHOD setGets() CLASS TUsuarios

   ::oGets := Array( 5 )
   ::vGets := Array( 5 )

   REDEFINE GET ::oGets[ 1 ] VAR ::vGets[ 1 ] ID 100 PICTURE "@!" OF ::oDlg
   REDEFINE GET ::oGets[ 2 ] VAR ::vGets[ 2 ] ID 102 PICTURE "@!" OF ::oDlg
   REDEFINE GET ::oGets[ 3 ] VAR ::vGets[ 3 ] ID 104 OF ::oDlg                                 <--------- EN EL RECURSO ESTA COMO PASSWORD

   REDEFINE checkbox ::oGets[ 4 ] VAR ::vGets[ 4 ] ID 106 OF ::oDlg
   REDEFINE checkbox ::oGets[ 5 ] VAR ::vGets[ 5 ] ID 108 OF ::oDlg

   RETURN ( NIL )

method pantalla()

   DEFINE DIALOG oDlg resource "BRWUSUARIOS"

   ::setGets()
   ::setBrw()
   ::setBtns()

   //----------( )----------

   ::oGets[ 1 ]:bchange := { | | ::oGets[ 1 ]:assign(), ::controlBtn() }
   ::oGets[ 2 ]:bchange := { | | ::oGets[ 2 ]:assign(), ::controlBtn() }
   ::oGets[ 3 ]:bchange := { | | ::oGets[ 3 ]:assign(), ::controlBtn() }      <-------------- Cuando escribo el método funciona, PERO cuando empiezo a borrar no funciona

   ::oGets[ 4 ]:bchange := { || IIf( ::vGets[ 4 ], MsgInfo( "si" ), MsgInfo( "no" ) ) }

   ACTIVATE DIALOG oDlg CENTERED ON INIT ( this:inicializar(), this:leerUsuarios() )
 

[jll-fwh]

Hola goosfancito:

El problema que veo que no tienes inicializados los elementos del ARRAY ::vGets := Array( 5 ), la forma más fácil es la de toda la vida y veras como funciona. Sería mejor inicializar las variables en el método CREATE() pero cada uno tiene su metodología de trabajo.

::vGets := Array( 5 )

// Cada elemento puede inicializarse como sea necesario, en este caso, puede ser así:
::vGets[1] := Space( 50 )
::vGets[2] := Space( 50 )
::vGets[3] := Space( 50 )
::vGets[4] := Space( 50 )
::vGets[5] := Space( 50 )

Javier Lloris
javierllorisprogramador@gmail.com
Blogs personales:
Programación: https://javierlloris.blogspot.com/
Japonés: https://bitacorajaponesa.blogspot.com/
Cubos de Rubik: https://www.instagram.com/jllorisperson ... 2ybz0gmvul
Tengo una colección de unos 100 cubos de todo tipo de formas geométricas, todos resueltos, en instagram solo hay unos cuentos cubos.

[goosfancito]

hola
no lo puse pero si, tengo inicializado los valores.

[jll-fwh]

Hola goosfancito:

Muestra el código fuente real, método del constructor y el método que te da problemas sino complicado saber donde esta el fallo. Yo tengo programas con campos Password y nunca he tenido problemas con ninguna versión. Alguna linea que ahora no ves, no esta bien, siempre son chorradas que no vemos porque nos enzecamos y no leemos bien el código.

Un abrazo compi y buena noche.
Javier Lloris
javierllorisprogramador@gmail.com

Blogs personales:
Programación: https://javierlloris.blogspot.com/
Japonés: https://bitacorajaponesa.blogspot.com/
Cubos de Rubik: https://www.instagram.com/jllorisperson ... 2ybz0gmvul
Tengo una colección de unos 100 cubos de todo tipo de formas geométricas, todos resueltos, en instagram solo hay unos cuentos cubos.