Revision 563a5200
Von jan vor fast 15 Jahren hinzugefügt
| SL/CP.pm | ||
|---|---|---|
| 358 | 358 |
} |
| 359 | 359 |
} |
| 360 | 360 |
|
| 361 |
# record a AR/AP with a payment |
|
| 362 |
if ($form->round_amount($paymentamount, 2) > 0) {
|
|
| 363 |
$form->{invnumber} = "";
|
|
| 364 |
OP::overpayment("", $myconfig, $form, $dbh, $paymentamount, $ml, 1);
|
|
| 365 |
} |
|
| 366 |
|
|
| 367 | 361 |
my $rc; |
| 368 | 362 |
if ($form->round_amount($paymentamount, 2) < 0) {
|
| 369 |
$dbh->rollback; |
|
| 363 |
# Hier werden negativen Zahlungseingänge abgefangen |
|
| 364 |
# Besser: in Oberfläche schon prüfen |
|
| 365 |
# Zahlungsein- und ausgänge sind immer positiv |
|
| 366 |
$dbh->rollback; |
|
| 370 | 367 |
$rc = 0; |
| 371 | 368 |
} |
| 372 | 369 |
if ($form->round_amount($paymentamount, 2) == 0) {
|
Auch abrufbar als: Unified diff
SL/OP.pm wird hat schon laenger keine sinnvolle funktion. entsprechend rausgenommen