when I make the report I have this printout
I tried with :
local aSpaces := { "",Space(10),Space(20),Space(30),Space(40) }
..
REPORT ::oReport
..
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
but it make error
- Code: Select all Expand view
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 )
this the test
- Code: Select all Expand view
#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
how I can resolve it ?
))