FiveTech Support Forums

Using oBrw:report() to print a browse.

The print seems to print the entire data base and not stoping where the filter says to stop.

It prints 5 extra page headers with no data below the header. The data is filtered out so there shoud be no data but it is printing 5 extra pages all with a header.

How do I shut it off at the end of the browse and prevent the extra pages?
All ideas appreciated.

Harvey,

The problem seems to be that the xbrowse:Report() method is doing this:

oRep:bWhile := { || oRep:nCounter < nRows }

Where nRows = ordKeyCount(), and this won't work with a filter.

I think you are going to have to use the report setup method (that was discussed in another message thread) to change the oRpt:bWhile codeblock. Try using:

oRpt:bWhile := {|| ! eof() }

Regards,
James

Harvey,

>Couple of questions

>You said
>> oRpt:bWhile := {|| ! eof() }
>Are you suggesting modify the xbrowse class?

No.

>How does the !eof() get the print to stop at end of filter and not print extra pages?

Because eof() respects filters and ordKeyCount() apparently doesn't.

>I think you are going to have to use the report setup method (that was discussed in another message thread) to change the oRpt:bWhile codeblock. Try using:

>I can't find the thread. Could you send me a link.

Try something like this:

DEFINE BUTTON OF oBar PROMPT 'Print' ;
ACTION oBrw:Report( 'TestReport', , , ;
{ |oRep| oRpt:bWhile := {|| ! eof() } } )

>BTW are you and I the only people on this site from Calif?

Tim Stone is also up there in the LA area somewhere--I forget exactly. There are only the three of us in CA that I know.

Regards,
James

Thanks... Be testing when I get home later today.

Its a problem and the above suggestion also does not help for two reasons.

1. Report method sets oRep:bWhile after evaluating user codeblock
2. Even if we modify xbrowse source, xbrowse navigation never retults in eof(). ( This report will never stop !!!! )

This needs a different kind of fix ( I dont know yet ) in the xbrowse program

My view:
XBrowse Report method needs a fix.
While the present oRep:bSkip and oRep:bWhile blocks may be retained for non - dbf datasources, if the ::calias is not empty, oRep:bSkip should be { |n| (::cAlias)->( DbSkip( n ) ) } and oRep:bWhile should be { || ! ( ::cAlias)->( Eof () ) }

I did not experience this because mostly i use record sets and ADS for DBFs with my own modified RDDADS and my AdsKeyCount respects filters. Thanks for bringing out this issue. Hope Mr Antonion will advise a better fix.

Another issue is what is a better way to ascertain the total visible records in DBF when filters are set ?

James Bott wrote:Because eof() respects filters and ordKeyCount() apparently doesn't.

>
Another option is not to use filters; can you use scopes instead? Scopes might work with xbrowse as it is now.
>

Or, you can just write your own report using TReport instead of using the xBrowse:Report() method.
>

I suggest we better do this temporary fix to xbrowse now and Mr Antonio would do this or a better fix in the next release. When we have xbrowse, no point losing our independence or make our own reports.

Again, can any one reflect on my question: How to find the number of visible records after setting a filter in DBFCDX and DBFNTX ?

NageswaraRao,

>Again, can any one reflect on my question: How to find the number of visible records after setting a filter in DBFCDX and DBFNTX ?

I think you would have to count them by skipping through the database. If you use the eof() you don't have to deal with this.

James

AdsGetKeyCount() and AdsGetRecordCount() provide flags ADS_RESPECTFILTERS, ADS_RESPECTSCOPES, etc.

Wish DBFCDX also provides similar functionality. When the filters are fully optimized it is just a matter of reading from the filter bitmaps. It would be nice if (x)Harbour development teams provide similar functionality. Till Clipper 5.2 I was using rl_* functions of Comix for this and after that I moved over to ADS ( client-server )

ADS local server has same functonality as DBFCDX and appears to be more useful than DBFCDX, and I wonder for what reasons we should prefer DBFCDX over ADS local server ( which is free ).

I dont know if other drivers of harbour like SIX, etc provide similar functionality

In the method Report( ... )

After the line :
oRep:bEnd := ::bGoTop
and
before the line
oRep:Activate()