FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour TSELEX problema desde recursos con UPDATE
Posts: 1279
Joined: Mon Feb 06, 2006 04:28 PM
TSELEX problema desde recursos con UPDATE
Posted: Fri Jun 04, 2021 11:25 AM
Buenos d铆as compa帽eros del foro,

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

Code (fw): Select all Collapse
 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.
Saludos/Regards,

Jos茅 Murugosa

"Los errores en programaci贸n, siempre est谩n entre la silla, el teclado y la IA!!"
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: TSELEX problema desde recursos con UPDATE
Posted: Sat Jun 05, 2021 08:44 AM

Estimado Jos茅,

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

C贸mo haces para desplazarte a los siguientes registros ?

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1279
Joined: Mon Feb 06, 2006 04:28 PM
Re: TSELEX problema desde recursos con UPDATE
Posted: Mon Jun 07, 2021 10:33 AM
Code (fw): Select all Collapse
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.
Saludos/Regards,

Jos茅 Murugosa

"Los errores en programaci贸n, siempre est谩n entre la silla, el teclado y la IA!!"
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: TSELEX problema desde recursos con UPDATE
Posted: Mon Jun 07, 2021 02:48 PM

Jos茅,

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion