Página 1 de 1

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

Publicado: Mié Ene 22, 2020 6:17 pm
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.

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

Publicado: Mar Ene 28, 2020 2:15 am
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