X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDB%2FDeliveryOrder.pm;h=75eab64b0f6ff392aca394311a38a03f937ba163;hb=f4de41a247f7d78958d9c6e7fb21d5480ba741c6;hp=9c860bf7e6c7f69c96b1420e4992836b2a5c55b3;hpb=24127d6f50fadaafaf676423cfab04556271db89;p=kivitendo-erp.git diff --git a/SL/DB/DeliveryOrder.pm b/SL/DB/DeliveryOrder.pm index 9c860bf7e..75eab64b0 100644 --- a/SL/DB/DeliveryOrder.pm +++ b/SL/DB/DeliveryOrder.pm @@ -2,39 +2,61 @@ package SL::DB::DeliveryOrder; use strict; +use Carp; + +use Rose::DB::Object::Helpers (); + use SL::DB::MetaSetup::DeliveryOrder; use SL::DB::Manager::DeliveryOrder; +use SL::DB::Helper::FlattenToForm; use SL::DB::Helper::LinkedRecords; use SL::DB::Helper::TransNumberGenerator; -use SL::DB::Order; use List::Util qw(first); __PACKAGE__->meta->add_relationship(orderitems => { type => 'one to many', class => 'SL::DB::DeliveryOrderItem', column_map => { id => 'delivery_order_id' }, - manager_args => { with_objects => [ 'parts' ] } - }, - shipto => { type => 'one to one', - class => 'SL::DB::Shipto', - column_map => { shipto_id => 'shipto_id' }, - }, - department => { type => 'one to one', - class => 'SL::DB::Department', - column_map => { department_id => 'id' }, + manager_args => { with_objects => [ 'part' ] } }, + custom_shipto => { + type => 'one to one', + class => 'SL::DB::Shipto', + column_map => { id => 'trans_id' }, + query_args => [ module => 'DO' ], + }, ); __PACKAGE__->meta->initialize; +__PACKAGE__->before_save('_before_save_set_donumber'); + +# hooks + +sub _before_save_set_donumber { + my ($self) = @_; + + $self->create_trans_number if !$self->donumber; + + return 1; +} + # methods sub items { goto &orderitems; } +sub items_sorted { + my ($self) = @_; + + return [ sort {$a->id <=> $b->id } @{ $self->items } ]; +} + sub sales_order { my $self = shift; my %params = @_; + + require SL::DB::Order; my $orders = SL::DB::Manager::Order->get_all( query => [ ordnumber => $self->ordnumber, @@ -57,4 +79,193 @@ sub displayable_state { ($self->delivered ? $::locale->text('delivered') : $::locale->text('not delivered')); } +sub date { + goto &transdate; +} + +sub _clone_orderitem_cvar { + my ($cvar) = @_; + + my $cloned = Rose::DB::Object::Helpers::clone_and_reset($_); + $cloned->sub_module('delivery_order_items'); + + return $cloned; +} + +sub new_from { + my ($class, $source, %params) = @_; + + croak("Unsupported source object type '" . ref($source) . "'") unless ref($source) eq 'SL::DB::Order'; + + my ($item_parent_id_column, $item_parent_column); + + if (ref($source) eq 'SL::DB::Order') { + $item_parent_id_column = 'trans_id'; + $item_parent_column = 'order'; + } + + my $terms = $source->can('payment_id') && $source->payment_id ? $source->payment_terms->terms_netto : 0; + + my %args = ( map({ ( $_ => $source->$_ ) } qw(cp_id currency_id customer_id cusordnumber department_id employee_id globalproject_id intnotes language_id notes + ordnumber reqdate salesman_id shippingpoint shipvia taxincluded taxzone_id transaction_description vendor_id + )), + closed => 0, + is_sales => !!$source->customer_id, + delivered => 0, + terms => $terms, + transdate => DateTime->today_local, + ); + + # Custom shipto addresses (the ones specific to the sales/purchase + # record and not to the customer/vendor) are only linked from + # shipto -> delivery_orders. Meaning delivery_orders.shipto_id + # will not be filled in that case. Therefore we have to return the + # new shipto object as a separate object so that the caller can + # save it, too. + my $custom_shipto; + if (!$source->shipto_id && $source->id) { + my $old = $source->custom_shipto; + if ($old) { + $custom_shipto = SL::DB::Shipto->new( + map { +($_ => $old->$_) } + grep { !m{^ (?: itime | mtime | shipto_id | trans_id ) $}x } + map { $_->name } + @{ $old->meta->columns } + ); + $custom_shipto->module('DO'); + } + + } else { + $args{shipto_id} = $source->shipto_id; + } + + my $delivery_order = $class->new(%args, %{ $params{attributes} || {} }); + my $items = delete($params{items}) || $source->items_sorted; + my %item_parents; + + my @items = map { + my $source_item = $_; + my $source_item_id = $_->$item_parent_id_column; + my @custom_variables = map { _clone_orderitem_cvar($_) } @{ $source_item->custom_variables }; + + $item_parents{$source_item_id} ||= $source_item->$item_parent_column; + my $item_parent = $item_parents{$source_item_id}; + + SL::DB::DeliveryOrderItem->new(map({ ( $_ => $source_item->$_ ) } + qw(base_qty cusordnumber description discount lastcost longdescription marge_price_factor parts_id price_factor price_factor_id + project_id qty reqdate sellprice serialnumber transdate unit + )), + custom_variables => \@custom_variables, + ordnumber => ref($item_parent) eq 'SL::DB::Order' ? $item_parent->ordnumber : $source_item->ordnumber, + ); + + } @{ $items }; + + @items = grep { $_->qty * 1 } @items if $params{skip_items_zero_qty}; + + $delivery_order->items(\@items); + + return ($delivery_order, $custom_shipto); +} + 1; +__END__ + +=pod + +=encoding utf8 + +=head1 NAME + +SL::DB::DeliveryOrder - Rose model for delivery orders (table +"delivery_orders") + +=head1 FUNCTIONS + +=over 4 + +=item C + +An alias for C for compatibility with other sales/purchase models. + +=item C + +Returns a human-readable description of the state regarding being +closed and delivered. + +=item C + +An alias for C for compatibility with other +sales/purchase models. + +=item C + +Returns the delivery order items sorted by their ID (same order they +appear in the frontend delivery order masks). + +=item C + +Creates a new C instance and copies as much +information from C<$source> as possible. At the moment only instances +of C (sales quotations, sales orders, requests for +quotations and purchase orders) are supported as sources. + +The conversion copies order items into delivery order items. Dates are copied +as appropriate, e.g. the C field will be set to the current date. + +Returns one or two objects depending on the context. In list context +the new delivery order instance and a shipto instance will be +returned. In scalar instance only the delivery order instance is +returned. + +Custom shipto addresses (the ones specific to the sales/purchase +record and not to the customer/vendor) are only linked from C +to C. Meaning C will not +be filled in that case. That's why a separate shipto object is created +and returned. + +The objects returned are not saved. + +C<%params> can include the following options: + +=over 2 + +=item C + +An optional array reference of RDBO instances for the items to use. If +missing then the method C will be called on +C<$source>. This option can be used to override the sorting, to +exclude certain positions or to add additional ones. + +=item C + +If trueish then items with a quantity of 0 are skipped. + +=item C + +An optional hash reference. If it exists then it is passed to C +allowing the caller to set certain attributes for the new delivery +order. + +=back + +=item C + +TODO: Describe sales_order + +=item C + +Returns a stringdescribing this record's type: either +C or C. + +=back + +=head1 BUGS + +Nothing here yet. + +=head1 AUTHOR + +Moritz Bunkus Em.bunkus@linet-services.deE + +=cut