Página 1 de 1

Corrección en xBrowse

Publicado: Mié Feb 21, 2018 9:36 am
por bingen
Hola xTeam, me ha pasado que en un browse con 2 columnas y la segunda oculta me estaba dando un error aleatorio al parecer al pulsar el tabulador en el filtro y querer desplazarse de columna
Subsistema: BASE
Código de error: 1132
Estado: .F.
Descripción: Error de rango
Operación: acceso al array
Argumentos: [ 1] = Tipo: A Valor: [ 2] = Tipo: N Valor: 2
Fichero:
Código error SO: 0

Pila de llamadas:
(b)XBROWSE (216)
TDBBROWSE:COLATPOS (0)
TDBBROWSE:DRAWLINE (325)
TBROWSE:WMPAINT (196)
TDBBROWSE:WMPAINT (943)
REDRAWWINDOW (0)
TDBBROWSE:REDRAW (301)

asi que he sobrecargado la línea 216 del xBrowse
METHOD ColAtPos( nPos ) INLINE ::aCols[ ::aDisplay[ nPos ] ] // --> oColumn
pasando a ser
METHOD ColAtPos( nPos ) INLINE IF(nPos<=Len(::aDisplay),::aCols[ ::aDisplay[ nPos ] ],Nil) // --> oColumn

Salu2.