No me imprime nada

HMG en Español

Moderator: Rathinagiri

Post Reply
arroya2
Posts: 160
Joined: Thu Aug 06, 2009 7:16 am

No me imprime nada

Post by arroya2 » Wed Oct 21, 2009 7:40 pm

Hola a todos.

He escrito el siguiente código para imprimir un reporte, pero no imprime nada. Es la primera vez que lo hago con HMG. La base de datos se abre y se cierra desde otra función.

Code: Select all

Static Function ImprConta(nTotal, cLibro, fFechaIni, fFechaFin)

DEFINE REPORT Report1

	* Report Layout ***********************************************

	BEGIN LAYOUT 
		PAPERSIZE	PRINTER_PAPER_A4
		ORIENTATION	PRINTER_ORIENT_PORTRAIT 
	END LAYOUT

	* Header Band *************************************************

	BEGIN HEADER

		BANDHEIGHT	30

		BEGIN LINE
			FROMROW		28
			FROMCOL		10
			TOROW		28
			TOCOL		200
			PENWIDTH	0.1
			PENCOLOR	{ 0 , 0 , 0 }
		END LINE

		BEGIN TEXT
			EXPRESSION aCabeceraCert[1]
			ROW 15	
			COL 40	
			WIDTH 100	
			HEIGHT 8	
			FONTNAME 'Helvetica'
			FONTSIZE 7	
			FONTBOLD .T.
			FONTITALIC .F.
			FONTUNDERLINE .F.
			FONTSTRIKEOUT .F.
			FONTCOLOR { 0 , 0 , 0 }
			ALIGNMENT Center 
		END TEXT

		BEGIN TEXT
			EXPRESSION aCabeceraCert[2]
			ROW 18	
			COL 40	
			WIDTH 100	
			HEIGHT 10	
			FONTNAME 'Helvetica'
			FONTSIZE 9	
			FONTBOLD .F.
			FONTITALIC .F.
			FONTUNDERLINE .F.
			FONTSTRIKEOUT .F.
			FONTCOLOR { 0 , 0 , 0 }
			ALIGNMENT Center 
		END TEXT

		BEGIN TEXT
			EXPRESSION aCabeceraCert[3]
			ROW 21	
			COL 40	
			WIDTH 100	
			HEIGHT 10	
			FONTNAME 'Helvetica'
			FONTSIZE 9	
			FONTBOLD .F.
			FONTITALIC .F.
			FONTUNDERLINE .F.
			FONTSTRIKEOUT .F.
			FONTCOLOR { 0 , 0 , 0 }
			ALIGNMENT Center 
		END TEXT
		
		BEGIN TEXT
			EXPRESSION aCabeceraCert[4]
			ROW 24	
			COL 40	
			WIDTH 100	
			HEIGHT 10	
			FONTNAME 'Helvetica'
			FONTSIZE 9	
			FONTBOLD .F.
			FONTITALIC .F.
			FONTUNDERLINE .F.
			FONTSTRIKEOUT .F.
			FONTCOLOR { 0 , 0 , 0 }
			ALIGNMENT Center 
		END TEXT

		BEGIN TEXT
			EXPRESSION aCabeceraCert[5]
			ROW 28	
			COL 40	
			WIDTH 100	
			HEIGHT 10	
			FONTNAME 'Helvetica'
			FONTSIZE 9	
			FONTBOLD .F.
			FONTITALIC .F.
			FONTUNDERLINE .F.
			FONTSTRIKEOUT .F.
			FONTCOLOR { 0 , 0 , 0 }
			ALIGNMENT Center 
		END TEXT
		
	END HEADER

	* Detail Band *************************************************

	BEGIN DETAIL

		BANDHEIGHT	6

		BEGIN TEXT
			EXPRESSION	Field->Fecha
			ROW	2	
			COL	15	
			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	Field->Dni
			ROW	2	
			COL	100	
			WIDTH 100	
			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	Field->Nombre+' '+Field->Apellidos
			ROW	2	
			COL	105	
			WIDTH 300	
			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	If(cLibro='Arm',	If(Field->Obt_Rev='OBTENCION', 'Obt', 'Man'), ;
									If(Field->Obt_Rev='OBTENCION', 'Obt', 'Pro'))
			ROW	2	
			COL	410	
			WIDTH 10	
			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	Field->Categoria
			ROW	2	
			COL	425	
			WIDTH 100	
			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	Transform(Field->Tarifa, '@E 9999,999.99')
			ROW	2	
			COL	550	
			WIDTH 100	
			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	Transform(Field->Cobrado, '@E 9999,999.99')
			ROW	2	
			COL	550	
			WIDTH 100	
			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	'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

END REPORT

Return Nil
A ver si me podeis indicar donde está el fallo.

Saludos
Rafael Pérez

arroya2
Posts: 160
Joined: Thu Aug 06, 2009 7:16 am

Post by arroya2 » Thu Oct 22, 2009 7:40 pm

Hola a todos.

Ya he encontrado el fallo. Se me olvidó escribir la función ExecuteReport('Report1', .f., .f.)

Saludos
Rafael Pérez

Post Reply