# @tag: remove_double_tax_entries_skr04
# @description: doppelte Steuer-Einträge und alte 16% Konten für SKR04 entfernen, wenn unbebucht
# @depends: release_3_5_5
package SL::DBUpgrade2::remove_double_tax_entries_skr04;

use strict;
use utf8;

use parent qw(SL::DBUpgrade2::Base);

use SL::DBUtils;

sub run {
  my ($self) = @_;

  if (!$self->check_coa('Germany-DATEV-SKR04EU')) {
    return 1;
  }

  my $query = <<SQL;
    SELECT id FROM tax WHERE chart_id = (SELECT id FROM chart WHERE accno LIKE ?) AND taxkey = ? AND rate = ? ORDER BY id;
SQL

  my $query2 = <<SQL;
    DELETE FROM taxkeys WHERE tax_id = ?;
SQL

  my $query3 = <<SQL;
    DELETE FROM tax WHERE id = ?;
SQL

  my @taxes_to_test = (
    {accno => '3806', taxkey => 3, rate => 0.19},
    {accno => '1406', taxkey => 9, rate => 0.19},
    {accno => '3805', taxkey => 5, rate => 0.16},
    {accno => '1405', taxkey => 7, rate => 0.16},

  );

  foreach my $tax_to_test (@taxes_to_test) {
    my @entries = selectall_hashref_query($::form, $self->dbh, $query, ($tax_to_test->{accno}, $tax_to_test->{taxkey}, $tax_to_test->{rate}));

    if (scalar @entries > 1) {
      foreach my $tax (@entries) {
        my ($num_acc_trans_entries) = $self->dbh->selectrow_array("SELECT COUNT(*) FROM acc_trans WHERE tax_id = ?", undef, $tax->{id});
        next if $num_acc_trans_entries > 0;

        $self->db_query($query2, bind => [ $tax->{id} ]);
        $self->db_query($query3, bind => [ $tax->{id} ]);

        last; # delete only one tax
      }
    }
  }

  return 1;
}

1;