projekt kivitendo

                                                     source     => $params{source},

                                                     taxkey     => 0,

                                                     tax_id     => SL::DB::Manager::Tax->find_by(taxkey => 0)->id);

        $new_acc_trans->save;

        $reference_amount -= abs($amount);

    $self->datepaid($transdate_obj);

    $self->save;

  my $datev_check = 0;

  if ( $is_sales )  {

    if ( (  $self->invoice && $::instance_conf->get_datev_check_on_sales_invoice  ) ||

  my $skonto_configured = 1; # default is assume skonto works

    # find all transactions with an AR_amount or AP_amount link

    my $tax = SL::DB::Manager::Tax->get_first( where => [taxkey => $transaction->{taxkey}]);

    croak "no tax for taxkey " . $transaction->{taxkey} unless ref $tax;

  my $reference_ARAP_amount = 0;

    # find all transactions with an AR_amount or AP_amount link

    $transaction->{chartlinks} = { map { $_ => 1 } split(m/:/, $transaction->{chart_link}) };

    # second condition is that we can determine an automatic Skonto account for each AR_amount entry

  $ap->pay_invoice(chart_id      => $bank->chart_id,

                   amount        => $ap->open_amount,

                   transdate     => DateTime->now->to_kivitendo,

                   payment_type  => 'without_skonto',  # default if not specified

                  );

  $ap->pay_invoice(chart_id      => $bank->chart_id,

                   amount        => $ap->amount,       # doesn't need to be specified

                   transdate     => DateTime->now->to_kivitendo,

                   payment_type  => 'with_skonto',

                  );

might always want to pay quickly making use of skonto, while another company

might always want to pay as late as possible.

=item C<get_payment_select_options_for_bank_transaction $banktransaction_id %params>

Make suggestion for a skonto payment type by returning an HTML blob of the options

use Carp;

use List::Util qw(first sum);

use SL::DB::MetaSetup::Invoice;

use SL::DB::Manager::Invoice;

use SL::DB::Helper::Payment qw(:ALL);

use SL::DB::Helper::LinkedRecords;

use SL::DB::Helper::Payment qw(:ALL);

use SL::Locale::String qw(t8);

# The calculator hasn't been adjusted for purchase invoices yet.

# use SL::DB::Helper::PriceTaxCalculator;

}

sub number_of_payments {

  my $number_of_payments;

  my $paid_amount;

    if ( $transaction->chart_link =~ /(AR_paid|AP_paid)/ ) {

      $paid_amount += $transaction->amount ;

      $number_of_payments++;

};

sub total_amount {

  return $::form->round_amount($total, 5);

  $invoice->pay_invoice( %params );

  my $title = 'default invoice, one item, 19% tax, without_skonto';

  $params{amount} = '-10.00';

  $invoice->pay_invoice( %params );

  my $title = 'default invoice, one item, 19% tax, without_skonto';

  $invoice->pay_invoice( %params );

  my $title = 'default invoice, two items, 19/7% tax with_skonto_pt';

  $invoice->pay_invoice( %params );

  my $title = 'default invoice, two items, 19/7% tax with_skonto_pt';

  $invoice->pay_invoice( %params );

  my $title = 'default invoice, two items, 19/7% tax without skonto';

                         transdate    => DateTime->today_local->to_kivitendo,

                       );

  my $title = 'default invoice, two items, 19/7% tax without skonto incomplete payment';

                         transdate    => DateTime->today_local->to_kivitendo

                       );

  my $title = 'default invoice, two items, 19/7% tax not included';

                         transdate    => DateTime->today_local->to_kivitendo

                       );

  my $title = 'default invoice, two items, 19/7% tax not included';

                         transdate    => DateTime->today_local->to_kivitendo

                       );

  my $title = 'default invoice, two items, 19/7% tax not included';

                         transdate    => DateTime->today_local->to_kivitendo

                       );

  my $title = 'default invoice, two items, 19/7% tax not included';

  $params{payment_type} = 'difference_as_skonto';

  $invoice->pay_invoice( %params );

  my $title = 'default invoice, one item, 19% tax, without_skonto';

  $params{payment_type} = 'difference_as_skonto';

  $invoice->pay_invoice( %params );

  my $title = 'default invoice, one item, 19% tax, without_skonto';

  $purchase_invoice->pay_invoice( %params );

  my $title = 'default invoice, two items, 19/7% tax without skonto';

  $purchase_invoice->pay_invoice( %params );

  my $title = 'default invoice, two items, 19/7% tax without skonto';

                          chart_id     => $bank_account->chart_id,

                          transdate    => DateTime->today_local->to_kivitendo

                         );

  my $title = 'default purchase_invoice, two charts, 19/7% tax multiple payments with final difference as skonto';

                          transdate    => DateTime->today_local->to_kivitendo

                         );

  my $title = 'default purchase_invoice, two charts, 19/7% tax multiple payments with final difference as skonto';

  $invoice->pay_invoice( %params );

  my $title = 'default invoice, two items, 19/7% tax with_skonto_pt 50/50';

  $invoice->pay_invoice( %params );

  my $title = 'default invoice, four items, 19/7% tax with_skonto_pt 4x25';

  $invoice->pay_invoice( %params );

  my $title = 'default invoice, four items, 19/7% tax with_skonto_pt 4x25';

                         transdate    => DateTime->today_local->to_kivitendo

                       );

  my $title = 'default invoice, four items, 19/7% tax with_skonto_pt 4x25';