Expanding "Print When" or Expression window

[WayneBecker]

Is there any way to have an expression greated than the "Print When" or "Expression" windows when using the Reports Generator? Thanks...........Wayne

 

[Mike Gagnon]

Click on the little botton at the end of the box (...)

 

[WayneBecker]

Thanks for the prompt reply. What I was trying to ask is; is there any way to have an expression greater than the 256, or whatever the count is, of the present content of the "Print When" or "Expression" boxes associated with a report? The logic I am thying to use does not fit in the number of characters that fit in the box.

Thanks again...............Wayne

 

[Mike Gagnon]

Waynebecker

Yes you could use a custom class. You create a function that does whatever you want and I returns a true or false, which you would check it the print when.
If you need more explanation, let me know.

 

[Mike Gagnon]

Wayne

I figured I would explain a little further what I meant with the above suggestion. Lets say you have a custom class that contains a UDF that calculates records in a cursor and if the count is 0 your don't want a certain piece of information to appear on your report, if the count is above 0, make it appear.

1. Create a report, and a textfield on it and in the expression put : lVal=oFunc(CheckPrintWhen)
And in the printWhen chekc for the value of lVal
2. Create you custom class:

DEFINE CLASS myfunction AS custom


	Name = "myfunction"


	PROCEDURE checkprintwhen
		SELECT Expenses_2.inv_no, Expenses_2.date, Expenses_2.unit_no,;
		  Expenses_2.type, Expenses_2.cost;
		 FROM maintenance!expenses_2;
		 WHERE Expenses_2.date BETWEEN dat1 AND dat2;
		 ORDER BY Expenses_2.date;
		 INTO TABLE "c:\maintenance\tempdata\cost summary.dbf"
		 INDE ON UNIT_NO+DTOS(DATE) TAG WIZARD_1
		 INDE ON UNIT_NO TAG WIZARD_2
		 count to nRec
		 
		 IF nRec = 0
		   RETURN .f.
		 ELSE
		   RETURN .T.
		 ENDIF
		 
	ENDPROC


ENDDEFINE

And before you run your report use:
oFunc = CREATEOBJECT("myFunction&quot
report form myReport.frx
And as the report loads the function will kick in. Unfortunately the debugging of the function is difficult. The function should be tested outside of the report.

 

[WayneBecker]

Thank-you for the detailed reply. Does the procedure calculate the answer before calling the report or does it do it as each record is passed to the report? My problem is that it has to decide whether to print each line in the report, "Print When", or decide what the answer to the expression is as it prints each line.

Thanks...............Wayne

 

[Mike Gagnon]

Every textbox that contains this function call will recalculate the answer as the report is being processed, not before.

 

[WayneBecker]

Thank-you very much for your great help and patience.

Thanks.......................Wayne