From 7a59817ea2b149d71c5a9b181dc6596420801a51 Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Tue, 16 Jul 2013 13:20:23 +0200 Subject: [PATCH] Methode SL::DBUpgrade2::Base::check_coa anstelle von manuellem SELECT nutzen --- sql/Pg-upgrade2/SKR04-3804-addition.pl | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/sql/Pg-upgrade2/SKR04-3804-addition.pl b/sql/Pg-upgrade2/SKR04-3804-addition.pl index ce8618f66..b16ef2a61 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, überspringen
"; + 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 -- 2.20.1