projekt kivitendo

  my ($self) = @_;

  my $query = qq|

          WHERE cleared is true

          AND NOT EXISTS (SELECT bank_transaction_id from reconciliation_links WHERE bank_transaction_id = bank_transactions.id)

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

    $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 }) {

    }

  } else {

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

  my ($self) = @_;

  my $query = qq|

          WHERE invoice_amount <> 0

          AND NOT EXISTS (SELECT bank_transaction_id FROM bank_transaction_acc_trans WHERE bank_transaction_id = bank_transactions.id)

          AND itime > (SELECT min(itime) from bank_transaction_acc_trans)

    $self->tester->ok(0, "Verwaiste Verknüpfungen zu Bankbewegungen gefunden. Bei folgenden Bankbewegungen ist eine interne Verknüpfung gelöscht worden:");

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

    }

  } else {

    $self->tester->ok(1, "Keine verwaisten Einträge in verknüpften Bankbewegungen (Richtung Bank).");