From 2215a7f923a1b5653a835fad7fea0d5512f7db36 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jan=20B=C3=BCren?= Date: Fri, 22 Jan 2016 11:11:42 +0100 Subject: [PATCH] SelfTest -> Transaction. Test verbessert (ar.amount invoice.amount) MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Summe laut Verkaufsbericht gleich Summe der Rechnungen (ar). Der Test schlägt fehl, wenn es Debitorenbuchungen gibt, da hier keine invoice Einträge gemacht werden. Entsprechend die Abfrage verbessert. --- SL/BackgroundJob/SelfTest/Transactions.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/SL/BackgroundJob/SelfTest/Transactions.pm b/SL/BackgroundJob/SelfTest/Transactions.pm index 105456800..b3093f97a 100644 --- a/SL/BackgroundJob/SelfTest/Transactions.pm +++ b/SL/BackgroundJob/SelfTest/Transactions.pm @@ -156,7 +156,7 @@ sub check_netamount_laut_invoice_ar { where a.transdate >= ? and a.transdate <= ?;|; my ($netamount_laut_invoice) = selectfirst_array_query($::form, $self->dbh, $query, $self->fromdate, $self->todate); - $query = qq| select sum(netamount) from ar where transdate >= ? and transdate <= ?; |; + $query = qq| select sum(netamount) from ar where transdate >= ? and transdate <= ? AND invoice; |; my ($netamount_laut_ar) = selectfirst_array_query($::form, $self->dbh, $query, $self->fromdate, $self->todate); my $correct = $netamount_laut_invoice - $netamount_laut_ar == 0; -- 2.20.1