Revision 7be3a773
Von Bernd Bleßmann vor fast 3 Jahren hinzugefügt
SL/IS.pm | ||
---|---|---|
35 | 35 |
|
36 | 36 |
package IS; |
37 | 37 |
|
38 |
use List::Util qw(max); |
|
38 |
use List::Util qw(max sum0);
|
|
39 | 39 |
|
40 | 40 |
use Carp; |
41 | 41 |
use SL::AM; |
... | ... | |
176 | 176 |
|
177 | 177 |
my @payment_arrays = qw(payment paymentaccount paymentdate paymentsource paymentmemo); |
178 | 178 |
|
179 |
map { $form->{TEMPLATE_ARRAYS}->{$_} = [] } (@arrays, @tax_arrays, @payment_arrays, @prepared_arrays); |
|
179 |
my @invoices_for_advance_payment_arrays = qw(iap_invnumber iap_transdate ifip_amount iap_taxamount); |
|
180 |
|
|
181 |
map { $form->{TEMPLATE_ARRAYS}->{$_} = [] } (@arrays, @tax_arrays, @payment_arrays, @prepared_arrays, @invoices_for_advance_payment_arrays); |
|
180 | 182 |
|
181 | 183 |
my $totalweight = 0; |
182 | 184 |
foreach $item (sort { $a->[1] cmp $b->[1] } @partsgroup) { |
... | ... | |
575 | 577 |
$form->{username} = $myconfig->{name}; |
576 | 578 |
$form->{$_} = $form->format_amount($myconfig, $form->{$_}, 2) for @separate_totals; |
577 | 579 |
|
580 |
foreach my $invoice_for_advance_payment (@{$self->_get_invoices_for_advance_payment($form->{convert_from_ar_ids} || $form->{id})}) { |
|
581 |
my %pat = $invoice_for_advance_payment->calculate_prices_and_taxes; |
|
582 |
my $taxamount = sum0 values %{ $pat{taxes_by_tax_id} }; |
|
583 |
|
|
584 |
push(@{ $form->{TEMPLATE_ARRAYS}->{"iap_$_"} }, $invoice_for_advance_payment->$_) for qw(invnumber transdate); |
|
585 |
push(@{ $form->{TEMPLATE_ARRAYS}->{"iap_amount_nofmt"} }, $invoice_for_advance_payment->amount); |
|
586 |
push(@{ $form->{TEMPLATE_ARRAYS}->{"iap_amount"} }, $invoice_for_advance_payment->amount_as_number); |
|
587 |
push(@{ $form->{TEMPLATE_ARRAYS}->{"iap_taxamount_nofmt"} }, $taxamount); |
|
588 |
push(@{ $form->{TEMPLATE_ARRAYS}->{"iap_taxamount"} }, $form->format_amount($myconfig, $taxamount, 2)); |
|
589 |
|
|
590 |
$form->{iap_amount_nofmt} += $invoice_for_advance_payment->amount; |
|
591 |
$form->{iap_taxamount_nofmt} += $taxamount; |
|
592 |
$form->{iap_existing} = 1; |
|
593 |
} |
|
594 |
$form->{iap_amount} = $form->format_amount($myconfig, $form->{iap_amount_nofmt}, 2); |
|
595 |
$form->{iap_taxamount} = $form->format_amount($myconfig, $form->{iap_taxamount_nofmt}, 2); |
|
596 |
|
|
578 | 597 |
$main::lxdebug->leave_sub(); |
579 | 598 |
} |
580 | 599 |
|
Auch abrufbar als: Unified diff
Anzahlungs-Rg.: Nummern, Summen und Steuern für Schlussrechnungsdruck