Revision 7b7549e7
Von Niclas Zimmermann vor mehr als 11 Jahren hinzugefügt
| SL/BackgroundJob/SelfTest/Transactions.pm | ||
|---|---|---|
| 31 | 31 |
$self->check_paid_stornos; |
| 32 | 32 |
$self->check_stornos_ohne_partner; |
| 33 | 33 |
$self->check_overpayments; |
| 34 |
$self->check_every_account_with_taxkey; |
|
| 34 | 35 |
$self->calc_saldenvortraege; |
| 35 | 36 |
} |
| 36 | 37 |
|
| ... | ... | |
| 392 | 393 |
$self->tester->diag("Saldo $saldenvortragskonto am 31.12.@{[DateTime->today->year]}: @{[ $saldo_9000_jahresende * 1 ]} (sollte 0 sein)");
|
| 393 | 394 |
} |
| 394 | 395 |
|
| 396 |
sub check_every_account_with_taxkey {
|
|
| 397 |
my ($self) = @_; |
|
| 398 |
|
|
| 399 |
my $query = qq|SELECT 1 FROM chart WHERE id NOT IN (select chart_id from taxkeys) LIMIT 1|; |
|
| 400 |
my ($account_without_chart) = selectfirst_array_query($::form, $self->dbh, $query); |
|
| 401 |
|
|
| 402 |
if ($account_without_chart){
|
|
| 403 |
$self->tester->ok(0, "Es sollte keine Konten ohne Steuerschlüssel geben!"); |
|
| 404 |
} else {
|
|
| 405 |
$self->tester->ok(1, "Jedes Konto hat einen gültigen Steuerschlüssel!"); |
|
| 406 |
} |
|
| 407 |
} |
|
| 408 |
|
|
| 395 | 409 |
1; |
| 396 | 410 |
|
| 397 | 411 |
__END__ |
Auch abrufbar als: Unified diff
Test auf Steuerschlüssel
Der SelfTest wird in diesem Commit so erweitert, dass überprüft wird,
ob jedes Konto einen gültigen Steuerschlüssel hat.