X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/blobdiff_plain/fb5bfba392f65278d2486e35af3458917b4c25bf..c62ddafe32128a30ea9247568858d344ed6d5655:/SL/CP.pm 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);