Revision 2459db37
Von Jan Büren vor fast 9 Jahren hinzugefügt
| SL/BackgroundJob/SelfTest/Transactions.pm | ||
|---|---|---|
| 435 | 435 |
my ($self) = @_; |
| 436 | 436 |
|
| 437 | 437 |
my $query = qq| |
| 438 |
select ar.invnumber, ar.netamount, ac.amount |
|
| 439 |
from ar left join acc_trans ac on (ac.trans_id = ar.id) where ac.chart_link like 'AR_amount%' AND ac.amount <> ar.netamount|; |
|
| 438 |
select sum(ac.amount) as amount, ar.invnumber,ar.netamount |
|
| 439 |
from acc_trans ac left join ar on (ac.trans_id = ar.id) |
|
| 440 |
where ac.chart_link like 'AR_amount%' group by invnumber,netamount having sum(ac.amount) <> ar.netamount|; |
|
| 440 | 441 |
|
| 441 | 442 |
my $ar_amount_not_ac_amount = selectall_hashref_query($::form, $self->dbh, $query); |
| 442 | 443 |
|
| ... | ... | |
| 457 | 458 |
my ($self) = @_; |
| 458 | 459 |
|
| 459 | 460 |
my $query = qq| |
| 460 |
select ap.invnumber, ap.netamount, ac.amount |
|
| 461 |
from ap left join acc_trans ac on (ac.trans_id = ap.id) where ac.chart_link like 'AP_amount%' AND ac.amount <> ap.netamount*-1|; |
|
| 461 |
select sum(ac.amount) as amount, ap.invnumber,ap.netamount |
|
| 462 |
from acc_trans ac left join ap on (ac.trans_id = ap.id) |
|
| 463 |
where ac.chart_link like 'AR_amount%' group by invnumber,netamount having sum(ac.amount) <> ap.netamount*-1|; |
|
| 462 | 464 |
|
| 463 | 465 |
my $ap_amount_not_ac_amount = selectall_hashref_query($::form, $self->dbh, $query); |
| 464 | 466 |
|
Auch abrufbar als: Unified diff
Self-Tests Haupt- / Nebenbuchprüfung verbessert