projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
ReportGenerator-Helper: (wiederholten) Export bei "Zurück" verhindern.
[kivitendo-erp.git]
/
sql
/
Pg-upgrade2
/
SKR04-3804-addition.pl
diff --git
a/sql/Pg-upgrade2/SKR04-3804-addition.pl
b/sql/Pg-upgrade2/SKR04-3804-addition.pl
index
e11d792
..
9b4434e
100644
(file)
--- a/
sql/Pg-upgrade2/SKR04-3804-addition.pl
+++ b/
sql/Pg-upgrade2/SKR04-3804-addition.pl
@@
-12,12
+12,10
@@
sub run {
my ($self) = @_;
# 1. Überprüfen ob Kontenrahmen SKR04 ist, wenn nicht alles überspringen
my ($self) = @_;
# 1. Überprüfen ob Kontenrahmen SKR04 ist, wenn nicht alles überspringen
- my ($kontenrahmen) = $self->dbh->selectrow_array("select coa from defaults");
-
- unless ( $kontenrahmen eq 'Germany-DATEV-SKR04EU' ) {
- print "Kontenrahmen ist nicht SKR04, überspringen<br>";
+ if (!$self->check_coa('Germany-DATEV-SKR04EU')) {
+# print qq|Nichts zu tun in diesem Kontenrahmen.|;
return 1;
return 1;
- }
;
+ }
# Mandant hat SKR04, erst prüfen wir, ob in der Vergangenheit Buchungen mit
# taxkey 13 erfolgt sind (Fall "EU ohne USt. ID), diese sind wahrscheinlich
# Mandant hat SKR04, erst prüfen wir, ob in der Vergangenheit Buchungen mit
# taxkey 13 erfolgt sind (Fall "EU ohne USt. ID), diese sind wahrscheinlich
@@
-45,15
+43,7
@@
sub run {
# 3804 existiert, wir gehen davon aus, daß der Benutzer das Konto schon selber angelegt hat und
# ordnungsgemäß benutzt
# 3804 existiert, wir gehen davon aus, daß der Benutzer das Konto schon selber angelegt hat und
# ordnungsgemäß benutzt
- if ($::form->{account_exists} ) {
- # Benutzer hat Meldung bestätigt
- print "Konto existiert, Upgrade überspringen\n";
- return 1;
- }
-
- # Meldung anzeigen und auf Rückgabe warten
- print_3804_already_exists();
- return 2;
+ return 1;
}
# noch keine Buchungen mit taxkey 13 und Konto 3804 existiert noch nicht,
}
# noch keine Buchungen mit taxkey 13 und Konto 3804 existiert noch nicht,
@@
-110,6
+100,7
@@
SQL
$sth_query->finish;
$sth_insert->finish;
$sth_query->finish;
$sth_insert->finish;
+ return 1;
} # end run
sub print_past_booking_warning {
} # end run
sub print_past_booking_warning {