projekt kivitendo

  # my $discount  = _round($item->sellprice * ($item->discount || 0), $num_dec);

  # my $sellprice; # = _round($item->sellprice - $discount,           $num_dec);

  my $sellprice = $item->sellprice; # don't include rounded discount into sellprice

  # any time the sellprice is multiplied with qty discount has to be considered as part of the multiplication

  my $linetotal = _round($sellprice * (1-$item->discount) * $item->qty / $item->price_factor, 2) * $data->{exchangerate};

  $data->{invoicediff} += $sellprice * (1-$item->discount) * $item->qty * $data->{exchangerate} / $item->price_factor - $linetotal if $self->taxincluded;

  $self->netamount($self->netamount + $sellprice * (1-$item->discount) * $item->qty / $item->price_factor);

    my $linetotal = _round(($entry->sellprice * (1-$entry->discount) * $qty) / $base_factor, 2);

  is($invoice->netamount,         3.49,              "${title}: netamount");

  is($invoice->amount,            4.15,              "${title}: amount");

  is($invoice->marge_total,       3.49,              "${title}: marge_total");

        amount                                   => 3.49,

      { linetotal                                => 3.49,

        tax_amount                               => 0.6631,

        taxkey_id                                => $taxkeys{$item->parts_id}->id,

      },

    ],

  }, "${title}: calculated data");

}

sub test_default_invoice_one_item_19_tax_not_included_rounding_discount_huge_qty() {

  reset_state();

  my $item   = new_item(qty => 100000, part => $parts[2], discount => 0.03, sellprice => 0.10);

  my $invoice = new_invoice(

    taxincluded  => 0,

    invoiceitems => [ $item ],

  );

  my %taxkeys = map { ($_->id => $_->get_taxkey(date => DateTime->today_local, is_sales => 1, taxzone => $invoice->taxzone_id)) } uniq map { $_->part } ($item);

  # PTC and ar form calculate linetotal differently:

  # 6 parts for 0.60 with 3% discount

  #

  # ar form:

  # linetotal = sellprice 0.60 * qty 6 * discount (1 - 0.03) = 3.492 rounded 3.49

  # total = 3.49 + 0.66 = 4.15

  #

  # PTC:

  # discount = sellprice 0.60 * discount (0.03) = 0.018; rounded 0.02

  # sellprice = sellprice 0.60 - discount 0.02  = 0.58

  # linetotal = sellprice 0.58 * qty 6 = 3.48

  # 19%(3.48) = 0.6612; rounded = 0.66

  # total rounded = 3.48 + 0.66 = 4.14

  my $title = 'default invoice, one item, sellprice, rounding, discount';

  my %data  = $invoice->calculate_prices_and_taxes;

  is($invoice->netamount,         9700,              "${title}: netamount");

  is($invoice->amount,           11543,              "${title}: amount");

  is($invoice->marge_total,       9700,              "${title}: marge_total");

  is($invoice->marge_percent,      100,              "${title}: marge_percent");

  is_deeply(\%data, {

    allocated                                    => {},

    amounts                                      => {

      $buchungsgruppe->income_accno_id($taxzone) => {

        amount                                   => 9700,

        tax_id                                   => $tax->id,

        taxkey                                   => 3,

      },

    },

    amounts_cogs                                 => {},

    assembly_items                               => [

      [],

    ],

    exchangerate                                 => 1,

    taxes                                        => {

      $tax->chart_id                             => 1843,

    },

    items                                        => [

      { linetotal                                => 9700,

        linetotal_cost                           => 0,

        sellprice                                => 0.1,

        tax_amount                               => 1843,

test_default_invoice_one_item_19_tax_not_included_rounding_discount_huge_qty();