Revision fb37acdc
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/AR.pm | ||
|---|---|---|
| 50 | 50 |
my @values; |
| 51 | 51 |
|
| 52 | 52 |
my $dbh = $provided_dbh ? $provided_dbh : $form->dbconnect_noauto($myconfig); |
| 53 |
$form->{defaultcurrency} = $form->get_default_currency($myconfig);
|
|
| 53 | 54 |
|
| 54 | 55 |
# set exchangerate |
| 55 | 56 |
$form->{exchangerate} = ($form->{currency} eq $form->{defaultcurrency}) ? 1 :
|
| ... | ... | |
| 147 | 148 |
|
| 148 | 149 |
# update exchangerate |
| 149 | 150 |
$form->update_exchangerate($dbh, $form->{currency}, $form->{transdate}, $form->{exchangerate}, 0)
|
| 150 |
if ($form->{currency} ne $form->{defaultcurrency}) && $form->check_exchangerate($myconfig, $form->{currency}, $form->{transdate}, 'buy');
|
|
| 151 |
if ($form->{currency} ne $form->{defaultcurrency}) && !$form->check_exchangerate($myconfig, $form->{currency}, $form->{transdate}, 'buy');
|
|
| 151 | 152 |
|
| 152 | 153 |
if (!$payments_only) {
|
| 153 | 154 |
$query = |
Auch abrufbar als: Unified diff
Probleme mit mehreren Währungen und Wechselkursen behoben.