TSELEX problema desde recursos con UPDATE

[jose_murugosa]

Buenos días compañeros del foro,

Este es el código de un SELEX en una dialog dentro de una folder

Code: Select all  Expand view  RUN

 REDEFINE SELEX oSelex VAR aRs[1]:mant_tipo ID 101 ACTION( If( nOption == 1,  ,  ) ) ;
            ITEMS "Preventivo", "Correctivo", "Predictivo"  OF oFld:aDialogs[1] ;
            GRADIENT INTRACK  { { 1/3, nRGB( 255, 253, 222 ), nRGB( 255, 231, 151 ) }, ;
                                { 2/3, nRGB( 255, 215,  84 ), nRGB( 255, 233, 162 ) } } ;
            GRADIENT OUTTRACK { { 1/2, nRGB( 219, 230, 244 ), nRGB( 207-50, 221-25, 255 ) }, ;
                                { 1/2, nRGB( 201-50, 217-25, 255 ), nRGB( 231, 242, 255 ) } } ;
            ROUNDSIZE 20 LINECOLORS nRGB( 237, 242, 248 ), nRGB( 141, 178, 227 );
            COLORTEXT CLR_BLACK, CLR_RED THUMBSIZE 40  TITLE "Tipo de Mantenimiento" TOP UPDATE
 

La dialog tiene un conjunto de controles, uno de ellos es un SELEX.

cuando la dialog se abre en el primer registro, el control muestra correctamente la opción almacenada en el registro, pero al transladarme a los siguientes, todos los controles se actualizan pero no el SELEX, este queda con el valor que tomó cuando se abrió la tabla mysql y se posicionó en el primer registro.
Es decir este control toma correctamente el valor al abrirse la dialog y luego queda así al desplazarse a los siguientes registros sin actualizar.
¿Hay algún error en esta sintaxis?, o ¿Algo que no esté tomando en cuenta?

Gracias desde ya por su ayuda.

[Antonio Linares]

Estimado José,

> luego queda así al desplazarse a los siguientes registros sin actualizar

Cómo haces para desplazarte a los siguientes registros ?

[jose_murugosa]

Code: Select all  Expand view  RUN

FUNCTION Primero( oDlgPrinc, oFld )

     aRs[1]:gotop()
     cEstado :=  "PRIMERO"
     oFld:aDialogs[1]:Update()
     oDlgPrinc:Update()
RETURN nil

FUNCTION Anterior( oDlgPrinc, oFld )

     aRs[1]:Skip(-1)
     IF aRs[1]:Bof()
          aRs[1]:gotop()
          MsgInfo( "No hay registros anteriores" )
          cEstado := "PRIMERO"
     ELSE
          cEstado := ( "VISUALIZA" )
     ENDIF
     oDlgPrinc:Update()
     oFld:aDialogs[1]:Update()

RETURN nil

FUNCTION Siguiente( oDlgPrinc, oFld )

     aRs[1]:Skip(1)
     IF aRs[1]:Eof()
          aRs[1]:gobottom()
          MsgInfo( "No hay registros posteriores" )
          cEstado := "ULTIMO"
     ELSE
          cEstado := "VISUALIZA"
     ENDIF
     oDlgPrinc:Update()
     oFld:aDialogs[1]:Update()

RETURN nil

FUNCTION Ultimo( oDlgPrinc, oFld )

     aRs[1]:gobottom()
     cEstado := "ULTIMO"
     oDlgPrinc:Update()
     oFld:aDialogs[1]:Update()

RETURN nil
 

Así navego entre los registros Antonio.
con los demás controles no tengo problema.

La dialog oDlgPrinc (de código) contiene una folder oFld y en la dialog de la Folder oFld:adialogs[1] están los controles que se actualizan con UPDATE, entre ellos el TSelex
Nunca tuve problemas con ningún control, pero al intentar usar este, no se actualiza correctamente al navegar.

Gracias por tu atención.

[Antonio Linares]

José,

Prueba a llamar a oSelex:SetOption( aRs[1]:mant_tipo ) desde cada una de esas funciones