Storno Bugfix. paid wurde unter bestimmten Bedingungen nicht richtig gesetzt.

diff --git a/SL/AP.pm b/SL/AP.pm
index b5e25209648018ee56c451f5c980a6a73bd21125..66020933c16499773f1e88bb0b77c618bbf6f9b1 100644 (file)
--- 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->{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)};
 
 
   delete @$storno_row{qw(itime mtime)};
 

diff --git a/SL/AR.pm b/SL/AR.pm
index 79653a75716686ecdc37c8f1dd523939fc5a695d..5fc6032a96a63b240c8e047024c46fc80e36151f 100644 (file)
--- a/SL/AR.pm
+++ b/SL/AR.pm
@@ -635,7 +635,7 @@ sub storno {
   $storno_row->{invnumber}  = 'Storno-' . $storno_row->{invnumber};
   $storno_row->{amount}    *= -1;
   $storno_row->{netamount} *= -1;
   $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)};
 
 
   delete @$storno_row{qw(itime mtime)};