Gesamtbetrag auf Gegenkonto buchen

diff --git a/SL/DB/Invoice.pm b/SL/DB/Invoice.pm
index 96c140c..482bb70 100644 (file)
--- a/SL/DB/Invoice.pm
+++ b/SL/DB/Invoice.pm
@@ -120,6 +120,8 @@ sub new_from {
 sub post {
   my ($self, %params) = @_;
 
+  croak("Missing parameter 'ar_id'") unless $params{ar_id};
+
   $self->db->do_transaction(sub {
     1;                          # dummy instruction for Emacs ;)
 
@@ -133,6 +135,8 @@ sub post {
     $self->_post_add_acctrans($data{amounts});
     $self->_post_add_acctrans($data{taxes});
 
+    $self->_post_add_acctrans({ $params{ar_id} => $self->amount * -1 });
+
     $self->_post_update_allocated($data{allocated});
 
     die;