Revision 6fb26f9a
Von Tamino Steinert vor etwa 2 Jahren hinzugefügt
| SL/DB/Invoice.pm | ||
|---|---|---|
| 137 | 137 |
return $self->paid >= $self->amount; |
| 138 | 138 |
} |
| 139 | 139 |
|
| 140 |
sub convert_to_reclamation {
|
|
| 141 |
my ($self, %params) = @_; |
|
| 142 |
$params{destination_type} = $self->is_sales ? 'sales_reclamation'
|
|
| 143 |
: 'purchase_reclamation'; |
|
| 144 |
|
|
| 145 |
require SL::DB::Reclamation; |
|
| 146 |
my $reclamation = SL::DB::Reclamation->new_from($self, %params); |
|
| 147 |
|
|
| 148 |
return $reclamation; |
|
| 149 |
} |
|
| 150 |
|
|
| 140 | 151 |
sub _clone_orderitem_delivery_order_item_cvar {
|
| 141 | 152 |
my ($cvar) = @_; |
| 142 | 153 |
|
Auch abrufbar als: Unified diff
Workflow: (sales/purchase) invoice → reclamation