XBROWSER, ediciòn y borrado de registros

Board index FiveWin para Harbour/xHarbour XBROWSER, ediciòn y borrado de registros

Posts: 1445

Joined: Mon Oct 10, 2005 02:38 PM

XBROWSER, ediciòn y borrado de registros
Posted: Fri Oct 17, 2025 08:50 PM

Hola a todos,

Tengo esta instrucción:

    oTdbfDummy:Setfocus()

        XBROWSER TITLE  oTdbfDummy:cName  + "-" + oTdbfDummy:cFile ;
        	    	 SETUP ( oBrw:lAllowColSwapping := .T. )

¿Cómo puedo evitar que mediante la botonera de la parte superior del xBrowse que se mostrará en un DIALOG, se puedan editar o borrar los registros?

Además quiero asignar valor al VALID para que cuando se cierre el DIALOG haga 'cosas'.

Lo intento así:

Code: Select all Collapse

XBROWSER TITLE  oTdbfDummy:cName  + "-" + oTdbfDummy:cFile ;
        	    	 SETUP ( oBrw:lAllowColSwapping := .T., ;
        	    	             oBrw:bValid := { |oBrw| ( lGuardaXBrowse( AMPAARRA, oBrw, "V" + cDBF ), .T.) } )

o así:

Code: Select all Collapse

XBROWSER TITLE  oTdbfDummy:cName  + "-" + oTdbfDummy:cFile ;
        	    	 SETUP ( oBrw:lAllowColSwapping := .T., ;
        	    	             oBrw:oWnd:bValid := { |oBrw| ( lGuardaXBrowse( AMPAARRA, oBrw, "V" + cDBF ), .T.) } )

Pero no funciona.

Gracias,-

Un Saludo

Carlos G.

FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

jose_murugosa

Posts: 1279

Joined: Mon Feb 06, 2006 04:28 PM

Re: XBROWSER, ediciòn y borrado de registros
Posted: Mon Oct 20, 2025 04:16 PM

Yo lo hago así:

Code: Select all Collapse

XBROWSER oRs TITLE cTitulo SETUP ;
                    ( oBrw:oWnd:bInit :=  { | o | ;
                         o:oBar:l2013 := .F., ;
                         o:oBar:l2010 := .F., ;
                         o:oBar:l2015 := .T., ;
                         o:oBar:aControls[ 5 ]:cTooltip  := o:oBar:aControls[ 9 ]:cToolTip, ;
                         o:oBar:aControls[ 5 ]:bAction   := o:oBar:aControls[ 9 ]:bAction, ;
                         o:oBar:aControls[ 5 ]:LoadBitmaps( FWBitmap( "Excel" ) ), ;
                         o:oBar:aControls[ 6 ]:cTooltip  := "Exit", ;
                         o:oBar:aControls[ 6 ]:bAction   := { | oBtt | oBtt:oWnd:oWnd:End() }, ;
                         o:oBar:aControls[ 6 ]:LoadBitmaps( FWBitmap( "exit2" ) ), ; 
                         o:oBar:aControls[ 6 ]:lRight    := .T., ;
                         AEval( o:oBar:aControls, { | oBtt | oBtt:End() }, 7, 9 ), ; 
                         ASize( o:oBar:aControls, 6 ), ; 
                         AEval( o:oBar:aControls, { | oBtt | oBtt:Refresh() } ), ;
                         o:oBar:SetGradients(), ;
                         o:oBar:Refresh() ;
                    } )

El resultado es éste:

Saludos/Regards,

José Murugosa

"Los errores en programación, siempre están entre la silla, el teclado y la IA!!"

FiveWiDi

Posts: 1445

Joined: Mon Oct 10, 2005 02:38 PM

Re: XBROWSER, ediciòn y borrado de registros
Posted: Mon Oct 20, 2025 05:08 PM

Muchísimas gracias José,

Mañana lo codifico en el mío.

EDITO:

No he podido esperar.

En mi caso he usado el botón de 'Exit" para usar una función que tengo para filtrar.

Ha quedado perfecto.

Gracias de nuevo.

Un Saludo

Carlos G.

FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

jose_murugosa

Posts: 1279

Joined: Mon Feb 06, 2006 04:28 PM

Re: XBROWSER, ediciòn y borrado de registros
Posted: Wed Oct 22, 2025 10:16 AM

Me alegra mucho!!!

A las órdenes.

Saludos/Regards,

José Murugosa

"Los errores en programación, siempre están entre la silla, el teclado y la IA!!"

FiveTech Support Forums

Continue the discussion