Revision 6fb26f9a
Von Tamino Steinert vor etwa 2 Jahren hinzugefügt
| SL/DB/PurchaseInvoice.pm | ||
|---|---|---|
| 124 | 124 |
join ' ', grep $_, map $_[0]->$_, qw(displayable_type record_number); |
| 125 | 125 |
}; |
| 126 | 126 |
|
| 127 |
sub convert_to_reclamation {
|
|
| 128 |
my ($self, %params) = @_; |
|
| 129 |
$params{destination_type} = $self->is_sales ? 'sales_reclamation'
|
|
| 130 |
: 'purchase_reclamation'; |
|
| 131 |
|
|
| 132 |
require SL::DB::Reclamation; |
|
| 133 |
my $reclamation = SL::DB::Reclamation->new_from($self, %params); |
|
| 134 |
|
|
| 135 |
return $reclamation; |
|
| 136 |
} |
|
| 137 |
|
|
| 127 | 138 |
sub create_ap_row {
|
| 128 | 139 |
my ($self, %params) = @_; |
| 129 | 140 |
# needs chart as param |
Auch abrufbar als: Unified diff
Workflow: (sales/purchase) invoice → reclamation