Revision 347f2cff
Von Moritz Bunkus vor mehr als 11 Jahren hinzugefügt
| sql/Pg-upgrade2/SKR04-3804-addition.pl | ||
|---|---|---|
| 1 | 1 |
# @tag: SKR04-3804-addition |
| 2 | 2 |
# @description: Konto 3804 zu SKR04 hinzufügen: Umsatzsteuer 19% für Steuerschlüssel 13 (Umsatzsteuer aus EG-Erwerb) |
| 3 | 3 |
# @depends: |
| 4 |
# @charset: UTF-8
|
|
| 4 |
package SL::DBUpgrade2::SKR04_3804_addition;
|
|
| 5 | 5 |
|
| 6 | 6 |
use utf8; |
| 7 | 7 |
use strict; |
| 8 | 8 |
|
| 9 |
die("This script cannot be run from the command line.") unless ($main::form);
|
|
| 10 |
|
|
| 11 |
sub mydberror {
|
|
| 12 |
my ($msg) = @_; |
|
| 13 |
die($dbup_locale->text("Database update error:") . "<br>$msg<br>" . $DBI::errstr);
|
|
| 14 |
} |
|
| 15 |
|
|
| 16 |
sub do_query {
|
|
| 17 |
my ($query, $may_fail) = @_; |
|
| 18 |
|
|
| 19 |
if (!$dbh->do($query)) {
|
|
| 20 |
mydberror($query) unless ($may_fail); |
|
| 21 |
$dbh->rollback(); |
|
| 22 |
$dbh->begin_work(); |
|
| 23 |
} |
|
| 24 |
} |
|
| 9 |
use parent qw(SL::DBUpgrade2::Base); |
|
| 25 | 10 |
|
| 26 |
|
|
| 27 |
sub do_update {
|
|
| 11 |
sub run {
|
|
| 12 |
my ($self) = @_;
|
|
| 28 | 13 |
|
| 29 | 14 |
# 1. Überprüfen ob Kontenrahmen SKR04 ist, wenn nicht alles überspringen |
| 30 |
my ($kontenrahmen) = $dbh->selectrow_array("select coa from defaults");
|
|
| 15 |
my ($kontenrahmen) = $self->dbh->selectrow_array("select coa from defaults");
|
|
| 31 | 16 |
|
| 32 | 17 |
unless ( $kontenrahmen eq 'Germany-DATEV-SKR04EU' ) {
|
| 33 | 18 |
print "Kontenrahmen ist nicht SKR04, überspringen<br>"; |
| ... | ... | |
| 39 | 24 |
# mit der falschen MwSt (16%) gebucht worden, wenn dies nicht manuell |
| 40 | 25 |
# geändert worden ist |
| 41 | 26 |
|
| 42 |
my ($anzahl_buchungen) = $dbh->selectrow_array("select count (*) from acc_trans where taxkey=13 and transdate >= '2007-01-01';");
|
|
| 27 |
my ($anzahl_buchungen) = $self->dbh->selectrow_array("select count (*) from acc_trans where taxkey=13 and transdate >= '2007-01-01';");
|
|
| 43 | 28 |
if ( $anzahl_buchungen > 0 ) {
|
| 44 |
if ($main::form->{bookings_exist} ) {
|
|
| 29 |
if ($::form->{bookings_exist} ) {
|
|
| 45 | 30 |
# Benutzer hat Meldung bestätigt |
| 46 | 31 |
print "Buchungen nach dem 01.01.2007 existierten, Upgrade überspringen"; |
| 47 |
return 1; |
|
| 48 |
} else {
|
|
| 49 |
# Meldung anzeigen und auf Rückgabe warten |
|
| 50 |
print_past_booking_warning(); |
|
| 51 |
return 2; |
|
| 52 |
}; |
|
| 53 |
} else { # es gibt keine Buchungen mit taxkey 13 nach 01.01.2007
|
|
| 54 |
|
|
| 55 |
# prüfen ob Konto 3804 schon existiert |
|
| 56 |
my ($konto_existiert) = $dbh->selectrow_array("select count (*) from chart where accno = '3804'");
|
|
| 57 |
if ( $konto_existiert ) {
|
|
| 58 |
# 3804 existiert, wir gehen davon aus, daß der Benutzer das Konto schon selber angelegt hat und |
|
| 59 |
# ordnungsgemäß benutzt |
|
| 60 |
|
|
| 61 |
if ($main::form->{account_exists} ) {
|
|
| 32 |
return 1; |
|
| 33 |
} |
|
| 34 |
|
|
| 35 |
# Meldung anzeigen und auf Rückgabe warten |
|
| 36 |
print_past_booking_warning(); |
|
| 37 |
return 2; |
|
| 38 |
} |
|
| 39 |
|
|
| 40 |
# es gibt keine Buchungen mit taxkey 13 nach 01.01.2007 |
|
| 41 |
|
|
| 42 |
# prüfen ob Konto 3804 schon existiert |
|
| 43 |
my ($konto_existiert) = $self->dbh->selectrow_array("select count (*) from chart where accno = '3804'");
|
|
| 44 |
if ( $konto_existiert ) {
|
|
| 45 |
# 3804 existiert, wir gehen davon aus, daß der Benutzer das Konto schon selber angelegt hat und |
|
| 46 |
# ordnungsgemäß benutzt |
|
| 47 |
|
|
| 48 |
if ($::form->{account_exists} ) {
|
|
| 62 | 49 |
# Benutzer hat Meldung bestätigt |
| 63 |
print "Konto existiert, Upgrade überspringen\n";
|
|
| 64 |
return 1;
|
|
| 65 |
} else {
|
|
| 66 |
# Meldung anzeigen und auf Rückgabe warten |
|
| 67 |
print_3804_already_exists();
|
|
| 68 |
return 2;
|
|
| 69 |
};
|
|
| 70 |
} else {
|
|
| 50 |
print "Konto existiert, Upgrade überspringen\n"; |
|
| 51 |
return 1;
|
|
| 52 |
}
|
|
| 53 |
|
|
| 54 |
# Meldung anzeigen und auf Rückgabe warten
|
|
| 55 |
print_3804_already_exists();
|
|
| 56 |
return 2;
|
|
| 57 |
}
|
|
| 71 | 58 |
|
| 72 | 59 |
# noch keine Buchungen mit taxkey 13 und Konto 3804 existiert noch nicht, |
| 73 | 60 |
# also legen wir es an und machen noch die nötigen Einstellungen in tax und |
| 74 | 61 |
# taxkeys |
| 75 | 62 |
|
| 76 |
my $insert_chart = <<SQL;
|
|
| 63 |
my $insert_chart = <<SQL; |
|
| 77 | 64 |
INSERT INTO chart ( |
| 78 | 65 |
accno, description, |
| 79 | 66 |
charttype, category, link, |
| ... | ... | |
| 89 | 76 |
); |
| 90 | 77 |
SQL |
| 91 | 78 |
|
| 92 |
do_query($insert_chart); |
|
| 93 |
|
|
| 94 |
my $konto_anlegen = $dbh->prepare($insert_chart) || mydberror($insert_chart); |
|
| 95 |
|
|
| 79 |
$self->db_query($insert_chart); |
|
| 96 | 80 |
|
| 97 |
# 13-1 (16%) korrigieren: |
|
| 98 |
my $edit_taxkey_13 = qq|UPDATE tax SET taxdescription = 'Steuerpflichtige EG-Lieferung zum vollen Steuersatz', rate = '0.16', chart_id = (select id FROM chart where accno = '3803'), taxnumber = 3803 WHERE taxkey = '13'|; |
|
| 99 |
do_query($edit_taxkey_13); |
|
| 81 |
my $konto_anlegen = $self->dbh->prepare($insert_chart) || $self->db_error($insert_chart); |
|
| 100 | 82 |
|
| 101 |
# Sicherstellen, daß 3803 die richtige Bezeichnung hat
|
|
| 102 |
my $update_3803 = qq|update chart set description = 'Umsatzsteuer aus EG-Erwerb 16%' where accno = '3803'|;
|
|
| 103 |
do_query($update_3803);
|
|
| 83 |
# 13-1 (16%) korrigieren:
|
|
| 84 |
my $edit_taxkey_13 = qq|UPDATE tax SET taxdescription = 'Steuerpflichtige EG-Lieferung zum vollen Steuersatz', rate = '0.16', chart_id = (select id FROM chart where accno = '3803'), taxnumber = 3803 WHERE taxkey = '13'|;
|
|
| 85 |
$self->db_query($edit_taxkey_13);
|
|
| 104 | 86 |
|
| 105 |
# Zweiter Eintrag für taxkey 13 in key: 19% |
|
| 106 |
my $insert_taxkey_13_2 = qq|INSERT INTO tax ( taxkey, taxdescription, rate, chart_id, taxnumber ) VALUES ('13', 'Steuerpflichtige EG-Lieferung zum vollen Steuersatz', '0.19', (select id from chart where accno = '3804'), '3804')|;
|
|
| 87 |
# Sicherstellen, daß 3803 die richtige Bezeichnung hat |
|
| 88 |
my $update_3803 = qq|update chart set description = 'Umsatzsteuer aus EG-Erwerb 16%' where accno = '3803'|; |
|
| 89 |
$self->db_query($update_3803); |
|
| 107 | 90 |
|
| 108 |
do_query($insert_taxkey_13_2); |
|
| 91 |
# Zweiter Eintrag für taxkey 13 in key: 19% |
|
| 92 |
my $insert_taxkey_13_2 = qq|INSERT INTO tax ( taxkey, taxdescription, rate, chart_id, taxnumber ) VALUES ('13', 'Steuerpflichtige EG-Lieferung zum vollen Steuersatz', '0.19', (select id from chart where accno = '3804'), '3804')|;
|
|
| 109 | 93 |
|
| 110 |
# alle Konten finden, bei denen 3803 das Steuerautomatikkonto ist, |
|
| 111 |
# und dort den zweiten Eintrag ab 1.1.2007 für 19% einstellen |
|
| 112 |
my $sth_query = $dbh->prepare(qq|select c.id from chart c join taxkeys t on (c.id = t.chart_id) where tax_id = (select id from tax where taxnumber = '3803')|); |
|
| 113 |
my $sth_insert = $dbh->prepare(qq|INSERT INTO taxkeys ( taxkey_id, chart_id, tax_id, pos_ustva, startdate ) |
|
| 114 |
VALUES (13, ?, (select id from tax where taxkey = 13 and rate = '0.19'), |
|
| 115 |
(select pos_ustva from taxkeys where tax_id = (select id from tax where taxnumber = '3803') and pos_ustva > 0 limit 1), |
|
| 116 |
'01.01.2007')|); |
|
| 117 |
$sth_query->execute(); |
|
| 94 |
$self->db_query($insert_taxkey_13_2); |
|
| 118 | 95 |
|
| 119 |
while (my $ref = $sth_query->fetchrow_hashref()) {
|
|
| 120 |
$sth_insert->execute($ref->{id});
|
|
| 121 |
} |
|
| 122 |
$sth_query->finish(); |
|
| 123 |
$sth_insert->finish(); |
|
| 96 |
# alle Konten finden, bei denen 3803 das Steuerautomatikkonto ist, |
|
| 97 |
# und dort den zweiten Eintrag ab 1.1.2007 für 19% einstellen |
|
| 98 |
my $sth_query = $self->dbh->prepare(qq|select c.id from chart c join taxkeys t on (c.id = t.chart_id) where tax_id = (select id from tax where taxnumber = '3803')|); |
|
| 99 |
my $sth_insert = $self->dbh->prepare(<<SQL); |
|
| 100 |
INSERT INTO taxkeys ( taxkey_id, chart_id, tax_id, pos_ustva, startdate ) |
|
| 101 |
VALUES ( 13, ?, (select id from tax where taxkey = 13 and rate = '0.19'), |
|
| 102 |
(SELECT pos_ustva FROM taxkeys WHERE tax_id = (SELECT id FROM tax WHERE taxnumber = '3803') AND pos_ustva > 0 LIMIT 1), |
|
| 103 |
'01.01.2007' ) |
|
| 104 |
SQL |
|
| 105 |
$sth_query->execute; |
|
| 124 | 106 |
|
| 125 |
}; # end code update |
|
| 126 |
}; # end check if 3804 exists |
|
| 107 |
while (my $ref = $sth_query->fetchrow_hashref) {
|
|
| 108 |
$sth_insert->execute($ref->{id});
|
|
| 109 |
} |
|
| 110 |
$sth_query->finish; |
|
| 111 |
$sth_insert->finish; |
|
| 127 | 112 |
|
| 128 |
}; # end do_update
|
|
| 113 |
} # end run
|
|
| 129 | 114 |
|
| 130 | 115 |
sub print_past_booking_warning {
|
| 131 |
print $main::form->parse_html_template("dbupgrade/SKR04_3804_update");
|
|
| 132 |
}; |
|
| 116 |
print $::form->parse_html_template("dbupgrade/SKR04_3804_update");
|
|
| 117 |
} |
|
| 118 |
|
|
| 133 | 119 |
sub print_3804_already_exists {
|
| 134 |
print $main::form->parse_html_template("dbupgrade/SKR04_3804_already_exists");
|
|
| 135 |
};
|
|
| 120 |
print $::form->parse_html_template("dbupgrade/SKR04_3804_already_exists");
|
|
| 121 |
} |
|
| 136 | 122 |
|
| 137 |
return do_update(); |
|
| 123 |
1; |
|
Auch abrufbar als: Unified diff
Perl-Datenbank-Upgradescripte auf Objektorientierung & strict umgestellt