Revision 3b21dee3
Von G. Richardson vor fast 15 Jahren hinzugefügt
| bin/mozilla/is.pl | ||
|---|---|---|
| 860 | 860 |
my %myconfig = %main::myconfig; |
| 861 | 861 |
my $locale = $main::locale; |
| 862 | 862 |
|
| 863 |
open(FH, ">/tmp/lx.dump"); |
|
| 864 |
print FH Dumper($form); |
|
| 865 |
close FH; |
|
| 863 | 866 |
$main::auth->assert('invoice_edit');
|
| 864 | 867 |
|
| 865 | 868 |
$form->{transdate} = $form->{invdate} = $form->current_date(\%myconfig);
|
| ... | ... | |
| 898 | 901 |
|
| 899 | 902 |
$form->{creditremaining} -= ($form->{oldinvtotal} - $form->{ordtotal});
|
| 900 | 903 |
|
| 904 |
# bei Gutschriften werden Zahlungseingänge aus Rechnung nicht übernommen |
|
| 905 |
for my $i (1 .. $form->{paidaccounts}) {
|
|
| 906 |
delete $form->{"paid_$i"};
|
|
| 907 |
delete $form->{"source_$i"};
|
|
| 908 |
delete $form->{"memo_$i"};
|
|
| 909 |
delete $form->{"datepaid_$i"};
|
|
| 910 |
delete $form->{"AR_paid_$i"};
|
|
| 911 |
}; |
|
| 912 |
$form->{paidaccounts} = 1;
|
|
| 913 |
|
|
| 901 | 914 |
&prepare_invoice; |
| 902 | 915 |
|
| 903 | 916 |
|
Auch abrufbar als: Unified diff
Bug 1181: bei Gutschriften werden Zahlungseingänge aus Rechnung nicht übernommen