Test auf Steuerschlüssel

Der SelfTest wird in diesem Commit so erweitert, dass überprüft wird,
ob jedes Konto einen gültigen Steuerschlüssel hat.

diff --git a/SL/BackgroundJob/SelfTest/Transactions.pm b/SL/BackgroundJob/SelfTest/Transactions.pm
index a7fe7636469f7dc82bf7778ee294d1a67973161f..e6c1bf3df3ba7db3543147f5c4f3b32d4bfbc011 100644 (file)
--- a/SL/BackgroundJob/SelfTest/Transactions.pm
+++ b/SL/BackgroundJob/SelfTest/Transactions.pm
@@ -31,6 +31,7 @@ sub run {
   $self->check_paid_stornos;
   $self->check_stornos_ohne_partner;
   $self->check_overpayments;
   $self->check_paid_stornos;
   $self->check_stornos_ohne_partner;
   $self->check_overpayments;

+  $self->check_every_account_with_taxkey;

   $self->calc_saldenvortraege;
 }
 
   $self->calc_saldenvortraege;
 }
 


@@ -392,6 +393,19 @@ sub calc_saldenvortraege {
   $self->tester->diag("Saldo $saldenvortragskonto am 31.12.@{[DateTime->today->year]}: @{[ $saldo_9000_jahresende * 1 ]}    (sollte 0 sein)");
 }
 
   $self->tester->diag("Saldo $saldenvortragskonto am 31.12.@{[DateTime->today->year]}: @{[ $saldo_9000_jahresende * 1 ]}    (sollte 0 sein)");
 }
 

+sub check_every_account_with_taxkey {
+  my ($self) = @_;
+
+  my $query = qq|SELECT 1 FROM chart WHERE id NOT IN (select chart_id from taxkeys) LIMIT 1|;
+  my ($account_without_chart) = selectfirst_array_query($::form, $self->dbh, $query);
+
+  if ($account_without_chart){
+    $self->tester->ok(0, "Es sollte keine Konten ohne Steuerschlüssel geben!");
+  } else {
+    $self->tester->ok(1, "Jedes Konto hat einen gültigen Steuerschlüssel!");
+  }
+}
+

 1;
 
 __END__
 1;
 
 __END__