Hola Karinha
No, no uso la clausula transparent en los radios, este es el rc del di谩logo :
LISTLLAMA DIALOG DISCARDABLE 54, 57, 338, 175
STYLE WS_POPUP|DS_MODALFRAME|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
CAPTION "Buscar"
FONT 8, "MS Sans Serif"
{
CONTROL "DIA DE LLAMADA", 101, "Button", BS_GROUPBOX, 8, 24, 80, 104
CONTROL "LUNES", 4001, "Button", BS_RADIOBUTTON|WS_GROUP, 16, 40, 64, 12
CONTROL "MARTES", 4002, "Button", BS_RADIOBUTTON|WS_GROUP, 16, 56, 64, 12
CONTROL "MI脡RCOLES", 4003, "Button", BS_RADIOBUTTON|WS_GROUP, 16, 72, 64, 12
CONTROL "JUEVES", 4004, "Button", BS_RADIOBUTTON|WS_GROUP, 16, 88, 64, 12
CONTROL "S脕BADO", 4005, "Button", BS_RADIOBUTTON|WS_GROUP, 16, 104, 64, 12
CONTROL "LISTAR POR", 102, "Button", BS_GROUPBOX, 96, 36, 68, 64
CONTROL "PANTALLA", 4006, "Button", BS_RADIOBUTTON|WS_GROUP, 100, 56, 56, 10
CONTROL "IMPRESORA", 4007, "Button", BS_RADIOBUTTON|WS_GROUP, 100, 80, 56, 10
CONTROL "Indique n煤mero de reparto", 103, "Static", SS_RIGHT|SS_CENTERIMAGE|WS_GROUP, 240, 32, 88, 12
CONTROL "REPARTO", 104, "Static", SS_RIGHT|SS_CENTERIMAGE|WS_GROUP, 192, 48, 84, 12
CONTROL "Indique fecha de servicio de los pedidos", 105, "Static", SS_RIGHT|SS_CENTERIMAGE|WS_GROUP, 196, 68, 132, 12
CONTROL "FECHA PEDIDOS", 106, "Static", SS_RIGHT|SS_CENTERIMAGE|WS_GROUP, 200, 84, 60, 12
CONTROL "", 4008, "Edit", WS_BORDER|WS_GROUP|WS_TABSTOP, 284, 48, 44, 12
CONTROL "", 4009, "Edit", WS_BORDER|WS_GROUP|WS_TABSTOP, 268, 84, 60, 12
CONTROL "", 107, "Static", 0x00000000, 148, 104, 160, 8
CONTROL "", 4010, "msctls_progress32", 0x00000000, 148, 116, 152, 12
CONTROL "Aceptar", 221, "Button", BS_RIGHT|WS_TABSTOP, 88, 144, 55, 16
CONTROL "Salir", 223, "Button", BS_RIGHT, 192, 144, 55, 16
}
Y este el c贸digo del prg.
DEFINE DIALOG oDlgLisal RESOURCE "LISTLLAMA" COLOR RGB(0,0,0),RGB(204,204,204);
TITLE "LISTADO DE CLIENTES LLAMADOS SIN COMPRA"
REDEFINE SAY oSay[1] ID 101 PROMPT "D脥A DE LLAMADA";
COLOR RGB(0,0,127),RGB(204,204,204) OF oDlgLisal
REDEFINE SAY oSay[2] ID 102 PROMPT "LISTAR POR";
COLOR RGB(0,0,127),RGB(204,204,204) OF oDlgLisal
REDEFINE SAY oSay[3] ID 103 ;
PROMPT "Indique n煤mero de reparto";
COLOR RGB(0,0,127),RGB(204,204,204) OF oDlgLisal
REDEFINE SAY oSay[4] ID 104 PROMPT "REPARTO";
COLOR RGB(0,0,127),RGB(204,204,204) OF oDlgLisal
REDEFINE SAY oSay[5] ID 105 ;
PROMPT "Indique fecha de servicio de los pedidos";
COLOR RGB(0,0,127),RGB(204,204,204) OF oDlgLisal
REDEFINE SAY oSay[6] ID 106 ;
PROMPT "FECHA PEDIDOS";
COLOR RGB(0,0,127),RGB(204,204,204) OF oDlgLisal
REDEFINE SAY oSay[7] VAR cAcciones ID 107 ;
COLOR RGB(0,0,127),RGB(204,204,204) OF oDlgLisal UPDATE
REDEFINE RADIO oRadio1 VAR nOption1 OF oDlgLisal UPDATE ;
ID 4001,4002,4003,4004,4005;
ON CHANGE (oRadio1:Refresh(), oRadio2:Refresh());
COLOR RGB(0,0,127),RGB(204,204,204)
REDEFINE RADIO oRadio2 VAR nOption2 OF oDlgLisal UPDATE ;
ID 4006,4007;
ON CHANGE (oRadio2:Refresh(),oRadio1:Refresh());
COLOR RGB(0,0,127),RGB(204,204,204)
REDEFINE PROGRESS oProgress ID 4010 OF oDlgLisal
* Datos a buscar, reparto y fecha
REDEFINE GET oGet[1] Var aDatos[1] ID 4008 OF oDlgLisal;
PICTURE "99" COLOR RGB(0,0,127),RGB(192,240,127) UPDATE
REDEFINE GET oGet[2] Var aDatos[2] ID 4009 OF oDlgLisal;
PICTURE "@D" COLOR RGB(0,0,127),RGB(192,240,127);
VALID !EMPTY(aDatos[2]) UPDATE
REDEFINE BUTTONBMP ID 221 OF oDlgLisal BITMAP "ACEPTAR" TEXTRIGHT ;
ACTION BLlamadaSIN(nOption1,nOption2,aDatos,oDlgLisal,oSay,oProgress),;
oDlgLisal:aControls[1]:SetFocus()
REDEFINE BUTTONBMP ID 223 OF oDlgLisal BITMAP "SALIR1" TEXTRIGHT CANCEL;
ACTION oDlgLisal:End()
ACTIVATE DIALOG oDlgLisal CENTER;
VALID (oBarMain:Enable(),oMenu:Enable(),dbCloseAll(),.t.)
SysRefresh()