+sub check_verwaiste_invoice_eintraege {
+ # this check is always run for all invoice entries in the entire database
+ my ($self) = @_;
+ my $query = qq|
+ select * from invoice i
+ where trans_id not in (select id from ar union select id from ap order by id) |;
+
+ my $verwaiste_invoice = selectall_hashref_query($::form, $self->dbh, $query);
+ if (@$verwaiste_invoice) {
+ $self->tester->ok(0, "Es gibt verwaiste invoice Einträge! (wo ar/ap-Eintrag fehlt)");
+ for my $invoice ( @{ $verwaiste_invoice }) {
+ $self->tester->diag("invoice: id: $invoice->{id} trans_id: $invoice->{trans_id} description: $invoice->{description} itime: $invoice->{itime}");
+ };
+ } else {
+ $self->tester->ok(1, "Keine verwaisten invoice Einträge (wo ar/ap-Eintrag fehlt)"); }
+}
+