xbrowse y tdolphin ayuda por favor.

[goosfancito]

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

Code: Select all  Expand view

  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.

[Ariel]

hola,
defini asi el browse :

Code: Select all  Expand view

  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.