Print this record and selection filter

[MikeData]

Using action script
I can select to print this record(you only have one option)
I need to print this record plus I Need to exclude record with itemdecription = blank

I have the 2 codes using xbasic

query.filter = "isnotblank(\"Invoice_Items->Itemdescription\")"
query.order = "recno()"
-- or ----
record_number = current_record_number()
query.filter = "recno() = " + record_number
query.order = ""

:Report.Print("CashBill3Inch",query.filter,query.order)

How to combine this 2 codes in one?

[Mike Wilson]

Re: Print this record and selection filter

I am not sure why this would be a filter. If you filter for a record number you should get one record. And if you already have the record in focus to be able to grab the record number....??? But, OK...Try:

vfilter="recno()="+record_number + " .and. Invoice_item->itemdescription<>\"\""

[MikeData]

Re: Print this record and selection filter

Thanks for the reply. I have to apologize; for not making my self clear.
I have been under a lot of pressure and I was not thinking clear, as I wrote my request.
It was obvious to me at that time, But no now as I reflect.
The record no is for the invoice header in alpha sport and the exclusion to not print blank records is for the invoice_items of the set invoice.

I am going to try your code sample.
Thanks.

[MikeData]

Re: Print this record and selection filter

I tried it, but I got errors.
Here is the code.

'Preview a report, label, letter, form or browse layout. You can specify which records to preview.

record_number = current_record_number()
' query.filter = "recno() = " + record_number
' query.order = ""
query.filter = "recno()="+record_number + " .and. Invoice_item->itemdescription<>\"\""
query.order = ""



'Prompt user whether to print, or preview the layout. Set default to Print
prompt_result = ui_get_print_or_preview("Print")
If prompt_result = "Print" then

:Report.Print("CashBill3Inch",query.filter,query.order)

Else if prompt_result = "Preview" then
:Report.Preview("CashBill3Inch",query.filter,query.order)
End if

[Tom Cone Jr]

Re: Print this record and selection filter

edited

I think your filter expression is good, assuming your report is running against a single table. If you're doing a cross level query then there are other considerations. But then you haven't mentioned whether the report is based on a set or a single table, or have I missed something?

[MikeData]

Re: Print this record and selection filter

Thanks for responding Tom, Yes I did mention in in No3, I was using a set.
The Print "this record" was based in the invoice_header and the option of "do not print blank records" in on the Invoice_items of the INVOICE SET.
Perhaps this will clarify.

[MikeData]

Re: Print this record and selection filter

Just to add. In reference to record no:
This is the original code as defined to just "print this record"
I got this from converting action script to xbasic.

query.filter = "recno() = " + record_number

Is the + record_number missing in

query.filter = "recno() = record_number .and. alltrim(invoice_item->itemdescription) <> \"\" "


if So how to incorporate it?

I still have problems with the syntax in formatting the strings.
The use of \ and ", are not simple to use.

As time goes and as I see their usage, I hope to relate to them.

[Tbaker]

Re: Print this record and selection filter

Mike

How is the set made up

Something like this (this is taken from the Alpha Sports Sample in the Version 9 samples directory.

Parent Invoice Header
Child->Invoice Items
grand_child->Item description

Basing what seems to be taken from alpha sports

Open the alpha sports sample and go to invoice
open the invoice form in design mode and create a button on the form (does not matter where) - then add this code to the on push event of the button

'Conditional code follows. Executes only if the condition expression is True.
IF a5_eval_expression("=Product->Description<>\"\"") THEN 
'

record_number = current_record_number()
query.filter = "recno() = " + record_number
query.order = ""



'Prompt user whether to print, or preview the layout. Set default to Preview 
prompt_result = ui_get_print_or_preview("Preview ")
If prompt_result = "Print" then
	
:Report.Print("Invoice",query.filter,query.order)

Else if prompt_result = "Preview" then 
	:Report.Preview("Invoice",query.filter,query.order)
End if
END IF

This is just the xbasic look at the code that was produced using action scripting - what it does it take the current record being viewed - get the record number of that record , however it will only do that if there is a description in the invoice_items->product:description - that is the first line of the code

'Conditional code follows. Executes only if the condition expression is True.
IF a5_eval_expression("=Product->Description<>\"\"") THEN 
'

As everyone who has answered this post - it is hard to grasp just what you are trying to accomplish - "I take it from what I am reading that you want to stop your user from printing an invoice with and Invoice Header and no invoice items - just a guess"

FWIW

Tom Baker

[MikeData]

Re: Print this record and selection filter

In retrospecting, I should have detail my objective, rather than trying to create a code with a dark background.
Yes, I am trying to print an invoice.
In my invoice there are Invoice_items with blanks entries.

I need to print the invoice from the record that is open/on the screen and only print the correspondig invoice_items wich have a description.

Sorry about the confusion.

I am sure the next question is why do I have blank records.
I have been working on that aspect, but I have not been able.
So I did try to overcome the problem.

I guess I created another one instead of fixing it.

[Tbaker]

Re: Print this record and selection filter

Mike

Open your report in design mode -

In the top menu select Report then select records

A genie will pop up

In the top box (the filter box) enter

Invoice_items->itemdescription<>""

then click okay and save the report.

Now in the button (or however your are calling to print/preview the invoices)

the code should now be just as below (however this will only print the current record not multiple records- just thought I would throw that it)

record_number = current_record_number()
query.filter = "recno() = " + record_number '[COLOR="Red"]no filter here just record number[/color]
query.order = ""



'Prompt user whether to print, or preview the layout. Set default to Preview 
prompt_result = ui_get_print_or_preview("Preview ")
If prompt_result = "Print" then
	
:Report.Print("Invoice",query.filter,query.order)

Else if prompt_result = "Preview" then 
	:Report.Preview("Invoice",query.filter,query.order)
End if

Now when you print your report, only those lines that have an itemdescription will print for the current invoice header record.

This is if I read you right.

I think this is what you want

Tom Baker

[Tbaker]

Re: Print this record and selection filter

Mike

I have attached a small (1 record) application based on what I think you are try to do.

There is one Invoice Hdr with a browse with 5 records (2 of which are blank - I had to put 0 in the amount to get the record to hold but the itemdescription is blank)

There is a button on the form to print the current record.

The Invoice will print (very simple invoice) only showing the the lines in the invoice_items browse that have itemdescription entered.

Look at the report (only one) in design mode, click on reports then select records - you will see the filter.

Look at the code behind the button (it is in action scripting) - to see the code just click on the pair of glasses at the top of the code editor (but I am sure you know this)

Hope this is what you want.

Tom Baker

edit: changed the zip file attached, there are now two invoices in the table.