help with special printing needs

[MIKKI BREAUX]

I an trying to have a5 print out a certain number of copies of a report if a certain condition is met by any one of the line items in an invoice.

EX: I have a button on a form that will print the picking ticket for an order. The line_item table has a field that is logical as to whether or not we have to custom fabricate the item. If that field evaluates to true for any of the items in the order, I want the button to print (2) copies of the report.

My current script for this button is:

dim A_FORM_CURRENT as c

if db_mode_get(db_current()) > 0 then
menu_run("Records/Save")
else
end if

print_report("PICKING TICKET")

[forskare]

RE: help with special printing needs

Mikki,

Does the script work? I presume it doesn't else you wouldn't have made this post.

There's a lot more about Xbasic I don't understand than I do understand. I intrepret your script to mean that the field you're basing this on is a numerical field and if it contains a value greater than 0 you want the report to print. If so, can you not say something like:

if(yourfield is >0, the print the report,"")

I'm really showing my ignorance here but I don't understand why you need to reference the form?

I would think simply making reference to the field, rather than the form, should be enough to trip printing the report.

Perhaps this will draw others much more knowlegable than I into this thread? Just trying to help.

kenn

[Thomas Henkel]

RE: help with special printing needs

Mikki,

I think you are on the right track, but You somehow need to issue the print a second time on condition.

Try this. It is brute force, but it should work

dim A_FORM_CURRENT as c

if db_mode_get(db_current()) > 0 then
menu_run("Records/Save")
else
end if

print_report("PICKING TICKET")

**** Conditionally print the 2nd ticket ******
if > = .T.
print_report("PICKING TICKET")
end if
end

This should print the 2nd time only if your logical > is true.

Hope it helps,

Tom

[tlyon]

RE: help with special printing needs

What's this menu_run() thing you have there? Is this the beta or v4.5? Interesting to say the least.

Tom Lyon

[whanigsberg]

RE: help with special printing needs

Perhaps we will be able to control the printer setting for number of copies in Version 5. In the meanwhile I worked out an inelegant fiddle.

Keep a temp table with the same structure as your data table to print from. To print, you
-calculate the number of copies you need
-empty the temp table
-copy the record to be printed as many times as you need copies
-print the whole temp table.

In report design you must set each record to begin on a new page.

Ain't pretty but it works.

Bill

[Thomas Henkel]

RE: help with special printing needs

I just noticed that what I put between the "" is missing!!! That should be your conditional expression. something like "fieldvalue = .T.", where fieldvalue is thename of the logical field in your table.


Sorry,

Tom

[Thomas Henkel]

RE: help with special printing needs

menu_run is an "OLD" version 1 command.

[Stan Mathews]

RE: help with special printing needs

Tom,

Did you mean?

if ""condition>> = .T.

[Thomas Henkel]

RE: help with special printing needs

yes,I type faster than I thnik!

[Peter.Greulich]

RE: help with special printing needs

If condition = .T.
For i = 1 to X
print_report("PICKING TICKET")
next
End if


...where "condition" is your expression and "X" is a variable for the number of reports that you wish to print.

[whanigsberg]

RE: help with special printing needs

Hi Peter,

This little exchange shows how nice it will (would?) be if V5 allows us to control the printer with Xbasic. My method is a kludge and yours, more elegant, requires that the report be generated for each copy which could take a while if it is a large report (which in this case I gather it isn't).

Bill

[Peter.Greulich]

RE: help with special printing needs

Hi Bill,
I do believe that v.5 allows you to control this - but don't quote me.
Peter