Hi:
How does passing parameters or variables public?(based on the example demo8.prg)
#include "minigui.ch"
Function Main
Public i := 1
Public aRows [ 5 ] [ 3 ]
Public cEmpresa := cOtherVariablePublic //Not working
Public cEmpresa := "HmgForum" //If it worksaRows [1] := {'Simpson','Homer','555-5555'}
aRows [2] := {'Mulder','Fox','324-6432'}
aRows [3] := {'Smart','Max','432-5892'}
aRows [4] := {'Grillo','Pepe','894-2332'}
aRows [5] := {'Kirk','James','346-9873'}
LOAD REPORT DEMORPT
DEFINE WINDOW Win_1 ;
ROW 0 ;
COL 0 ;
WIDTH 200 ;
HEIGHT 200 ;
TITLE 'Report' ;
WINDOWTYPE MAIN
DEFINE MAIN MENU
POPUP 'File'
ITEM 'Execute Report' ACTION ( i := 1, ExecuteReport ('DemoRpt',.t.,.t. ) )
END POPUP
END MENU
END WINDOW
Win_1.Center
Win_1.Activate
Return
DEFINE REPORT TEMPLATE
* Report Data Environment *************************************
BEGIN DATA
ITERATOR i++
STOPPER i == 20
END DATA
* Report Layout ***********************************************
BEGIN LAYOUT
PAPERSIZE PRINTER_PAPER_A4
ORIENTATION PRINTER_ORIENT_PORTRAIT
END LAYOUT
* Header Band *************************************************
BEGIN HEADER
BANDHEIGHT 25
BEGIN LINE
FROMROW 23
FROMCOL 10
TOROW 23
TOCOL 200
PENWIDTH 0.1
PENCOLOR { 0 , 0 , 0 }
END LINE
BEGIN TEXT
EXPRESSION cEmpresaROW 13
COL 10
WIDTH 100
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 20
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
BEGIN PICTURE
VALUE 'hmg.jpg'
ROW 10
COL 189
WIDTH 11
HEIGHT 11
STRETCH .F.
END PICTURE
END HEADER
* Detail Band *************************************************
BEGIN DETAIL
BANDHEIGHT 6
BEGIN TEXT
EXPRESSION aRows [1]
ROW 2
COL 20
WIDTH 80
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 9
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION aRows [2]
ROW 2
COL 90
WIDTH 80
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 9
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION aRows [3]
ROW 2
COL 160
WIDTH 80
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 9
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
END DETAIL
* Footer Band *************************************************
BEGIN FOOTER
BANDHEIGHT 27
BEGIN LINE
FROMROW 4
FROMCOL 10
TOROW 4
TOCOL 200
PENWIDTH 0.1
PENCOLOR { 0 , 0 , 0 }
END LINE
BEGIN TEXT
EXPRESSION 'Page. No:' + Str(_PageNo)
ROW 7
COL 11
WIDTH 100
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 12
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION Date()
ROW 7
COL 177
WIDTH 30
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 12
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
END FOOTER
* Summary Band ************************************************
BEGIN SUMMARY
BANDHEIGHT 50
BEGIN TEXT
EXPRESSION 'Total Records: ' + Str(i)
ROW 10
COL 20
WIDTH 100
HEIGHT 30
FONTNAME 'Helvetica'
FONTSIZE 12
FONTBOLD .T.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
END SUMMARY
END REPORT
Regards
jouhmg
