Printing Report Filter Criteria

[MikeC]

Hi,

I have logical fields that I use to create filters for reports. No problem there. I would like to be able to print these choices out on the top part of the first page of the report as a list such as the following:

Company:
Apollo Machine
BeenThere DoneThat
Help, Inc

Products:
Nuts
Bolts
Screws

Etc.

All of the above would be the filters chosen for the report via checkboxes on forms. As I said the filters are no problem...I want to capture these and put them into a list. Some direction I should be looking in would be great as have not found anything yet to do this. I could query every form (table) used for filters for checkboxes that are true and then loop through each form (table) to obtain the items used as filters--just seems a whole lot of work and possibly very slow too. I am using a current software that does this instantly so there must be a way for Alpha to accomplish this feat I would think.



Thanks.

[Stan Mathews]

Re: Printing Report Filter Criteria

Can you parse what you want out of

SYSTEM->Current_Filter

[MikeC]

Re: Printing Report Filter Criteria

Stan,
Thanks--never even looked there. But all it gives me is one .t. value when placed anywhere on the report (or form). I guess I don't know how to use it and so far can't find out much info regarding it...will keep looking as it does seem to be the route to go.

[Al Buchholz]

Re: Printing Report Filter Criteria

Mike

Show us how you create those filters.....

[MikeC]

Re: Printing Report Filter Criteria

Hi Al,

Here is the script that determines the filters that I wish to gather into a list. I hope this will be enough but if need be I will get together a sample for all to see but it is really quite a mess currently!

dim Prd_cnt as n
Prd_cnt= tablecount("prod","Prodchbox")
if Prd_cnt = 0 then
  rvProd=".not. Prod->Prodchbox"
 else
  rvProd="Prod->Prodchbox"
end if

dim Com_cnt as n
Com_cnt= tablecount("client_info","client_chb")
if Com_cnt = 0 then
  rvComp=".not. Client_Info->Client_chb"
 else
  rvComp="Client_Info->Client_chb"
end if

dim PType_cnt as n
PType_cnt=tablecount("sel_prod_type","Chbx_Ptype")
if PType_cnt=0 then
   rvPrd_Type=".not. sel_prod_type->Chbx_Ptype"
 else
   rvPrd_Type="sel_prod_type->Chbx_Ptype"
end if

dim ComType_cnt as n
ComType_cnt=tablecount("selcomptype","Selcom_Chb")
if ComType_cnt=0 then
   rvCmp_Type=".not. selcomptype->Selcom_Chb"
 else
   rvCmp_Type="selcomptype->Selcom_Chb"
end if



query.filter = rvComp +".and."+ rvPrd_Type +".and."+ rvCmp_Type +".and."+ rvProd
query.order = "recno()"
:Report.Preview("APT_Inc",query.filter,query.order)

[Al Buchholz]

Re: Printing Report Filter Criteria

Stan,
Thanks--never even looked there. But all it gives me is one .t. value when placed anywhere on the report (or form). I guess I don't know how to use it and so far can't find out much info regarding it...will keep looking as it does seem to be the route to go.

Mike

You'll see .t. when there isn't a filter in place. Are you putting this field on a report and then running it through your normal process of setting the filter and then previewing the report?

[MikeC]

Re: Printing Report Filter Criteria

Hi Al,

Yes to both questions--I am now getting my actual filter; i.e., Client_Info->Client_chb .and. .not. sel_prod_type->Chbx_Ptype .and. .......

I think it is time to clean up my report filter form and such to be able to post a sample for all.

Thanks for your time so far.

[MikeC]

Re: Printing Report Filter Criteria

Here is a stripped down sample of my db with the report filter form and one basic report. The report filter form will load on startup. The "System Filter" button brings up the report using the variable filters determined by the filter criteria used on the left side of the form (not all work currently but most). The "Hard Coded" button has a single company used as a filter which brings up the report.

Hopefully this will give someone the insight to put me on track as to how I can accomplish my goal of creating a filter criteria list.

[Tom Cone Jr]

Re: Printing Report Filter Criteria

Might this be as simple as building a character string containing text you define in the script to describe the filter? As the script builds the filter expression, it adds new text to the string.

[MikeC]

Re: Printing Report Filter Criteria

Hi Tom,

It would be if I was choosing or entering each Client or Product name one at a time or through a script..but these choices are the result of simply using logical checkboxes and any that are true are to be included in the query filter. The checkboxes are on various forms and variables are used to create the final filter as the script shows.

As you for sure know, this seemed to an "easy" question and now I realize that it must not be as in so many cases! If there is no way to do this as my filter is created I guess I would need to know of other ways to create my filter so as to be able to do this...sort of work backwards then from a method to create the list to how the filter is created. Just a rambling thought....

[Stan Mathews]

Re: Printing Report Filter Criteria

I'll hazard a guess as to implementing Tom's suggestion, borrowing from your original script ...

dim global list as c
list = ""
dim Prd_cnt as n
Prd_cnt= tablecount("prod","Prodchbox")
if Prd_cnt = 0 then
rvProd=".not. Prod->Prodchbox"
else
rvProd="Prod->Prodchbox"
list = list +"RVPROD"
end if

dim Com_cnt as n
Com_cnt= tablecount("client_info","client_chb")
if Com_cnt = 0 then
rvComp=".not. Client_Info->Client_chb"
else
rvComp="Client_Info->Client_chb"
list = list + crlf() + "RVCOMP"
end if


Then put the global variable list on the report.

[MikeC]

Re: Printing Report Filter Criteria

Thanks Stan.

But what that gives me is just the variable name rvProd or modifying it with a .text or .value the filter such as Prod->Prodchbox. I need to know what products such as Bolts, Nuts, etc are being used as the filter - and these are chosen with the filter criteria of when their checkboxes are true. So I need to be able to able to show or to see what products, companies, etc are chosen and not the filter itself.
Any other ideas?? If not, I guess I may have to go the long route and do a query on each table for True checkboxes and get the Product, Company, etc names that way. Am going to hold off doing that for a while though as I still think there has to be a way to do what I want more easily..I mean my current 12 year old software can do it (has to be a short way as it is instant) so I would hate to think Alpha can't!!

[Al Buchholz]

Re: Printing Report Filter Criteria

..I mean my current 12 year old software can do it (has to be a short way as it is instant) so I would hate to think Alpha can't!!

Mike

You are stretching the definition of the word filter.....

You'll need to build a script/function to do what you want. I'd build a list of what the filter criterion is (like Stan did) and then use that to check each of the tables to get the actual names that are associated with it. Once written, it'll run in the blink of an eye..

[Tom Cone Jr]

Re: Printing Report Filter Criteria

Mike, I'm not seeing the problem.

You can put any string of text you want in to Stan's list variable.

dim global list as c
list = ""
dim Prd_cnt as n
Prd_cnt= tablecount("prod","Prodchbox")
if Prd_cnt = 0 then
    rvProd=".not. Prod->Prodchbox"
   [COLOR="Red"] list = list + "Include records where ProdChbox is false" + crlf()[/COLOR]
else
    rvProd="Prod->Prodchbox"
    [COLOR="Red"]list = list + "Include records where Prodchbox is true" + crlf()[/COLOR]
end if

Mike, if this doesn't get it for you, then it's likely Stan and I are misunderstanding your situation, so post sample tables, forms, and point us to the script that runs the report.

[Al Buchholz]

Re: Printing Report Filter Criteria

Tom

Your idea is fine, it just needs to go one step farther.. What I hear Mike asking for is a process that will list those products where the flag is true (or false) - ie

list = list + "Include records where Prodchbox is true" + crlf()
is replaced by

list = list + table.external_record_content_get(<fill in parameters>)

or in one of the cases...

list = list + table.external_record_content_get("prod","Prod_Name","Prod_Name","Prodchbox")

or the not case..

list = list + table.external_record_content_get("prod","Prod_Name","Prod_Name",".not. Prodchbox")