Storno von Debitorenbuchungen: richtige Tabelle bzgl. 'paid' aktualisieren

diff --git a/SL/AR.pm b/SL/AR.pm
index 98a30297c488780980844285c8d3c61b3f93b1c1..a4d1000390a4e1c956e88f2b2c5ba6e89e167e3e 100644 (file)
--- a/SL/AR.pm
+++ b/SL/AR.pm
@@ -697,7 +697,7 @@ sub storno {
     do_query($form, $dbh, $query, (values %$row));
   }
 
     do_query($form, $dbh, $query, (values %$row));
   }
 

-  map { IO->set_datepaid(table => 'ap', id => $_, dbh => $dbh) } ($id, $new_id);
+  map { IO->set_datepaid(table => 'ar', id => $_, dbh => $dbh) } ($id, $new_id);

 
   $dbh->commit;
 
 
   $dbh->commit;