Abm con Twbrowse de Hernan

[wilsongamboa]

Buenas Tardes
Alguien tendra un ejemplo de un Abm con el twbrowse de hernan ?
Saludos y gracias

[MarioG]

Wilson:
El wBrowse de Hernán no es mas que el wBrowse de FW, extendido (en mi opinión). Por lo que lo podés construir basado en tus ateriores ABM.
Un ejemplo sencillo sería

....
@0,0 LISTBOX ::oLst ;
FIELDS ... ;
HEADER ... ;
COLSIZES ...

::oLst:bKeyDown := {|nK| if( nK==VK_INSERT, ::ABMs( .T. ) // Agrega
if( nK==VK_RETURN, ::ABMs( .F. ) // Edita
if( nK==VK_DELETE, ::Borra( .T. ) } // Borra

....

METHOD ABMS( lNuevo ) CLASS ...

if lNuevo
// defino los campos a introducir
else
// edito los campos
end

DEFINE DIALOG oDlg ...

@... GET ... OF oDlg
...

@... DEFINE BUTTON PROMPT "Guardar" ACTION ...
@... DEFINE BUTTON PROMPT "Cancelar" ACTION oDlg:End()

ACTIVATE DIALOG oDlg

En el boton Guardar y, luego de los pasos de volcar a disco los datos, agrego ::oLst:Refresh de manera de visualizarlo en el Listbox (wBrowse)

espero te sirva
Saludos