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.

Columna no editable no se ve Browse hasta pasar a la siguiente linea

Foro público de Xailer en español
Responder
Avatar de Usuario
MarceloAR
Mensajes: 24
Registrado: Dom Dic 01, 2019 2:38 pm
Ubicación: Argentina
Contactar:

Columna no editable no se ve Browse hasta pasar a la siguiente linea

Mensaje por MarceloAR »

Hola buenas tardes, como bien puse en el asunto, estoy armando un facturador y en los items del comprobante hay columnas no editable y por lo tanto no las puedo ver hasta terminar la edición de la fila.
Tal vez sea una tontera pero no logro solucionarlo.
Les comparto parte del código y también una liga a un video para que se logre entender bien el problema.
http://samvt.com.ar/xailer/facturador.mp4

Código: Seleccionar todo

METHOD edClienteExit( oSender, oNextCtl ) CLASS TFacturaFrm

   LOCAL frm

   IF Empty( oSender:value )
      MsgInfo( "Debes ingresar un Cliente para realizar la búsqueda", "Aviso del Sistema" )
      RETURN NIL//.f.
   ELSE

      // Llamo el browse para buscar y seleccionar el cliente
      WITH object frm := TClienteBuscar()
         :cWhere += " AND nombre LIKE '%" + AllTrim( oSender:value ) + "%'"
         :New()
         :ShowModal()
      END
      IF frm:nID <> 0
         ::IdCliente         := frm:nID
         ::edCliente:value   := frm:cNombre
         ::edDomicilio:value := frm:cDomicilio
         ::edLocalidad:value := frm:cLocalidad
         ::edIva:value       := frm:cIva
         ::edCuit:value      := frm:cCuit
      ENDIF

      oNextCtl:setFocus()

   ENDIF

RETURN NIL
Saludos y gracias de antemano.
Marcelo Roggeri
Argentina
hgarciaj
Mensajes: 107
Registrado: Jue Sep 23, 2010 12:44 am

Re: Columna no editable no se ve Browse hasta pasar a la siguiente linea

Mensaje por hgarciaj »

Marcelo:
En el evento onexit de la columna codigo ejecuta el método :setvalue(numcol,xvalor) de tu browse y con ello se actualiza al tiempo que se cambia a la siguiente columna
Saludos
Héctor García
Responder