Revision dd27c969
Von Jan Büren vor fast 14 Jahren hinzugefügt
| SL/IS.pm | ||
|---|---|---|
| 1377 | 1377 |
|
| 1378 | 1378 |
my @values = (conv_i($form->{id}));
|
| 1379 | 1379 |
|
| 1380 |
# Falls wir ein Storno haben, müssen zwei Felder in der stornierten Rechnung wieder |
|
| 1381 |
# zurückgesetzt werden. Vgl: |
|
| 1382 |
# id | storno | storno_id | paid | amount |
|
| 1383 |
#----+--------+-----------+---------+----------- |
|
| 1384 |
# 18 | f | | 0.00000 | 119.00000 |
|
| 1385 |
# ZU: |
|
| 1386 |
# 18 | t | | 119.00000 | 119.00000 |
|
| 1387 |
# |
|
| 1388 |
if($form->{storno}){
|
|
| 1389 |
# storno_id auslesen und korrigieren |
|
| 1390 |
my ($invoice_id) = selectfirst_array_query($form, $dbh, qq|SELECT storno_id FROM ar WHERE id = ?|,@values); |
|
| 1391 |
do_query($form, $dbh, qq|UPDATE ar SET storno = 'f', paid = 0 WHERE id = ?|, $invoice_id); |
|
| 1392 |
} |
|
| 1393 |
|
|
| 1380 | 1394 |
# delete AR record |
| 1381 | 1395 |
do_query($form, $dbh, qq|DELETE FROM ar WHERE id = ?|, @values); |
| 1382 | 1396 |
|
Auch abrufbar als: Unified diff
Bugfix zu 1421: Loeschen von Stornos bereitet eine Reihe von Problemen
Nach dem Loeschen der Stornorechnung verblieb aber die originale Rechnung als
"R(S)" und galt auch weiterhin als bezahlt anscheinend.
Lösung: Entsprechend die Felder wieder zurückgesetzt. Zu Überlegen wäre, ob man Stornos löschen nicht ganz verbieten sollte.