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.

TDBBrowse salto automatico?

Foro de Xailer profesional en español
Ariel
Posts: 14
Joined: Tue Nov 26, 2019 12:28 pm

TDBBrowse salto automatico?

Postby Ariel » Sat Dec 21, 2019 1:55 pm

Hola,

tengo un TDBBrowse relacionado a un memdataset, tiene 6 columnas de las cuales 5 son editables y la ultima no, cuando llego a la ultima columna no me pasa abajo como lo hace el boton añadir (multiedicion) sino edita de a columna.

Adjunto el proyecto simple...

Gracias
Attachments
testbrw.zip
(40.98 KiB) Downloaded 6 times
User avatar
ignacio
Site Admin
Posts: 8622
Joined: Mon Apr 06, 2015 8:00 pm
Location: Madrid, Spain
Contact:

Re: TDBBrowse salto automatico?

Postby ignacio » Mon Dec 23, 2019 12:09 pm

Buenos días,

Entiendo que no es un error, ya que el comportamiento que deseas no tiene porqué ser siempre así.

Observando tu código, veo que utilizas una columna para un campo que es realmente calculado y por lo tanto no hace falta definirlo y se podría resolver con este código:

Code: Select all

METHOD BrwColumn6GetData( oSender, Value, nImage ) CLASS TForm1

   WITH OBJECT ::oMItem
      Value := Round( :canart( dsFIELD ) * :preart( dsFIELD ) * ( 100 - :dctart1( dsFIELD ) ) / 100, 2 )
   END WITH

RETURN Value


Digno de mencionar es el uso del parámetro dsFIELD al acceder a los campos del dataset. De esta forma, fuerzo a que siempre devuelva los valores de la tabla y no los de edición.

Para forzar el efecto que requieres de alta forzada se puede resolver con un código como este:

Code: Select all

METHOD BrwPostEdit( oSender, lCanceled, nKey ) CLASS TForm1

   IF ::oBrw:nEditMode = beAPPEND .AND. !lCanceled
      ::oBrw:PostMsg( WM_KEYDOWN, VK_DOWN )
   ENDIF

RETURN Nil


Es absolutamente necesario utilizar esta técnica de envío de mensajes simulando la pulsación de tecla abajo, de lo contrario se produce un apilamiento de llamadas que puede provocar un error si se producen muchas altas de forma consecutiva.

Observa que sólo hago el alta, si estábamos en modo ALTA y además no se ha cancelado la edición con ESC.

Un saludo
Ignacio Ortiz de Zúñiga
[Equipo de Xailer / Xailer team]
http://www.xailer.com
Ariel
Posts: 14
Joined: Tue Nov 26, 2019 12:28 pm

Re: TDBBrowse salto automatico?

Postby Ariel » Mon Dec 23, 2019 12:26 pm

Ignacio,

muchas gracias, funciona perfecto! voy a preparar un video de este tema porque me hizo renegar bastante y era "resimple". Gracias!


Saludos.

Return to “Spanish”