X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/d9cb2f120ebebd2f7cf1018691fd7c8e8c54f496..fe3df36071968d9f22c33f40adfc87717a578b1b:/SL/IR.pm

diff --git a/SL/IR.pm b/SL/IR.pm
index 56207bf1b..5a4a2d7f9 100644
--- a/SL/IR.pm
+++ b/SL/IR.pm
@@ -107,6 +107,10 @@ sub post_invoice {
     if ($form->{storno}) {
       $form->{"qty_$i"} *= -1;
     }
+
+    if ($main::eur) {
+      $form->{"inventory_accno_$i"} = $form->{"expense_accno_$i"};
+    }
     
     if ($form->{"qty_$i"} != 0) {