Revision 72e545d6
Von Bernd Bleßmann vor fast 3 Jahren hinzugefügt
SL/IS.pm | ||
---|---|---|
578 | 578 |
$form->{username} = $myconfig->{name}; |
579 | 579 |
$form->{$_} = $form->format_amount($myconfig, $form->{$_}, 2) for @separate_totals; |
580 | 580 |
|
581 |
foreach my $invoice_for_advance_payment (@{$self->_get_invoices_for_advance_payment($form->{convert_from_ar_ids} || $form->{id})}) { |
|
581 |
my $id_for_iap = $form->{convert_from_oe_ids} || $form->{convert_from_ar_ids} || $form->{id}; |
|
582 |
my $from_order = !!$form->{convert_from_oe_ids}; |
|
583 |
foreach my $invoice_for_advance_payment (@{$self->_get_invoices_for_advance_payment($id_for_iap, $from_order)}) { |
|
582 | 584 |
# Collect VAT of invoices for advance payment. |
583 | 585 |
# Set sellprices to fxsellprices for items, because |
584 | 586 |
# the PriceTaxCalculator sets fxsellprice from sellprice before calculating. |
... | ... | |
1090 | 1092 |
|
1091 | 1093 |
my $iap_amounts; |
1092 | 1094 |
if ($form->{type} eq 'final_invoice') { |
1093 |
my $invoices_for_advance_payment = $self->_get_invoices_for_advance_payment($form->{convert_from_ar_ids} || $form->{id}); |
|
1095 |
my $id_for_iap = $form->{convert_from_oe_ids} || $form->{convert_from_ar_ids} || $form->{id}; |
|
1096 |
my $from_order = !!$form->{convert_from_oe_ids}; |
|
1097 |
my $invoices_for_advance_payment = $self->_get_invoices_for_advance_payment($id_for_iap, $from_order); |
|
1094 | 1098 |
if (scalar @$invoices_for_advance_payment > 0) { |
1095 | 1099 |
# reverse booking for invoices for advance payment |
1096 | 1100 |
foreach my $invoice_for_advance_payment (@$invoices_for_advance_payment) { |
... | ... | |
1587 | 1591 |
} |
1588 | 1592 |
|
1589 | 1593 |
sub _get_invoices_for_advance_payment { |
1590 |
my ($self, $id) = @_; |
|
1594 |
my ($self, $id, $id_is_from_order) = @_;
|
|
1591 | 1595 |
|
1592 | 1596 |
return [] if !$id; |
1593 | 1597 |
|
1594 |
my $invoice_obj = SL::DB::Invoice->new(id => $id*1)->load; |
|
1595 |
my $links = $invoice_obj->linked_records(direction => 'from', from => ['Invoice'], recursive => 1); |
|
1598 |
# Search all related invoices for advance payment. |
|
1599 |
# Case 1: |
|
1600 |
# (order) -> invoice for adv. payment 1 -> invoice for adv. payment 2 -> invoice for adv. payment 3 -> final invoice |
|
1601 |
# |
|
1602 |
# Case 2: |
|
1603 |
# order -> invoice for adv. payment 1 |
|
1604 |
# | |`-> invoice for adv. payment 2 |
|
1605 |
# | `--> invoice for adv. payment 3 |
|
1606 |
# `----> final invoice |
|
1607 |
# |
|
1608 |
# The id is currently that from the last invoice for adv. payment (3 in this example), |
|
1609 |
# that from the final invoice or that from the order. |
|
1610 |
|
|
1611 |
my $invoice_obj; |
|
1612 |
my $order_obj; |
|
1613 |
my $links; |
|
1614 |
|
|
1615 |
if (!$id_is_from_order) { |
|
1616 |
$invoice_obj = SL::DB::Invoice->load_cached($id*1); |
|
1617 |
$links = $invoice_obj->linked_records(direction => 'from', from => ['Order']); |
|
1618 |
$order_obj = $links->[0]; |
|
1619 |
} else { |
|
1620 |
$order_obj = SL::DB::Order->load_cached($id*1); |
|
1621 |
} |
|
1622 |
|
|
1623 |
if ($order_obj) { |
|
1624 |
$links = $order_obj ->linked_records(direction => 'to', to => ['Invoice']); |
|
1625 |
} else { |
|
1626 |
$links = $invoice_obj->linked_records(direction => 'from', from => ['Invoice'], recursive => 1); |
|
1627 |
} |
|
1628 |
|
|
1596 | 1629 |
my @related_invoices = grep {'SL::DB::Invoice' eq ref $_ && "invoice_for_advance_payment" eq $_->type} @$links; |
1597 | 1630 |
|
1598 |
push @related_invoices, $invoice_obj if "invoice_for_advance_payment" eq $invoice_obj->type; |
|
1631 |
push @related_invoices, $invoice_obj if !$order_obj && "invoice_for_advance_payment" eq $invoice_obj->type;
|
|
1599 | 1632 |
|
1600 | 1633 |
return \@related_invoices; |
1601 | 1634 |
} |
... | ... | |
2109 | 2142 |
|
2110 | 2143 |
# if we delete a final invoice, the reverse bookings for the clearing account in the invoice for advance payment |
2111 | 2144 |
# must be deleted as well |
2112 |
my $invoices_for_advance_payment = $self->_get_invoices_for_advance_payment($form->{convert_from_ar_ids} || $form->{id});
|
|
2145 |
my $invoices_for_advance_payment = $self->_get_invoices_for_advance_payment($form->{id}); |
|
2113 | 2146 |
|
2114 | 2147 |
# Todo: allow only if invoice for advance payment is not paid. |
2115 | 2148 |
# die if any { $_->paid } for @$invoices_for_advance_payment; |
Auch abrufbar als: Unified diff
Anzahlungs-Rg.: Workflow vom Auftrag: alle Anzahlugns-Rg. und Schluss-Rg.
Wird der Workflow vom Auftrag aus begonnen, so werden alle Anzahlungs- und
die Schlussrechnung vom Auftrag aus gemacht.
Der Einstieg über eine Anzahlungs-Rg. und dann der Workflow
"weitere Anzahlungs-Rg." (...) und hieraus Schluss-Rg. bleibt bestehen.