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
This commit is contained in:
parent
aa4797126c
commit
e6e9e59e1c
14
db/dblib.cpp
14
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;
|
||||
|
@ -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);
|
||||
|
Loading…
x
Reference in New Issue
Block a user