X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDB%2FOrder.pm;h=48e2be6648544996e11819a57a2f3a0f41bf7d28;hb=a34c05f386bc2abb45a097dcb4d68e8ab2f5af94;hp=309b5061f591968333769d991f42e93d3bae417d;hpb=82515b2d93dc5632f24d6e0b6f8f05f3fd19fbb0;p=kivitendo-erp.git diff --git a/SL/DB/Order.pm b/SL/DB/Order.pm index 309b5061f..48e2be664 100644 --- a/SL/DB/Order.pm +++ b/SL/DB/Order.pm @@ -1,15 +1,22 @@ package SL::DB::Order; +use utf8; use strict; -use SL::RecordLinks; +use Carp; +use DateTime; +use List::Util qw(max); use SL::DB::MetaSetup::Order; use SL::DB::Manager::Order; -use SL::DB::Invoice; - -__PACKAGE__->attr_number($_, places => -2) for qw(amount netamount marge_total marge_percent); -__PACKAGE__->attr_date($_) for qw(transdate reqdate); +use SL::DB::Helper::AttrHTML; +use SL::DB::Helper::FlattenToForm; +use SL::DB::Helper::LinkedRecords; +use SL::DB::Helper::PriceTaxCalculator; +use SL::DB::Helper::PriceUpdater; +use SL::DB::Helper::TransNumberGenerator; +use SL::RecordLinks; +use Rose::DB::Object::Helpers qw(as_tree); __PACKAGE__->meta->add_relationship( orderitems => { @@ -19,13 +26,52 @@ __PACKAGE__->meta->add_relationship( manager_args => { with_objects => [ 'part' ] } - } + }, + periodic_invoices_config => { + type => 'one to one', + class => 'SL::DB::PeriodicInvoicesConfig', + column_map => { id => 'oe_id' }, + }, + custom_shipto => { + type => 'one to one', + class => 'SL::DB::Shipto', + column_map => { id => 'trans_id' }, + query_args => [ module => 'OE' ], + }, ); __PACKAGE__->meta->initialize; +__PACKAGE__->attr_html('notes'); + +__PACKAGE__->before_save('_before_save_set_ord_quo_number'); + +# hooks + +sub _before_save_set_ord_quo_number { + my ($self) = @_; + + # ordnumber is 'NOT NULL'. Therefore make sure it's always set to at + # least an empty string, even if we're saving a quotation. + $self->ordnumber('') if !$self->ordnumber; + + my $field = $self->quotation ? 'quonumber' : 'ordnumber'; + $self->create_trans_number if !$self->$field; + + return 1; +} + # methods +sub items { goto &orderitems; } +sub add_items { goto &add_orderitems; } + +sub items_sorted { + my ($self) = @_; + + return [ sort {$a->position <=> $b->position } @{ $self->items } ]; +} + sub type { my $self = shift; @@ -41,6 +87,23 @@ sub is_type { return shift->type eq shift; } +sub displayable_type { + my $type = shift->type; + + return $::locale->text('Sales quotation') if $type eq 'sales_quotation'; + return $::locale->text('Request quotation') if $type eq 'request_quotation'; + return $::locale->text('Sales Order') if $type eq 'sales_order'; + return $::locale->text('Purchase Order') if $type eq 'purchase_order'; + + die 'invalid type'; +} + + +sub is_sales { + croak 'not an accessor' if @_ > 1; + return !!shift->customer_id; +} + sub invoices { my $self = shift; my %params = @_; @@ -48,6 +111,7 @@ sub invoices { if ($self->quotation) { return []; } else { + require SL::DB::Invoice; return SL::DB::Manager::Invoice->get_all( query => [ ordnumber => $self->ordnumber, @@ -57,6 +121,12 @@ sub invoices { } } +sub displayable_state { + my ($self) = @_; + + return $self->closed ? $::locale->text('closed') : $::locale->text('open'); +} + sub abschlag_invoices { return shift()->invoices(query => [ abschlag => 1 ]); } @@ -65,6 +135,65 @@ sub end_invoice { return shift()->invoices(query => [ abschlag => 0 ]); } +sub convert_to_invoice { + my ($self, %params) = @_; + + croak("Conversion to invoices is only supported for sales records") unless $self->customer_id; + + my $invoice; + if (!$self->db->with_transaction(sub { + require SL::DB::Invoice; + $invoice = SL::DB::Invoice->new_from($self)->post(%params) || die; + $self->link_to_record($invoice); + $self->update_attributes(closed => 1); + 1; + })) { + return undef; + } + + return $invoice; +} + +sub convert_to_delivery_order { + my ($self, @args) = @_; + + my ($delivery_order, $custom_shipto); + if (!$self->db->with_transaction(sub { + require SL::DB::DeliveryOrder; + ($delivery_order, $custom_shipto) = SL::DB::DeliveryOrder->new_from($self, @args); + $delivery_order->save; + $custom_shipto->save if $custom_shipto; + $self->link_to_record($delivery_order); + $self->update_attributes(delivered => 1); + 1; + })) { + return wantarray ? () : undef; + } + + return wantarray ? ($delivery_order, $custom_shipto) : $delivery_order; +} + +sub number { + my $self = shift; + + my %number_method = ( + sales_order => 'ordnumber', + sales_quotation => 'quonumber', + purchase_order => 'ordnumber', + request_quotation => 'quonumber', + ); + + return $self->${ \ $number_method{$self->type} }(@_); +} + +sub customervendor { + $_[0]->is_sales ? $_[0]->customer : $_[0]->vendor; +} + +sub date { + goto &transdate; +} + 1; __END__ @@ -75,13 +204,13 @@ SL::DB::Order - Order Datenbank Objekt. =head1 FUNCTIONS -=head2 type +=head2 C Returns one of the following string types: =over 4 -=item saes_order +=item sales_order =item purchase_order @@ -91,9 +220,56 @@ Returns one of the following string types: =back -=head2 is_type TYPE +=head2 C + +Returns true if the order is of the given type. + +=head2 C + +Creates a new delivery order with C<$self> as the basis by calling +L. That delivery order is saved, and +C<$self> is linked to the new invoice via +L. C<$self>'s C attribute is set to +C, and C<$self> is saved. + +The arguments in C<%params> are passed to +L. + +Returns C on failure. Otherwise the return value depends on the +context. In list context the new delivery order 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. + +=head2 C + +Creates a new invoice with C<$self> as the basis by calling +L. That invoice is posted, and C<$self> is +linked to the new invoice via L. C<$self>'s +C attribute is set to C, and C<$self> is saved. + +The arguments in C<%params> are passed to L. + +Returns the new invoice instance on success and C on +failure. The whole process is run inside a transaction. On failure +nothing is created or changed in the database. + +At the moment only sales quotations and sales orders can be converted. + +=head2 C + +Creates and saves a new sales process. Can only be called for sales +orders. + +The newly created process will be linked bidirectionally to both +C<$self> and to all sales quotations that are linked to C<$self>. -Rreturns true if the order is of the given type. +Returns the newly created process instance. =head1 BUGS @@ -101,6 +277,6 @@ Nothing here yet. =head1 AUTHOR - Sven Schöling +Sven Schöling =cut