Revision 3740b503
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| bin/mozilla/ir.pl | ||
|---|---|---|
|
invoice_links();
|
||
|
prepare_invoice();
|
||
|
relink_accounts();
|
||
|
|
||
|
# Payments must not be recorded for the new storno invoice.
|
||
|
$form->{paidaccounts} = 0;
|
||
|
map { my $key = $_; delete $form->{$key} if grep { $key =~ /^$_/ } qw(datepaid_ source_ memo_ paid_ exchangerate_ AR_paid_) } keys %{ $form };
|
||
|
|
||
|
# saving the history
|
||
|
if(!exists $form->{addition} && $form->{id} ne "") {
|
||
| bin/mozilla/is.pl | ||
|---|---|---|
|
}
|
||
|
|
||
|
map({ my $key = $_; delete($form->{$key})
|
||
|
unless (grep({ $key eq $_ } qw(login password id type))); }
|
||
|
unless (grep({ $key eq $_ } qw(login password id stylesheet type))); }
|
||
|
keys(%{ $form }));
|
||
|
|
||
|
&invoice_links;
|
||
|
&prepare_invoice;
|
||
|
invoice_links();
|
||
|
prepare_invoice();
|
||
|
relink_accounts();
|
||
|
|
||
|
# Payments must not be recorded for the new storno invoice.
|
||
|
$form->{paidaccounts} = 0;
|
||
|
map { my $key = $_; delete $form->{$key} if grep { $key =~ /^$_/ } qw(datepaid_ source_ memo_ paid_ exchangerate_ AR_paid_) } keys %{ $form };
|
||
|
|
||
|
$form->{storno_id} = $form->{id};
|
||
|
$form->{storno} = 1;
|
||
|
$form->{id} = "";
|
||
|
$form->{invnumber} = "Storno zu " . $form->{invnumber};
|
||
|
$form->{rowcount}++;
|
||
|
|
||
|
&post();
|
||
|
post();
|
||
|
$lxdebug->leave_sub();
|
||
|
|
||
|
}
|
||
|
|
||
|
sub preview {
|
||
Auch abrufbar als: Unified diff
Beim Stornieren von Einkaufs- und Verkaufsrechnungen dürfen die bisherigen Zahlungsaus- und -eingänge nicht auch in der neuen Stornorechnung verzeichnet werden. Zusätzlich dafür gesorgt, dass beim Stornieren von Verkaufsrechnungen nicht noch einmal die Maske erscheint, bevor storniert wird, wenn die Rechnung nur eine Position umfasst.