XBROWSER, ediciòn y borrado de registros

[FiveWiDi]

Hola a todos,

Tengo esta instrucción:

Code: Select all | Expand

    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 | Expand

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

o así:

Code: Select all | Expand

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

Pero no funciona.

Gracias,-

[jose_murugosa]

Yo lo hago así:

Code: Select all | Expand

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:

[FiveWiDi]

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.

[jose_murugosa]

Me alegra mucho!!!

A las órdenes.