forms/source/component/Date.cxx

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2 /*
   3  * This file is part of the LibreOffice project.
   4  *
   5  * This Source Code Form is subject to the terms of the Mozilla Public
   6  * License, v. 2.0. If a copy of the MPL was not distributed with this
   7  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
   8  *
   9  * This file incorporates work covered by the following license notice:
  10  *
  11  *   Licensed to the Apache Software Foundation (ASF) under one or more
  12  *   contributor license agreements. See the NOTICE file distributed
  13  *   with this work for additional information regarding copyright
  14  *   ownership. The ASF licenses this file to you under the Apache
  15  *   License, Version 2.0 (the "License"); you may not use this file
  16  *   except in compliance with the License. You may obtain a copy of
  17  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  18  */
  19
  20 #include "Date.hxx"
  21 #include <property.hxx>
  22 #include <services.hxx>
  23 #include <tools/debug.hxx>
  24 #include <comphelper/diagnose_ex.hxx>
  25 #include <connectivity/dbconversion.hxx>
  26 #include <com/sun/star/sdbc/DataType.hpp>
  27 #include <com/sun/star/beans/PropertyAttribute.hpp>
  28 #include <com/sun/star/form/FormComponentType.hpp>
  29
  30 using namespace dbtools;
  31
  32 namespace frm
  33 {
  34
  35
  36 using namespace ::com::sun::star;
  37 using namespace ::com::sun::star::uno;
  38 using namespace ::com::sun::star::sdb;
  39 using namespace ::com::sun::star::sdbc;
  40 using namespace ::com::sun::star::beans;
  41 using namespace ::com::sun::star::util;
  42 using namespace ::com::sun::star::container;
  43 using namespace ::com::sun::star::form;
  44 using namespace ::com::sun::star::awt;
  45 using namespace ::com::sun::star::io;
  46 using namespace ::com::sun::star::lang;
  47
  48
  49 ODateControl::ODateControl(const Reference<XComponentContext>& _rxFactory)
  50                :OBoundControl(_rxFactory, VCL_CONTROL_DATEFIELD)
  51 {
  52 }
  53
  54
  55 Sequence<Type> ODateControl::_getTypes()
  56 {
  57     return OBoundControl::_getTypes();
  58 }
  59
  60 css::uno::Sequence<OUString> SAL_CALL ODateControl::getSupportedServiceNames()
  61 {
  62     const css::uno::Sequence<OUString> vals { FRM_SUN_CONTROL_DATEFIELD, STARDIV_ONE_FORM_CONTROL_DATEFIELD };
  63     return comphelper::concatSequences(OBoundControl::getSupportedServiceNames(), vals);
  64 }
  65
  66
  67 Sequence<Type> ODateModel::_getTypes()
  68 {
  69     return OEditBaseModel::_getTypes();
  70 }
  71
  72
  73 ODateModel::ODateModel(const Reference<XComponentContext>& _rxFactory)
  74     : OEditBaseModel(_rxFactory, VCL_CONTROLMODEL_DATEFIELD,
  75         FRM_SUN_CONTROL_DATEFIELD, true, true)
  76     // use the old control name for compytibility reasons
  77     , OLimitedFormats(_rxFactory, FormComponentType::DATEFIELD)
  78     , m_bDateTimeField(false)
  79 {
  80     m_nClassId = FormComponentType::DATEFIELD;
  81     initValueProperty( PROPERTY_DATE, PROPERTY_ID_DATE );
  82
  83     setAggregateSet(m_xAggregateFastSet, getOriginalHandle(PROPERTY_ID_DATEFORMAT));
  84
  85     osl_atomic_increment( &m_refCount );
  86     try
  87     {
  88         if ( m_xAggregateSet.is() )
  89             m_xAggregateSet->setPropertyValue( PROPERTY_DATEMIN, Any(util::Date(1, 1, 1800)) );
  90     }
  91     catch( const Exception& )
  92     {
  93         TOOLS_WARN_EXCEPTION( "forms.component", "ODateModel::ODateModel" );
  94     }
  95     osl_atomic_decrement( &m_refCount );
  96 }
  97
  98
  99 ODateModel::ODateModel( const ODateModel* _pOriginal, const Reference<XComponentContext>& _rxFactory )
 100     : OEditBaseModel(_pOriginal, _rxFactory)
 101     , OLimitedFormats(_rxFactory, FormComponentType::DATEFIELD)
 102     , m_bDateTimeField(false)
 103 {
 104     setAggregateSet( m_xAggregateFastSet, getOriginalHandle( PROPERTY_ID_DATEFORMAT ) );
 105 }
 106
 107
 108 ODateModel::~ODateModel( )
 109 {
 110     setAggregateSet(Reference< XFastPropertySet >(), -1);
 111 }
 112
 113 // XCloneable
 114
 115 css::uno::Reference< css::util::XCloneable > SAL_CALL ODateModel::createClone()
 116 {
 117     rtl::Reference<ODateModel> pClone = new ODateModel(this, getContext());
 118     pClone->clonedFrom(this);
 119     return pClone;
 120 }
 121
 122 // XServiceInfo
 123
 124 css::uno::Sequence<OUString> SAL_CALL ODateModel::getSupportedServiceNames()
 125 {
 126     const css::uno::Sequence<OUString> vals {
 127        BINDABLE_CONTROL_MODEL,
 128        DATA_AWARE_CONTROL_MODEL,
 129        VALIDATABLE_CONTROL_MODEL,
 130        BINDABLE_DATA_AWARE_CONTROL_MODEL,
 131        VALIDATABLE_BINDABLE_CONTROL_MODEL,
 132        FRM_SUN_COMPONENT_DATEFIELD,
 133        FRM_SUN_COMPONENT_DATABASE_DATEFIELD,
 134        BINDABLE_DATABASE_DATE_FIELD,
 135        FRM_COMPONENT_DATEFIELD
 136     };
 137
 138     return comphelper::concatSequences(OBoundControlModel::getSupportedServiceNames(), vals);
 139 }
 140
 141
 142 OUString SAL_CALL ODateModel::getServiceName()
 143 {
 144     return FRM_COMPONENT_DATEFIELD; // old (non-sun) name for compatibility !
 145 }
 146
 147 // XPropertySet
 148
 149 void ODateModel::describeFixedProperties( Sequence< Property >& _rProps ) const
 150 {
 151     OEditBaseModel::describeFixedProperties( _rProps );
 152     sal_Int32 nOldCount = _rProps.getLength();
 153     _rProps.realloc( nOldCount + 4);
 154     css::beans::Property* pProperties = _rProps.getArray() + nOldCount;
 155     *pProperties++ = css::beans::Property(PROPERTY_DEFAULT_DATE, PROPERTY_ID_DEFAULT_DATE, cppu::UnoType<util::Date>::get(), css::beans::PropertyAttribute::BOUND | css::beans::PropertyAttribute::MAYBEDEFAULT | css::beans::PropertyAttribute::MAYBEVOID);
 156     *pProperties++ = css::beans::Property(PROPERTY_TABINDEX, PROPERTY_ID_TABINDEX, cppu::UnoType<sal_Int16>::get(), css::beans::PropertyAttribute::BOUND);
 157     *pProperties++ = css::beans::Property(PROPERTY_FORMATKEY, PROPERTY_ID_FORMATKEY, cppu::UnoType<sal_Int32>::get(), css::beans::PropertyAttribute::TRANSIENT);
 158     *pProperties++ = css::beans::Property(PROPERTY_FORMATSSUPPLIER, PROPERTY_ID_FORMATSSUPPLIER, cppu::UnoType<XNumberFormatsSupplier>::get(),
 159                                               css::beans::PropertyAttribute::READONLY | css::beans::PropertyAttribute::TRANSIENT);
 160     DBG_ASSERT( pProperties == _rProps.getArray() + _rProps.getLength(), "<...>::describeFixedProperties/getInfoHelper: forgot to adjust the count ?");
 161 }
 162
 163
 164 void SAL_CALL ODateModel::getFastPropertyValue(Any& _rValue, sal_Int32 _nHandle ) const
 165 {
 166     switch (_nHandle)
 167     {
 168         case PROPERTY_ID_FORMATKEY:
 169             getFormatKeyPropertyValue(_rValue);
 170             break;
 171         case PROPERTY_ID_FORMATSSUPPLIER:
 172             _rValue <<= getFormatsSupplier();
 173             break;
 174         default:
 175             OEditBaseModel::getFastPropertyValue(_rValue, _nHandle);
 176             break;
 177     }
 178 }
 179
 180
 181 sal_Bool SAL_CALL ODateModel::convertFastPropertyValue(Any& _rConvertedValue, Any& _rOldValue,
 182         sal_Int32 _nHandle, const Any& _rValue )
 183 {
 184     if (PROPERTY_ID_FORMATKEY == _nHandle)
 185         return convertFormatKeyPropertyValue(_rConvertedValue, _rOldValue, _rValue);
 186     else
 187         return OEditBaseModel::convertFastPropertyValue(_rConvertedValue, _rOldValue, _nHandle, _rValue );
 188 }
 189
 190
 191 void SAL_CALL ODateModel::setFastPropertyValue_NoBroadcast(sal_Int32 _nHandle, const Any& _rValue)
 192 {
 193     if (PROPERTY_ID_FORMATKEY == _nHandle)
 194         setFormatKeyPropertyValue(_rValue);
 195     else
 196         OEditBaseModel::setFastPropertyValue_NoBroadcast(_nHandle, _rValue);
 197 }
 198
 199 // XLoadListener
 200
 201 void ODateModel::onConnectedDbColumn( const Reference< XInterface >& _rxForm )
 202 {
 203     OBoundControlModel::onConnectedDbColumn( _rxForm );
 204     Reference<XPropertySet> xField = getField();
 205     if (!xField.is())
 206         return;
 207
 208     m_bDateTimeField = false;
 209     try
 210     {
 211         sal_Int32 nFieldType = 0;
 212         xField->getPropertyValue(PROPERTY_FIELDTYPE) >>= nFieldType;
 213         m_bDateTimeField = (nFieldType == DataType::TIMESTAMP);
 214     }
 215     catch(const Exception&)
 216     {
 217     }
 218 }
 219
 220
 221 bool ODateModel::commitControlValueToDbColumn( bool /*_bPostReset*/ )
 222 {
 223     Any aControlValue( m_xAggregateFastSet->getFastPropertyValue( getValuePropertyAggHandle() ) );
 224     if ( aControlValue == m_aSaveValue )
 225         return true;
 226
 227     if ( !aControlValue.hasValue() )
 228         m_xColumnUpdate->updateNull();
 229     else
 230     {
 231         try
 232         {
 233             util::Date aDate;
 234             if ( !( aControlValue >>= aDate ) )
 235             {
 236                 sal_Int32 nAsInt(0);
 237                 aControlValue >>= nAsInt;
 238                 aDate = DBTypeConversion::toDate(nAsInt);
 239             }
 240
 241             if ( !m_bDateTimeField )
 242                 m_xColumnUpdate->updateDate( aDate );
 243             else
 244             {
 245                 util::DateTime aDateTime = m_xColumn->getTimestamp();
 246                 aDateTime.Day = aDate.Day;
 247                 aDateTime.Month = aDate.Month;
 248                 aDateTime.Year = aDate.Year;
 249                 m_xColumnUpdate->updateTimestamp( aDateTime );
 250             }
 251         }
 252         catch(const Exception&)
 253         {
 254             return false;
 255         }
 256     }
 257     m_aSaveValue = aControlValue;
 258     return true;
 259 }
 260
 261
 262 Any ODateModel::translateControlValueToExternalValue( ) const
 263 {
 264     return getControlValue();
 265 }
 266
 267
 268 Any ODateModel::translateExternalValueToControlValue( const Any& _rExternalValue ) const
 269 {
 270     return _rExternalValue;
 271 }
 272
 273
 274 Any ODateModel::translateControlValueToValidatableValue( ) const
 275 {
 276     return getControlValue();
 277 }
 278
 279
 280 Any ODateModel::translateDbColumnToControlValue()
 281 {
 282     util::Date aDate = m_xColumn->getDate();
 283     if (m_xColumn->wasNull())
 284         m_aSaveValue.clear();
 285     else
 286         m_aSaveValue <<= aDate;
 287
 288     return m_aSaveValue;
 289 }
 290
 291
 292 Any ODateModel::getDefaultForReset() const
 293 {
 294     return m_aDefault;
 295 }
 296
 297
 298 void ODateModel::resetNoBroadcast()
 299 {
 300     OEditBaseModel::resetNoBroadcast();
 301     m_aSaveValue.clear();
 302 }
 303
 304
 305 Sequence< Type > ODateModel::getSupportedBindingTypes()
 306 {
 307     return Sequence< Type >( & cppu::UnoType<util::Date>::get(), 1 );
 308 }
 309
 310 }   // namespace frm
 311
 312 extern "C" SAL_DLLPUBLIC_EXPORT css::uno::XInterface*
 313 com_sun_star_form_ODateModel_get_implementation(css::uno::XComponentContext* component,
 314         css::uno::Sequence<css::uno::Any> const &)
 315 {
 316     return cppu::acquire(new frm::ODateModel(component));
 317 }
 318
 319 extern "C" SAL_DLLPUBLIC_EXPORT css::uno::XInterface*
 320 com_sun_star_form_ODateControl_get_implementation(css::uno::XComponentContext* component,
 321         css::uno::Sequence<css::uno::Any> const &)
 322 {
 323     return cppu::acquire(new frm::ODateControl(component));
 324 }
 325
 326 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */