Revision bb6ab1cd
Von Tamino Steinert vor mehr als 2 Jahren hinzugefügt
| SL/DB/ReclamationItem.pm | ||
|---|---|---|
|
use strict;
|
||
|
|
||
|
use List::MoreUtils qw(any);
|
||
|
use Rose::DB::Object::Helpers qw(as_tree strip);
|
||
|
|
||
|
use SL::DB::MetaSetup::ReclamationItem;
|
||
|
use SL::DB::Manager::ReclamationItem;
|
||
| ... | ... | |
|
|
||
|
my $item = $class->new(%item_args);
|
||
|
|
||
|
if ( $source->record->is_sales() && ($parent_type =~ m{sales}) ) {
|
||
|
if ( $source->record->is_sales() && ($parent_type =~ m{purchase}) ) {
|
||
|
$item->sellprice($source->lastcost);
|
||
|
$item->discount(0);
|
||
|
}
|
||
|
if ( !$source->record->is_sales() && ($parent_type =~ m{purchase}) ) {
|
||
|
if ( !$source->record->is_sales() && ($parent_type =~ m{sales}) ) {
|
||
|
$item->lastcost($source->sellprice);
|
||
|
}
|
||
|
|
||
Auch abrufbar als: Unified diff
Reclamation: Test for workflow (reclamation, order, delivery_order)