Revision a6485c58
Von Bernd Bleßmann vor etwa 4 Jahren hinzugefügt
| SL/DB/Order.pm | ||
|---|---|---|
| 139 | 139 |
} |
| 140 | 140 |
|
| 141 | 141 |
sub deliverydate {
|
| 142 |
# oe doesn't have deliverydate, but PTC checks for deliverydate or transdate to determine tax |
|
| 143 |
# oe can't deal with deviating tax rates, but at least make sure PTC doesn't barf |
|
| 144 |
return shift->transdate; |
|
| 142 |
# oe doesn't have deliverydate, but it does have reqdate. |
|
| 143 |
# But this has a different meaning for sales quotations. |
|
| 144 |
# deliverydate can be used to determine tax if tax_point isn't set. |
|
| 145 |
|
|
| 146 |
return $_[0]->reqdate if $_[0]->type ne 'sales_quotation'; |
|
| 145 | 147 |
} |
| 146 | 148 |
|
| 147 | 149 |
sub effective_tax_point {
|
| 148 | 150 |
my ($self) = @_; |
| 149 | 151 |
|
| 150 |
return $self->tax_point || $self->transdate; |
|
| 152 |
return $self->tax_point || $self->deliverydate || $self->transdate;
|
|
| 151 | 153 |
} |
| 152 | 154 |
|
| 153 | 155 |
sub displayable_type {
|
| SL/IC.pm | ||
|---|---|---|
| 744 | 744 |
# also use deliverydate for credit notes |
| 745 | 745 |
$transdate = $form->{tax_point} || $form->{deliverydate} || $form->{invdate};
|
| 746 | 746 |
} else {
|
| 747 |
$transdate = $form->{tax_point} || $form->{transdate};
|
|
| 747 |
my $deliverydate; |
|
| 748 |
$deliverydate = $form->{reqdate} if any { $_ eq $form->{type} } qw(sales_order request_quotation purchase_order);
|
|
| 749 |
$transdate = $form->{tax_point} || $deliverydate || $form->{transdate};
|
|
| 748 | 750 |
} |
| 749 | 751 |
|
| 750 | 752 |
if ($transdate eq "") {
|
Auch abrufbar als: Unified diff
Preisanfrage/Aufträge: dort, wo es ein Liefertermin gibt, diesen f. Steuer nehmen