Activar/Desactivar control radio

[JoseAlvarez]

Saludos a todos, esperando se encuentren muy bien.

Tengo un control RADIO de tres opciones, de las cuales necesito activar/desactivar dos de ellas
segun una condicion. Me explico: tengo el siguiente dialogo:



En la parte inferior, estan las 3 opciones del control radio.
Las dos primeras deben activarse cuando el segundo browse (color verde) tenga alguna fila de datos y desactivarse la tercera.
Cuando el segundo browse no tenga datos, deben desativarse las dos primeras y solo estar activa la tercera opcion. es decir:

Segundo browse con datos = opciones 1 y 2 ENABLE() , tercera opcion DISABLE()
Segundo browse sin datos = opciones 1 y 2 DISABLE() , tercera opcion ENABLE()

Agradezco desde ya, la ayuda...

[FranciscoA]

José, mira si te es util.

Code: Select all  Expand view

//---------------------------------------//
// RADIO DESHABILITADO SEGUN CONDICION
//---------------------------------------//
Function RadioEnabDisab()
   local oDlg, oBrw1, oBrw2, oRadio, nRadio := 1
   local aData := {}

   USE STATES NEW

   DEFINE DIALOG oDlg FROM 0,0 TO 500, 640 PIXEL TRUEPIXEL ;
      TITLE "RADIO ENABLE/DISABLE SEGUN DATOS EN oBrw2"

   //Browse Fuente
   @ 20, 20 XBROWSE oBrw1 SIZE 300,-120 PIXEL OF oDlg ;
      DATASOURCE "STATES" ;
      COLUMNS "Code","Name" ;
      COLSIZES 60,180 ;
      CELL LINES NOBORDER

   WITH OBJECT oBrw1
      :bLDblClick  := { || aadd(aData, {oBrw1:Code:Value,oBrw1:Name:Value}), oBrw2:Refresh(), RadEnabDisab(oRadio,oBrw2) }
      :CreateFromCode()
   END

   //Browse Destino
   @ 20,320 XBROWSE oBrw2 SIZE 300,-120 PIXEL OF oDlg ;
      DATASOURCE aData ;
      COLUMNS 1,2 ;
      HEADERS "CODIGO", "NOMBRE" ;
      COLSIZES 60,180 ;
      CELL LINES NOBORDER

   WITH OBJECT oBrw2
      :bKeyDown    := { |nKey| if(nKey == VK_DELETE, (ASize(aData,0), oBrw2:Refresh(), RadEnabDisab(oRadio,oBrw2)),) }
      :CreateFromCode()
   END

   @.1,1 Say "Doble Click en Browse 1 para agregar a Browse 2, o tecla Delete en Browse 2 para limpiarlo" of oDlg
   @ oDlg:nHeight-90,240 RADIO oRadio VAR nRadio OF oDlg ;
            ITEMS "Opcion 1","Opcion 2","Opcion 3";
            _3D SIZE 150, 25  PIXEL

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT ( oBrw1:SetSize((oDlg:nWidth/2)-30, oDlg:nHeight-20) ,;
                oBrw2:SetSize(oBrw1:nWidth, oBrw1:nHeight) ,;
                oBrw1:Move(oDlg:nTop+20,oDlg:nLeft+20) ,;
                oBrw2:Move(oDlg:nTop+20,oBrw1:nWidth+40) ,;
                RadEnabDisab(oRadio,oBrw2) )
       
   STATES->(DBCLOSEAREA())
return nil

//-------------------------------------------//
Function RadEnabDisab(oRadio,oBrw2)
   if oBrw2:nLen == 0
      oRadio:aItems[1]:Disable()
      oRadio:aItems[2]:Disable()
      oRadio:aItems[3]:Enable()   ;   oRadio:aItems[3]:SetFocus()
   else
      oRadio:aItems[1]:Enable()   ;   oRadio:aItems[1]:SetFocus()
      oRadio:aItems[2]:Enable()
      oRadio:aItems[3]:Disable()
   endif
Return nil
 

Saludos.

[JoseAlvarez]

Francisco,

Muchísimas gracias!

Funcionando perfecto!

Saludos!

[karinha]

Gracias FranciscoA, Very good!

Regards, saludos.

[FranciscoA]

José, Karinha:

Encantado de colaborar.

Saludos.