Revision e712a214
Von Moritz Bunkus vor mehr als 14 Jahren hinzugefügt
| SL/AR.pm | ||
|---|---|---|
| 54 | 54 |
|
| 55 | 55 |
my $dbh = $provided_dbh ? $provided_dbh : $form->dbconnect_noauto($myconfig); |
| 56 | 56 |
$form->{defaultcurrency} = $form->get_default_currency($myconfig);
|
| 57 |
delete $form->{currency} unless $form->{default_currency};
|
|
| 57 |
delete $form->{currency} unless $form->{defaultcurrency};
|
|
| 58 | 58 |
|
| 59 | 59 |
# set exchangerate |
| 60 | 60 |
$form->{exchangerate} = ($form->{currency} eq $form->{defaultcurrency}) ? 1 :
|
| ... | ... | |
| 349 | 349 |
|
| 350 | 350 |
$form->{exchangerate} = $form->format_amount($myconfig, $form->{exchangerate});
|
| 351 | 351 |
$form->{defaultcurrency} = $form->get_default_currency($myconfig);
|
| 352 |
delete $form->{currency} unless $form->{default_currency};
|
|
| 352 |
delete $form->{currency} unless $form->{defaultcurrency};
|
|
| 353 | 353 |
|
| 354 | 354 |
# Get the AR accno (which is normally done by Form::create_links()). |
| 355 | 355 |
$query = |
Auch abrufbar als: Unified diff
Falsche Variablennamen für Währung beim Buchen von Debitorenbuchungen
Führt dazu, dass ein Wechselkurs benutzt werden soll, der aber 0
ist. Mit 0 multipliziert sind dann alle Positionen ebenfalls 0.