OnPrintExit Event ?

[martinwcole]

Re: OnPrintExit Event ?

do a test
make a global variable
at the end of the run, in interactive, check the value

also, if you get the variable populated, I would update the clients in a different way - like this, but not until AFTER the report had closed

t=table.open("clients")
t.index_primary_put("clientid")
dim global clid as c (the variable used for storing)
dim tempn as n
n=w_count(clid,crlf())
for i=1 to n
     tempn=val(word(clid,i,crlf()))
     rec=t.fetch_find(temp)
     if rec > 0
          t.change_begin()
             '......
          t.change_end()
     end if 
next
t.close()

[Keith Hubert]

Re: OnPrintExit Event ?

Further Information.

The reason that this all started was because my customer complained that the printer stopped half way through a print run. This happened after I had put in some code to update the records at print time. The thought was my code had upset the print routine.

Yes, we are coming to it, the customer had installed an extension USB cable and plugged it into a different port on the computer.

Having put the cable back to the original port, the print run works as designed.

Moral of the story, add this to your list of questions as to why the printer has suddenly started to play up.

So a big thank you to all contributors to this thread.

I will be changing the code as the buttons change to red for all records as the batch is dumped to the print spooler.

[G Gabriel]

Re: OnPrintExit Event ?

The variable probably has to be global, though I wrote the code off the cuff without any testing and don't know for a fact if in the environment of a letter or a report a shared variable will work or not. Theoretically speaking, it should, but probably won't.

As to fetch_find(), though logical but assuming the index used in the code is the same index used to filter for the report then fetch_next() will do just fine as you would expect the same records with the same order in both.

[johnkoh]

Re: OnPrintExit Event ?

Hi,

When I have the report, base on Child to parent(One to One) set, I set up as indicated in the "A5 Help" which is works fine but I have the problem with this report because repeating the values.
So I changed the set as Parent to Child (One to one) and created the Report. In this report, I used this scripts at Section Events->Detail->OnRecord as

dim Global vLists as c
	vLists = vLists+Insurance->project_id+crlf()
	'vLists = alltrim(vlists)
	vLists =*remove_duplicates(vLists)
	
Dim shared vPrintState as c  "It came from OnPrintExit events
dim shared vResult as c
dim tbl as p

if vPrintState ="Yes" then
	dim vTmp as n
	dim vJobId as c
	tbl = table.get("insur_logs")
	'tbl.index_primary_put("Project_id")
	vTmp = w_count(vLists,crlf())
	for i = 1 to vTmp
		vJobId = val(word(vLists,i,crlf()))
		'rcd = tbl.fetch_find(vJobId) 'Maybe this <tbl>.fetch did not work
		query.order="project_id"
		query.filter="Project_id="+quote(vJobId)
		qry = tbl.query_create()
		rcd = qry.records_get()
		if rcd>0 then
			tbl.fetch_last()
			'Get the list and find from this table
		    tbl.change_begin()
				tbl.isprinted ="Yes"
			    tbl.printed_date = date()
			tbl.change_end(.t.)
		end if
	next			
		
else
	cancel()
	end 
end if

I can get the vLists value after Exit Print, but I think, Script did not find the records by "vJobId". I need the help on why this filter not able to find the records

[johnkoh]

Re: OnPrintExit Event ?

Good morning,

I found the solution on my problem. I added the

dim shared vLists as c
	vLists = vLists+Insurance->project_id+crlf()

at Section Events-> Detail -> OnRecord and the previous scripts on the Report Events -> OnPrintExit.

I think that A5 will get the lists to print from "OnRecord" event, not the "OnPrintExit".

This scripts runs well However, I still have the problem which I cannot locate the last record of Child table after found the many child records.

Can you address me how to get the last child table record after <tbl>.fetch_find()?

[Ken Tjia]

Re: OnPrintExit Event ?

morning in the same topics ...

how do we apply session variable to report ?
i am referring to report with data source from sql 100%

i would like to use the onprintinit event to query something from sql
and place it to a variable , then use printhtml() etc to have it on the footer of my report


it is all about subreport in sql...
i know how to decorate the html data...

i just don't know how to use session variable inside the onprintinit event
may be hit is not possible ? i place session protected ulink as a test
it is not picking it up for sure

[Stan Mathews]

Re: OnPrintExit Event ?

i would like to use the onprintinit event to query something from sql

Why not pass the "something from sql" to the report as an argument?

Output_Filename as C = :Object_Type.PRINT( Layout_Name as C [, Filter as C [, Order as C [, Argument as SQL::Arguments ]]] )

[Ken Tjia]

Re: OnPrintExit Event ?

hi Stan,
that is encouraging, however i need to see more sample..
working on it now,,
thanks
kt

[Stan Mathews]

Re: OnPrintExit Event ?

Ken,

I know nothing more about how to use the arguments parameter than what is in the documentation.

[Ken Tjia]

Re: OnPrintExit Event ?

Just to let everyone know,

ordinary WAS session variables working well inside the Onprintinit event
i have successfully query anything i want in or outside the related report

and use a simple calculate field to place my result anywhere on my report
without having to worry about duplicate records problem in sql sub report


ken tjia

[johnkoh]

Re: OnPrintExit Event ?

Ken,

Can you show me how to

i have successfully query anything i want in or outside the related report

[johnkoh]

Re: OnPrintExit Event ?

Hi,

I solved my this problem by,

(1) I have a Child - parent (many to one) set and created a report base on this set. The Child table has the Primary key
(2) Created the FINDER form same as Alphasport InvoiceReportMenu.

(3) On my Report

 [COLOR=#b22222]OnPrintInit even ===>[/COLOR]
Dim Global Vlists as c
vLists =" "  'Clean 

[COLOR=#b22222]Detail->OnPrint event ===>[/COLOR]
dim global vLists as c
        vLists = vLists+Insur_log->Id(PK)+crlf() 'get list
        'Tried for Parent Key value here, but not able to get the list nor not sure what to do???
        'So I made the Child Primary Key field and use it here.

[COLOR=#b22222]OnPrintExit event ===>[/COLOR]
 dim global vLists as c
    ui_msg_box("test 1", "show me the current Lists "+vLists) 'Test, Just want to see what is going on from OnPrint event
    
Dim shared vPrintState as c ="Yes"
dim Shared vResult as c
vResult = ui_dlg_box("Result",<<%dlg%
{lf};
{font=Courier new,10}
{wrap=60}
{region}
Did it print OK?
{lf};
Yes - Save the record.
 No - Will not save the records.
{lf};
{endregion};
{region}
Printed and Save Record: [.10vPrintState^={Yes,No}];
{endregion};{lf};
{justify=center}
<.25&OK!ok>
%dlg%) 

if vPrintState ="yes" then
    dim tbl as p
    dim vCount as n
    dim vLogId as c
    'Get the list and find from this table
    vLists =*remove_duplicates(alltrim(vLists))
    vCount = w_count(vLists,crlf())
    
    for i = 1 to vCount
        vLogId = word(vlists,i,crlf())
        ui_msg_box("test 2","show me  "+vLogId) '' Test Purpose only
        
        tbl = table.get("insur_logs")
        query.order=""
        query.filter="Inslog_id="+quote(vLogId)
        qry = tbl.query_create()
        rcd = qry.records_get()
        if rcd>0 then
            'tbl.fetch_last()  'If child table has more than one records by Parent Key value, want to save on last record but not work
            tbl.change_begin()
                tbl.isprinted ="Yes"
                tbl.printed_date = date()
            tbl.change_end(.t.)
        end if
    next i
else
    cancel()    
end if

I hope this may help someone.