but only on a Function when I try to print an array with report class
type : aBilancio[x,x]
1. error the menu is big lines
2. the menu have 2007 style
this is my function use Treport
where is the error ?
- Code: Select all Expand view
Function Report_Nuovo_Bilancio_Trimestre(aBilancio)
Local i:= 1
Local oReport
Local cTitulo1 := "Bilancio Annuale"
Local cTitulo2 := "Esercizio " +rtrim(oApp:cYearPath)
Local cTitulo3 := IIF(!EMPTY(cDevActivitad),"["+cDevActivitad+"]","["+"Tutte le attività"+"]")
Local oFont1
Local oFont2
Local oFont3
Local oFont4
Local oPen1,oPen2
Local cFooter
DEFINE PEN oPen1 WIDTH 2 COLOR CLR_HGRAY
DEFINE PEN oPen2 WIDTH 1 COLOR CLR_HGRAY
DEFINE FONT oFont1 NAME "Courier New" SIZE 0,-10
DEFINE FONT oFont2 NAME "Courier New" SIZE 0,-10
DEFINE FONT oFont3 NAME "Courier New" SIZE 0,-10
oFont4 := TFont():New( "ARIAL", 0, -69,,,220,,,,,,,,,, oReport, ) // per scritta protezione
REPORT oReport ;
TITLE " ",cTitulo1,cTitulo2,iif(cTitulo3!=NIL,cTitulo3," ") CENTERED;
FONT oFont1, oFont2, oFont3 ,oFont4;
PEN oPen1, oPen2 ;
HEADER ' ', oApp():cAppName+oApp():cVersion, cFooter ;
FOOTER cFooter, "Data: "+dtoc(date())+ " Pagina.: "+str(oReport:nPage,3) ;
CAPTION oApp():cAppName+oApp():cVersion PREVIEW
COLUMN TITLE "Causale " ;
DATA aBilancio[i,1] ;
SIZE 30 GRID 2
/* COLUMN TITLE "" ;
DATA aBilancio[i,2] ;
SIZE 25 */
COLUMN TITLE "Primo Trimestre " ;
DATA aBilancio[i,2] ;
picture "999,999.99" ;
SIZE 20 ;
FONT 2 ;
RIGHT GRID 2
COLUMN TITLE "Secondo Trimestre " ;
DATA aBilancio[i,3] ;
picture "999,999.99" ;
SIZE 20 ;
FONT 2 ;
RIGHT GRID 2
COLUMN TITLE "Terzo Trimestre " ;
DATA aBilancio[i,4] ;
picture "999,999.99" ;
SIZE 20 ;
FONT 2 ;
RIGHT GRID 2
COLUMN TITLE "Quarto Trimestre " ;
DATA aBilancio[i,5] ;
picture "999,999.99" ;
SIZE 20 ;
FONT 2 ;
RIGHT GRID 2
COLUMN TITLE "Totale Annuale " ;
DATA aBilancio[i,6] ;
picture "999,999.99" ;
SIZE 20 ;
FONT 2 ;
RIGHT ;
GRID 2
GROUP ON aBilancio[i,1];
HEADER "" ;
FOOTER ""
END REPORT
oReport:bSkip := {|| i++ }
oReport:bInit := {|| i := 1 }
oReport:lJoin := .T.
ACTIVATE REPORT oReport WHILE i <= LEN( aBilancio )
oFont1:End()
oFont2:End()
oFont3:End()
oFont4:End()
oPen1:End()
oPen2:End()
RETURN nil
//----------------------------------------------------------------------------------//
