Revision f087c373
Von Jan Büren vor mehr als 10 Jahren hinzugefügt
| bin/mozilla/ir.pl | ||
|---|---|---|
|
# Payments must not be recorded for the new storno invoice.
|
||
|
$form->{paidaccounts} = 0;
|
||
|
map { my $key = $_; delete $form->{$key} if grep { $key =~ /^$_/ } qw(datepaid_ gldate_ acc_trans_id_ source_ memo_ paid_ exchangerate_ AR_paid_) } keys %{ $form };
|
||
|
# set new ids for storno invoice
|
||
|
delete $form->{"invoice_id_$_"} for 1 .. $form->{"rowcount"};
|
||
|
|
||
|
# saving the history
|
||
|
if(!exists $form->{addition} && $form->{id} ne "") {
|
||
| ... | ... | |
|
$form->{paidaccounts} = 1;
|
||
|
$form->{rowcount}--;
|
||
|
$form->{invdate} = $form->current_date(\%myconfig);
|
||
|
delete $form->{"invoice_id_$_"} for 1 .. $form->{"rowcount"};
|
||
|
&display_form;
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
Auch abrufbar als: Unified diff
persistente ids für invoice (items)
analog zu do, oe auch die verknüpften items für rechnungen persistent machen.
- invoice_id retrieve_invoice in array übernehmen
- invoice_pos entfernt (war ggf. vor 2006 ähnlich vorgesehen)
- reverse_invoice gekürzt, sodass hier keine invoice gelöscht werden
- delete_invoice erweitert, sodass hier invoice gelöscht wird
- ferner code von IS.pm nach IR.pm portiert (queries in array)
- use_as_new invoice_ids löschen
- ferner bei storno invoice_ids löschen und ...
- bei Verkaufsrechnung Gutschrift
Ferner Kommentare (IR.pm) eingerückt
tests:
Verkaufsrechnung:
gesamten beleg löschen i.O.
update i.O.
als neu speichern i.O.
mittlere position löschen i.O.
Storno i.O.
Gutschrift i.O.
Einkaufsrechnung:
als neu speichern i.O.
Zahlung buchen i.O.
mittlere position löschen i.O.
gesamten beleg löschen i.O.
Storno i.O.
keine Gutschrift möglich