Ayuda button radio
Publicado por Oscar (8 intervenciones) el 21/09/2007 00:18:16
En la misma ventana de dialogo tengo 2 agrupaciones en la que uso RADIO y en cada una de ellas pongo los ID que agrupan a cada una, el problema es que al activar una de las opciones desactiva la opcion de la segunda agrupación como si las 2 agrupaciones fueran una misma, espero me orienten para que las activaciones sean independientes, anexo codigo de programa para mejor visualizacion de lo que estoy haciendo:
DEFINE DIALOG oDlg NAME "REPARA"
REDEFINE GET mNeq VAR oNeq ID 100 OF oDlg
REDEFINE GET mDeq VAR oDeq ID 105 OF oDlg READONLY
==>REDEFINE RADIO mTim VAR oTim ID 155,160,165,170 OF oDlg ===>1a. Agrupación
REDEFINE GET mFol VAR oFol ID 200 OF oDlg PICTURE "99999999"
REDEFINE GET mFec VAR oFec ID 250 OF oDlg PICTURE "99/99/9999"
REDEFINE GET mFet VAR oFet ID 300 OF oDlg PICTURE "99/99/9999"
REDEFINE GET mFal VAR oFal ID 350 OF oDlg
REDEFINE GET mAct VAR oAct MULTILINE MEMO ID 400 OF oDlg
REDEFINE GET mKms VAR oKms ID 450 OF oDlg PICTURE "9,999,999"
REDEFINE GET mCom VAR oCom ID 500 OF oDlg PICTURE "9,999.999"
REDEFINE GET mHdi VAR oHdi ID 550 OF oDlg PICTURE "999.99"
REDEFINE GET mHop VAR oHop ID 600 OF oDlg PICTURE "999.99"
REDEFINE GET mHre VAR oHre ID 650 OF oDlg PICTURE "999.99"
==> REDEFINE RADIO mSta VAR oSta ID 710,720,730 OF oDlg ===> 2a. Agrupación
REDEFINE GET mRes VAR oRes ID 750 OF oDlg
REDEFINE BITMAP ID 900 ADJUST RESOURCE "Buscar" OF oDlg CURSOR oCuD ;
ON CLICK ( oNeq:= Rep_Bus( oDlg ) , mNeq:Refresh(), ;
oDeq:= Equipos->Dec , mDeq:Refresh(), ;
mNeq:SetFocus() )
REDEFINE BUTTON ID 10 OF oDlg ACTION Rep_Save( oLbx, lSave := .T., lApp )
REDEFINE BUTTON ID 20 OF oDlg ACTION oDlg:End()
ACTIVATE DIALOG oDlg CENTERED
DEFINE DIALOG oDlg NAME "REPARA"
REDEFINE GET mNeq VAR oNeq ID 100 OF oDlg
REDEFINE GET mDeq VAR oDeq ID 105 OF oDlg READONLY
==>REDEFINE RADIO mTim VAR oTim ID 155,160,165,170 OF oDlg ===>1a. Agrupación
REDEFINE GET mFol VAR oFol ID 200 OF oDlg PICTURE "99999999"
REDEFINE GET mFec VAR oFec ID 250 OF oDlg PICTURE "99/99/9999"
REDEFINE GET mFet VAR oFet ID 300 OF oDlg PICTURE "99/99/9999"
REDEFINE GET mFal VAR oFal ID 350 OF oDlg
REDEFINE GET mAct VAR oAct MULTILINE MEMO ID 400 OF oDlg
REDEFINE GET mKms VAR oKms ID 450 OF oDlg PICTURE "9,999,999"
REDEFINE GET mCom VAR oCom ID 500 OF oDlg PICTURE "9,999.999"
REDEFINE GET mHdi VAR oHdi ID 550 OF oDlg PICTURE "999.99"
REDEFINE GET mHop VAR oHop ID 600 OF oDlg PICTURE "999.99"
REDEFINE GET mHre VAR oHre ID 650 OF oDlg PICTURE "999.99"
==> REDEFINE RADIO mSta VAR oSta ID 710,720,730 OF oDlg ===> 2a. Agrupación
REDEFINE GET mRes VAR oRes ID 750 OF oDlg
REDEFINE BITMAP ID 900 ADJUST RESOURCE "Buscar" OF oDlg CURSOR oCuD ;
ON CLICK ( oNeq:= Rep_Bus( oDlg ) , mNeq:Refresh(), ;
oDeq:= Equipos->Dec , mDeq:Refresh(), ;
mNeq:SetFocus() )
REDEFINE BUTTON ID 10 OF oDlg ACTION Rep_Save( oLbx, lSave := .T., lApp )
REDEFINE BUTTON ID 20 OF oDlg ACTION oDlg:End()
ACTIVATE DIALOG oDlg CENTERED
Valora esta pregunta
0