Revision f8d6fccc
Von Bernd Bleßmann vor 11 Monaten hinzugefügt
| SL/BackgroundJob/SelfTest/NovoclonStrict.pm | ||
|---|---|---|
| 8 | 8 |
use List::MoreUtils qw(none notall); |
| 9 | 9 |
use SL::DB::DeliveryOrder; |
| 10 | 10 |
use SL::DB::Order; |
| 11 |
use SL::DB::PurchaseInvoice; |
|
| 11 | 12 |
|
| 12 | 13 |
use Rose::Object::MakeMethods::Generic ( |
| 13 | 14 |
'scalar --get_set_init' => [ qw(start_date) ], |
| ... | ... | |
| 21 | 22 |
sub run {
|
| 22 | 23 |
my ($self) = @_; |
| 23 | 24 |
|
| 24 |
$self->tester->plan(tests => 6);
|
|
| 25 |
$self->tester->plan(tests => 8);
|
|
| 25 | 26 |
|
| 26 | 27 |
$self->check_no_missing_invoices; |
| 27 | 28 |
$self->check_no_missing_deliveries; |
| ... | ... | |
| 29 | 30 |
$self->check_invoices_mailed; |
| 30 | 31 |
$self->check_order_confirmations_mailed; |
| 31 | 32 |
$self->check_quotations_mailed; |
| 33 |
$self->check_purchase_invoices_sums_against_purchase_orders; |
|
| 34 |
$self->check_purchase_invoices_sums_against_sales_orders; |
|
| 32 | 35 |
} |
| 33 | 36 |
|
| 34 | 37 |
sub check_no_missing_invoices {
|
| ... | ... | |
| 246 | 249 |
} |
| 247 | 250 |
} |
| 248 | 251 |
|
| 252 |
# Check for all purchase invoices if the sum of all related purchase |
|
| 253 |
# orders is greater than the sum of all related purchase invoices. |
|
| 254 |
sub check_purchase_invoices_sums_against_purchase_orders {
|
|
| 255 |
my ($self) = @_; |
|
| 256 |
|
|
| 257 |
my $title = "Die Summe der Einkaufsrechnungen ist kleiner als die Summe der Lieferantenaufträge."; |
|
| 258 |
|
|
| 259 |
my $purchase_invoices = SL::DB::Manager::PurchaseInvoice->get_all_sorted(where => ['!storno' => 1, |
|
| 260 |
invoice => 1, |
|
| 261 |
transdate => {ge => $self->start_date},]);
|
|
| 262 |
|
|
| 263 |
my @purchase_invoices_with_wrong_sums; |
|
| 264 |
foreach my $purchase_invoice (@$purchase_invoices) {
|
|
| 265 |
if (!$purchase_invoice->check_sums_against_purchase_orders($purchase_invoice)) {
|
|
| 266 |
push @purchase_invoices_with_wrong_sums, $purchase_invoice; |
|
| 267 |
} |
|
| 268 |
} |
|
| 269 |
|
|
| 270 |
if (@purchase_invoices_with_wrong_sums) {
|
|
| 271 |
$self->tester->ok(0, $title); |
|
| 272 |
$self->tester->diag("Folgende " . scalar @purchase_invoices_with_wrong_sums . " Einkaufsrechnungen haben eine zu hohe Summe:");
|
|
| 273 |
$self->tester->diag("Einkaufsrechnungs-Nummer vom " . $_->transdate_as_date . ": " . $_->record_number) for @purchase_invoices_with_wrong_sums;
|
|
| 274 |
|
|
| 275 |
} else {
|
|
| 276 |
$self->tester->ok(1, $title); |
|
| 277 |
} |
|
| 278 |
} |
|
| 279 |
|
|
| 280 |
# Check for all purchase invoices if the sum of all related sales |
|
| 281 |
# orders is greater than the sum of all related purchase invoices. |
|
| 282 |
sub check_purchase_invoices_sums_against_sales_orders {
|
|
| 283 |
my ($self) = @_; |
|
| 284 |
|
|
| 285 |
my $title = "Die Summe der Einkaufsrechnungen ist kleiner als die Summe der Auftragsbestätigungen."; |
|
| 286 |
|
|
| 287 |
my $purchase_invoices = SL::DB::Manager::PurchaseInvoice->get_all_sorted(where => ['!storno' => 1, |
|
| 288 |
invoice => 1, |
|
| 289 |
transdate => {ge => $self->start_date},]);
|
|
| 290 |
|
|
| 291 |
my @purchase_invoices_with_wrong_sums; |
|
| 292 |
foreach my $purchase_invoice (@$purchase_invoices) {
|
|
| 293 |
if (!$purchase_invoice->check_sums_against_sales_orders($purchase_invoice)) {
|
|
| 294 |
push @purchase_invoices_with_wrong_sums, $purchase_invoice; |
|
| 295 |
} |
|
| 296 |
} |
|
| 297 |
|
|
| 298 |
if (@purchase_invoices_with_wrong_sums) {
|
|
| 299 |
$self->tester->ok(0, $title); |
|
| 300 |
$self->tester->diag("Folgende " . scalar @purchase_invoices_with_wrong_sums . " Einkaufsrechnungen haben eine zu hohe Summe:");
|
|
| 301 |
$self->tester->diag("Einkaufsrechnungs vom " . $_->transdate_as_date . ": " . $_->record_number) for @purchase_invoices_with_wrong_sums;
|
|
| 302 |
|
|
| 303 |
} else {
|
|
| 304 |
$self->tester->ok(1, $title); |
|
| 305 |
} |
|
| 306 |
} |
|
| 249 | 307 |
|
| 250 | 308 |
1; |
| 251 | 309 |
|
Auch abrufbar als: Unified diff
novoclon: Selbsttests strikte Prozesse: EK-Rechnungen gegen Aufträge prüfen