Revision 2459db37
Von Jan Büren vor mehr als 9 Jahren hinzugefügt
| SL/BackgroundJob/SelfTest/Transactions.pm | ||
|---|---|---|
|
my ($self) = @_;
|
||
|
|
||
|
my $query = qq|
|
||
|
select ar.invnumber, ar.netamount, ac.amount
|
||
|
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|;
|
||
|
select sum(ac.amount) as amount, ar.invnumber,ar.netamount
|
||
|
from acc_trans ac left join ar on (ac.trans_id = ar.id)
|
||
|
where ac.chart_link like 'AR_amount%' group by invnumber,netamount having sum(ac.amount) <> ar.netamount|;
|
||
|
|
||
|
my $ar_amount_not_ac_amount = selectall_hashref_query($::form, $self->dbh, $query);
|
||
|
|
||
| ... | ... | |
|
my ($self) = @_;
|
||
|
|
||
|
my $query = qq|
|
||
|
select ap.invnumber, ap.netamount, ac.amount
|
||
|
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|;
|
||
|
select sum(ac.amount) as amount, ap.invnumber,ap.netamount
|
||
|
from acc_trans ac left join ap on (ac.trans_id = ap.id)
|
||
|
where ac.chart_link like 'AR_amount%' group by invnumber,netamount having sum(ac.amount) <> ap.netamount*-1|;
|
||
|
|
||
|
my $ap_amount_not_ac_amount = selectall_hashref_query($::form, $self->dbh, $query);
|
||
|
|
||
Auch abrufbar als: Unified diff
Self-Tests Haupt- / Nebenbuchprüfung verbessert