projekt kivitendo

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

  $self->check_verwaiste_invoice_eintraege;

sub check_verwaiste_invoice_eintraege {

 # taxincluded is null sollte nie passieren:

 # select sum(sellprice*qty) from invoice i where trans_id in (select id from ar where taxincluded is null);

  my ($self) = @_;

  my $query = qq|

     select * from invoice

       where trans_id not in (select id from ar union select id from ap order by id)

      and a.transdate >= ? and a.transdate <= ? ;|;

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

  if (@$verwaiste_invoice) {                                                                                                                                                 

     $self->tester->ok(0, "Es gibt verwaiste invoice Einträge! (wo ar/ap-Eintrag fehlt)");                                                                                   

     $self->tester->diag($_) for @$verwaiste_acs;                                                                                                                            

  } else {                                                                                                                                                                   

     $self->tester->ok(1, "Keine verwaisten invoice Einträge (wo ar/ap-Eintrag fehlt)");                                                                                       }                                                                                                                                                                          

}