Columna no editable no se ve Browse hasta pasar a la siguiente linea
Publicado: Mié Ene 22, 2020 6:17 pm
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
Saludos y gracias de antemano.
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