Revision 210ea1a8
Von Jan Büren vor mehr als 8 Jahren hinzugefügt
| bin/mozilla/is.pl | ||
|---|---|---|
| 966 | 966 |
$form->{paidaccounts} = 0;
|
| 967 | 967 |
map { my $key = $_; delete $form->{$key} if grep { $key =~ /^$_/ } qw(datepaid_ gldate_ acc_trans_id_ source_ memo_ paid_ exchangerate_ AR_paid_) } keys %{ $form };
|
| 968 | 968 |
|
| 969 |
# record link invoice to storno |
|
| 970 |
$form->{convert_from_ar_ids} = $form->{id};
|
|
| 969 | 971 |
$form->{storno_id} = $form->{id};
|
| 970 | 972 |
$form->{storno} = 1;
|
| 971 | 973 |
$form->{id} = "";
|
| ... | ... | |
| 973 | 975 |
$form->{invdate} = DateTime->today->to_lxoffice;
|
| 974 | 976 |
$form->{rowcount}++;
|
| 975 | 977 |
# set new ids for storno invoice |
| 976 |
delete $form->{"invoice_id_$_"} for 1 .. $form->{"rowcount"};
|
|
| 978 |
# set new persistent ids for storno invoice items |
|
| 979 |
$form->{"converted_from_invoice_id_$_"} = delete $form->{"invoice_id_$_"} for 1 .. $form->{"rowcount"};
|
|
| 977 | 980 |
|
| 978 | 981 |
post(); |
| 979 | 982 |
$main::lxdebug->leave_sub(); |
Auch abrufbar als: Unified diff
Verkauf Storno-Rechnungen auch verknüpfen
Ähnlich wie bei Gutschriften sollten Stornorechnungen auch mit
der Ursprungsrechnung verknüpft sein. closes #132