projekt kivitendo

use List::Util qw(max);

use SL::Taxkeys;

sub _sign {

  my $value = shift;

  return $value < 0 ? -1

    :    $value > 0 ?  1

    :                  0;

}

  my $taxkeys  = Taxkeys->new();

  my $filter   = '';            # Useful for debugging purposes

  my %all_taxchart_ids = selectall_as_map($form, $dbh, qq|SELECT DISTINCT chart_id, TRUE AS is_set FROM tax|, 'chart_id', 'is_set');

         c.accno, c.taxkey_id as charttax, c.datevautomatik, c.id, c.link,

         ar.invoice

       FROM acc_trans ac

       LEFT JOIN ar          ON (ac.trans_id    = ar.id)

       LEFT JOIN customer ct ON (ar.customer_id = ct.id)

       LEFT JOIN chart c     ON (ac.chart_id    = c.id)

       WHERE (ar.id IS NOT NULL)

         AND $fromto

         $filter

         c.accno, c.taxkey_id as charttax, c.datevautomatik, c.id, c.link,

         ap.invoice

       FROM acc_trans ac

       LEFT JOIN ap        ON (ac.trans_id  = ap.id)

       LEFT JOIN vendor ct ON (ap.vendor_id = ct.id)

       LEFT JOIN chart c   ON (ac.chart_id  = c.id)

       WHERE (ap.id IS NOT NULL)

         AND $fromto

         $filter

         c.accno, c.taxkey_id as charttax, c.datevautomatik, c.id, c.link,

         FALSE AS invoice

       FROM acc_trans ac

       LEFT JOIN gl      ON (ac.trans_id  = gl.id)

       LEFT JOIN chart c ON (ac.chart_id  = c.id)

       WHERE (gl.id IS NOT NULL)

         AND $fromto

         $filter

  my $sth = prepare_execute_query($form, $dbh, $query);

      if ($ref2->{trans_id} != $trans->[0]->{trans_id}) {

        $form->error("Unbalanced ledger! old trans_id " . $trans->[0]->{trans_id} . " new trans_id " . $ref2->{trans_id} . " count $count");

        exit 1;

      }

    foreach my $i (0 .. scalar(@{ $trans }) - 1) {

      my $ref        = $trans->[$i];

      my $prev_ref   = 0 < $i ? $trans->[$i - 1] : undef;

      if (   $all_taxchart_ids{$ref->{id}}

          && ($ref->{link} =~ m/(?:AP_tax|AR_tax)/)

          && (   ($prev_ref && $prev_ref->{taxkey} && (_sign($ref->{amount}) == _sign($prev_ref->{amount})))

              || $ref->{invoice})) {

        $ref->{is_tax} = 1;

      }

      if (   !$ref->{invoice}

          &&  $ref->{is_tax}

          && !($prev_ref->{is_tax})

          &&  (_sign($ref->{amount}) == _sign($prev_ref->{amount}))) {

        $trans->[$i - 1]->{tax_amount} = $ref->{amount};

      }

    }

    my $ml             = ($trans->[0]->{'umsatz'} > 0) ? 1 : -1;

    my $rounding_error = 0;

          && !$trans->[$j]->{is_tax}

        push @{ $form->{DATEV} }, [ \%new_trans, $trans->[$j] ];

      } elsif (($j != $notsplitindex) && !$trans->[$j]->{is_tax}) {

        my %tax_info = $taxkeys->get_full_tax_info('transdate' => $trans->[$j]->{transdate});

        my $tax_rate              = $tax_info{taxkeys}->{ $trans->[$j]->{'taxkey'} }->{taxrate};

        $new_trans{'net_amount'}  = $trans->[$j]->{'amount'} * -1;

        $new_trans{'tax_rate'}    = 1 + $tax_rate;

        if (!$trans->[$j]->{'invoice'}) {

          $new_trans{'amount'}      = $form->round_amount(-1 * ($trans->[$j]->{amount} + $trans->[$j]->{tax_amount}), 2);

          $new_trans{'umsatz'}      = abs($new_trans{'amount'}) * $ml;

          $trans->[$j]->{'umsatz'}  = $new_trans{'umsatz'};

          $absumsatz               += -1 * $new_trans{'amount'};

        } else {

          my $unrounded             = $trans->[$j]->{'amount'} * (1 + $tax_rate) * -1; # + $rounding_error;

          my $rounded               = $form->round_amount($unrounded, 2);

          $rounding_error          += $unrounded - $rounded;

          $new_trans{'amount'}      = $rounded;

          $new_trans{'umsatz'}      = abs($form->round_amount(($trans->[$j]->{'amount'} * (1 + $tax_rate)), 2)) * $ml;

          $trans->[$j]->{'umsatz'}  = abs($form->round_amount(($trans->[$j]->{'amount'} * (1 + $tax_rate)), 2)) * $ml;

          $absumsatz               += $form->round_amount($trans->[$j]->{'amount'} + $trans->[$j]->{'amount'} * $tax_rate, 2);

        }

        push @{ $form->{DATEV} }, [ \%new_trans, $trans->[$j] ];

      }

    }

    my $idx        = 0;

    my $correction = 0;

    while (abs($absumsatz) >= 0.01) {

      if ($idx >= scalar @taxed) {

        last if (!$correction);

        $correction = 0;

        $idx        = 0;

      my $transaction = $taxed[$idx]->[0];

      my $old_amount     = $transaction->{amount};

      my $old_correction = $correction;

      my @possible_diffs;

      if (!$transaction->{diff}) {

        @possible_diffs = (0.01, -0.01);

      } else {

        @possible_diffs = ($transaction->{diff});

      }

      foreach my $diff (@possible_diffs) {

        my $net_amount = $form->round_amount(($transaction->{amount} + $diff) / $transaction->{tax_rate}, 2);

        next if ($net_amount != $transaction->{net_amount});

        $transaction->{diff}    = $diff;

        $transaction->{amount} += $diff;

        $transaction->{umsatz} += $diff;

        $absumsatz             -= $diff;

        $correction             = 1;

        last;

      }

      $idx++;

    if (abs($absumsatz) >= 0.01) {

      push @errors, "Datev-Export fehlgeschlagen! Bei Transaktion $trans->[0]->{trans_id} ($absumsatz, Rundungsfehler $rounding_error)\n";

  $header    .= _fill($form->{datentraegernr}, 3, ' ', 'left');

      my $iconv          = $main::locale->{iconv_iso8859};

      my %umlaute = ($iconv->convert('?') => 'ae',

                     $iconv->convert('?') => 'oe',

                     $iconv->convert('?') => 'ue',

                     $iconv->convert('?') => 'Ae',

                     $iconv->convert('?') => 'Oe',

                     $iconv->convert('?') => 'Ue',

                     $iconv->convert('?') => 'sz');

        if ($transaction->[$i]->{'amount'} > 0) {

#         $kne_file->add_block("\x6C" . (!$datevautomatik ? $taxkey : "4"));

        $kne_file->add_block("\x6C${taxkey}");