projekt kivitendo

  $self->tester->plan(tests => 25);

  $self->check_orphaned_reconciliated_links;

sub check_orphaned_reconciliated_links {

  my ($self) = @_;

  my $query = qq|

          SELECT purpose from bank_transactions

          WHERE cleared is true

          AND id not in (SELECT bank_transaction_id from reconciliation_links)

          AND transdate >= ? AND transdate <= ?|;

  my $bt_cleared_no_link = selectall_hashref_query($::form, $self->dbh, $query, $self->fromdate, $self->todate);

  if ( scalar @{ $bt_cleared_no_link } > 0 ) {

    $self->tester->ok(0, "Verwaiste abgeglichene Bankbewegungen gefunden. Bei folgenden Bankbewegungen ist die abgleichende Verknüpfung gelöscht worden:");

    for my $bt_orphaned (@{ $bt_cleared_no_link }) {

      $self->tester->diag("Verwendungszweck: $bt_orphaned->{purpose}");

    }

  } else {

    $self->tester->ok(1, "Keine verwaisten Einträge in abgeglichenen Bankbewegungen.");

  }

}