SelfTest: Transactions: Stornosumme -> copy/paste-Fehler ar statt ap

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

diff --git a/SL/BackgroundJob/SelfTest/Transactions.pm b/SL/BackgroundJob/SelfTest/Transactions.pm
index 3eeb57f0926024d3d464cf49996d7cbeeeef21e3..6ad354937e6e4bdf42344eee118ed39811db0dbf 100644 (file)
--- a/SL/BackgroundJob/SelfTest/Transactions.pm
+++ b/SL/BackgroundJob/SelfTest/Transactions.pm
@@ -210,7 +210,7 @@ sub check_summe_stornobuchungen {
 
   my $query = qq|
     SELECT sum(amount) from ar a WHERE a.id IN
-      (SELECT id from ap where storno is true
+      (SELECT id from ar where storno is true
        AND a.transdate >= ? and a.transdate <= ?)|;
   my ($summe_stornobuchungen_ar) = selectfirst_array_query($::form, $self->dbh, $query, $self->fromdate, $self->todate);
 
@@ -801,10 +801,6 @@ SL::BackgroundJob::SelfTest::Transactions - base tests
 
 Several tests for data integrity.
 
-=head1 FUNCTIONS
-
-=head1 BUGS
-
 =head1 AUTHOR
 
 G. Richardson E<lt>information@richardson-bueren.deE<gt>
@@ -812,4 +808,3 @@ Jan Büren E<lt>information@richardson-bueren.deE<gt>
 Sven Schoeling E<lt>s.schoeling@linet-services.deE<gt>
 
 =cut
-