From: Jan Büren Date: Tue, 27 Oct 2015 10:24:39 +0000 (+0100) Subject: SelfTest um Testfall ac.amount == ar.netamount ergänzt X-Git-Tag: release-3.4.1~618^2~1 X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=bebca3b60f8c019b9acbc436da7437d67dc19e67;p=kivitendo-erp.git 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. --- diff --git a/SL/BackgroundJob/SelfTest/Transactions.pm b/SL/BackgroundJob/SelfTest/Transactions.pm index f4f13d01a..6307ea99f 100644 --- a/SL/BackgroundJob/SelfTest/Transactions.pm +++ b/SL/BackgroundJob/SelfTest/Transactions.pm @@ -15,13 +15,14 @@ sub run { $self->_setup; - $self->tester->plan(tests => 17); + $self->tester->plan(tests => 18); $self->check_konten_mit_saldo_nicht_in_guv; $self->check_bilanzkonten_mit_pos_eur; $self->check_balanced_individual_transactions; $self->check_verwaiste_acc_trans_eintraege; $self->check_verwaiste_invoice_eintraege; + $self->check_ar_acc_trans_amount; $self->check_netamount_laut_invoice_ar; $self->check_invnumbers_unique; $self->check_summe_stornobuchungen; @@ -428,6 +429,28 @@ sub check_every_account_with_taxkey { } } +sub check_ar_acc_trans_amount { + 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|; + + my $ar_amount_not_ac_amount = selectall_hashref_query($::form, $self->dbh, $query); + + if ( scalar @{ $ar_amount_not_ac_amount } > 0 ) { + $self->tester->ok(0, "Folgende Ausgangsrechnungen haben einen falschen Netto-Wert im Nebenbuch:"); + + for my $ar_ac_amount_nok (@{ $ar_amount_not_ac_amount } ) { + $self->tester->diag("Rechnungsnummer: $ar_ac_amount_nok->{invnumber} Hauptbuch-Wert: $ar_ac_amount_nok->{amount} + Nebenbuch-Wert: $ar_ac_amount_nok->{netamount}"); + } + } else { + $self->tester->ok(1, "Hauptbuch-Nettowert und Nebenbuch-Nettowert stimmen überein."); + } + +} + 1; __END__ diff --git a/doc/changelog b/doc/changelog index 2c4645dce..cb62a04a7 100644 --- a/doc/changelog +++ b/doc/changelog @@ -44,6 +44,9 @@ Kleinere neue Features und Detailverbesserungen: - Konkurrierende Schreibprozesse beim Speichern von Belegen verhindern. + - SelfTest um einen Test erweitert. Hauptbuch-Nettowert weicht vom Nebenbuch-Netto-Wert ab + (acc_trans.amount != ar.netamount). + 2015-08-20 - Release 3.3 Größere neue Features: