Revision b8330aee
Von Jan Büren vor etwa 2 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
|
}
|
||
|
|
||
|
if ($sth->fetchrow_array) {
|
||
|
die "this never happens never";
|
||
|
# die "this never happens never"; # except for credit or debit bookings
|
||
|
$query = qq|UPDATE exchangerate
|
||
|
SET $set
|
||
|
WHERE currency_id = (SELECT id FROM currencies WHERE name = ?)
|
||
| SL/IR.pm | ||
|---|---|---|
|
|
||
|
my $all_units = AM->retrieve_units($myconfig, $form);
|
||
|
|
||
|
#markierung
|
||
|
#markierung
|
||
|
if (!$payments_only) {
|
||
|
if ($form->{id}) {
|
||
|
&reverse_invoice($dbh, $form);
|
||
| ... | ... | |
|
|
||
|
$paiddiff = 0;
|
||
|
|
||
|
# update exchange rate
|
||
|
# update exchange rate for PAYMENTS
|
||
|
$form->update_exchangerate($dbh, $form->{currency}, $form->{"datepaid_$i"}, 0, $form->{"exchangerate_$i"})
|
||
|
if ($form->{currency} ne $defaultcurrency) && !$exchangerate;
|
||
|
}
|
||
| 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