FiveTech Support Forums

Application
===========

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

Stack Calls
===========
   Called from: test.prg => (b)TEST( 22 )
   Called from: .\source\classes\RCOLUMN.PRG => TRCOLUMN:NEW( 75 )
   Called from: .\source\classes\PDREPORT.PRG => RPTADDCOLUMN( 100 )
   Called from: test.prg => TEST( 22 )

#include "FiveWin.ch"
#include "Report.ch"

STATIC oReport

Function Test()

  LOCAL oFont1, oFont2

    local aSpaces  := { "",Space(10),Space(20),Space(30),Space(40) }
  
   DEFINE FONT oFont1 NAME "ARIAL" SIZE 0,-10
     DEFINE FONT oFont2 NAME "ARIAL" SIZE 0,-10 BOLD


USE FRANCESA ALIAS FR
 INDEX ON Str(FRN1,2)+Str(FRN2,2)+Str(FRN3,2)+Str(FRN4,2)+Str(FRN5,2)+FrTipo TAG FR0  TO FRANCESA
 INDEX ON UPPER(FrTipo) TAG FR1 TO FRANCESA


          REPORT oReport TITLE  "*** Report with oTree***"  ;
          FONT oFont1, oFont2 ;
          PREVIEW
          COLUMN TITLE "Denominazione Dewey" ;
                          DATA aSpaces[INT(AT(" 0",Str(FR->Frn1,2)+Str(FR->Frn2,2)+Str(FR->Frn3,2)+Str(FR->Frn4,2)+Str(FR->Frn5,2))/2)]+FR->FrTipo;
                                       SIZE 200 FONT 1
          END REPORT
     ACTIVATE REPORT oReport
     CLOSE FR
     oFont1:End()
     oFont2:End()

RETURN NIL