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;
- };
+ }
# 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
# 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,