Revision bea3f989
Von Moritz Bunkus vor mehr als 14 Jahren hinzugefügt
| SL/AP.pm | ||
|---|---|---|
| 54 | 54 |
my $exchangerate = 0; |
| 55 | 55 |
|
| 56 | 56 |
$form->{defaultcurrency} = $form->get_default_currency($myconfig);
|
| 57 |
delete $form->{currency} unless $form->{defaultcurrency};
|
|
| 57 | 58 |
|
| 58 | 59 |
($null, $form->{department_id}) = split(/--/, $form->{department});
|
| 59 | 60 |
$form->{department_id} *= 1;
|
| ... | ... | |
| 587 | 588 |
|
| 588 | 589 |
$self->setup_form($form); |
| 589 | 590 |
|
| 590 |
($form->{defaultcurrency}) = selectrow_query($form, $dbh, qq|SELECT curr FROM defaults|);
|
|
| 591 |
$form->{defaultcurrency} = (split m/:/, $form->{defaultcurrency})[0];
|
|
| 592 |
$form->{currency} = $form->{defaultcurrency} if ($form->{defaultcurrency} && ($form->{currency} =~ m/^\s*$/));
|
|
| 593 |
|
|
| 594 |
$form->{exchangerate} = $form->format_amount($myconfig, $form->{exchangerate});
|
|
| 591 |
$form->{exchangerate} = $form->format_amount($myconfig, $form->{exchangerate});
|
|
| 592 |
$form->{defaultcurrency} = $form->get_default_currency($myconfig);
|
|
| 593 |
delete $form->{currency} unless $form->{defaultcurrency};
|
|
| 595 | 594 |
|
| 596 | 595 |
# Get the AP accno. |
| 597 | 596 |
$query = |
Auch abrufbar als: Unified diff
Nicht mit Wechselkursen arbeiten, wenn keine Währungen konfiguriert sind
Fix für Bug 1349