sw/source/core/fields/tblcalc.cxx

   1 /*************************************************************************
   2  *
   3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4  *
   5  * Copyright 2008 by Sun Microsystems, Inc.
   6  *
   7  * OpenOffice.org - a multi-platform office productivity suite
   8  *
   9  * $RCSfile: tblcalc.cxx,v $
  10  * $Revision: 1.17 $
  11  *
  12  * This file is part of OpenOffice.org.
  13  *
  14  * OpenOffice.org is free software: you can redistribute it and/or modify
  15  * it under the terms of the GNU Lesser General Public License version 3
  16  * only, as published by the Free Software Foundation.
  17  *
  18  * OpenOffice.org is distributed in the hope that it will be useful,
  19  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  20  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21  * GNU Lesser General Public License version 3 for more details
  22  * (a copy is included in the LICENSE file that accompanied this code).
  23  *
  24  * You should have received a copy of the GNU Lesser General Public License
  25  * version 3 along with OpenOffice.org.  If not, see
  26  * <http://www.openoffice.org/license.html>
  27  * for a copy of the LGPLv3 License.
  28  *
  29  ************************************************************************/
  30
  31 // MARKER(update_precomp.py): autogen include statement, do not remove
  32 #include "precompiled_sw.hxx"
  33
  34
  35 #include <cntfrm.hxx>
  36 #include <doc.hxx>
  37 #include <pam.hxx>              // fuer GetBodyTxtNode
  38 #include <ndtxt.hxx>
  39 #include <fmtfld.hxx>
  40 #include <txtfld.hxx>
  41 #include <expfld.hxx>
  42 #include <docfld.hxx>   // fuer _SetGetExpFld
  43 #ifndef _UNOFLDMID_H
  44 #include <unofldmid.h>
  45 #endif
  46
  47 using namespace ::com::sun::star;
  48 using ::rtl::OUString;
  49
  50
  51 SwTblFieldType::SwTblFieldType(SwDoc* pDocPtr)
  52     : SwValueFieldType( pDocPtr, RES_TABLEFLD )
  53 {}
  54
  55
  56 SwFieldType* SwTblFieldType::Copy() const
  57 {
  58     return new SwTblFieldType(GetDoc());
  59 }
  60
  61
  62
  63 void SwTblField::CalcField( SwTblCalcPara& rCalcPara )
  64 {
  65     if( rCalcPara.rCalc.IsCalcError() )         // ist schon Fehler gesetzt ?
  66         return;
  67
  68     // erzeuge aus den BoxNamen die Pointer
  69     BoxNmToPtr( rCalcPara.pTbl );
  70     String sFml( MakeFormel( rCalcPara ));
  71     SetValue( rCalcPara.rCalc.Calculate( sFml ).GetDouble() );
  72     ChgValid( !rCalcPara.IsStackOverFlow() );           // ist der Wert wieder gueltig?
  73 }
  74
  75
  76
  77 SwTblField::SwTblField( SwTblFieldType* pInitType, const String& rFormel,
  78                         USHORT nType, ULONG nFmt )
  79     : SwValueField( pInitType, nFmt ), SwTableFormula( rFormel ),
  80     sExpand( '0' ), nSubType(nType)
  81 {
  82 }
  83
  84
  85 SwField* SwTblField::Copy() const
  86 {
  87     SwTblField* pTmp = new SwTblField( (SwTblFieldType*)GetTyp(),
  88                                         SwTableFormula::GetFormula(), nSubType, GetFormat() );
  89     pTmp->sExpand         = sExpand;
  90     pTmp->SwValueField::SetValue(GetValue());
  91     pTmp->SwTableFormula::operator=( *this );
  92     pTmp->SetAutomaticLanguage(IsAutomaticLanguage());
  93     return pTmp;
  94 }
  95
  96
  97 String SwTblField::GetCntnt(BOOL bName) const
  98 {
  99     if( bName )
 100     {
 101         String aStr(GetTyp()->GetName());
 102         aStr += ' ';
 103
 104         USHORT nOldSubType = nSubType;
 105         SwTblField* pThis = (SwTblField*)this;
 106         pThis->nSubType |= nsSwExtendedSubType::SUB_CMD;
 107         aStr += Expand();
 108         pThis->nSubType = nOldSubType;
 109
 110         return aStr;
 111     }
 112     return Expand();
 113 }
 114
 115 // suche den TextNode, in dem das Feld steht
 116 const SwNode* SwTblField::GetNodeOfFormula() const
 117 {
 118     if( !GetTyp()->GetDepends() )
 119         return 0;
 120
 121     SwClientIter aIter( *GetTyp() );
 122     SwClient * pLast = aIter.GoStart();
 123     if( pLast )         // konnte zum Anfang gesprungen werden ??
 124         do {
 125             const SwFmtFld* pFmtFld = (SwFmtFld*)pLast;
 126             if( this == pFmtFld->GetFld() )
 127                 return (SwTxtNode*)&pFmtFld->GetTxtFld()->GetTxtNode();
 128
 129         } while( 0 != ( pLast = aIter++ ));
 130     return 0;
 131 }
 132
 133
 134 String SwTblField::Expand() const
 135 {
 136     String aStr;
 137     if (nSubType & nsSwExtendedSubType::SUB_CMD)
 138     {
 139         if( EXTRNL_NAME != GetNameType() )
 140         {
 141             const SwNode* pNd = GetNodeOfFormula();
 142             const SwTableNode* pTblNd = pNd ? pNd->FindTableNode() : 0;
 143             if( pTblNd )
 144                 ((SwTblField*)this)->PtrToBoxNm( &pTblNd->GetTable() );
 145         }
 146         if( EXTRNL_NAME == GetNameType() )
 147             aStr = SwTableFormula::GetFormula();
 148     }
 149     else
 150     {
 151         aStr = sExpand;
 152         if(nSubType & nsSwGetSetExpType::GSE_STRING)
 153         {
 154             // es ist ein String
 155             aStr = sExpand;
 156             aStr.Erase( 0,1 );
 157             aStr.Erase( aStr.Len()-1, 1 );
 158         }
 159     }
 160     return aStr;
 161 }
 162
 163 USHORT SwTblField::GetSubType() const
 164 {
 165     return nSubType;
 166 }
 167
 168 void SwTblField::SetSubType(USHORT nType)
 169 {
 170     nSubType = nType;
 171 }
 172
 173
 174 void SwTblField::SetValue( const double& rVal )
 175 {
 176     SwValueField::SetValue(rVal);
 177     sExpand = ((SwValueFieldType*)GetTyp())->ExpandValue(rVal, GetFormat(), GetLanguage());
 178 }
 179
 180 /*--------------------------------------------------------------------
 181     Beschreibung: Parameter setzen
 182  --------------------------------------------------------------------*/
 183
 184
 185 String SwTblField::GetPar2() const
 186 {
 187     return SwTableFormula::GetFormula();
 188 }
 189
 190
 191 void SwTblField::SetPar2(const String& rStr)
 192 {
 193     SetFormula( rStr );
 194 }
 195
 196
 197 /*-----------------04.03.98 10:33-------------------
 198
 199 --------------------------------------------------*/
 200 BOOL SwTblField::QueryValue( uno::Any& rAny, USHORT nWhichId ) const
 201 {
 202     BOOL bRet = TRUE;
 203     switch ( nWhichId )
 204     {
 205     case FIELD_PROP_PAR2:
 206         {
 207             USHORT nOldSubType = nSubType;
 208             SwTblField* pThis = (SwTblField*)this;
 209             pThis->nSubType |= nsSwExtendedSubType::SUB_CMD;
 210             rAny <<= rtl::OUString( Expand() );
 211             pThis->nSubType = nOldSubType;
 212         }
 213         break;
 214     case FIELD_PROP_BOOL1:
 215         {
 216             BOOL bFormula = 0 != (nsSwExtendedSubType::SUB_CMD & nSubType);
 217             rAny.setValue(&bFormula, ::getBooleanCppuType());
 218         }
 219         break;
 220     case FIELD_PROP_PAR1:
 221         rAny <<= rtl::OUString(GetExpStr());
 222         break;
 223     case FIELD_PROP_FORMAT:
 224         rAny <<= (sal_Int32)GetFormat();
 225         break;
 226     default:
 227         bRet = sal_False;
 228     }
 229     return bRet;
 230 }
 231 /*-----------------04.03.98 10:33-------------------
 232
 233 --------------------------------------------------*/
 234 BOOL SwTblField::PutValue( const uno::Any& rAny, USHORT nWhichId )
 235 {
 236     BOOL bRet = TRUE;
 237     String sTmp;
 238     switch ( nWhichId )
 239     {
 240     case FIELD_PROP_PAR2:
 241         SetFormula( ::GetString( rAny, sTmp ));
 242         break;
 243     case FIELD_PROP_BOOL1:
 244         if(*(sal_Bool*)rAny.getValue())
 245             nSubType = nsSwGetSetExpType::GSE_FORMULA|nsSwExtendedSubType::SUB_CMD;
 246         else
 247             nSubType = nsSwGetSetExpType::GSE_FORMULA;
 248         break;
 249     case FIELD_PROP_PAR1:
 250         ChgExpStr( ::GetString( rAny, sTmp ));
 251         break;
 252     case FIELD_PROP_FORMAT:
 253         {
 254             sal_Int32 nTmp = 0;
 255             rAny >>= nTmp;
 256             SetFormat(nTmp);
 257         }
 258         break;
 259     default:
 260         bRet = sal_False;
 261     }
 262     return bRet;
 263 }
 264
 265
 266
 267