Buenas a todos
Estoy intentando hacer un append() en el oBrowseMod y quisiera que no se pusiera en modo de edición múltiple o simplemente que no se pusiera en modo edición tras el append()
Alguien me puede ayudar.
Y saber si la forma que uso para guardar el valor introducido es correcto en el METHOD BrowseMod1SaveCol
Adjunto un pequeño proyecto.
Gracias a todos.
Salu2
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
TBrowseMod salir edición múltiple
-
- Mensajes: 123
- Registrado: Mié Jun 16, 2010 2:33 pm
TBrowseMod salir edición múltiple
- Adjuntos
-
- BrowseMod.zip
- (3.3 KiB) Descargado 136 veces
-
- Mensajes: 123
- Registrado: Mié Jun 16, 2010 2:33 pm
Re: TBrowseMod salir edición múltiple
Buenas tardes,
Ignacio alguna novedad?.
Tengo que comenzar un proyecto y no se si seguir con el TArrayBrowse o TArrayBrowseMod
Muchas gracias.
Salu2
Pepe.
Ignacio alguna novedad?.
Tengo que comenzar un proyecto y no se si seguir con el TArrayBrowse o TArrayBrowseMod
Muchas gracias.
Salu2
Pepe.
- ignacio
- Site Admin
- Mensajes: 9255
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
Re: TBrowseMod salir edición múltiple
Hola,
Perdón que se me había pasado este mensaje. Prueba con este código:
Y luego en el evento OnAppend() simplemente pon:
oBrowse:oEditCol := oBrowse:aCols[ 1 ]
Además, te recomiendo que no intentes copiar código del antiguo browse sobre el nuevo, pensando que va a funcionar igual. Hay muchos cambios internos que hacen que sean muy distintos. En muchos de los casos el código introducido es inútil, o aún peor, rompe la funcionalidad del nuevo.
Saludos
Perdón que se me había pasado este mensaje. Prueba con este código:
Código: Seleccionar todo
METHOD Append() CLASS xBrowseMod
LOCAL oCol
LOCAL xValue
LOCAL lRet
IF ::IsGroup()
WITH OBJECT ErrorNew()
:SubSystem := "XAILER"
:SubCode := 0
:Severity := ES_ERROR
:Description := "TBrowseMod:Append()"
:Operation := "Append cannot be done while there is an active group"
Eval( ErrorBlock(), :__WithObject() )
END WITH
ENDIF
::oEditCol := NIL
lRet := ::OnAppend()
IF lRet != NIL .AND. !lRet
RETURN .F.
ENDIF
::nEditMode := beAPPEND
FOR EACH oCol IN ::aCols
xValue := oCol:DefaultValue()
::OnEditCol( oCol, @xValue, 0 )
oCol:oGridEdit:Value := xValue
NEXT
::oDataGrid:Append()
::RunAppend()
RETURN .T.
oBrowse:oEditCol := oBrowse:aCols[ 1 ]
Además, te recomiendo que no intentes copiar código del antiguo browse sobre el nuevo, pensando que va a funcionar igual. Hay muchos cambios internos que hacen que sean muy distintos. En muchos de los casos el código introducido es inútil, o aún peor, rompe la funcionalidad del nuevo.
Saludos
-
- Mensajes: 123
- Registrado: Mié Jun 16, 2010 2:33 pm
Re: TBrowseMod salir edición múltiple
Muchas gracias Ignacio,
Esta genial bravo.
Salu2
Esta genial bravo.
Salu2
-
- Mensajes: 155
- Registrado: Mié Nov 03, 2004 12:42 pm
- Ubicación: Cancún, México
- Contactar: