Revision b4551016
Von Jan Büren vor mehr als 4 Jahren hinzugefügt
| sql/Pg-upgrade2/remove_double_tax_entries_skr04.pl | ||
|---|---|---|
|
# @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;
|
||
Auch abrufbar als: Unified diff
SKR04 unbebuchten 16% Steuern und doppelte 19% Steuern entfernen