Revision c750d149
Von Niclas Zimmermann vor mehr als 11 Jahren hinzugefügt
| SL/BackgroundJob/SelfTest/Transactions.pm | ||
|---|---|---|
| 15 | 15 |
|
| 16 | 16 |
$self->_setup; |
| 17 | 17 |
|
| 18 |
$self->tester->plan(tests => 15);
|
|
| 18 |
$self->tester->plan(tests => 16);
|
|
| 19 | 19 |
|
| 20 | 20 |
$self->check_konten_mit_saldo_nicht_in_guv; |
| 21 | 21 |
$self->check_bilanzkonten_mit_pos_eur; |
| ... | ... | |
| 396 | 396 |
sub check_every_account_with_taxkey {
|
| 397 | 397 |
my ($self) = @_; |
| 398 | 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);
|
|
| 399 |
my $query = qq|SELECT accno, description FROM chart WHERE id NOT IN (select chart_id from taxkeys)|;
|
|
| 400 |
my $accounts_without_tk = selectall_hashref_query($::form, $self->dbh, $query);
|
|
| 401 | 401 |
|
| 402 |
if ($account_without_chart){
|
|
| 403 |
$self->tester->ok(0, "Es sollte keine Konten ohne Steuerschlüssel geben!"); |
|
| 402 |
if ( scalar @{ $accounts_without_tk } > 0 ){
|
|
| 403 |
$self->tester->ok(0, "Folgende Konten haben keinen gültigen Steuerschlüssel:"); |
|
| 404 |
|
|
| 405 |
for my $account_without_tk (@{ $accounts_without_tk } ) {
|
|
| 406 |
$self->tester->diag("Kontonummer: $account_without_tk->{accno} Beschreibung: $account_without_tk->{description}");
|
|
| 407 |
} |
|
| 404 | 408 |
} else {
|
| 405 | 409 |
$self->tester->ok(1, "Jedes Konto hat einen gültigen Steuerschlüssel!"); |
| 406 | 410 |
} |
Auch abrufbar als: Unified diff
Selftest verbesserung
Zähler noch hochgesetzt und von betroffenen Konten werden jetzt auch
Kontonummer/Kontobeschreibung angezeigt.