Buenas tardes,
***************************** Registro de errores *****************************
Exe: C:\Xailer\Samples\Modern\Browses\DBBrowse\dbbrowse.exe
Version: 1.0.0.0
User name: SERVIDOR
Computer name: SERVIDOR
Fecha: 06/02/21
Hora: 18:16:18
Memoria libre: 2097151
Area actual: 1
------------------------- Información del compilador --------------------------
Versión Xailer: Xailer 7.0.10
Compilador: Harbour 3.2.0dev (r1912031042)
Compilador C/C++: MinGW GNU C 7.3 (32-bit)
Plataforma: Windows 10 10.0
----------------------- Información detallada del error -----------------------
Subsistema: BASE
Código de error: 1132
Estado: .F.
Descripción: Bound error
Operación: array access
Argumentos: [ 1] = Tipo: A Valor: [ 2] = Tipo: N Valor: 0
Fichero:
Código error SO: 0
Pila de llamadas:
TDBBROWSEMOD:UPDATERECNO (300)
TBRWMODGRID:SETINDEX (3752)
TLISTBOXMOD:CREATE (192)
TBRWMODGRID:CREATE (2962)
TBROWSEMOD:CREATE (408)
TDBBROWSEMOD:CREATE (65)
TFORM1:CREATEFORM (173)
TFORM1:NEW (204)
MAIN (14)
Saludos.
Miguel C.
Error TDBBrowseMod en version de Xailer 7.0.10
-
- Mensajes: 154
- Registrado: Vie Mar 14, 2008 7:25 am
- Ubicación: Almería
- ignacio
- Site Admin
- Mensajes: 9256
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
Re: Error TDBBrowseMod en version de Xailer 7.0.10
Buenos días,
Muchas gracias por la notificación y disculpe las molestias. El error se ha producido por un pequeño cambio que permite que nIndex pueda valer cero cuando la matriz de datos está vacía.
Le adjunto el código que corrige el problema:
Si fuera tan amable de probarlo antes de publicar una nueva versión se lo agradezco. Sólo para cerciorarnos de que no haya ningún problema adicional.
Un saludo
Muchas gracias por la notificación y disculpe las molestias. El error se ha producido por un pequeño cambio que permite que nIndex pueda valer cero cuando la matriz de datos está vacía.
Le adjunto el código que corrige el problema:
Código: Seleccionar todo
METHOD UpdateRecno( nRecno ) CLASS XDbBrowseMod
::Super:UpdateRecno( nRecno )
IF !Empty( nRecno ) .AND. ::oDataSet != NIL
WITH OBJECT ::oDataSet
IF nRecno <= Len( ::oDataGrid:aWork )
:GoTo( ::oDataGrid:aWork[ nRecno ], .f. )
ENDIF
AEval( :aLinkedControls, {|v| v:Refresh( ) } )
END WITH
ENDIF
RETURN nil
Un saludo
-
- Mensajes: 154
- Registrado: Vie Mar 14, 2008 7:25 am
- Ubicación: Almería
Re: Error TDBBrowseMod en version de Xailer 7.0.10
Buenos días,
Añadido fichero DbBrowseMod.prg con la modificación de código al proyecto y funciona correctamente.
Saludos.
Miguel.
Añadido fichero DbBrowseMod.prg con la modificación de código al proyecto y funciona correctamente.
Saludos.
Miguel.