projekt kivitendo

  }

  if ($sth->fetchrow_array) {

    $query = qq|UPDATE exchangerate

                SET $set

                WHERE currency_id = (SELECT id FROM currencies WHERE name = ?)

  my $all_units = AM->retrieve_units($myconfig, $form);

  if (!$payments_only) {

    if ($form->{id}) {

      &reverse_invoice($dbh, $form);

    $paiddiff = 0;

    $form->update_exchangerate($dbh, $form->{currency}, $form->{"datepaid_$i"}, 0, $form->{"exchangerate_$i"})

      if ($form->{currency} ne $defaultcurrency) && !$exchangerate;

  }

use List::MoreUtils qw(any);

use Carp;

use SL::AM;

use SL::ARAP;

use SL::CVar;

use SL::DB;

use SL::Presenter::Part qw(type_abbreviation classification_abbreviation);

use SL::Helper::QrBillFunctions qw(get_qrbill_account assemble_ref_number);

use strict;

use constant PCLASS_OK             =>   0;

      $diff = 0;

      if (($form->{currency} ne $defaultcurrency) && !$exchangerate) {

        $form->update_exchangerate($dbh, $form->{currency},

                                   $form->{"datepaid_$i"},