Revision d54196a3
Von Jan Büren vor mehr als 2 Jahren hinzugefügt
| SL/IS.pm | ||
|---|---|---|
| 39 | 39 |
use List::MoreUtils qw(any); |
| 40 | 40 |
|
| 41 | 41 |
use Carp; |
| 42 |
use Data::Dumper; |
|
| 43 |
|
|
| 42 | 44 |
use SL::AM; |
| 43 | 45 |
use SL::ARAP; |
| 44 | 46 |
use SL::CVar; |
| ... | ... | |
| 62 | 64 |
use SL::DB; |
| 63 | 65 |
use SL::Presenter::Part qw(type_abbreviation classification_abbreviation); |
| 64 | 66 |
use SL::Helper::QrBillFunctions qw(get_qrbill_account assemble_ref_number); |
| 65 |
use Data::Dumper; |
|
| 66 | 67 |
|
| 67 | 68 |
use strict; |
| 68 | 69 |
use constant PCLASS_OK => 0; |
| ... | ... | |
| 1413 | 1414 |
|
| 1414 | 1415 |
$diff = 0; |
| 1415 | 1416 |
|
| 1416 |
# update exchange rate |
|
| 1417 |
# update exchange rate for PAYMENTS |
|
| 1418 |
# exchangerate contains a new exchangerate of the payment date |
|
| 1417 | 1419 |
if (($form->{currency} ne $defaultcurrency) && !$exchangerate) {
|
| 1418 | 1420 |
$form->update_exchangerate($dbh, $form->{currency},
|
| 1419 | 1421 |
$form->{"datepaid_$i"},
|
Auch abrufbar als: Unified diff
Kosmetik, Kommentare