From e6e9e59e1c686cd1e2658c590096484945c5f0b9 Mon Sep 17 00:00:00 2001
From: luca <luca@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Fri, 9 May 2003 09:58:57 +0000
Subject: [PATCH] Patch level         :2.0 467 Files correlati     :
 Ricompilazione Demo : [ ] Commento            :aggiunto il metodo
 currency2um()

git-svn-id: svn://10.65.10.50/trunk@11100 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 db/dblib.cpp | 14 ++++++++++++++
 db/dblib.h   |  2 ++
 2 files changed, 16 insertions(+)

diff --git a/db/dblib.cpp b/db/dblib.cpp
index bcf67b97c..d674a1f6d 100755
--- a/db/dblib.cpp
+++ b/db/dblib.cpp
@@ -118,6 +118,20 @@ void TQuantita::convert2umbase()
   }
 }
 
+
+void TQuantita::currency2umbase(TCurrency& val) const
+{
+  TCodice_um ub;
+  find_umbase(ub);
+  if (_um != ub && !val.is_zero())
+  {
+    const fraction& mul = get_factor(_um);
+    const fraction& div = get_factor(ub);
+    const real v = fraction(val.get_num(), UNO) * mul / div;         
+    val.set_num(v);
+  }
+}
+
 real TQuantita::base_val() const
 {
   TCodice_um dummy;
diff --git a/db/dblib.h b/db/dblib.h
index b59ac6cf5..99cf34ffc 100755
--- a/db/dblib.h
+++ b/db/dblib.h
@@ -191,6 +191,8 @@ public:
   void convert2umbase();
   void convert2umdist();
 
+  void currency2umbase(TCurrency& val) const;
+
   TQuantita();
   TQuantita(const TQuantita& q);
   TQuantita(const TString& art, const TString& um, const real& val);