Saludos al Forum
Tengo este codigo como hago para que me tome los valores de STATE diferentes deacuerdo a la opcion
Caso 1
No lo toma el valor toma el ultimo nCont
Caso 2, tampoco lo ejecuta, el valor del cComExec puede tomar diferentes valores
Ninguna de los dos casos funciona.
Algquien del forum tiene una solucion.
Tengo este codigo como hago para que me tome los valores de STATE diferentes deacuerdo a la opcion
Caso 1
No lo toma el valor toma el ultimo nCont
nBtn := 0
FOR nCont = 1 TO Len( ::acButtons )
@ pos, iif( nCont == 1, cpos+2, Col()+ 6 ) GET lPrimero PUSHBUTTON;
CAPTION ::acButtons[ nCont,5 ] STATE { || nBtn := IsPressed1(nCont) } ;
MESSAGE ::acButtons[ nCont,3 ] COLOR if(::jlopm1,::cBtnClr,::cBtnCl1)
endif
NEXT
FUNCTION IsPressed1( nButton )
IF GetActive():control:buffer
ReadKill( .T. )
ELSE
nButton := 0
ENDIF
RETURN nButtonCaso 2, tampoco lo ejecuta, el valor del cComExec puede tomar diferentes valores
cComExec := { || ::reg_nav0001("X0") }
FOR nCont = 1 TO Len( ::acButtons )
@ pos, iif( nCont == 1, cpos+2, Col()+ 6 ) GET lPrimero PUSHBUTTON;
CAPTION ::acButtons[ nCont,5 ] STATE { ||cComExec } ;
MESSAGE ::acButtons[ nCont,3 ] COLOR if(::jlopm1,::cBtnClr,::cBtnCl1)
endif
NEXTNinguna de los dos casos funciona.
Algquien del forum tiene una solucion.
