X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=sql%2FPg-upgrade2%2FSKR04-3804-addition.pl;h=9b4434ec07fc4d96763996eb45982967d10f88d8;hb=b36fb0f412d2d2b43b8d98d787743cbe1fbf2540;hp=e11d7928ed27377bf62330becf8c52d76219733b;hpb=347f2cff58f8d798bb0fe52495fb09b4e08db036;p=kivitendo-erp.git

diff --git a/sql/Pg-upgrade2/SKR04-3804-addition.pl b/sql/Pg-upgrade2/SKR04-3804-addition.pl
index e11d7928e..9b4434ec0 100644
--- 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 ($kontenrahmen) = $self->dbh->selectrow_array("select coa from defaults");
-
-  unless ( $kontenrahmen eq 'Germany-DATEV-SKR04EU' ) {
-    print "Kontenrahmen ist nicht SKR04, &uuml;berspringen<br>";
+  if (!$self->check_coa('Germany-DATEV-SKR04EU')) {
+#    print qq|Nichts zu tun in diesem Kontenrahmen.|;
     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
@@ -45,15 +43,7 @@ sub run {
     # 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 &uuml;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,
@@ -110,6 +100,7 @@ SQL
   $sth_query->finish;
   $sth_insert->finish;
 
+  return 1;
 } # end run
 
 sub print_past_booking_warning {