Revision 41faf344
Von Jan Büren vor mehr als 2 Jahren hinzugefügt
| SL/IS.pm | ||
|---|---|---|
|
use List::MoreUtils qw(any);
|
||
|
|
||
|
use Carp;
|
||
|
use Data::Dumper;
|
||
|
|
||
|
use SL::AM;
|
||
|
use SL::ARAP;
|
||
|
use SL::CVar;
|
||
| ... | ... | |
|
use SL::Presenter::Part qw(type_abbreviation classification_abbreviation);
|
||
|
use SL::Helper::QrBillFunctions qw(get_qrbill_account assemble_ref_number);
|
||
|
use SL::Helper::ISO3166;
|
||
|
use Data::Dumper;
|
||
|
|
||
|
use strict;
|
||
|
use constant PCLASS_OK => 0;
|
||
| ... | ... | |
|
|
||
|
$diff = 0;
|
||
|
|
||
|
# update exchange rate
|
||
|
# update exchange rate for PAYMENTS
|
||
|
# exchangerate contains a new exchangerate of the payment date
|
||
|
if (($form->{currency} ne $defaultcurrency) && !$exchangerate) {
|
||
|
$form->update_exchangerate($dbh, $form->{currency},
|
||
|
$form->{"datepaid_$i"},
|
||
Auch abrufbar als: Unified diff
Kosmetik, Kommentare