FiveTech Software tech support forums

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.

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

Code: Select all  Expand view

   ::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

Code: Select all  Expand view

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...

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.

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

Aca va,

Code: Select all  Expand view

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