X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/62a9b7075e66ccbf41e9f0bc6314359aa70af8e6..03ea97647e3fbdea4323f4f2136bdfa87cb15c1b:/SL/AP.pm

diff --git a/SL/AP.pm b/SL/AP.pm
index b5e252096..66020933c 100644
--- a/SL/AP.pm
+++ b/SL/AP.pm
@@ -765,7 +765,7 @@ sub storno {
   $storno_row->{invnumber}  = 'Storno-' . $storno_row->{invnumber};
   $storno_row->{amount}    *= -1;
   $storno_row->{netamount} *= -1;
-  $storno_row->{paid}       = $storno_amount->{amount};
+  $storno_row->{paid}       = $storno_row->{amount};
 
   delete @$storno_row{qw(itime mtime)};