Page 1 of 1
Abm con Twbrowse de Hernan
Posted: Tue Jan 24, 2006 10:57 pm
by wilsongamboa
Buenas Tardes
Alguien tendra un ejemplo de un Abm con el twbrowse de hernan ?
Saludos y gracias
Posted: Thu Jan 26, 2006 3:17 pm
by 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 _ a introducir
else
// edito _
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