Revision ca8c7f1b
Von Jan Büren vor 11 Monaten hinzugefügt
| SL/BackgroundJob/SelfTest/NovoclonStrict.pm | ||
|---|---|---|
| 254 | 254 |
sub check_purchase_invoices_sums_against_purchase_orders {
|
| 255 | 255 |
my ($self) = @_; |
| 256 | 256 |
|
| 257 |
my $title = "Die Summe der Einkaufsrechnungen ist kleiner als die Summe der Lieferantenaufträge.";
|
|
| 257 |
my $title = "Die Netto-Summe der Einkaufsrechnungen ist kleiner oder gleich der Netto-Summe der Lieferantenaufträge.";
|
|
| 258 | 258 |
|
| 259 | 259 |
my $purchase_invoices = SL::DB::Manager::PurchaseInvoice->get_all_sorted(where => ['!storno' => 1, |
| 260 | 260 |
invoice => 1, |
| ... | ... | |
| 269 | 269 |
|
| 270 | 270 |
if (@purchase_invoices_with_wrong_sums) {
|
| 271 | 271 |
$self->tester->ok(0, $title); |
| 272 |
$self->tester->diag("Folgende " . scalar @purchase_invoices_with_wrong_sums . " Einkaufsrechnungen haben eine zu hohe Summe:");
|
|
| 272 |
$self->tester->diag("Folgende " . scalar @purchase_invoices_with_wrong_sums . " Einkaufsrechnungen ergeben eine viel höhere Netto-Summe alsergeben eine viel höhere Netto-Summe als ursprüngliche beauftragt:");
|
|
| 273 | 273 |
$self->tester->diag("Einkaufsrechnungs-Nummer vom " . $_->transdate_as_date . ": " . $_->record_number) for @purchase_invoices_with_wrong_sums;
|
| 274 | 274 |
|
| 275 | 275 |
} else {
|
| ... | ... | |
| 282 | 282 |
sub check_purchase_invoices_sums_against_sales_orders {
|
| 283 | 283 |
my ($self) = @_; |
| 284 | 284 |
|
| 285 |
my $title = "Die Summe der Einkaufsrechnungen ist kleiner als die Summe der Auftragsbestätigungen.";
|
|
| 285 |
my $title = "Die Summe der Einkaufsrechnungen ist kleiner oder gleich der Summe der Auftragsbestätigungen.";
|
|
| 286 | 286 |
|
| 287 | 287 |
my $purchase_invoices = SL::DB::Manager::PurchaseInvoice->get_all_sorted(where => ['!storno' => 1, |
| 288 | 288 |
invoice => 1, |
Auch abrufbar als: Unified diff
novoclon: Titel für NovoclonStrict etwas angepasst