Revision d3bb5fcb
Von Jan Büren vor etwa 7 Jahren hinzugefügt
| SL/BackgroundJob/SelfTest/Transactions.pm | ||
|---|---|---|
| 252 | 252 |
my ($self) = @_; |
| 253 | 253 |
|
| 254 | 254 |
my $query = qq| |
| 255 |
select invnumber,paid, |
|
| 255 |
select invnumber,paid,id,
|
|
| 256 | 256 |
(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 , |
| 257 | 257 |
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 |
| 258 | 258 |
from ap |
| ... | ... | |
| 268 | 268 |
$self->tester->ok(!$errors, "Vergleich ap paid mit acc_trans AP_paid"); |
| 269 | 269 |
for my $paid_diff_ap (@{ $paid_diffs_ap }) {
|
| 270 | 270 |
next if $paid_diff_ap->{diff} == 0;
|
| 271 |
$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}");
|
|
| 271 |
$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}");
|
|
| 272 | 272 |
} |
| 273 | 273 |
} |
| 274 | 274 |
|
Auch abrufbar als: Unified diff
SelfTests: check_paid_ap ID in E-Mail-Bericht übergeben -> einfachere Analyse