Revision bebca3b6
Von Jan Büren vor mehr als 9 Jahren hinzugefügt
| SL/BackgroundJob/SelfTest/Transactions.pm | ||
|---|---|---|
| 15 | 15 |
|
| 16 | 16 |
$self->_setup; |
| 17 | 17 |
|
| 18 |
$self->tester->plan(tests => 17);
|
|
| 18 |
$self->tester->plan(tests => 18);
|
|
| 19 | 19 |
|
| 20 | 20 |
$self->check_konten_mit_saldo_nicht_in_guv; |
| 21 | 21 |
$self->check_bilanzkonten_mit_pos_eur; |
| 22 | 22 |
$self->check_balanced_individual_transactions; |
| 23 | 23 |
$self->check_verwaiste_acc_trans_eintraege; |
| 24 | 24 |
$self->check_verwaiste_invoice_eintraege; |
| 25 |
$self->check_ar_acc_trans_amount; |
|
| 25 | 26 |
$self->check_netamount_laut_invoice_ar; |
| 26 | 27 |
$self->check_invnumbers_unique; |
| 27 | 28 |
$self->check_summe_stornobuchungen; |
| ... | ... | |
| 428 | 429 |
} |
| 429 | 430 |
} |
| 430 | 431 |
|
| 432 |
sub check_ar_acc_trans_amount {
|
|
| 433 |
my ($self) = @_; |
|
| 434 |
|
|
| 435 |
my $query = qq| |
|
| 436 |
select ar.invnumber, ar.netamount, ac.amount |
|
| 437 |
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 |
|
|
| 439 |
my $ar_amount_not_ac_amount = selectall_hashref_query($::form, $self->dbh, $query); |
|
| 440 |
|
|
| 441 |
if ( scalar @{ $ar_amount_not_ac_amount } > 0 ) {
|
|
| 442 |
$self->tester->ok(0, "Folgende Ausgangsrechnungen haben einen falschen Netto-Wert im Nebenbuch:"); |
|
| 443 |
|
|
| 444 |
for my $ar_ac_amount_nok (@{ $ar_amount_not_ac_amount } ) {
|
|
| 445 |
$self->tester->diag("Rechnungsnummer: $ar_ac_amount_nok->{invnumber} Hauptbuch-Wert: $ar_ac_amount_nok->{amount}
|
|
| 446 |
Nebenbuch-Wert: $ar_ac_amount_nok->{netamount}");
|
|
| 447 |
} |
|
| 448 |
} else {
|
|
| 449 |
$self->tester->ok(1, "Hauptbuch-Nettowert und Nebenbuch-Nettowert stimmen überein."); |
|
| 450 |
} |
|
| 451 |
|
|
| 452 |
} |
|
| 453 |
|
|
| 431 | 454 |
1; |
| 432 | 455 |
|
| 433 | 456 |
__END__ |
| doc/changelog | ||
|---|---|---|
| 44 | 44 |
|
| 45 | 45 |
- Konkurrierende Schreibprozesse beim Speichern von Belegen verhindern. |
| 46 | 46 |
|
| 47 |
- SelfTest um einen Test erweitert. Hauptbuch-Nettowert weicht vom Nebenbuch-Netto-Wert ab |
|
| 48 |
(acc_trans.amount != ar.netamount). |
|
| 49 |
|
|
| 47 | 50 |
2015-08-20 - Release 3.3 |
| 48 | 51 |
|
| 49 | 52 |
Größere neue Features: |
Auch abrufbar als: Unified diff
SelfTest um Testfall ac.amount ar.netamount ergänzt
In Ergänzung zu #7915128c einen ähnlich sinnvollen Testfall für
Selftest ergänzt.
Im Datenbestand muss zwingend ar.netamount acc_trans.amount für Typ
AR_amount identisch sein.
Ansonsten kommt / kam es in der Vergangenheit immer zu cent Differenz in
der Rechnungsübersicht und in der Rechnungseinzelansicht.