FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour no logro sacar este error
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
no logro sacar este error
Posted: Sun Sep 21, 2008 10:50 PM

estoy haciendo un browse ( intentando ) con xbrowse y me tira este error runtime.

Error description: Error BASE/1132 Bound error: array access
Args:
[ 1] = A { ... }
[ 2] = N 0

Verifico que la "consulta" que realizo me esta devolviendo datos. alguien podría tirarme una idea?

Gracias.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
no logro sacar este error
Posted: Mon Sep 22, 2008 02:17 AM

Creo ese error es algo sobbre tamaño del arreglo, pon algo de codigo para poder darte mejor ayuda...saludos... :shock:

Dios no está muerto...



Gracias a mi Dios ante todo!
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
no logro sacar este error
Posted: Mon Sep 22, 2008 02:40 AM
   ::oQuery:=TMSQuery():new(::oConexion, "SELECT * FROM USUARIOS" )
   ::oQuery:Open()

   DEFINE DIALOG ::oDlg resource "DLGUSUARIOS"

      REDEFINE image oImagen File "..\Resource\barraus.png" ID 504 OF ::oDlg

      REDEFINE SAY oDatos[1] ID 500 OF ::oDlg
      REDEFINE SAY oDatos[2] ID 501 OF ::oDlg
      REDEFINE SAY oDatos[3] ID 502 OF ::oDlg
      REDEFINE SAY oDatos[4] ID 503 OF ::oDlg

      REDEFINE GET vDatos[1] ID 200 OF ::oDlg
      REDEFINE GET vDatos[2] ID 201 OF ::oDlg
      REDEFINE GET vDatos[3] ID 202 OF ::oDlg

      REDEFINE BUTTON oBtns[1] ID 204 OF ::oDlg
      REDEFINE BUTTON oBtns[2] ID 205 OF ::oDlg

      WITH OBJECT ::oBrw:= TGXBROWSE():new(::oDlg)
         :nMarqueeStyle   := MARQSTYLE_HIGHLROW

         :nColDividerStyle:= LINESTYLE_BLACK
         :nRowDividerStyle:= LINESTYLE_LIGHTGRAY
         :nRowHeight:= 40
         :lRecordSelector := .T.

         :setquery(::oQuery)

         :CreateFromResource(203)

         END WITH

      //----------( acciones )----------

      oBtns[1]:baction:={|| MsgStop("aaa")}
      oBtns[2]:baction:={|| ::oDlg:END()}

   ACTIVATE DIALOG ::oDlg CENTERED

   ::oQuery:free()


y el setquery es

METHOD SetQuery(oQuery, lAddCols, lAutoOrder, aFldNames)
   LOCAL nFields, nItem, oCol

   ::oQuery:= oQuery

   //----------( Armo los movimientos )----------

   DEFAULT ::bGotop TO {|| IF(::oQuery:RecCount() > 0, ::oQuery:GoTop(),NIL)}
   DEFAULT ::bGoBottom TO { || IF(::oQuery:RecCount() >0, ::oQuery:GoBottom(), NIL)}
   DEFAULT ::bSkip TO {|n| ::oQuery:skip(n)}
   DEFAULT ::bBof TO {|| ::oQuery:bBof()}
   DEFAULT ::bEof TO {|| ::oquery:bEoF()}
   DEFAULT ::bBookMark TO {|n| IF(n==NIL,;
                           IF(::oQuery:RecCount()>0, ::oQuery:RecNo(),0),;
                           IF(::oQuery:RecCount()>0, ::oQuery:goto(n),0))}
   DEFAULT ::bKeyNo TO {|n| IF(n==NIL,;
                           IF(::oQuery:RecCount()>0, ::oQuery:RecNo(),0),;
                           IF(::oQuery:RecCount()>0, ::oQuery:goto(n),0))}
   DEFAULT ::bKeyCount TO {|| ::oQuery:RecCount()}

   //----------( Creo las columnas )----------



   RETURN (Self)

joseluisysturiz wrote:Creo ese error es algo sobbre tamaño del arreglo, pon algo de codigo para poder darte mejor ayuda...saludos... :-)
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
Posts: 77
Joined: Wed Jun 28, 2006 06:38 PM
no logro sacar este error
Posted: Mon Sep 22, 2008 11:42 PM

yo tenia el mismo error pero con el WBROWSE y lo resolvi poniendo la pripoedad cAlias a nil.

obrow:cAlias := ""

espero te pueda servir.

slds
alex.

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
no logro sacar este error
Posted: Tue Sep 23, 2008 01:06 AM

Gustavo,

>
Error description: Error BASE/1132 Bound error: array access
Args:
[ 1] = A { ... }
[ 2] = N 0
>

Por favor especifica la lista de llamadas desde donde se produce el error (calls stack) para que veamos en que método se genera el error, gracias

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
no logro sacar este error
Posted: Tue Sep 23, 2008 12:20 PM
Aca va,
Stack Calls
===========
   Called from: XBROWSE.PRG => (b)TXBROWSE:TXBROWSE(0)
   Called from:  => TGXBROWSE:COLATPOS(0)
   Called from: XBROWSE.PRG => TGXBROWSE:PAINT(0)
   Called from: XBROWSE.PRG => TGXBROWSE:DISPLAY(0)
   Called from: CONTROL.PRG => TGXBROWSE:HANDLEEVENT(0)
   Called from: WINDOW.PRG => _FWH(0)
   Called from:  => DIALOGBOX(0)
   Called from: DIALOG.PRG => TDIALOG:ACTIVATE(0)
   Called from: tUsuarios.prg => TUSUARIOS:NEW(87)
   Called from: menu.prg => MAIN(22)

Antonio Linares wrote:Gustavo,

>
Error description: Error BASE/1132 Bound error: array access
Args:
[ 1] = A { ... }
[ 2] = N 0
>

Por favor especifica la lista de llamadas desde donde se produce el error (calls stack) para que veamos en que método se genera el error, gracias
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

Continue the discussion