Revision 8fff964f
Von G. Richardson vor fast 12 Jahren hinzugefügt
| SL/BackgroundJob/SelfTest/Transactions.pm | ||
|---|---|---|
| 15 | 15 |
|
| 16 | 16 |
$self->_setup; |
| 17 | 17 |
|
| 18 |
$self->tester->plan(tests => 14);
|
|
| 18 |
$self->tester->plan(tests => 15);
|
|
| 19 | 19 |
|
| 20 | 20 |
$self->check_konten_mit_saldo_nicht_in_guv; |
| 21 |
$self->check_bilanzkonten_mit_pos_eur; |
|
| 21 | 22 |
$self->check_balanced_individual_transactions; |
| 22 | 23 |
$self->check_verwaiste_acc_trans_eintraege; |
| 23 | 24 |
$self->check_netamount_laut_invoice_ar; |
| ... | ... | |
| 70 | 71 |
} |
| 71 | 72 |
} |
| 72 | 73 |
|
| 74 |
sub check_bilanzkonten_mit_pos_eur {
|
|
| 75 |
my ($self) = @_; |
|
| 76 |
|
|
| 77 |
my $query = qq|SELECT accno, description FROM chart WHERE (category = 'A' OR category = 'L' OR category = 'Q') AND (pos_eur IS NOT NULL OR pos_eur != 0)|; |
|
| 78 |
|
|
| 79 |
my $bilanzkonten_mit_pos_eur = selectall_hashref_query($::form, $self->dbh, $query); |
|
| 80 |
if (@$bilanzkonten_mit_pos_eur) {
|
|
| 81 |
$self->tester->ok(0, "Es gibt Bilanzkonten die der GuV/EÜR zugeordnet sind)"); |
|
| 82 |
$self->tester->diag("$_->{accno} $_->{description}") for @$bilanzkonten_mit_pos_eur;
|
|
| 83 |
} else {
|
|
| 84 |
$self->tester->ok(1, "Keine Bilanzkonten in der GuV"); |
|
| 85 |
} |
|
| 86 |
} |
|
| 87 |
|
|
| 73 | 88 |
sub check_balanced_individual_transactions {
|
| 74 | 89 |
my ($self) = @_; |
| 75 | 90 |
|
Auch abrufbar als: Unified diff
Selftest Prüfung für Bilanzkonten in GuV-Gruppe
Ein Konto sollte nicht gleichzeitig in beiden Berichten auftauchen.