From d3bb5fcb76634f72b0e5dc7b639d8d32cba17a4d Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jan=20B=C3=BCren?= Date: Mon, 1 Jan 2018 11:01:34 +0100 Subject: [PATCH] =?utf8?q?SelfTests:=20check=5Fpaid=5Fap=20ID=20in=20E-Mai?= =?utf8?q?l-Bericht=20=C3=BCbergeben=20->=20einfachere=20Analyse?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- SL/BackgroundJob/SelfTest/Transactions.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/SL/BackgroundJob/SelfTest/Transactions.pm b/SL/BackgroundJob/SelfTest/Transactions.pm index 8ee6a4292..a05ecd741 100644 --- a/SL/BackgroundJob/SelfTest/Transactions.pm +++ b/SL/BackgroundJob/SelfTest/Transactions.pm @@ -252,7 +252,7 @@ sub check_ap_paid { my ($self) = @_; my $query = qq| - select invnumber,paid, + select invnumber,paid,id, (select sum(amount) from acc_trans a left join chart c on (c.id = a.chart_id) where trans_id = ap.id and c.link like '%AP_paid%') as accpaid , paid-(select sum(amount) from acc_trans a left join chart c on (c.id = a.chart_id) where trans_id = ap.id and c.link like '%AP_paid%') as diff from ap @@ -268,7 +268,7 @@ sub check_ap_paid { $self->tester->ok(!$errors, "Vergleich ap paid mit acc_trans AP_paid"); for my $paid_diff_ap (@{ $paid_diffs_ap }) { next if $paid_diff_ap->{diff} == 0; - $self->tester->diag("ap invnumber: $paid_diff_ap->{invnumber} : paid: $paid_diff_ap->{paid} acc_paid= $paid_diff_ap->{accpaid} diff: $paid_diff_ap->{diff}"); + $self->tester->diag("ap invnumber: $paid_diff_ap->{invnumber} : ID :: ID : $paid_diff_ap->{id} : paid: $paid_diff_ap->{paid} acc_paid= $paid_diff_ap->{accpaid} diff: $paid_diff_ap->{diff}"); } } -- 2.20.1