X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FAR.pm;h=5fc6032a96a63b240c8e047024c46fc80e36151f;hb=26a6e8b01d9c002f95a9e0e99515ef1e54f928c4;hp=cd4063695df3b0a7d4fc30898b13960b6f5ccc0b;hpb=4d8a65151cff0399654ea47c196ab38361a976e8;p=kivitendo-erp.git diff --git a/SL/AR.pm b/SL/AR.pm index cd4063695..5fc6032a9 100644 --- a/SL/AR.pm +++ b/SL/AR.pm @@ -411,7 +411,7 @@ sub ar_transactions { qq|SELECT a.id, a.invnumber, a.ordnumber, a.transdate, | . qq| a.duedate, a.netamount, a.amount, a.paid, | . qq| a.invoice, a.datepaid, a.terms, a.notes, a.shipvia, | . - qq| a.shippingpoint, a.storno, a.globalproject_id, | . + qq| a.shippingpoint, a.storno, a.storno_id, a.globalproject_id, | . qq| a.marge_total, a.marge_percent, | . qq| a.transaction_description, | . qq| pr.projectnumber AS globalprojectnumber, | . @@ -635,7 +635,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)};