Estimado Pablo:
El ejemplo de la imagen, es con datos reales, por eso las páginas llegan a 6 ... los ejemplos del sample, son cortos y
llegan máximo a 3 páginas.
De todos modos, así como ayudó la solución que diste, para ver el # total de páginas con el i_rptgen modificado,
si no es molestia, y crees que se puede hacer algo al respecto, sería fabuloso.
El codigo del prg es:
Code: Select all
#include "hmg.ch"
Function Main
PUBLIC EMP,IDUSER
Set Century On
Set Date BRIT
DEFINE WINDOW Win_1 ;
ROW 0 ;
COL 0 ;
WIDTH 400 ;
HEIGHT 400 ;
TITLE 'Hello Report' ;
WINDOWTYPE MAIN ;
ONINIT CreateReport()
DEFINE MAIN MENU
POPUP 'File'
ITEM 'Execute Report' ACTION ExecuteReport('Report1',.t.,.t.)
END POPUP
END MENU
END WINDOW
Win_1.Center
Win_1.Activate
Return
*-----------------------
Function CreateReport
SELE 1
USE MAESTRO
INDEX ON CUENTA TO COD1
SELE 2
USE TODOS
INDEX ON CUENTA TO COD2
INDEX ON FECHA TO COD3
SET INDEX TO COD2
SET RELA TO CUENTA INTO MAESTRO
IDUSER='L4ISALPHA'
EMP='MI EMPRESA C.A.'
DEFINE REPORT Report1
* Report Layout ***********************************************
BEGIN LAYOUT
PAPERSIZE PRINTER_PAPER_A4
ORIENTATION PRINTER_ORIENT_PORTRAIT
END LAYOUT
* Header Band *************************************************
BEGIN HEADER
BANDHEIGHT 25
BEGIN TEXT
EXPRESSION EMP + '.- Auxiliar Contable'
ROW 13
COL 18
WIDTH 160
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 'HP.jpg'
ROW 08
COL 166
WIDTH 14
HEIGHT 14
STRETCH .F.
END PICTURE
BEGIN LINE
FROMROW 23 && FILA
FROMCOL 10 && COL
TOROW 23 && FILA
TOCOL 200 && COL
PENWIDTH 0.1
PENCOLOR { 0 , 0 , 0 }
END LINE
END HEADER
* Detail Band *************************************************
BEGIN DETAIL
BANDHEIGHT 6
BEGIN TEXT
EXPRESSION TODOS->FECHA
ROW 2
COL 18
WIDTH 18
HEIGHT 10
FONTNAME 'Arial'
FONTSIZE 8
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION TODOS->DIARIO
ROW 2
COL 35
WIDTH 14
HEIGHT 10
FONTNAME 'Arial'
FONTSIZE 8
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION TODOS->XD
ROW 2
COL 46
WIDTH 5
HEIGHT 10
FONTNAME 'Arial'
FONTSIZE 8
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION TODOS->NUMEROA
ROW 2
COL 52
WIDTH 30
HEIGHT 22
FONTNAME 'Arial'
FONTSIZE 8
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION TODOS->NUMEROB
ROW 2
COL 77
WIDTH 30
HEIGHT 10
FONTNAME 'Arial'
FONTSIZE 8
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Right
END TEXT
BEGIN TEXT
EXPRESSION TODOS->DETALLE
ROW 2
COL 110
WIDTH 50
HEIGHT 10
FONTNAME 'Arial'
FONTSIZE 8
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION IF(TODOS->VALO>0,TODOS->VALO,'')
ROW 2
COL 165
WIDTH 30
HEIGHT 10
FONTNAME 'Arial'
FONTSIZE 8
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION IF(TODOS->VALO<0,TODOS->VALO,'')
ROW 2
COL 180
WIDTH 30
HEIGHT 10
FONTNAME 'Arial'
FONTSIZE 8
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(_PageTot))
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 Transacciones: ' + Str(RecCount()) + chr(13) + 'User: ' + IDUSER
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 TODOS->CUENTA
BEGIN GROUPHEADER
BANDHEIGHT 15
BEGIN TEXT
EXPRESSION TODOS->CUENTA + ' .- ' + MAESTRO->NOMBRE
ROW 5
COL 18
WIDTH 180
HEIGHT 30
FONTNAME 'Arial'
FONTSIZE 12
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