/************************************************************** * * Licensed to the Apache Software Foundation (ASF) under one * or more contributor license agreements. See the NOTICE file * distributed with this work for additional information * regarding copyright ownership. The ASF licenses this file * to you under the Apache License, Version 2.0 (the * "License"); you may not use this file except in compliance * with the License. You may obtain a copy of the License at * * http://www.apache.org/licenses/LICENSE-2.0 * * Unless required by applicable law or agreed to in writing, * software distributed under the License is distributed on an * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY * KIND, either express or implied. See the License for the * specific language governing permissions and limitations * under the License. * *************************************************************/ // MARKER(update_precomp.py): autogen include statement, do not remove #include "precompiled_sw.hxx" #ifdef SW_DLLIMPLEMENTATION #undef SW_DLLIMPLEMENTATION #endif #include #include #include #ifndef _DBUI_HRC #include #endif #include #ifndef _VIEW_HXX #include #endif #ifndef _DBMGR_HXX #include #endif #include #include #include #include #include #include #include using namespace ::com::sun::star::uno; using namespace ::com::sun::star::beans; using namespace ::com::sun::star::sdbc; using ::rtl::OUString; /*-- 02.04.2004 16:42:49--------------------------------------------------- -----------------------------------------------------------------------*/ SwMailMergePrepareMergePage::SwMailMergePrepareMergePage( SwMailMergeWizard* _pParent) : svt::OWizardPage( _pParent, SW_RES(DLG_MM_PREPAREMERGE_PAGE)), #ifdef MSC #pragma warning (disable : 4355) #endif m_aHeaderFI(this, SW_RES( FI_HEADER ) ), m_aPreviewFI(this, SW_RES( FI_PREVIEW ) ), m_aRecipientFT(this, SW_RES( FT_RECIPIENT ) ), m_aFirstPB(this, SW_RES( PB_FIRST ) ), m_aPrevPB(this, SW_RES( PB_PREV ) ), m_aRecordED(this, SW_RES( ED_RECORD ) ), m_aNextPB(this, SW_RES( PB_NEXT ) ), m_aLastPB(this, SW_RES( PB_LAST ) ), m_ExcludeCB(this, SW_RES( CB_EXCLUDE ) ), m_aNoteHeaderFL(this, SW_RES( FL_NOTEHEADER ) ), m_aEditFI(this, SW_RES( FI_EDIT ) ), m_aEditPB(this, SW_RES( PB_EDIT ) ), #ifdef MSC #pragma warning (default : 4355) #endif m_pWizard(_pParent) { FreeResource(); m_aEditPB.SetClickHdl( LINK( this, SwMailMergePrepareMergePage, EditDocumentHdl_Impl)); Link aMoveLink(LINK( this, SwMailMergePrepareMergePage, MoveHdl_Impl)); m_aFirstPB.SetClickHdl( aMoveLink ); m_aPrevPB.SetClickHdl( aMoveLink ); m_aNextPB.SetClickHdl( aMoveLink ); m_aLastPB.SetClickHdl( aMoveLink ); m_aRecordED.SetActionHdl( aMoveLink ); m_ExcludeCB.SetClickHdl(LINK(this, SwMailMergePrepareMergePage, ExcludeHdl_Impl)); aMoveLink.Call(&m_aRecordED); } /*-- 02.04.2004 16:42:49--------------------------------------------------- -----------------------------------------------------------------------*/ SwMailMergePrepareMergePage::~SwMailMergePrepareMergePage() { } /*-- 13.05.2004 15:36:48--------------------------------------------------- -----------------------------------------------------------------------*/ IMPL_LINK( SwMailMergePrepareMergePage, EditDocumentHdl_Impl, PushButton*, EMPTYARG) { m_pWizard->SetRestartPage(MM_PREPAREMERGEPAGE); m_pWizard->EndDialog(RET_EDIT_DOC); return 0; } /*-- 27.05.2004 14:16:37--------------------------------------------------- -----------------------------------------------------------------------*/ IMPL_LINK( SwMailMergePrepareMergePage, MoveHdl_Impl, void*, pCtrl) { SwMailMergeConfigItem& rConfigItem = m_pWizard->GetConfigItem(); sal_Int32 nPos = rConfigItem.GetResultSetPosition(); if(pCtrl == &m_aFirstPB) { rConfigItem.MoveResultSet(1); } else if(pCtrl == &m_aPrevPB) { rConfigItem.MoveResultSet(nPos - 1); } else if(pCtrl == &m_aRecordED) { rConfigItem.MoveResultSet( static_cast< sal_Int32 >(m_aRecordED.GetValue()) ); } else if(pCtrl == &m_aNextPB) rConfigItem.MoveResultSet(nPos + 1); else if(pCtrl == &m_aLastPB) rConfigItem.MoveResultSet(-1); nPos = rConfigItem.GetResultSetPosition(); m_aRecordED.SetValue(nPos); bool bIsFirst; bool bIsLast; bool bValid = rConfigItem.IsResultSetFirstLast(bIsFirst, bIsLast); m_aFirstPB.Enable(bValid && !bIsFirst); m_aPrevPB.Enable(bValid && !bIsFirst); m_aNextPB.Enable(bValid && !bIsLast); m_aLastPB.Enable(bValid && !bIsLast); m_ExcludeCB.Check(rConfigItem.IsRecordExcluded( rConfigItem.GetResultSetPosition() )); //now the record has to be merged into the source document const SwDBData& rDBData = rConfigItem.GetCurrentDBData(); Sequence< PropertyValue > aArgs(7); Sequence aSelection(1); aSelection[0] <<= rConfigItem.GetResultSetPosition(); aArgs[0].Name = C2U("Selection"); aArgs[0].Value <<= aSelection; aArgs[1].Name = C2U("DataSourceName"); aArgs[1].Value <<= rDBData.sDataSource; aArgs[2].Name = C2U("Command"); aArgs[2].Value <<= rDBData.sCommand; aArgs[3].Name = C2U("CommandType"); aArgs[3].Value <<= rDBData.nCommandType; aArgs[4].Name = C2U("ActiveConnection"); aArgs[4].Value <<= rConfigItem.GetConnection().getTyped(); aArgs[5].Name = C2U("Filter"); aArgs[5].Value <<= rConfigItem.GetFilter(); aArgs[6].Name = C2U("Cursor"); aArgs[6].Value <<= rConfigItem.GetResultSet(); ::svx::ODataAccessDescriptor aDescriptor(aArgs); SwWrtShell& rSh = m_pWizard->GetSwView()->GetWrtShell(); SwMergeDescriptor aMergeDesc( DBMGR_MERGE, rSh, aDescriptor ); rSh.GetNewDBMgr()->MergeNew(aMergeDesc); return 0; } /*-- 27.05.2004 14:46:28--------------------------------------------------- -----------------------------------------------------------------------*/ IMPL_LINK( SwMailMergePrepareMergePage, ExcludeHdl_Impl, CheckBox*, pBox) { SwMailMergeConfigItem& rConfigItem = m_pWizard->GetConfigItem(); rConfigItem.ExcludeRecord( rConfigItem.GetResultSetPosition(), pBox->IsChecked()); return 0; }; /*-- 18.08.2004 10:36:25--------------------------------------------------- -----------------------------------------------------------------------*/ void SwMailMergePrepareMergePage::ActivatePage() { MoveHdl_Impl(&m_aRecordED); } /*-- 13.05.2004 15:38:32--------------------------------------------------- merge the data into a new file -----------------------------------------------------------------------*/ sal_Bool SwMailMergePrepareMergePage::commitPage( ::svt::WizardTypes::CommitPageReason _eReason ) { SwMailMergeConfigItem& rConfigItem = m_pWizard->GetConfigItem(); if(::svt::WizardTypes::eTravelForward == _eReason && !rConfigItem.IsMergeDone()) { m_pWizard->CreateTargetDocument(); m_pWizard->SetRestartPage(MM_MERGEPAGE); m_pWizard->EndDialog(RET_TARGET_CREATED); } return sal_True; }