FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour FOLDERS Y RADIOS
Posts: 5
Joined: Wed Jul 07, 2010 11:08 PM
FOLDERS Y RADIOS
Posted: Thu Jan 06, 2011 08:08 PM

hOLA,

TENGO UN FOLDER DEFINIDO ASI :

redefine folder ofld id 303 of odlg2 prompt "Motivo Verificaci贸n","Tipo de Contrucci贸n","Situaci贸n del lote",;
"Estatus de Cobranza","Servicios","Tiempo de habitarlo","Se encontro gente","Resultado gestion",;
"Informaci贸n Asignatarios" ;
PAGES "pagBitac1","pagbitac9","pagbitac8","pagbitac7","pagbitac4","pagbitac5","pagbitac6", "pagbitac11", "pagbitac10";

DENTRO DEL FOLDER TENGO ESTAS ALGNAS PAGINAS PERO ESTAS 3 TIENEN PUROS RADIO BUTTONS

redefine radio caps[61] ID 101,102,103,104,105,106,107 OF ofld:adialogs[ 2 ] update // tipo de constr

redefine radio caps[62] ID 101,102,103,104,105,106,107,108,110 OF ofld:adialogs[ 3 ] update // situacion lote
redefine get caps[59] picture "@!" ID 109 OF ofld:adialogs[ 3 ] COLOR CLR_BLACK, CLR_YELLOW update readonly

redefine radio caps[60] ID 101,102,103,104,105,106,107,108 OF ofld:adialogs[ 4 ] update // estado de cobranza

EL PROBLEMA QUE TENGO ES QUE AL QUERE ACTUALIZAR LOS VALORES DE LOS RADIO BUTTONS:

if lotes->tipo = "01"
caps[61]:=1
elseif lotes->tipo = "02"
caps[61]:=2
elseif lotes->tipo = "03"
caps[61]:=3
elseif lotes->tipo = "04"
caps[61]:=4
elseif lotes->tipo = "05"
caps[61]:=5
elseif lotes->tipo = "06"
caps[61]:=6
elseif lotes->tipo = "07"
caps[61]:=7
endif

ofld:adialogs[ 2 ]:update()

NO SE ACTUALIZA EL RADIO DE LA PESTA脩A 2.

LA UNICA FORMA QUE SE PUEDE VER LA ACTUALIZACION ES SI SELECCIONE ESA PESTA脩A2 Y LUEGO ENVOCO LA FUNCION QUE ACTUALIZA ALLI S脥 SE VE EL CAMBIO, PERO SI ESTA EN OTRA PESTA脩A ACTUALIZO Y LUEGO ME CAMBIO A LA PESTA脩A 2 NO SE VE EL CAMBIO...

ALGUNA IDEA ?

GRACIAS

Posts: 479
Joined: Fri Feb 16, 2007 10:29 AM
Re: FOLDERS Y RADIOS
Posted: Fri Jan 07, 2011 08:46 AM
rene.montano,

tienes que definir el objeto de los radiobuttons antes de mostrarlos si quieres que aparezcan refrescados, y para ello simplemente def铆nelos utilizando la clausula ON INIT en el ACTIVATE DIALOG:

Ejemplo:
Code (fw): Select all Collapse
Define dialog oDlg ...
聽redefine radio 1...
聽redefine radio 2...
聽...
Activate dialog oDlg center ON INIT refresh_Radio()


Funct Refresh_Radio()
聽if lotes->tipo = "01"
caps[61]:=1
elseif lotes->tipo = "02"
caps[61]:=2
elseif lotes->tipo = "03"
caps[61]:=3
elseif lotes->tipo = "04"
caps[61]:=4
elseif lotes->tipo = "05"
caps[61]:=5
elseif lotes->tipo = "06"
caps[61]:=6
elseif lotes->tipo = "07"
caps[61]:=7
endif
caps[61]:refresh() ; caps[62]:Refresh() ; caps[63]:refresh()... 聽 聽&& este refresco yo lo incluir铆a
ofld:adialogs[ 2 ]:update()
return


... espero te sirva.
Posts: 5
Joined: Wed Jul 07, 2010 11:08 PM
Re: FOLDERS Y RADIOS
Posted: Sat Jan 08, 2011 12:25 AM

gracias lo voy a intentar

Rene

Continue the discussion