Revision f6b81fe9
Von Jan Büren vor fast 5 Jahren hinzugefügt
- ID f6b81fe9e746da60be1c3c8a98c244c46864523e
- Vorgänger 21d995a6
| sql/Pg-upgrade2/konjunkturpaket_2020.pl | ||
|---|---|---|
|
# @tag: konjunkturpaket_2020
|
||
|
# @description: Deutsches Konjunkturpaket 2020
|
||
|
# @depends: release_3_5_5
|
||
|
package SL::DBUpgrade2::konjunkturpaket_2020;
|
||
|
|
||
|
use strict;
|
||
|
use utf8;
|
||
|
|
||
|
use parent qw(SL::DBUpgrade2::Base);
|
||
|
|
||
|
use SL::DB::Chart;
|
||
|
|
||
|
use List::MoreUtils qw(any);
|
||
|
use Data::Dumper;
|
||
|
|
||
|
sub update {
|
||
|
my ($self) = @_;
|
||
|
|
||
|
# checks:
|
||
|
# 1. detect if client uses 4, 5 or 6 digits for ledger accnos
|
||
|
# bonus: call fails with a good error message if client has mixed accnos
|
||
|
# 2. create tax accnos based on the result of 1
|
||
|
# 3. check if created accnos are not in use, otherwise fail with a error message
|
||
|
|
||
|
# do:
|
||
|
# 1. -> create tax accnos in chart
|
||
|
|
||
|
$self->{length_of_accounts} = SL::DATEV->new->check_valid_length_of_accounts(return_length => 1);
|
||
|
|
||
|
die $::locale->text("invalid length of accounts") unless $self->{length_of_accounts} =~ /[4-6]/;
|
||
|
|
||
|
# test foreach
|
||
|
# $self->{length_of_accounts} = 6;
|
||
|
|
||
|
foreach my $key (keys %{ $self->{accnos} }) {
|
||
|
$self->{accnos}{$key} *=10 if $self->{length_of_accounts} == 5;
|
||
|
$self->{accnos}{$key} *=100 if $self->{length_of_accounts} == 6;
|
||
|
# check if chart accno already exists
|
||
|
if (ref SL::DB::Chart->new(accno => $self->{accnos}{$key})->load(speculative => 1) eq 'SL::DB::Chart') {
|
||
|
die $::locale->text("Chart #1 already exists, cannot safely upgrade the tax charts. Please contact your kivi admin", $self->{accnos}{$key});
|
||
|
}
|
||
|
}
|
||
|
|
||
|
$self->db_query(<<EOSQL);
|
||
|
INSERT INTO chart (accno, description, charttype, category, link, taxkey_id, pos_eur, datevautomatik)
|
||
|
VALUES ($self->{accnos}{base_five_accno_credit}, 'Mwst reduziert reduziert', 'A', 'E','AP_tax:IC_taxpart:IC_taxservice',2,27,'f')
|
||
|
EOSQL
|
||
|
|
||
|
}
|
||
|
|
||
|
sub run {
|
||
|
my ($self) = @_;
|
||
|
|
||
|
# 1. upgrade is only important for german companies
|
||
|
# set only basic numbers in 4 digits for the two german DATEV standard ledgers
|
||
|
# and upgrade
|
||
|
|
||
|
if ($self->check_coa('Germany-DATEV-SKR03EU')) {
|
||
|
$self->{accnos} = { base_five_accno_credit => 1779,
|
||
|
base_sixt_accno_credit => 1781,
|
||
|
base_five_accno_debit => 1579,
|
||
|
base_sixt_accno_debit => 1811,
|
||
|
};
|
||
|
$self->update;
|
||
|
return 1;
|
||
|
}
|
||
|
|
||
|
if ($self->check_coa('Germany-DATEV-SKR04EU')) {
|
||
|
$self->{accnos} = { base_five_accno_credit => 1459,
|
||
|
base_sixt_accno_credit => 1472,
|
||
|
base_five_accno_debit => 3809,
|
||
|
base_sixt_accno_debit => 3811,
|
||
|
};
|
||
|
$self->update;
|
||
|
return 1;
|
||
|
}
|
||
|
|
||
|
if (any { $self->check_coa($_) } qw(Switzerland-deutsch-MWST-2014 Switzerland-deutsch-ohneMWST-2014 Switzerland-deutsch-Verein-2017)) {
|
||
|
# Nichts zu tun für diese Kontenrahmen
|
||
|
return 1;
|
||
|
}
|
||
|
|
||
|
die $::locale->text('This database upgrade is incompatible with the installed chart of accounts.');
|
||
|
}
|
||
|
|
||
|
1;
|
||
Auch abrufbar als: Unified diff
Konjunkturpaket Deutschland - Gerüst
Legt ein neues MwSt-Konto an, falls alle Prüfungen vorher positiv sind.
TODO:
- Alle Konten anlegen
- Konten mit Automatiksteuerkonten zum Stichtag verknüpfen
- Alte Steuerkonten mit Automatik zum Stichtag ändern