projekt kivitendo

      die "No bank transaction found" unless $bt;

      $chart_id = SL::DB::Manager::BankAccount->find_by(id => $bt->local_bank_account_id)->chart_id;

      $payment = SL::DB::Manager::AccTransaction->get_all(where => [ trans_id => $::form->{id},

                                                                     chart_link => { like => '%_paid%' },

      # credit/debit * -1 matches the sign for bt.amount and bt.invoice_amount

        unless (abs($bt->not_assigned_amount - ($payment->[0]->amount * -1)) < 0.001);

      $bt->update_attributes(invoice_amount => $bt->invoice_amount + ($payment->[0]->amount * -1));