1 /**************************************************************
2  *
3  * Licensed to the Apache Software Foundation (ASF) under one
4  * or more contributor license agreements.  See the NOTICE file
5  * distributed with this work for additional information
6  * regarding copyright ownership.  The ASF licenses this file
7  * to you under the Apache License, Version 2.0 (the
8  * "License"); you may not use this file except in compliance
9  * with the License.  You may obtain a copy of the License at
10  *
11  *   http://www.apache.org/licenses/LICENSE-2.0
12  *
13  * Unless required by applicable law or agreed to in writing,
14  * software distributed under the License is distributed on an
15  * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16  * KIND, either express or implied.  See the License for the
17  * specific language governing permissions and limitations
18  * under the License.
19  *
20  *************************************************************/
21 
22 
23 
24 // MARKER(update_precomp.py): autogen include statement, do not remove
25 #include "precompiled_dbui.hxx"
26 
27 #ifndef _DBAUI_LINKEDDOCUMENTS_HXX_
28 #include "linkeddocuments.hxx"
29 #endif
30 #ifndef _OSL_DIAGNOSE_H_
31 #include <osl/diagnose.h>
32 #endif
33 #include <tools/diagnose_ex.h>
34 #include <unotools/confignode.hxx>
35 #ifndef DBACCESS_SHARED_DBUSTRINGS_HRC
36 #include "dbustrings.hrc"
37 #endif
38 #include <comphelper/classids.hxx>
39 #ifndef COMPHELPER_NAMEDVALUECOLLECTION_HXX
40 #include <comphelper/namedvaluecollection.hxx>
41 #endif
42 #ifndef _COM_SUN_STAR_LANG_XSINGLESERVICEFACTORY_HPP_
43 #include <com/sun/star/lang/XSingleServiceFactory.hpp>
44 #endif
45 #ifndef _COM_SUN_STAR_FRAME_XDISPATCHPROVIDER_HPP_
46 #include <com/sun/star/frame/XDispatchProvider.hpp>
47 #endif
48 #ifndef _COM_SUN_STAR_FRAME_XCOMPONENTLOADER_HPP_
49 #include <com/sun/star/frame/XComponentLoader.hpp>
50 #endif
51 #ifndef _COM_SUN_STAR_UTIL_URL_HPP_
52 #include <com/sun/star/util/URL.hpp>
53 #endif
54 #ifndef _COM_SUN_STAR_FRAME_FRAMESEARCHFLAG_HPP_
55 #include <com/sun/star/frame/FrameSearchFlag.hpp>
56 #endif
57 #ifndef _COM_SUN_STAR_CONTAINER_XNAMECONTAINER_HPP_
58 #include <com/sun/star/container/XNameContainer.hpp>
59 #endif
60 #ifndef _COM_SUN_STAR_UCB_XCOMMANDPROCESSOR_HPP_
61 #include <com/sun/star/ucb/XCommandProcessor.hpp>
62 #endif
63 #ifndef _COM_SUN_STAR_UCB_OPENCOMMANDARGUMENT_HPP_
64 #include <com/sun/star/ucb/OpenCommandArgument.hpp>
65 #endif
66 #ifndef _COM_SUN_STAR_UCB_OPENMODE_HPP_
67 #include <com/sun/star/ucb/OpenMode.hpp>
68 #endif
69 #ifndef _COM_SUN_STAR_TASK_XJOBEXECUTOR_HPP_
70 #include <com/sun/star/task/XJobExecutor.hpp>
71 #endif
72 #ifndef _COMPHELPER_EXTRACT_HXX_
73 #include <comphelper/extract.hxx>
74 #endif
75 #ifndef _COMPHELPER_TYPES_HXX_
76 #include <comphelper/types.hxx>
77 #endif
78 #ifndef _SV_MSGBOX_HXX
79 #include <vcl/msgbox.hxx>
80 #endif
81 #ifndef _UCBHELPER_CONTENT_HXX
82 #include <ucbhelper/content.hxx>
83 #endif
84 #ifndef _DBU_MISC_HRC_
85 #include "dbu_misc.hrc"
86 #endif
87 #ifndef SVTOOLS_FILENOTATION_HXX_
88 #include <svl/filenotation.hxx>
89 #endif
90 #ifndef DBACCESS_UI_BROWSER_ID_HXX
91 #include "browserids.hxx"
92 #endif
93 #ifndef _SFXNEW_HXX
94 #include <sfx2/new.hxx>
95 #endif
96 #ifndef _SVTOOLS_TEMPLDLG_HXX
97 #include <svtools/templdlg.hxx>
98 #endif
99 #ifndef _DBAUI_MODULE_DBU_HXX_
100 #include "moduledbu.hxx"
101 #endif
102 // -----------------
103 // for calling basic
104 #ifndef _SFXAPP_HXX
105 #include <sfx2/app.hxx>
106 #endif
107 #ifndef _SBXCLASS_HXX
108 #include <basic/sbx.hxx>
109 #endif
110 #ifndef _SB_SBUNO_HXX
111 #include <basic/sbuno.hxx>
112 #endif
113 #ifndef _EHDL_HXX
114 #include <svtools/ehdl.hxx>
115 #endif
116 #ifndef _SVX_DATACCESSDESCRIPTOR_HXX_
117 #include <svx/dataaccessdescriptor.hxx>
118 #endif
119 #ifndef _COM_SUN_STAR_CONTAINER_XHIERARCHICALNAMECONTAINER_HPP_
120 #include <com/sun/star/container/XHierarchicalNameContainer.hpp>
121 #endif
122 #ifndef _SV_WAITOBJ_HXX
123 #include <vcl/waitobj.hxx>
124 #endif
125 #ifndef _COMPHELPER_MIMECONFIGHELPER_HXX_
126 #include <comphelper/mimeconfighelper.hxx>
127 #endif
128 
129 #include <cppuhelper/exc_hlp.hxx>
130 #include <connectivity/dbtools.hxx>
131 #include <toolkit/helper/vclunohelper.hxx>
132 #include <com/sun/star/io/WrongFormatException.hpp>
133 #include "com/sun/star/sdb/RowSetVetoException.hpp"
134 
135 //......................................................................
136 namespace dbaui
137 {
138 //......................................................................
139 
140 	using namespace ::com::sun::star::uno;
141 	using namespace ::com::sun::star::container;
142 	using namespace ::com::sun::star::lang;
143 	using namespace ::com::sun::star::frame;
144 	using namespace ::com::sun::star::beans;
145 	using namespace ::com::sun::star::util;
146 	using namespace ::com::sun::star::ucb;
147 	using namespace ::com::sun::star::sdbc;
148     using namespace ::com::sun::star::sdb::application;
149 	using namespace ::com::sun::star::task;
150 	using namespace ::svt;
151 
152 	namespace
153 	{
lcl_GetSequenceClassID(sal_uInt32 n1,sal_uInt16 n2,sal_uInt16 n3,sal_uInt8 b8,sal_uInt8 b9,sal_uInt8 b10,sal_uInt8 b11,sal_uInt8 b12,sal_uInt8 b13,sal_uInt8 b14,sal_uInt8 b15)154 		Sequence< sal_Int8 > lcl_GetSequenceClassID( sal_uInt32 n1, sal_uInt16 n2, sal_uInt16 n3,
155 													sal_uInt8 b8, sal_uInt8 b9, sal_uInt8 b10, sal_uInt8 b11,
156 													sal_uInt8 b12, sal_uInt8 b13, sal_uInt8 b14, sal_uInt8 b15 )
157 		{
158 			Sequence< sal_Int8 > aResult( 16 );
159 			aResult[0] = static_cast<sal_Int8>(n1 >> 24);
160 			aResult[1] = static_cast<sal_Int8>(( n1 << 8 ) >> 24);
161 			aResult[2] = static_cast<sal_Int8>(( n1 << 16 ) >> 24);
162 			aResult[3] = static_cast<sal_Int8>(( n1 << 24 ) >> 24);
163 			aResult[4] = static_cast<sal_Int8>(n2 >> 8);
164 			aResult[5] = static_cast<sal_Int8>(( n2 << 8 ) >> 8);
165 			aResult[6] = static_cast<sal_Int8>(n3 >> 8);
166 			aResult[7] = static_cast<sal_Int8>(( n3 << 8 ) >> 8);
167 			aResult[8] = b8;
168 			aResult[9] = b9;
169 			aResult[10] = b10;
170 			aResult[11] = b11;
171 			aResult[12] = b12;
172 			aResult[13] = b13;
173 			aResult[14] = b14;
174 			aResult[15] = b15;
175 
176 			return aResult;
177 		}
178 	}
179 
180 
181 	//==================================================================
182 	//= OLinkedDocumentsAccess
183 	//==================================================================
DBG_NAME(OLinkedDocumentsAccess)184 	DBG_NAME(OLinkedDocumentsAccess)
185 	//------------------------------------------------------------------
186 	OLinkedDocumentsAccess::OLinkedDocumentsAccess( Window* _pDialogParent, const Reference< XDatabaseDocumentUI >& i_rDocumentUI,
187         const Reference< XMultiServiceFactory >& _rxORB, const Reference< XNameAccess >& _rxContainer,
188         const Reference< XConnection>& _xConnection, const ::rtl::OUString& _sDataSourceName )
189 		:m_xORB(_rxORB)
190 		,m_xDocumentContainer(_rxContainer)
191 		,m_xConnection(_xConnection)
192         ,m_xDocumentUI( i_rDocumentUI )
193 		,m_pDialogParent(_pDialogParent)
194         ,m_sDataSourceName(_sDataSourceName)
195 	{
196 		DBG_CTOR(OLinkedDocumentsAccess,NULL);
197 		OSL_ENSURE(m_xORB.is(), "OLinkedDocumentsAccess::OLinkedDocumentsAccess: invalid service factory!");
198 		OSL_ENSURE(m_pDialogParent, "OLinkedDocumentsAccess::OLinkedDocumentsAccess: really need a dialog parent!");
199 	}
200 	//------------------------------------------------------------------
~OLinkedDocumentsAccess()201 	OLinkedDocumentsAccess::~OLinkedDocumentsAccess()
202 	{
203 		DBG_DTOR(OLinkedDocumentsAccess,NULL);
204 	}
205 	//------------------------------------------------------------------
impl_open(const::rtl::OUString & _rLinkName,Reference<XComponent> & _xDefinition,ElementOpenMode _eOpenMode,const::comphelper::NamedValueCollection & _rAdditionalArgs)206 	Reference< XComponent> OLinkedDocumentsAccess::impl_open( const ::rtl::OUString& _rLinkName, Reference< XComponent >& _xDefinition,
207         ElementOpenMode _eOpenMode, const ::comphelper::NamedValueCollection& _rAdditionalArgs )
208 	{
209 		Reference< XComponent> xRet;
210         OSL_ENSURE(m_xDocumentContainer.is(), "OLinkedDocumentsAccess::OLinkedDocumentsAccess: invalid document container!");
211 		Reference< XComponentLoader > xComponentLoader(m_xDocumentContainer,UNO_QUERY);
212 		if ( !xComponentLoader.is() )
213 			return xRet;
214 
215 		WaitObject aWaitCursor( m_pDialogParent );
216 
217         ::comphelper::NamedValueCollection aArguments;
218         ::rtl::OUString sOpenMode;
219 		switch ( _eOpenMode )
220 		{
221             case E_OPEN_NORMAL:
222                 sOpenMode = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "open" ) );
223                 break;
224 
225             case E_OPEN_FOR_MAIL:
226                 aArguments.put( "Hidden", true );
227                 // fall through
228 
229             case E_OPEN_DESIGN:
230                 sOpenMode = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "openDesign" ) );
231                 break;
232 
233             default:
234                 OSL_ENSURE( false, "OLinkedDocumentsAccess::implOpen: invalid open mode!" );
235                 break;
236         }
237         aArguments.put( "OpenMode", sOpenMode );
238 
239         aArguments.put( (::rtl::OUString)PROPERTY_ACTIVE_CONNECTION, m_xConnection );
240 		try
241 		{
242 			Reference<XHierarchicalNameContainer> xHier(m_xDocumentContainer,UNO_QUERY);
243 			if ( xHier.is() && xHier->hasByHierarchicalName(_rLinkName) )
244 			{
245 				_xDefinition.set(xHier->getByHierarchicalName(_rLinkName),UNO_QUERY);
246 			}
247 
248             aArguments.merge( _rAdditionalArgs, true );
249 
250 			xRet = xComponentLoader->loadComponentFromURL( _rLinkName, ::rtl::OUString(), 0, aArguments.getPropertyValues() );
251 		}
252 		catch(Exception& e)
253 		{
254 			(void)e;
255 			throw;
256 		}
257 
258 		return xRet;
259 	}
260     //------------------------------------------------------------------
impl_newWithPilot(const char * _pWizardService,const sal_Int32 _nCommandType,const::rtl::OUString & _rObjectName)261     void OLinkedDocumentsAccess::impl_newWithPilot( const char* _pWizardService,
262         const sal_Int32 _nCommandType, const ::rtl::OUString& _rObjectName )
263 	{
264 		try
265 		{
266             ::comphelper::NamedValueCollection aArgs;
267             aArgs.put( "DataSourceName", m_sDataSourceName );
268 
269 			if ( m_xConnection.is() )
270                 aArgs.put( "ActiveConnection", m_xConnection );
271 
272             if ( _rObjectName.getLength() && ( _nCommandType != -1 ) )
273             {
274                 aArgs.put( "CommandType", _nCommandType );
275                 aArgs.put( "Command", _rObjectName );
276             }
277 
278             aArgs.put( "DocumentUI", m_xDocumentUI );
279 
280 			Reference< XJobExecutor > xWizard;
281 			{
282 				WaitObject aWaitCursor( m_pDialogParent );
283                 xWizard.set( m_xORB->createInstanceWithArguments(
284                     ::rtl::OUString::createFromAscii( _pWizardService ),
285                     aArgs.getWrappedPropertyValues()
286                     ), UNO_QUERY_THROW );
287 			}
288 
289 			xWizard->trigger( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "start" ) ) );
290             ::comphelper::disposeComponent( xWizard );
291 		}
292 		catch(const Exception& e)
293 		{
294             DBG_UNHANDLED_EXCEPTION();
295 		}
296 	}
297 	//------------------------------------------------------------------
newFormWithPilot(const sal_Int32 _nCommandType,const::rtl::OUString & _rObjectName)298 	void OLinkedDocumentsAccess::newFormWithPilot( const sal_Int32 _nCommandType,const ::rtl::OUString& _rObjectName )
299 	{
300         impl_newWithPilot( "com.sun.star.wizards.form.CallFormWizard", _nCommandType, _rObjectName );
301 	}
302 
303     //------------------------------------------------------------------
newReportWithPilot(const sal_Int32 _nCommandType,const::rtl::OUString & _rObjectName)304 	void OLinkedDocumentsAccess::newReportWithPilot( const sal_Int32 _nCommandType, const ::rtl::OUString& _rObjectName )
305 	{
306         impl_newWithPilot( "com.sun.star.wizards.report.CallReportWizard", _nCommandType, _rObjectName );
307 	}
308     //------------------------------------------------------------------
newTableWithPilot()309 	void OLinkedDocumentsAccess::newTableWithPilot()
310 	{
311         impl_newWithPilot( "com.sun.star.wizards.table.CallTableWizard", -1, ::rtl::OUString() );
312 	}
313     //------------------------------------------------------------------
newQueryWithPilot()314 	void OLinkedDocumentsAccess::newQueryWithPilot()
315 	{
316         impl_newWithPilot( "com.sun.star.wizards.query.CallQueryWizard", -1, ::rtl::OUString() );
317 	}
318 	//------------------------------------------------------------------
newDocument(sal_Int32 i_nActionID,const::comphelper::NamedValueCollection & i_rCreationArgs,Reference<XComponent> & o_rDefinition)319     Reference< XComponent > OLinkedDocumentsAccess::newDocument( sal_Int32 i_nActionID,
320         const ::comphelper::NamedValueCollection& i_rCreationArgs, Reference< XComponent >& o_rDefinition )
321 	{
322         OSL_ENSURE(m_xDocumentContainer.is(), "OLinkedDocumentsAccess::newDocument: invalid document container!");
323 		// determine the class ID to use for the new document
324 		Sequence<sal_Int8> aClassId;
325         if  (   !i_rCreationArgs.has( "ClassID" )
326             &&  !i_rCreationArgs.has( "MediaType" )
327             &&  !i_rCreationArgs.has( "DocumentServiceName" )
328             )
329         {
330 		    switch ( i_nActionID )
331 		    {
332 			    case ID_FORM_NEW_TEXT:
333 				    aClassId = lcl_GetSequenceClassID(SO3_SW_CLASSID);
334 				    OSL_ENSURE(aClassId == comphelper::MimeConfigurationHelper::GetSequenceClassID(SO3_SW_CLASSID),"Not equal");
335 				    break;
336 
337 			    case ID_FORM_NEW_CALC:
338 				    aClassId = lcl_GetSequenceClassID(SO3_SC_CLASSID);
339 				    break;
340 
341 			    case ID_FORM_NEW_IMPRESS:
342 				    aClassId = lcl_GetSequenceClassID(SO3_SIMPRESS_CLASSID);
343 				    break;
344 
345 			    case ID_REPORT_NEW_TEXT:
346 				    aClassId = comphelper::MimeConfigurationHelper::GetSequenceClassID(SO3_RPT_CLASSID_90);
347 				    break;
348 
349 			    default:
350 				    OSL_ENSURE( sal_False, "OLinkedDocumentsAccess::newDocument: please use newFormWithPilot!" );
351 				    return Reference< XComponent >();
352 
353 		    }
354         }
355 
356 		// load the document as template
357 		Reference< XComponent > xNewDocument;
358 		try
359 		{	// get the desktop object
360 
361 			Reference<XMultiServiceFactory> xORB(m_xDocumentContainer,UNO_QUERY);
362 			if ( xORB.is() )
363 			{
364                 ::comphelper::NamedValueCollection aCreationArgs( i_rCreationArgs );
365                 if ( aClassId.getLength() )
366                     aCreationArgs.put( "ClassID", aClassId );
367                 aCreationArgs.put( (::rtl::OUString)PROPERTY_ACTIVE_CONNECTION, m_xConnection );
368 
369                 // separate values which are real creation args from args relevant for opening the doc
370                 ::comphelper::NamedValueCollection aCommandArgs;
371                 if ( aCreationArgs.has( "Hidden" ) )
372                 {
373                     aCommandArgs.put( "Hidden", aCreationArgs.get( "Hidden" ) );
374                     aCreationArgs.remove( "Hidden" );
375                 }
376 
377 				Reference< XCommandProcessor > xContent( xORB->createInstanceWithArguments(
378                         SERVICE_SDB_DOCUMENTDEFINITION,
379                         aCreationArgs.getWrappedPropertyValues()
380                     ),
381                     UNO_QUERY_THROW
382                 );
383 				o_rDefinition.set( xContent, UNO_QUERY );
384 
385                 // put the OpenMode into the OpenArgs
386                 OpenCommandArgument aOpenModeArg;
387 			    aOpenModeArg.Mode = OpenMode::DOCUMENT;
388                 aCommandArgs.put( "OpenMode", aOpenModeArg );
389 
390 			    Command aCommand;
391 			    aCommand.Name = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "openDesign" ) );
392 			    aCommand.Argument <<= aCommandArgs.getPropertyValues();
393 			    WaitObject aWaitCursor( m_pDialogParent );
394 			    xNewDocument.set( xContent->execute( aCommand, xContent->createCommandIdentifier(), NULL ), UNO_QUERY );
395 			}
396 		}
397 		catch(const Exception& )
398 		{
399 			DBG_UNHANDLED_EXCEPTION();
400 		}
401 
402 		return xNewDocument;
403 	}
404 
405 	//------------------------------------------------------------------
open(const::rtl::OUString & _rLinkName,Reference<XComponent> & _xDefinition,ElementOpenMode _eOpenMode,const::comphelper::NamedValueCollection & _rAdditionalArgs)406 	Reference< XComponent > OLinkedDocumentsAccess::open( const ::rtl::OUString& _rLinkName, Reference< XComponent >& _xDefinition,
407         ElementOpenMode _eOpenMode, const ::comphelper::NamedValueCollection& _rAdditionalArgs )
408 	{
409 		dbtools::SQLExceptionInfo aInfo;
410         Reference< XComponent > xRet;
411 		try
412 		{
413 			xRet = impl_open( _rLinkName, _xDefinition, _eOpenMode, _rAdditionalArgs );
414 			if ( !xRet.is() )
415 			{
416                 String sMessage = String(ModuleRes(STR_COULDNOTOPEN_LINKEDDOC));
417                 sMessage.SearchAndReplaceAscii("$file$",_rLinkName);
418 
419                 com::sun::star::sdbc::SQLException aSQLException;
420                 aSQLException.Message = sMessage;
421                 // aSQLException.Context = e.Context;
422                 aInfo = dbtools::SQLExceptionInfo(aSQLException);
423 			}
424 			return xRet;
425 		}
426 		catch (com::sun::star::io::WrongFormatException e)
427 		{
428             com::sun::star::sdbc::SQLException aSQLException;
429             aSQLException.Message = e.Message;
430             aSQLException.Context = e.Context;
431 			aInfo = dbtools::SQLExceptionInfo(aSQLException);
432 
433 			// more like a hack, insert an empty message
434             String sText( ModuleRes( RID_STR_EXTENSION_NOT_PRESENT ) );
435             sText.SearchAndReplaceAscii("$file$",_rLinkName);
436             aInfo.prepend(sText);
437 
438 			String sMessage = String(ModuleRes(STR_COULDNOTOPEN_LINKEDDOC));
439 			sMessage.SearchAndReplaceAscii("$file$",_rLinkName);
440             aInfo.prepend(sMessage);
441         }
442         catch(Exception& e)
443         {
444             Any aAny = ::cppu::getCaughtException();
445             com::sun::star::sdbc::SQLException a;
446             if ( !(aAny >>= a) || (a.ErrorCode != dbtools::ParameterInteractionCancelled) )
447             {
448                 com::sun::star::sdbc::SQLException aSQLException;
449                 aSQLException.Message = e.Message;
450                 aSQLException.Context = e.Context;
451                 aInfo = dbtools::SQLExceptionInfo(aSQLException);
452 
453                 // more like a hack, insert an empty message
454                 aInfo.prepend(::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM(" \n")));
455 
456                 String sMessage = String(ModuleRes(STR_COULDNOTOPEN_LINKEDDOC));
457                 sMessage.SearchAndReplaceAscii("$file$",_rLinkName);
458                 aInfo.prepend(sMessage);
459             }
460         }
461         if (aInfo.isValid())
462         {
463             showError(aInfo, VCLUnoHelper::GetInterface(m_pDialogParent), m_xORB );
464         }
465         return xRet;
466     }
467 
468 
469 //......................................................................
470 }	// namespace dbaui
471 //......................................................................
472 
473