Outsider Project - Generic Print for a Grid

[benman]

Hi All:

Currently I am developing a VFP system on my own from scratch, with a layout familiar to everyone.

What has been developed are:
1) selector
6 sections x 6 subsections, selecting 36 pages of view/filter combinations.
2) a grid control displaying database for browsing.
3) double click the grid record to display a form for database maintenance, with ColumnCount being -1, and memberclass pointing to predefined Column library in a prg.

http://www.tek-tips.com/viewthread.cfm?qid=1226321&page=1

4) Generic Find bar for the Grid

http://www.tek-tips.com/viewthread.cfm?qid=1226887&page=2

What I want to do now is Generic Print on what it is in the Grid.

I can write prg code: use current table, list according to the field, compare line number & line printed and so on.

Is it possible to use report form or any other generic methodogy to have it done ?

Any comment/advice to enlighten the project to move forward, inclusive design, beauty & code ...

 

[Mike Lewis]

Hi Benman,

Take a look at my article, Create Generic Reports at Runtime in the November 2003 issue of FoxPro Advisor (

http://msvfp.advisorguide.com/doc/13084).

I think it will do exactly what you want.

Mike


__________________________________
Mike Lewis (Edinburgh, Scotland)

My Visual FoxPro site: www.ml-consult.co.uk

 

[benman]

Hi Mike :

Probably I have to subscribe.

Any other recommendations ?

Benman

 

[benman]

Hi Mike :

This is what I got now with assistance of your article.

For your information.

Benman

 

[Mike Lewis]

Hi Benman,

Don't forget that you can always adjust the template to improve the appearance of the report. You can also change the code, of course.

Since this particular report only has five fields, and since these are fairly narrow, the report would benefit by widening the columns. That way, you would avoid the ugly wrapping of the phone numbers.

Mike


__________________________________
Mike Lewis (Edinburgh, Scotland)

My Visual FoxPro site: www.ml-consult.co.uk

 

[benman]

Hi Mike :

Feels better, isn't it.

Benman

 

[benman]

Hi Mike :

Any Idea to format numeric field into XXX,XXX.XX by code ?

Many thanks.

Benman

 

[Mike Lewis]

Hi Benman,

Any Idea to format numeric field into XXX,XXX.XX by code ?

You can store them as formatted strings in your cursor. To convert the numeric to a formatted string, do something like:

TRANSFORM(MyNumeric, "999,999.99")

Alternatively, open the template in the report designer, open the Format dialogue for the field in question, and insert the format 99,999,999.99.

Unfortunately, that won't be generic. It will only work for other reports if they use the same column for numeric fields.

Mike

__________________________________
Mike Lewis (Edinburgh, Scotland)

My Visual FoxPro site: www.ml-consult.co.uk

 

[benman]

Hi Mike :


* Point the new record to the field in the cursor
REPLACE Expr WITH "TRANSFORM("+laWidths(lnI,1)+")"

* Insert the width and horizontal position into the field
REPLACE HPos WITH lnHpos, Width WITH lnWidth

* Insert the font size
REPLACE fontsize WITH laConv(lnConvPointer,2)

Following your code,

REPLACE picture WITH something Might serve well to extend the generic function

Anyway, it would be a good try...

Generic way of programming is more preferable than specific from my point of view.

Benman

 

[Mike Lewis]

Benman,

When I said to store the formatted string in the cursor, I didn't mean in the FRX file. I meant in the cursor (or table, or view) that is the data source for the report.

Mike


__________________________________
Mike Lewis (Edinburgh, Scotland)

My Visual FoxPro site: www.ml-consult.co.uk

 

[benman]

HI Mike :

IF lnI > 1
* New record
APPEND BLANK
GATHER MEMO NAME loRecord
ELSE
* Re-use model record
LOCATE FOR "FIELD" $ UPPER(ALLTRIM(comment))
ENDIF

* Point the new record to the field in the cursor
m.cField = laWidths(lnI,1)
m.cField1 = &lcAlias..&cField
IF VARTYPE(cField1) = "N"
REPLACE Expr WITH laWidths(lnI,1)
REPLACE FillChar WITH "N"
REPLACE PICTURE WITH ["] + DBGETPROP(lcAlias + "." + laWidths(lnI,1), "FIELD","InputMask") + ["]
ELSE
REPLACE Expr WITH "TRANSFORM("+laWidths(lnI,1) +")" &&lnI
ENDIF

Above code was added there and it works well now.

Still look clumpsy on my coding.

hehe.

Benman