Revision 41faf344
Von Jan Büren vor fast 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; |
| ... | ... | |
| 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 | 67 |
use SL::Helper::ISO3166; |
| 66 |
use Data::Dumper; |
|
| 67 | 68 |
|
| 68 | 69 |
use strict; |
| 69 | 70 |
use constant PCLASS_OK => 0; |
| ... | ... | |
| 1434 | 1435 |
|
| 1435 | 1436 |
$diff = 0; |
| 1436 | 1437 |
|
| 1437 |
# update exchange rate |
|
| 1438 |
# update exchange rate for PAYMENTS |
|
| 1439 |
# exchangerate contains a new exchangerate of the payment date |
|
| 1438 | 1440 |
if (($form->{currency} ne $defaultcurrency) && !$exchangerate) {
|
| 1439 | 1441 |
$form->update_exchangerate($dbh, $form->{currency},
|
| 1440 | 1442 |
$form->{"datepaid_$i"},
|
Auch abrufbar als: Unified diff
Kosmetik, Kommentare