HMGforum.com

Code: Select all

	BEGIN DETAIL

		BANDHEIGHT	6

		BEGIN TEXT
			EXPRESSION	aRows [i] [n]
			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 [i] [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 [i] [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

Code: Select all

	BEGIN DETAIL

		BANDHEIGHT	6

		BEGIN TEXT
			EXPRESSION	aRows [i] [n]
			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
 

	END DETAIL

Code: Select all

PUBLIC nnn        := 1
PUBLIC iii        := 1
PUBLIC cCodeblock
PUBLIC aRows[ 20 ] [ 3 ]

FUNCTION DoMakeReport( aStructur )
   ...
   FOR nnn := 1 TO nnnMax
      cCodeblock := "{|| aRows[iii] [" + STR( nnn ) + "] }"
      BEGIN TEXT
         EXPRESSION EVAL( &cCodeblock )

Code: Select all

   aRows := ::NextCursor( cTable, cField, cWhere, cOrder, cLimit, cOffset, lempty )

Code: Select all

   DoMakeReport( aStructur )

Code: Select all

   ExecuteReport( 'Demo', .t., .t. )

Code: Select all

LOCAL nnnMax := LEN( ::aBroFields )
   ...
   FOR ID_nnn := 1 TO nnnMax
      ...
      if nSumLenField > nMaxPageWide
         // might be recursive when very long line
         New_cCodeblock := SUBSTR(ID_cCodeblock,nLastStart,nMaxPageWide)
         // how to put this to NEXT line ?
         BEGIN TEXT
            EXPRESSION EVAL( &New_cCodeblock )
            ...
         ENDBLOCK 
      ELSE
         BEGIN TEXT
            EXPRESSION EVAL( &ID_cCodeblock )
            ...
         ENDBLOCK 
      ENDIF

Code: Select all

STOPPER iii > LEN( aRows )