Revision f147b6eb
Von Jan Büren vor etwa 14 Jahren hinzugefügt
| SL/CP.pm | ||
|---|---|---|
| 240 | 240 |
qq| (c.link LIKE '%:AP:%')) |; |
| 241 | 241 |
} |
| 242 | 242 |
|
| 243 |
my $paymentamount = $form->{amount};
|
|
| 244 | 243 |
|
| 245 | 244 |
my $null; |
| 246 | 245 |
($null, $form->{department_id}) = split(/--/, $form->{department});
|
| ... | ... | |
| 260 | 259 |
$form->{"due_$i"} = $form->parse_amount($myconfig, $form->{"due_$i"});
|
| 261 | 260 |
|
| 262 | 261 |
if ($form->{"checked_$i"} && $form->{"paid_$i"}) {
|
| 263 |
$paymentamount = (($paymentamount * 1000) - ($form->{"paid_$i"} * 1000)) / 1000;
|
|
| 264 | 262 |
|
| 265 | 263 |
# get exchangerate for original |
| 266 | 264 |
$query = |
| ... | ... | |
| 365 | 363 |
# /saving the history |
| 366 | 364 |
} |
| 367 | 365 |
} |
| 368 |
|
|
| 369 | 366 |
my $rc; |
| 370 |
if ($form->round_amount($paymentamount, 2) < 0) {
|
|
| 371 |
# Hier werden negativen Zahlungseingänge abgefangen |
|
| 372 |
# Besser: in Oberfläche schon prüfen |
|
| 373 |
# Zahlungsein- und ausgänge sind immer positiv |
|
| 374 |
$dbh->rollback; |
|
| 375 |
$rc = 0; |
|
| 376 |
} |
|
| 377 |
if ($form->round_amount($paymentamount, 2) == 0) {
|
|
| 367 |
# Hier wurden negativen Zahlungseingänge abgefangen |
|
| 368 |
# da Zahlungsein- und ausgänge immer positiv sind |
|
| 369 |
# Besser: in Oberfläche schon prüfen erledigt jb 10.2010 |
|
| 378 | 370 |
$rc = $dbh->commit; |
| 379 |
} |
|
| 380 | 371 |
|
| 381 | 372 |
$dbh->disconnect; |
| 382 | 373 |
|
Auch abrufbar als: Unified diff
Zahlungsein- und ausgänge. Die Prüfung, ob negative oder leere Werte eingetragen wurden vom CP.pm auf cp.pl verlagert. Genauere Fehlermeldung, falls kein Eintrag gewählt wurde. Die Überprüfung auf ->{amount} rausgenommen, sodass man ohne Erneuern direkt nach Auswahl der Überweisung buchen kann. Teilfix für Bug: 1484