topic-28467

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

xbrowse y tdolphin ayuda por favor.
Posted: Mon May 19, 2014 06:57 PM

cuando ejecuto este codigo me da este error:

Error description: Error BASE/1132 Error de rango: acceso al array
Args:
[ 1] = A { ... }
[ 2] = N 1

   DEFINE query oQry "SELECT * FROM tbvac"

   DEFINE DIALOG oDlg resource "DLG"

      oBrw:= TXBROWSE():new(oDlg)

      WITH OBJECT oBrw
  
         //----------( columnas )----------

         :aCols[1]:cHeader:= "Código"  [b]//aca es el error[/b]
         :aCols[1]:nWidth:= 70
         :aCols[1]:odatafont:= oFont
         :aCols[1]:ceditPicture:= "99999999"
         :aCols[1]:nDataStrAlign:= AL_CENTER
         :aCols[1]:nHeadStrAlign:= AL_CENTER
         :acols[1]:bStrData := {||  oQry:codigo  }

       ...
      END WITH

      oBrw:setdolphin(oQry, .f., .T., {"codigo", "unidad", "fecha", "precio", "denominacion"})

      oBrw:CreateFromResource(100)
      ...

gracias.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

Ariel

Posts: 389

Joined: Wed Nov 29, 2006 01:51 PM

Re: xbrowse y tdolphin ayuda por favor.
Posted: Mon May 19, 2014 07:17 PM

hola,
defini asi el browse :

Code (fw): Select all Collapse

  DEFINE query oQry "SELECT * FROM tbvac"

   DEFINE DIALOG oDlg resource "DLG"

      oBrw:= TXBROWSE():new(oDlg)
      oBrw:setdolphin(oQry, .f., .T., {"codigo", "unidad", "fecha", "precio", "denominacion"})

      WITH OBJECT oBrw
  
         //----------( columnas )----------

         :aCols[1]:cHeader:= "Código"  [b]//aca es el error[/b]
         :aCols[1]:nWidth:= 70
         :aCols[1]:odatafont:= oFont
         :aCols[1]:ceditPicture:= "99999999"
         :aCols[1]:nDataStrAlign:= AL_CENTER
         :aCols[1]:nHeadStrAlign:= AL_CENTER
         :acols[1]:bStrData := {||  oQry:codigo  }

       ...
      END WITH

     

      oBrw:CreateFromResource(100)
      ...

estabas asignando a oBrw:aCols[1] cuando aun no tenia definidas columnas el oBrw.
Salu2, Ariel.

FiveTech Support Forums

Continue the discussion