Master Pablo:
However ...
Cuando el Report va definido en el prg, funciona muy bien este punto que hemos tratado aquì con (i_rptgen.ch), pero cuando el RPT es Externo, (me topé con este ejemplo que me parece muy bueno, ya que no hay que recompilar el código del prg, sino sólo se modifica este archivo externo y con el exe se ven los cambios inmediatamente), no sé cómo poner los pies de página con _pageno/_pageTot ni tampoco sé cómo ponerle los quiebres por grupos
Este es el código del RPT Externo:
Code: Select all
DEFINE REPORT TEMPLATE
TITLE wempresa + '|INFORME DE CAJA'
HEADERS {'',' ',' ',' '} , {'USUARIO','TIEMPO','FECHA','VALOR'}
FIELDS {'usuario','tiempo','fecha','valor'}
WIDTHS {15,15,15,14}
TOTALS {.F.,.F.,.F.,.T.}
NFORMATS { , , ,'999,999,999.99'}
WORKAREA mtiempo
LPP 50
CPL 80
LMARGIN 4
PREVIEW
SELECT
IMAGE {'rosa.jpg',1,75,6,80 }
GROUPED BY 'USUARIO'
HEADRGRP 'Usuario:'
END REPORT
A pesar de que allí dice GROUPED BY 'USUARIO' y HEADRGRP 'Usuario:' , en realidad no hace el quiebre que se espera
En la imagen adjunta, se aprecia el quiebre cuando después de Argentina llega Brazil (este Reporte es definido dentro del prg)
de la siguiente manera:
Code: Select all
Function CreateReport
DEFINE REPORT Report1
* 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 'Report Header'
ROW 13
COL 10
WIDTH 100
HEIGHT 10
FONTNAME 'Arial'
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 Test->Code
ROW 2
COL 18
WIDTH 10
HEIGHT 10
FONTNAME 'Arial'
FONTSIZE 9
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION Test->First
ROW 2
COL 30
WIDTH 60
HEIGHT 10
FONTNAME 'Arial'
FONTSIZE 9
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION Test->Last
ROW 2
COL 70
WIDTH 60
HEIGHT 10
FONTNAME 'Arial'
FONTSIZE 9
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION Test->Country
ROW 2
COL 110
WIDTH 60
HEIGHT 10
FONTNAME 'Arial'
FONTSIZE 9
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION Test->Province
ROW 2
COL 140
WIDTH 60
HEIGHT 10
FONTNAME 'Arial'
FONTSIZE 9
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION Test->Birth
ROW 2
COL 175
WIDTH 60
HEIGHT 10
FONTNAME 'Arial'
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) + '/' + ALLTRIM(Str(_PageNo))
ROW 7
COL 11
WIDTH 100
HEIGHT 10
FONTNAME 'Arial'
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 'Arial'
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(RecCount()) + chr(13) + 'Total Pages: ' + Str(_PAGENO)
ROW 10
COL 20
WIDTH 100
HEIGHT 30
FONTNAME 'Arial'
FONTSIZE 12
FONTBOLD .T.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
END SUMMARY
* Group Definition *********************************************
BEGIN GROUP
GROUPEXPRESSION Test->Country
BEGIN GROUPHEADER
BANDHEIGHT 15
BEGIN TEXT
EXPRESSION Test->Country
ROW 5
COL 20
WIDTH 100
HEIGHT 30
FONTNAME 'Arial'
FONTSIZE 14
FONTBOLD .T.
END TEXT
END GROUPHEADER
BEGIN GROUPFOOTER
BANDHEIGHT 15
BEGIN LINE
FROMROW 8
FROMCOL 50
TOROW 8
TOCOL 160
PENWIDTH 0.1
PENCOLOR { 0 , 0 , 0 }
END LINE
END GROUPFOOTER
END GROUP
END REPORT
Return
Cómo hacer que lo mismo que se programa dentro de la Function CreateReport dentro del PRG ... pueda funcionar y aparecer en el RPT Externo (DEFINE REPORT TEMPLATE) ?
Espero no molestar con estas inquietudes.
Muy agradecido anticipadamente.
