Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 478da8b9

Von Kivitendo Admin vor mehr als 10 Jahren hinzugefügt

  • ID 478da8b95cd71a275f1f77371e8ff18f06dc0cda
  • Vorgänger 85ffec25
  • Nachfolger 72de9676

Selftest - kaputten Test aus Commit ea8e8a62 repariert

Die Prüfung auf verwaiste invoice-Einträge war fehlerhaft. Weitherhin
wurde die Prüfung auf die gesamt Datenbank ausgeweitet.

Unterschiede anzeigen:

SL/BackgroundJob/SelfTest/Transactions.pm
130 130
}
131 131

  
132 132
sub check_verwaiste_invoice_eintraege {
133
 # taxincluded is null sollte nie passieren:
134
 # select sum(sellprice*qty) from invoice i where trans_id in (select id from ar where taxincluded is null);
133
  # this check is always run for all invoice entries in the entire database
135 134
  my ($self) = @_;
136 135
  my $query = qq|
137
     select * from invoice
138
       where trans_id not in (select id from ar union select id from ap order by id)
139
      and a.transdate >= ? and a.transdate <= ? ;|;
140

  
141
  my $verwaiste_invoice = selectall_hashref_query($::form, $self->dbh, $query, $self->fromdate, $self->todate);                                                              
142
  if (@$verwaiste_invoice) {                                                                                                                                                 
143
     $self->tester->ok(0, "Es gibt verwaiste invoice Einträge! (wo ar/ap-Eintrag fehlt)");                                                                                   
144
     $self->tester->diag($_) for @$verwaiste_acs;                                                                                                                            
145
  } else {                                                                                                                                                                   
146
     $self->tester->ok(1, "Keine verwaisten invoice Einträge (wo ar/ap-Eintrag fehlt)");                                                                                       }                                                                                                                                                                          
136
     select * from invoice i
137
      where trans_id not in (select id from ar union select id from ap order by id) |;
138

  
139
  my $verwaiste_invoice = selectall_hashref_query($::form, $self->dbh, $query);
140
  if (@$verwaiste_invoice) {
141
     $self->tester->ok(0, "Es gibt verwaiste invoice Einträge! (wo ar/ap-Eintrag fehlt)");
142
     for my $invoice ( @{ $verwaiste_invoice }) {
143
        $self->tester->diag("invoice: id: $invoice->{id}  trans_id: $invoice->{trans_id}   description: $invoice->{description}  itime: $invoice->{itime}");
144
     };
145
  } else {
146
     $self->tester->ok(1, "Keine verwaisten invoice Einträge (wo ar/ap-Eintrag fehlt)");                                                                                       }
147 147
}
148 148

  
149 149
sub check_netamount_laut_invoice_ar {

Auch abrufbar als: Unified diff