FiveTech Support Forums

Podrian Ayudarme:

Como puedo actualizar un recurso dentro DIALOGS de un folder.

Ejemplo:

DEFINE DIALOG oWnd RESOURCE "SACS_FOLDER" TITLE "Ejemplo "
REDEFINE FOLDER oFld ID 200 OF oWnd ;
PROMPTS "Datos", "Ejemplo1","Ejemplo2","Ejemplo3","Ejemplo4" ;
DIALOGS "SACS_DATOS", IF((oSin)->VAR = "A","SACS_AUTO","SACS_CASA")
oFld:aEnable = { .t., .f., .f., .f. }
oWnd:lHelpIcon := .f.

REDEFINE BTNBMP oIma1 ID 300 OF oFld:aDialogs[1] RESOURCE "E_BUSCAR" NOBORDER;
TOOLTIP "Actualiza 1..." ACTION Actualiza1(oWnd, oFld)

REDEFINE BTNBMP oIma2 ID 301 OF oFld:aDialogs[1] RESOURCE "E_BUSCAR" NOBORDER;
TOOLTIP "Actualiza 2..." ACTION Actualiza2(oWnd, oFld)

REDEFINE BTNBMP oIma3 ID 302 OF oFld:aDialogs[1] RESOURCE "E_BUSCAR" NOBORDER;
TOOLTIP "Actualiza 3..." ACTION Actualiza3(oWnd, oFld)

ACTIVATE DIALOG oWnd

RETURN ( NIL )

STAT FUNC Actualiza1(oWnd,oFld)
oFld:aEnable[2]:=.T.
oFld:aDialogs[2]:Refresh()
Actualizacion de DIALOGS ( "SACS_ANTERIOR" A "SACS_NUEVA",")
Alguien prodria Ayudarme como hacer esta actualizacion

RETURN (NIL)

maecmx,

En cada control coloca la palabra UPDATE y después cuando quieras actualizar un dialogo del folder harás lo siguiente: oFld:aDialogs[1]:update()

eso sería suficiente.

William:

Muchas gracias ya hice la prueba pero no me esta actualizando el Folder. me deja el mismo recurso
No se donde tendria que poner el nuevo recurso yo lo estoy haciendo asi

REDEFINE FOLDER oFld ID 200 OF oWnd ;
PROMPTS "Ejemplo1", "Ejemplo2","Ejemplo3","Ejemplo4","Ejemplo5" ;
DIALOGS "SACS_DATOS", IF((oSin)->VAR = "A","SACS_AUTO","SACS_CASA") , "SACS_SEGIMIENTO", "SACS_DATOS", "SACS_ANEXO"

STAT FUNC Poliza1(oWnd,oFld)
DO CASE
Case (oSin)->VARIABLE = "A"
"SACS_A" SERIA ESTE EL RECURSO DEPENDIENDO DE LA VARIABLE
Case (oSin)->VARIABLE = "B"
"SACS_B" SERIA ESTE EL RECURSO DEPENDIENDO DE LA VARIABLE
Case (oSin)->VARIABLE = "C"
"SACS_B" SERIA ESTE EL RECURSO DEPENDIENDO DE LA VARIABLE
ENDCASE

Como definir este nuevo recurso solo para esta pestaña del folder aDialogs[2] en este caso

oFld:aDialogs[2]:update()
RETURN (NIL)

hice la prueba con esta opcion pero solo me cambia este recurso y elimina las demas
oFld:LoadPages( {"SACS_A" },)

Tienes que pasar los otros recursos y volver a definir.

Lo ideal es hacer una función por cada recurso cargado, así podrás redefinirlos cuantas veces los necesites.

por ejemplo:

una funcion para cada una de las siguientes pestañas.
SACS_DATOS
SACS_AUTO
SACS_CASA
SACS_SEGIMIENTO
SACS_DATOS
SACS_ANEXO