OLE Automation Error

[johnkoh]

Hi All,

I have the OLE Automation Error message from this scripts. The one form was printed good without this error. However when I changed to another form, the A5 kept generated this Error.

Does anyone know how to address my issue?

'Print here
query.filter= filter
query.order ="FirstName"
Dim vSaveFolder as c = "\\cpu7\Teamwork\data\page1.pdf"
      :report.SaveAs(vRptNm,"pdf",query.filter,query.order,vSaveFolder,.f.)	

      var->vMrgFile = "\\cpu7\Teamwork\data\pageCombine.pdf"

      pdf_merge(vSaveFolder,vPage2,var->vMrgFile,.t.,.f.)

[Stan Mathews]

Re: OLE Automation Error

You have variables in your script whose assignments are not shown.

vPage2 and vRptNm

It is impossible to diagnose your issue when you provide incomplete information. The error says a pdf cannot be opened. It would seem to be the one named in the variable vPage2, but who knows?

[johnkoh]

Re: OLE Automation Error

Stan,

This is the full code.

	'Create an XDialog dialog box to prompt for parameters.
	dim dlg_title as c ="What do you want to Print? "
	DIM vRptType as C
	DIM vBadgeNm as C
	Dim vBadgeId as c
	
	DIM vBadgeId_rl_def as C 
	vBadgeId_rl_def = "k=badge,{keylist_build(\"H=.05,1:25[Form_Name],2:25[Authorizer]\",''+Badge_id,left(''+Form_name,25),left(''+Authorizer,25))}{}"

	DIM vLists as C
	DIM varC_rpt as C
	tables_sets_vLists = <<%filenames%
	emp.dbf
	%filenames%

	'Get just the objects for the specified table/set names
	auto_list_vLists = a5enum("Report",alltrim(tables_sets_vLists))
	temp_count = w_count(auto_list_vLists,crlf())
	DELETE a_vLists
	DIM a_vLists[temp_count] as c
	a_vLists.initialize(auto_list_vLists)
	
	vRptType="Standard Reports"
	
	DIM varC_Rpt as C
	ok_button_label = "&Print"
	cancel_button_label = "&Cancel"
	varC_Rpt = ui_dlg_box(dlg_title,<<%dlg%
	{region}
	{region}{sp=2}Report Type: {endregion}|
	{region} (vRptType:Standard Reports);
	(vRptType:Customer Forms);{endregion};
	{lf};
	{condition=(vRptType="Customer Forms")}
	{region=b}{sp=2}Customer Forms:| [%@vBadgeId_rl_def%.40vBadgeId]{endregion}
	{condition=(vRptType="Standard Reports")}{start_pos}
	{region=b}{sp=2}Standard Report:| [.40vLists^+a_vLists]{endregion}
	{endregion};
	{condition=.t.}
	
	{line=1,0};
	{region}{justify=right}
	<*15=ok_button_label!&Print> <15=cancel_button_label!CANCEL>
	{endregion};
	%dlg%)
if varC_rpt = "&Print" then
		if vRptType = "Customer Forms" then
			'Make the Form selection here then print pdf & merge
			'Open the table that you want to Find the Form name & A5 Report name
			dim tBadge as p
			dim qBadge as p
			dim rBadge as n
			dim vRptNm as c
			dim vPage2 as c
			dim tbl as p 
			tbl = table.open("badge",FILE_RW_SHARED)
			query.filter = "Badge_id = Var->vBadgeId"
			query.order = ""
			query.options = ""
			qBadge = tbl.query_create()
			rBadge = qBadge.records_get() 
			if rBadge = 0 then 
				ui_msg_box("Warning","Could not find record that matches filter expression: '" + query.filter+"'.",UI_STOP_SYMBOL)
				qBadge.drop()
				tbl.close()
			else if rBadge >= 1 then 
				vRptNm = alltrim(tbl.Report_name)
				vPage2 = alltrim(tbl.File_directory)
				qBadge.drop()
				tbl.close()
			end if
				'Print here
				query.filter= filter
				query.order ="FirstName"
				Dim vSaveFolder as c = "\\cpu7\Teamwork\data\page1.pdf"
			        :report.SaveAs(vRptNm,"pdf",query.filter,query.order,vSaveFolder,.f.)	
				var->vMrgFile = "\\cpu7\Teamwork\data\pageCombine.pdf"
				pdf_merge(vSaveFolder,vPage2,var->vMrgFile,.t.,.f.)
				
				'Open file by PDF 
				if file.exists(var->vMrgFile) then 
					sys_open(var->vMrgFile) 
				else
					ui_msg_box("Error Opening File","File "+var->vMrgFile +  "does not exist.",ui_stop_symbol)
				end if 
		else	
			:report.preview(vLists,filter)
	  	end if   
	else
		goto repeating    
	end if

Thank you

[johnkoh]

Re: OLE Automation Error

Stan,

I just changed the my "File_directory" record at the table and realized that my code does not recognize (or refreshed) the "File_directory" record.

When I changed "File_directory" field value on the "0002" to same as the record "0001" then the code ran well.

When I changed "File_directory" field value on the "0002" to another record, the code generated an error.

Badge Table.jpg

[Stan Mathews]

Re: OLE Automation Error

Try changing

query.filter = "Badge_id = Var->vBadgeId"

to

query.filter = "Badge_id = "+quote(Var->vBadgeId)

That's probably not the problem given that the script runs if you use different values. Have you verified that the pdf file named in the file_directory field in record "0002" is not corrupted? It will open normally using Acrobat?

[johnkoh]

Re: OLE Automation Error

Stan,

Have you verified that the pdf file named in the file_directory field in record "0002" is not corrupted? It will open normally using Acrobat?

I will try another PDF file. How do I know that was corrupted or not?

[Stan Mathews]

Re: OLE Automation Error

If you can't open it normally using Acrobat Reader or some other pdf viewer.

[johnkoh]

Re: OLE Automation Error

Stan,

I revised my code, Just opening the "File_directory" value, and It opened the PDF files without an Erro

vRptNm = alltrim(tbl.Report_name)
vPage2 = alltrim(tbl.File_directory)
'Test just open the file
if file.exists(vPage2) then
sys_open(vPage2)
else
ui_msg_box("Error Opening File","File '"+vPage2+"' does not exist.",ui_stop_symbol)
end if

[Stan Mathews]

Re: OLE Automation Error

I suppose that would account for the ole error, trying to open a pdf that did not exist............

[johnkoh]

Re: OLE Automation Error

Stan,

Does it cause by the File Directory address(?) problem?

I switched another PDF files then all of my table record "0001 or 0002" were created the ERROR.

Should I use "\\cpu7\...... , server directory " or "c:\File_name\...... , "

[Stan Mathews]

Re: OLE Automation Error

As far as I know unc paths are supported.

This works fine here.

sys_open("\\bgfs01\data\Executive\HDB\A5 Updates\filter ideas.txt")

[johnkoh]

Re: OLE Automation Error

Stan,

I do not have any problem to open the PDF files with Sys_open("file_directory").

My problem is with this code.

'Print here
query.filter= filter
query.order ="FirstName"
Dim vSaveFolder as c = "\\cpu7\Teamwork\data\page1.pdf"
:report.SaveAs(vRptNm,"pdf",query.filter,query.order,vSaveFolder,.f.)

var->vMrgFile = "\\cpu7\Teamwork\data\pageCombine.pdf"

pdf_merge(vSaveFolder,vPage2,var->vMrgFile,.t.,.f.)

[Stan Mathews]

Re: OLE Automation Error

Probably time to stick a debug(1) in the script and examine the values in your variables.

Therse perform equally well here.

pdf_merge("H:\executive\public\bad robot.pdf","H:\executive\public\daily.pdf","H:\executive\public\daily_result.pdf")
pdf_merge("\\bgfs01\data\executive\public\bad robot.pdf","\\bgfs01\data\executive\public\daily.pdf","\\bgfs01\data\executive\public\daily_result.pdf")

[johnkoh]

Re: OLE Automation Error

Stan,

This is my test result

dim vBaseFile as c ="C:\contractor.pdf"
dim vMergeFile as c ="C:\test Letterhead.pdf"
dim vResultFile as c '="C:\Result.pdf"



'Pdf_Merge(vBaseFile, vMergeFile )

? Pdf_Merge("C:\contractor.pdf","C:\test Letterhead.pdf")
ERROR: OLE Automation Error. Source is CDINTF~1."
Error opening PDF document"

[Stan Mathews]

Re: OLE Automation Error

Can you send me the two pdf files? Or attach them here?