Buchungsjournal: Filter "Bearbeiter" gefixt

[mfinanz.git] / SL / BackgroundJob / SelfTest / Transactions.pm

diff --git a/SL/BackgroundJob/SelfTest/Transactions.pm b/SL/BackgroundJob/SelfTest/Transactions.pm
index 84eaa8467be81c5d45e706165f3c60d65328e74b..a7fe7636469f7dc82bf7778ee294d1a67973161f 100644 (file)
--- a/SL/BackgroundJob/SelfTest/Transactions.pm
+++ b/SL/BackgroundJob/SelfTest/Transactions.pm
@@ -15,9 +15,10 @@ sub run {
 
   $self->_setup;
 
 
   $self->_setup;
 

-  $self->tester->plan(tests => 14);
+  $self->tester->plan(tests => 15);

 
   $self->check_konten_mit_saldo_nicht_in_guv;
 
   $self->check_konten_mit_saldo_nicht_in_guv;

+  $self->check_bilanzkonten_mit_pos_eur;

   $self->check_balanced_individual_transactions;
   $self->check_verwaiste_acc_trans_eintraege;
   $self->check_netamount_laut_invoice_ar;
   $self->check_balanced_individual_transactions;
   $self->check_verwaiste_acc_trans_eintraege;
   $self->check_netamount_laut_invoice_ar;


@@ -70,6 +71,20 @@ sub check_konten_mit_saldo_nicht_in_guv {
   }
 }
 
   }
 }
 

+sub check_bilanzkonten_mit_pos_eur {
+  my ($self) = @_;
+
+  my $query = qq|SELECT accno, description FROM chart WHERE (category = 'A' OR category = 'L' OR category = 'Q') AND (pos_eur IS NOT NULL OR pos_eur != 0)|;
+
+  my $bilanzkonten_mit_pos_eur = selectall_hashref_query($::form, $self->dbh, $query);
+  if (@$bilanzkonten_mit_pos_eur) {
+     $self->tester->ok(0, "Es gibt Bilanzkonten die der GuV/EÜR zugeordnet sind)");
+     $self->tester->diag("$_->{accno}  $_->{description}") for @$bilanzkonten_mit_pos_eur;
+  } else {
+     $self->tester->ok(1, "Keine Bilanzkonten in der GuV");
+  }
+}
+

 sub check_balanced_individual_transactions {
   my ($self) = @_;
 
 sub check_balanced_individual_transactions {
   my ($self) = @_;
 


@@ -294,7 +309,7 @@ sub check_stornos_ohne_partner {
     LEFT JOIN vendor v on (v.id = ap.vendor_id)
     WHERE storno_id is null AND storno is true AND ap.id not in (SELECT storno_id FROM ap WHERE storno_id is not null AND storno is true);
   |;
     LEFT JOIN vendor v on (v.id = ap.vendor_id)
     WHERE storno_id is null AND storno is true AND ap.id not in (SELECT storno_id FROM ap WHERE storno_id is not null AND storno is true);
   |;

- 
+

   my $stornos_ohne_partner =  selectall_hashref_query($::form, $self->dbh, $query);
 
   $self->tester->ok(@$stornos_ohne_partner == 0, 'Es sollte keine Stornos ohne Partner geben');
   my $stornos_ohne_partner =  selectall_hashref_query($::form, $self->dbh, $query);
 
   $self->tester->ok(@$stornos_ohne_partner == 0, 'Es sollte keine Stornos ohne Partner geben');