X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=inline;f=SL%2FCP.pm;h=341510c5559fb675c9579ace55fab32c18483071;hb=54e4131e091831e00a861fe2c4f53e344b87ddca;hp=b411b0608c947ee31bfb251b95d78c84a69222b3;hpb=fb5bfba392f65278d2486e35af3458917b4c25bf;p=kivitendo-erp.git diff --git a/SL/CP.pm b/SL/CP.pm index b411b0608..341510c55 100644 --- a/SL/CP.pm +++ b/SL/CP.pm @@ -370,17 +370,10 @@ sub process_payment { $pth->finish; $amount += $form->{"paid_$i"}; - - # BUG 324 - if ($form->{arap} eq 'ap') { - $paid = "paid = paid + $amount"; - } else { - $paid = "paid = $amount"; - } # update AR/AP transaction $query = qq|UPDATE $form->{arap} set - $paid, + paid = $amount, datepaid = '$form->{datepaid}' WHERE id = $form->{"id_$i"}|; $dbh->do($query) || $form->dberror($query);