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_forms.hxx"
26 #include "Currency.hxx"
27 #include <tools/debug.hxx>
28 #include <unotools/localedatawrapper.hxx>
29 #include <vcl/svapp.hxx>
30 #include <unotools/syslocale.hxx>
31 
32 //.........................................................................
33 namespace frm
34 {
35 //.........................................................................
36 using namespace ::com::sun::star::uno;
37 using namespace ::com::sun::star::sdb;
38 using namespace ::com::sun::star::sdbc;
39 using namespace ::com::sun::star::sdbcx;
40 using namespace ::com::sun::star::beans;
41 using namespace ::com::sun::star::container;
42 using namespace ::com::sun::star::form;
43 using namespace ::com::sun::star::awt;
44 using namespace ::com::sun::star::io;
45 using namespace ::com::sun::star::lang;
46 using namespace ::com::sun::star::util;
47 
48 //==================================================================
49 // OCurrencyControl
50 //==================================================================
51 //------------------------------------------------------------------
OCurrencyControl(const Reference<XMultiServiceFactory> & _rxFactory)52 OCurrencyControl::OCurrencyControl(const Reference<XMultiServiceFactory>& _rxFactory)
53 	:OBoundControl(_rxFactory, VCL_CONTROL_CURRENCYFIELD)
54 {
55 }
56 
57 //------------------------------------------------------------------
OCurrencyControl_CreateInstance(const Reference<XMultiServiceFactory> & _rxFactory)58 InterfaceRef SAL_CALL OCurrencyControl_CreateInstance(const Reference<XMultiServiceFactory>& _rxFactory)
59 {
60 	return *(new OCurrencyControl(_rxFactory));
61 }
62 
63 //------------------------------------------------------------------------------
_getTypes()64 Sequence<Type> OCurrencyControl::_getTypes()
65 {
66 	return OBoundControl::_getTypes();
67 }
68 
69 //------------------------------------------------------------------------------
getSupportedServiceNames()70 StringSequence SAL_CALL OCurrencyControl::getSupportedServiceNames() throw()
71 {
72 	StringSequence aSupported = OBoundControl::getSupportedServiceNames();
73 	aSupported.realloc(aSupported.getLength() + 1);
74 
75 	::rtl::OUString*pArray = aSupported.getArray();
76 	pArray[aSupported.getLength()-1] = FRM_SUN_CONTROL_CURRENCYFIELD;
77 	return aSupported;
78 }
79 
80 //==================================================================
81 // OCurrencyModel
82 //==================================================================
83 //------------------------------------------------------------------
OCurrencyModel_CreateInstance(const Reference<XMultiServiceFactory> & _rxFactory)84 InterfaceRef SAL_CALL OCurrencyModel_CreateInstance(const Reference<XMultiServiceFactory>& _rxFactory)
85 {
86 	return *(new OCurrencyModel(_rxFactory));
87 }
88 
89 //------------------------------------------------------------------------------
_getTypes()90 Sequence<Type> OCurrencyModel::_getTypes()
91 {
92 	return OEditBaseModel::_getTypes();
93 }
94 
95 //------------------------------------------------------------------
implConstruct()96 void OCurrencyModel::implConstruct()
97 {
98 	if (m_xAggregateSet.is())
99 	{
100 		try
101 		{
102 			// get the system international informations
103             const SvtSysLocale aSysLocale;
104 			const LocaleDataWrapper& aLocaleInfo = aSysLocale.GetLocaleData();
105 
106 			::rtl::OUString sCurrencySymbol;
107 			sal_Bool bPrependCurrencySymbol;
108 			switch ( aLocaleInfo.getCurrPositiveFormat() )
109 			{
110 				case 0:	// $1
111 					sCurrencySymbol = String(aLocaleInfo.getCurrSymbol());
112 					bPrependCurrencySymbol = sal_True;
113 					break;
114 				case 1:	// 1$
115 					sCurrencySymbol = String(aLocaleInfo.getCurrSymbol());
116 					bPrependCurrencySymbol = sal_False;
117 					break;
118 				case 2:	// $ 1
119 					sCurrencySymbol = ::rtl::OUString(String(aLocaleInfo.getCurrSymbol())) + ::rtl::OUString::createFromAscii(" ");
120 					bPrependCurrencySymbol = sal_True;
121 					break;
122 				case 3: // 1 $
123 					sCurrencySymbol = ::rtl::OUString::createFromAscii(" ") + ::rtl::OUString(String(aLocaleInfo.getCurrSymbol()));
124 					bPrependCurrencySymbol = sal_False;
125 					break;
126 			}
127 			if (sCurrencySymbol.getLength())
128 			{
129 				m_xAggregateSet->setPropertyValue(PROPERTY_CURRENCYSYMBOL, makeAny(sCurrencySymbol));
130 				m_xAggregateSet->setPropertyValue(PROPERTY_CURRSYM_POSITION, makeAny(bPrependCurrencySymbol));
131 			}
132 		}
133 		catch(Exception&)
134 		{
135 			DBG_ERROR( "OCurrencyModel::implConstruct: caught an exception while initializing the aggregate!" );
136 		}
137 	}
138 }
139 
140 //------------------------------------------------------------------
DBG_NAME(OCurrencyModel)141 DBG_NAME( OCurrencyModel )
142 //------------------------------------------------------------------
143 OCurrencyModel::OCurrencyModel(const Reference<XMultiServiceFactory>& _rxFactory)
144 	:OEditBaseModel( _rxFactory, VCL_CONTROLMODEL_CURRENCYFIELD, FRM_SUN_CONTROL_CURRENCYFIELD, sal_False, sal_True )
145 									// use the old control name for compytibility reasons
146 {
147 	DBG_CTOR( OCurrencyModel, NULL );
148 
149 	m_nClassId = FormComponentType::CURRENCYFIELD;
150     initValueProperty( PROPERTY_VALUE, PROPERTY_ID_VALUE );
151 
152 	implConstruct();
153 }
154 
155 //------------------------------------------------------------------
OCurrencyModel(const OCurrencyModel * _pOriginal,const Reference<XMultiServiceFactory> & _rxFactory)156 OCurrencyModel::OCurrencyModel( const OCurrencyModel* _pOriginal, const Reference<XMultiServiceFactory>& _rxFactory )
157 	:OEditBaseModel( _pOriginal, _rxFactory )
158 {
159 	DBG_CTOR( OCurrencyModel, NULL );
160 	implConstruct();
161 }
162 
163 //------------------------------------------------------------------
~OCurrencyModel()164 OCurrencyModel::~OCurrencyModel()
165 {
166 	DBG_DTOR( OCurrencyModel, NULL );
167 }
168 
169 // XCloneable
170 //------------------------------------------------------------------------------
IMPLEMENT_DEFAULT_CLONING(OCurrencyModel)171 IMPLEMENT_DEFAULT_CLONING( OCurrencyModel )
172 
173 // XServiceInfo
174 //------------------------------------------------------------------------------
175 StringSequence SAL_CALL OCurrencyModel::getSupportedServiceNames() throw()
176 {
177 	StringSequence aSupported = OBoundControlModel::getSupportedServiceNames();
178 
179     sal_Int32 nOldLen = aSupported.getLength();
180 	aSupported.realloc( nOldLen + 4 );
181 	::rtl::OUString* pStoreTo = aSupported.getArray() + nOldLen;
182 
183     *pStoreTo++ = DATA_AWARE_CONTROL_MODEL;
184     *pStoreTo++ = VALIDATABLE_CONTROL_MODEL;
185 
186     *pStoreTo++ = FRM_SUN_COMPONENT_CURRENCYFIELD;
187     *pStoreTo++ = FRM_SUN_COMPONENT_DATABASE_CURRENCYFIELD;
188 
189 	return aSupported;
190 }
191 
192 //------------------------------------------------------------------------------
describeFixedProperties(Sequence<Property> & _rProps) const193 void OCurrencyModel::describeFixedProperties( Sequence< Property >& _rProps ) const
194 {
195 	BEGIN_DESCRIBE_PROPERTIES( 2, OEditBaseModel )
196 		// Value auf transient setzen
197 //		ModifyPropertyAttributes(_rAggregateProps, PROPERTY_VALUE, PropertyAttribute::TRANSIENT, 0);
198 
199 		DECL_PROP3(DEFAULT_VALUE,		double,				BOUND, MAYBEDEFAULT, MAYBEVOID);
200 		DECL_PROP1(TABINDEX,		sal_Int16,				BOUND);
201 	END_DESCRIBE_PROPERTIES();
202 }
203 
204 //------------------------------------------------------------------------------
getServiceName()205 ::rtl::OUString SAL_CALL OCurrencyModel::getServiceName() throw ( ::com::sun::star::uno::RuntimeException)
206 {
207 	return FRM_COMPONENT_CURRENCYFIELD;	// old (non-sun) name for compatibility !
208 }
209 
210 //------------------------------------------------------------------------------
commitControlValueToDbColumn(bool)211 sal_Bool OCurrencyModel::commitControlValueToDbColumn( bool /*_bPostReset*/ )
212 {
213 	Any aControlValue( m_xAggregateFastSet->getFastPropertyValue( getValuePropertyAggHandle() ) );
214 	if ( !compare( aControlValue, m_aSaveValue ) )
215 	{
216 		if ( aControlValue.getValueType().getTypeClass() == TypeClass_VOID )
217 			m_xColumnUpdate->updateNull();
218 		else
219 		{
220 			try
221 			{
222 				m_xColumnUpdate->updateDouble( getDouble( aControlValue ) );
223 			}
224 			catch(Exception&)
225 			{
226 				return sal_False;
227 			}
228 		}
229 		m_aSaveValue = aControlValue;
230 	}
231 	return sal_True;
232 }
233 
234 //------------------------------------------------------------------------------
translateDbColumnToControlValue()235 Any OCurrencyModel::translateDbColumnToControlValue()
236 {
237 	m_aSaveValue <<= m_xColumn->getDouble();
238 	if ( m_xColumn->wasNull() )
239 		m_aSaveValue.clear();
240     return m_aSaveValue;
241 }
242 
243 // XReset
244 //------------------------------------------------------------------------------
getDefaultForReset() const245 Any OCurrencyModel::getDefaultForReset() const
246 {
247 	Any aValue;
248 	if ( m_aDefault.getValueType().getTypeClass() == TypeClass_DOUBLE )
249 		aValue = m_aDefault;
250 
251     return aValue;
252 }
253 
254 //------------------------------------------------------------------------------
resetNoBroadcast()255 void OCurrencyModel::resetNoBroadcast()
256 {
257     OEditBaseModel::resetNoBroadcast();
258     m_aSaveValue.clear();
259 }
260 
261 //.........................................................................
262 }	// namespace frm
263 //.........................................................................
264 
265