projekt kivitendo

  my $paid_amount = 0; # the amount that will be later added to $self->paid, should be in default currency

  my $transdate_obj;

  if (ref($params{transdate} eq 'DateTime')) {

    print "found transdate ref\n"; sleep 2;

    $transdate_obj = $params{transdate};

  } else {

   $transdate_obj = $::locale->parse_date_to_object($params{transdate});

  };

  # currency is either passed or use the invoice currency if it differs from the default currency

  my ($exchangerate,$currency);

  if ($params{currency} || $params{currency_id} || $self->currency_id != $::instance_conf->get_currency_id) {

    if ($params{currency} || $params{currency_id} ) { # currency was specified

      $currency = SL::DB::Manager::Currency->find_by(name => $params{currency}) || SL::DB::Manager::Currency->find_by(id => $params{currency_id});

    } else { # use invoice currency

      $currency = SL::DB::Manager::Currency->find_by(id => $self->currency_id);

    };

    die "no currency" unless $currency;

    if ($currency->id == $::instance_conf->get_currency_id) {

      $exchangerate = 1;

    } else {

      my $rate = SL::DB::Manager::Exchangerate->find_by(currency_id => $currency->id,

                                                        transdate   => $transdate_obj,

                                                       );

      if ($rate) {

        $exchangerate = $is_sales ? $rate->buy : $rate->sell;

      } else {

        die "No exchange rate for " . $transdate_obj->to_kivitendo;

      };

    };

  } else { # no currency param given or currency is the same as default_currency

    $exchangerate = 1;

  };

  my $rounded_params_amount = _round( $params{amount} ); # / $exchangerate);

      $paid_amount += $pay_amount * $exchangerate;

      my $amount = (-1 * $pay_amount) * $mult;

                                                   amount     => $amount,

      # deal with fxtransaction

      if ( $self->currency_id != $::instance_conf->get_currency_id ) {

        my $fxamount = _round($amount - ($amount * $exchangerate));

        # print "amount: $amount, fxamount = $fxamount\n";

        # print "amount - (amount * exchangerate) = " . $amount . " - (" . $amount . " - " . $exchangerate . ")\n";

        $new_acc_trans = SL::DB::AccTransaction->new(trans_id       => $self->id,

                                                     chart_id       => $account_bank->id,

                                                     chart_link     => $account_bank->link,

                                                     amount         => $fxamount * -1,

                                                     transdate      => $transdate_obj,

                                                     source         => $source,

                                                     memo           => $memo,

                                                     taxkey         => 0,

                                                     fx_transaction => 1,

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

        $new_acc_trans->save;

      };

                                                     chart_link => SL::DB::Manager::Chart->find_by(id => $skonto_booking->{'chart_id'})->link,

        $paid_amount      += -1 * $amount * $exchangerate;

                                                  amount     => _round($arap_amount * $mult * $exchangerate),

    $self->paid($self->paid + _round($paid_amount)) if $paid_amount;

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

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

or in a certain currency:

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

                   amount        => 500,

                   currency      => 'USD',

                   transdate     => DateTime->now->to_kivitendo,

                   memo          => 'foobar',

                   source        => 'barfoo',

                   payment_type  => 'with_skonto',

                  );

If no amount is given the whole open amout is paid.

If neither currency or currency_id are given as params, the currency of the

invoice is assumed to be the payment currency.

use SL::DB::Exchangerate;

use Data::Dumper;

my ($customer, $vendor, $currency_id, @parts, $buchungsgruppe, $buchungsgruppe7, $unit, $employee, $tax, $tax7, $tax_9, $taxzone, $payment_terms, $bank_account);

my ($transdate, $transdate2, $currency, $exchangerate, $exchangerate2);

my ($ar_chart,$bank,$ar_amount_chart, $ap_chart, $ap_amount_chart);

  SL::DB::Manager::Exchangerate->delete_all(all => 1);

  SL::DB::Manager::Currency->delete_all(where => [ name => 'CUR' ]);

  $transdate  = DateTime->today;

  $transdate2 = DateTime->today->add(days => 1);

  $tax_9           = SL::DB::Manager::Tax->find_by(taxkey => 9, rate => 0.19, %{ $params{tax} })                           || croak "No tax";

  # $tax7            = SL::DB::Manager::Tax->find_by(taxkey => 2, rate => 0.07)                                              || croak "No tax for 7\%";

  $currency = SL::DB::Currency->new(name => 'CUR')->save;

  $exchangerate  = SL::DB::Exchangerate->new(transdate   => $transdate,

                                             buy         => '1.33333',

                                             sell        => '1.33333',

                                             currency_id => $currency->id,

                                            )->save;

  $exchangerate2 = SL::DB::Exchangerate->new(transdate   => $transdate2,

                                             buy         => '1.55555',

                                             sell        => '1.55555',

                                             currency_id => $currency->id,

                                            )->save;

  $ar_chart        = SL::DB::Manager::Chart->find_by( accno => '1400' ); # Forderungen

  $ap_chart        = SL::DB::Manager::Chart->find_by( accno => '1600' ); # Verbindlichkeiten

  $bank            = SL::DB::Manager::Chart->find_by( accno => '1200' ); # Bank

  $ar_amount_chart = SL::DB::Manager::Chart->find_by( accno => '8400' ); # Erlöse

  $ap_amount_chart = SL::DB::Manager::Chart->find_by( accno => '3400' ); # Wareneingang 19%

                                        transdate  => $transdate,

                                        transdate  => $transdate,

                                        transdate  => $transdate,

                                         transdate  => $transdate,

                                                transdate  => $transdate,

sub test_default_invoice_two_items_19_7_tax_without_skonto_multiple_payments_final_difference_as_skonto_2cent() {

sub test_ar_currency_tax_not_included_and_payment {

  my $netamount = $::form->round_amount(75 * $exchangerate->sell,2); #  75 in CUR, 100.00 in EUR

  my $amount    = $::form->round_amount($netamount * 1.19,2);        # 100 in CUR, 119.00 in EUR

  my $invoice   = SL::DB::Invoice->new(

      invoice      => 0,

      amount       => $amount,

      netamount    => $netamount,

      transdate    => $transdate,

      taxincluded  => 0,

      customer_id  => $customer->id,

      taxzone_id   => $customer->taxzone_id,

      currency_id  => $currency->id,

      transactions => [],

      notes        => 'test_ar_currency_tax_not_included_and_payment',

  );

  $invoice->add_ar_amount_row(

    amount     => $invoice->netamount,

    chart      => $ar_amount_chart,

    tax_id     => $tax->id,

  );

  $invoice->create_ar_row(chart => $ar_chart);

  $invoice->save;

  is(SL::DB::Manager::Invoice->get_all_count(where => [ invoice => 0 ]), 1, 'there is one ar transaction');

  is($invoice->currency_id , $currency->id , 'currency_id has been saved');

  is($invoice->netamount   , 100           , 'ar amount has been converted');

  is($invoice->amount      , 119           , 'ar amount has been converted');

  is($invoice->taxincluded ,   0           , 'ar transaction doesn\'t have taxincluded');

  is(SL::DB::Manager::AccTransaction->find_by(chart_id => $ar_amount_chart->id, trans_id => $invoice->id)->amount, '100.00000', $ar_amount_chart->accno . ': has been converted for currency');

  is(SL::DB::Manager::AccTransaction->find_by(chart_id => $ar_chart->id, trans_id => $invoice->id)->amount, '-119.00000', $ar_chart->accno . ': has been converted for currency');

  $invoice->pay_invoice(chart_id   => $bank->id,

                        amount     => 50,

                        currency   => 'CUR',

                        transdate  => $transdate->to_kivitendo,

                       );

  $invoice->pay_invoice(chart_id   => $bank->id,

                        amount     => 39.25,

                        currency   => 'CUR',

                        transdate  => $transdate->to_kivitendo,

                       );

  # $invoice->pay_invoice(chart_id   => $bank->id,

  #                       amount     => 30,

  #                       transdate  => $transdate2->to_kivitendo,

  #                      );

  is(scalar @{$invoice->transactions}, 9, 'ar transaction has 9 transactions (incl. fxtransactions)');

  is($invoice->paid, $invoice->amount, 'ar transaction paid = amount in default currency');

};

sub test_ar_currency_tax_included {

  # we want the acc_trans amount to be 100

  my $amount    = $::form->round_amount(75 * $exchangerate->sell * 1.19);

  my $netamount = $::form->round_amount($amount / 1.19,2);

  my $invoice = SL::DB::Invoice->new(

      invoice      => 0,

      amount       => 119, #$amount,

      netamount    => 100, #$netamount,

      transdate    => $transdate,

      taxincluded  => 1,

      customer_id  => $customer->id,

      taxzone_id   => $customer->taxzone_id,

      currency_id  => $currency->id,

      notes        => 'test_ar_currency_tax_included',

      transactions => [],

  );

  $invoice->add_ar_amount_row( # should take care of taxincluded

    amount     => $invoice->amount, # tax included in local currency

    chart      => $ar_amount_chart,

    tax_id     => $tax->id,

  );

  $invoice->create_ar_row( chart => $ar_chart );

  $invoice->save;

  is(SL::DB::Manager::Invoice->get_all_count(where => [ invoice => 0 ]), 2, 'there are now two ar transactions');

  is($invoice->currency_id , $currency->id , 'currency_id has been saved');

  is($invoice->amount      , $amount       , 'amount ok');

  is($invoice->netamount   , $netamount    , 'netamount ok');

  is($invoice->taxincluded , 1             , 'ar transaction has taxincluded');

  is(SL::DB::Manager::AccTransaction->find_by(chart_id => $ar_amount_chart->id, trans_id => $invoice->id)->amount, '100.00000', $ar_amount_chart->accno . ': has been converted for currency');

  is(SL::DB::Manager::AccTransaction->find_by(chart_id => $ar_chart->id, trans_id => $invoice->id)->amount, '-119.00000', $ar_chart->accno . ': has been converted for currency');

  $invoice->pay_invoice(chart_id   => $bank->id,

                        amount     => 89.25,

                        currency   => 'CUR',

                        transdate  => $transdate->to_kivitendo,

                       );

};

sub test_ap_currency_tax_not_included_and_payment {

  my $netamount = $::form->round_amount(75 * $exchangerate->sell,2); #  75 in CUR, 100.00 in EUR

  my $amount    = $::form->round_amount($netamount * 1.19,2);        # 100 in CUR, 119.00 in EUR

  my $invoice   = SL::DB::PurchaseInvoice->new(

      invoice      => 0,

      invnumber    => 'test_ap_currency_tax_not_included_and_payment',

      amount       => $amount,

      netamount    => $netamount,

      transdate    => $transdate,

      taxincluded  => 0,

      vendor_id    => $vendor->id,

      taxzone_id   => $vendor->taxzone_id,

      currency_id  => $currency->id,

      transactions => [],

      notes        => 'test_ap_currency_tax_not_included_and_payment',

  );

  $invoice->add_ap_amount_row(

    amount     => $invoice->netamount,

    chart      => $ap_amount_chart,

    tax_id     => $tax_9->id,

  );

  $invoice->create_ap_row(chart => $ap_chart);

  $invoice->save;

  is($invoice->currency_id, $currency->id, 'currency_id has been saved');

  is($invoice->netamount, 100, 'ap amount has been converted');

  is($invoice->amount, 119, 'ap amount has been converted');

  is($invoice->taxincluded, 0, 'ap transaction doesn\'t have taxincluded');

  is(SL::DB::Manager::AccTransaction->find_by(chart_id => $ap_amount_chart->id, trans_id => $invoice->id)->amount, '-100.00000', $ap_amount_chart->accno . ': has been converted for currency');

  is(SL::DB::Manager::AccTransaction->find_by(chart_id => $ap_chart->id, trans_id => $invoice->id)->amount, '119.00000', $ap_chart->accno . ': has been converted for currency');

  $invoice->pay_invoice(chart_id   => $bank->id,

                        amount     => 50,

                        currency   => 'CUR',

                        transdate  => $transdate->to_kivitendo,

                       );

  $invoice->pay_invoice(chart_id   => $bank->id,

                        amount     => 39.25,

                        currency   => 'CUR',

                        transdate  => $transdate->to_kivitendo,

                       );

  # $invoice->pay_invoice(chart_id   => $bank->id,

  #                       amount     => 30,

  #                       transdate  => $transdate2->to_kivitendo,

  #                      );

  is(scalar @{$invoice->transactions}, 9, 'ap transaction has 9 transactions (incl. fxtransactions)');

  is($invoice->paid, $invoice->amount, 'ap transaction paid = amount in default currency');

};

sub test_ap_currency_tax_included {

  # we want the acc_trans amount to be 100

  my $amount    = $::form->round_amount(75 * $exchangerate->sell * 1.19);

  my $netamount = $::form->round_amount($amount / 1.19,2);

  my $invoice = SL::DB::PurchaseInvoice->new(

      invoice      => 0,

      amount       => 119, #$amount,

      netamount    => 100, #$netamount,

      transdate    => $transdate,

      taxincluded  => 1,

      vendor_id    => $vendor->id,

      taxzone_id   => $vendor->taxzone_id,

      currency_id  => $currency->id,

      notes        => 'test_ap_currency_tax_included',

      invnumber    => 'test_ap_currency_tax_included',

      transactions => [],

  );

  $invoice->add_ap_amount_row( # should take care of taxincluded

    amount     => $invoice->amount, # tax included in local currency

    chart      => $ap_amount_chart,

    tax_id     => $tax_9->id,

  );

  $invoice->create_ap_row( chart => $ap_chart );

  $invoice->save;

  is($invoice->currency_id , $currency->id , 'currency_id has been saved');

  is($invoice->amount      , $amount       , 'amount ok');

  is($invoice->netamount   , $netamount    , 'netamount ok');

  is($invoice->taxincluded , 1             , 'ap transaction has taxincluded');

  is(SL::DB::Manager::AccTransaction->find_by(chart_id => $ap_amount_chart->id, trans_id => $invoice->id)->amount, '-100.00000', $ap_amount_chart->accno . ': has been converted for currency');

  is(SL::DB::Manager::AccTransaction->find_by(chart_id => $ap_chart->id, trans_id => $invoice->id)->amount, '119.00000', $ap_chart->accno . ': has been converted for currency');

  $invoice->pay_invoice(chart_id   => $bank->id,

                        amount     => 89.25,

                        currency   => 'CUR',

                        transdate  => $transdate->to_kivitendo,

                       );

};

# test payment of ar and ap transactions with currency and tax included/not included

 test_ar_currency_tax_not_included_and_payment();

 test_ar_currency_tax_included();

 test_ap_currency_tax_not_included_and_payment();

 test_ap_currency_tax_included();