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.

TBrowseMod salir edición múltiple

Foro de Xailer profesional en español
Responder
Jose Lopez
Mensajes: 123
Registrado: Mié Jun 16, 2010 2:33 pm

TBrowseMod salir edición múltiple

Mensaje por Jose Lopez »

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
Adjuntos
BrowseMod.zip
(3.3 KiB) Descargado 96 veces
Jose Lopez
Mensajes: 123
Registrado: Mié Jun 16, 2010 2:33 pm

Re: TBrowseMod salir edición múltiple

Mensaje por Jose Lopez »

Buenas tardes,
Ignacio alguna novedad?.
Tengo que comenzar un proyecto y no se si seguir con el TArrayBrowse o TArrayBrowseMod
Muchas gracias.
Salu2
Pepe.
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9246
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:

Re: TBrowseMod salir edición múltiple

Mensaje por ignacio »

Hola,

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.
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
Ignacio Ortiz de Zúñiga
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Jose Lopez
Mensajes: 123
Registrado: Mié Jun 16, 2010 2:33 pm

Re: TBrowseMod salir edición múltiple

Mensaje por Jose Lopez »

Muchas gracias Ignacio,
Esta genial bravo.
Salu2
Israel Solis
Mensajes: 155
Registrado: Mié Nov 03, 2004 12:42 pm
Ubicación: Cancún, México
Contactar:

Re: TBrowseMod salir edición múltiple

Mensaje por Israel Solis »

BRAVO !! por fin, después de mucho sufrir
Saludos :D

Israel
Responder