HMGforum.com

Code: Select all

- Harbour MiniGUI 2.9.5 Changelog:


	English:
	--------

	- New: 'Filled' clause for PRINT RECTANGLE command. Contributed 
	by Rathinagiri.

	- New: 'DATA' section for reports. It allows to define an 'iterator' and
	'Stopper' conditions. 
	
		BEGIN DATA
			ITERATOR	<xExpression>
			STOPPER		<xExpression>
		END DATA

	This new feature is useful for use (ie) arrays instead tables for reports.

	Sample:

		Public i := 1
		Public aRows [ 20 ] [ 3 ]
		...
		DEFINE REPORT TEMPLATE
			BEGIN DATA
				ITERATOR	i++
				STOPPER		i == 20 
			END DATA
			...
			BEGIN DETAIL
				BANDHEIGHT	6
				BEGIN TEXT
					EXPRESSION	aRows [i] [1]
				...
			END DETAIL
		...			
		END REPORT		

	Full Sample: \hmg\samples\report.advanced\demo8.prg

	Español:
	--------

	- Nuevo: Cláusula 'Filled' para el comando PRINT RECTANGLE. Contribución
	de Rathinagiri.

	- Nuevo: Sección 'DATA' para el generador de reportes. Por medio de esta 
	sección puede definirse un 'Iterador'y un 'Stopper'.

		BEGIN DATA
			ITERATOR	<xExpression>
			STOPPER		<xExpression>
		END DATA

	Esta nueva característica es útil, por ejemplo, para usar arrays en lugar
	de tablas para los reportes.

	Ejemplo:

		Public i := 1
		Public aRows [ 20 ] [ 3 ]
		...
		DEFINE REPORT TEMPLATE
			BEGIN DATA
				ITERATOR	i++
				STOPPER		i == 20 
			END DATA
			...
			BEGIN DETAIL
				BANDHEIGHT	6
				BEGIN TEXT
					EXPRESSION	aRows [i] [1]
				...
			END DETAIL
		...			
		END REPORT		

	Ejemplo Completo: \hmg\samples\report.advanced\demo8.prg

Code: Select all

#include "minigui.ch"

Function Main

	Public i := 1
	Public aRows [ 20 ] [ 3 ]

	aRows [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'} 
	aRows [6]	:= {'Barriga','Carlos','394-9654'} 
	aRows [7]	:= {'Flanders','Ned','435-3211'} 
	aRows [8]	:= {'Smith','John','123-1234'} 
	aRows [9]	:= {'Pedemonti','Flavio','000-0000'} 
	aRows [10]	:= {'Gomez','Juan','583-4832'} 
	aRows [11]	:= {'Fernandez','Raul','321-4332'} 
	aRows [12]	:= {'Borges','Javier','326-9430'} 
	aRows [13]	:= {'Alvarez','Alberto','543-7898'} 
	aRows [14]	:= {'Gonzalez','Ambo','437-8473'} 
	aRows [15]	:= {'Batistuta','Gol','485-2843'} 
	aRows [16]	:= {'Vinazzi','Amigo','394-5983'} 
	aRows [17]	:= {'Pedemonti','Flavio','534-7984'} 
	aRows [18]	:= {'Samarbide','Armando','854-7873'} 
	aRows [19]	:= {'Pradon','Alejandra','???-????'} 
	aRows [20]	:= {'Reyes','Monica','432-5836'} 

	LOAD REPORT DEMO8

	DEFINE WINDOW Win_1 ;
		ROW 0 ;
		COL 0 ;
		WIDTH 400 ;
		HEIGHT 400 ;
		TITLE 'Hello Report' ;
		WINDOWTYPE MAIN 

		DEFINE MAIN MENU
			POPUP 'File'
				ITEM 'Execute Report'	ACTION ( i := 1, ExecuteReport('Demo8',.t.,.t. ) )
			END POPUP
		END MENU

	END WINDOW

	Win_1.Center

	Win_1.Activate

Return Nil