Page 1 of 1

Evento OnClick en un control label, (array)

Posted: Thu Jul 22, 2010 12:26 am
by jparada
Hola,

Sigo tratando de hacer "algo", con el tema de las validaciones, el siguiente código me genera un error de:
Error de Rango: Acceso al array, pero es en la línea de ONCLICK donde está el problema, lo muestro como estoy tratando de hacer.

Code: Select all

FOR i:=1 TO LEN( aWarnings )
     ValCtrl := GetProperty( "frmAddArticulo", aWarnings[i], "VALUE" )
    IF EMPTY( ValCtrl ) 
	cCtrl2 := "lblDesc" + ALLTRIM(STR(i))
				
	nRowFrm += 20
	DEFINE LABEL &cCtrl2 
		ROW	nRowFrm 
		COL	100
		WIDTH 350
		HEIGHT 20
		VALUE ( aCampos[i] +  " de artículo, no debe quedar vacío" )
		ONCLICK  { DoMethod( "frmAddArticulo", aWarnings[i], "SETFOCUS" ), frmWarning.RELEASE }
	END LABEL			
    ENDIF
NEXT
Agradezco si alguien me puede dar un tip como cambiar la línea del error, por alguna que funcione bien y que haga la función, ó mejor aún alguien más experimentado que me comente por favor, si es posible hacer esto que necesito.

Gracias

Saludos

Re: Evento OnClick en un control label, (array)

Posted: Thu Jul 22, 2010 3:44 pm
by jparada
Ahhhh, después de casi un día de prueba y error, he conseguido la funcionalidad que yo quiero, no como lo estaba planteando en mi ejemplo, sino con otro "truco".

Saludos

Re: Evento OnClick en un control label, (array)

Posted: Thu Jul 22, 2010 5:15 pm
by Rathinagiri
Oh! Nice. :)

Re: Evento OnClick en un control label, (array)

Posted: Thu Jul 22, 2010 5:31 pm
by dtoledo
Hola:

Me alegro que hayas encontrado una solucion.
En todo caso pude notar que tu problema fue olvidar las 'barras' al definir tu codeblock
Tu tienes:

ONCLICK { DoMethod( "frmAddArticulo", aWarnings, "SETFOCUS" ), frmWarning.RELEASE }

y creo que deberia ser:

ONCLICK { || DoMethod( "frmAddArticulo", aWarnings, "SETFOCUS" ),frmWarning.RELEASE }


Saludos desde Chile
DAGO

Re: Evento OnClick en un control label, (array)

Posted: Thu Jul 22, 2010 6:58 pm
by jparada
Hola Dago,

La verdad eso de las barras no lo había notado, pero al parecer es completamente indiferente, mi "problemita", fué otro.

Saludos