Revision 18db0f54
Von Thomas Kasulke vor mehr als 17 Jahren hinzugefügt
| bin/mozilla/ir.pl | ||
|---|---|---|
| 969 | 969 |
|
| 970 | 970 |
sub storno {
|
| 971 | 971 |
$lxdebug->enter_sub(); |
| 972 |
|
|
| 972 |
use CGI::Carp qw(fatalsToBrowser); |
|
| 973 | 973 |
if ($form->{storno}) {
|
| 974 | 974 |
$form->error($locale->text('Cannot storno storno invoice!'));
|
| 975 | 975 |
} |
| ... | ... | |
| 981 | 981 |
invoice_links(); |
| 982 | 982 |
prepare_invoice(); |
| 983 | 983 |
relink_accounts(); |
| 984 |
|
|
| 984 |
|
|
| 985 |
# saving the history |
|
| 986 |
if(!exists $form->{addition} && $form->{id} ne "") {
|
|
| 987 |
$form->{snumbers} = qq|invnumber_| . $form->{invnumber};
|
|
| 988 |
$form->{addition} = "CANCELED";
|
|
| 989 |
$form->save_history($form->dbconnect(\%myconfig)); |
|
| 990 |
} |
|
| 991 |
# /saving the history |
|
| 992 |
|
|
| 985 | 993 |
$form->{storno_id} = $form->{id};
|
| 986 | 994 |
$form->{storno} = 1;
|
| 987 | 995 |
$form->{id} = "";
|
| 988 | 996 |
$form->{invnumber} = "Storno zu " . $form->{invnumber};
|
| 989 |
|
|
| 997 |
$form->{rowcount}++;
|
|
| 990 | 998 |
&post(); |
| 991 | 999 |
$lxdebug->leave_sub(); |
| 992 | 1000 |
|
Auch abrufbar als: Unified diff
history für stornierte Buchungne eingefügt und rowcount hochgesetzt, damit die Stornierung in post() funktioniert