projekt kivitendo

  my $order = SL::DB::Order->new(id => $self->{converted_from_oe_id})->load;

  my $target_type = $::form->{type};

  $self->order($delivery_order);

  $self->action_add;

  my $reclamation = SL::DB::Reclamation->new(id => $::form->{from_id})->load;

  my $target_type = $reclamation->is_sales ? 'rma_delivery_order'

                                           : 'supplier_delivery_order';

  $self->{converted_from_reclamation_id} = $::form->{from_id};

  $self->order($delivery_order);

  my @multi_orders = map { SL::DB::DeliveryOrder->new(id => $_)->load } @multi_ids;

  $self->{converted_from_oe_id} = join ' ', map { $_->id } @multi_orders;

  my $target_type = SALES_DELIVERY_ORDER_TYPE();

  $self->order($delivery_order);

  $self->action_edit();

  # always save

  $self->save();

  $self->order($delivery_order);

  $self->{converted_from_oe_id} = delete $::form->{id};

  # always save

  $self->save();

  $self->order($delivery_order);

  $self->{converted_from_oe_id} = delete $::form->{id};

  my %params;

  my $target_type = $reclamation->is_sales ? SALES_ORDER_TYPE()

                                           : PURCHASE_ORDER_TYPE();

  $self->{converted_from_reclamation_id}       = $order->{ RECORD_ID()      };

  $_   ->{converted_from_reclamation_items_id} = $_    ->{ RECORD_ITEM_ID() } for @{ $order->items_sorted };

  my @multi_orders = map { SL::DB::Order->new(id => $_)->load } @multi_ids;

  $self->{converted_from_oe_id} = join ' ', map { $_->id } @multi_orders;

  my $target_type = "sales_order";

  $self->order($order);

  $self->action_edit();

  my $no_linked_records =    (any { $destination_type eq $_ } (SALES_QUOTATION_TYPE(), REQUEST_QUOTATION_TYPE()))

                          && $from_side eq $to_side;

  delete $::form->{id};

  }

  my $order = SL::DB::Order->new(id => $::form->{from_id})->load;

  $self->reclamation($reclamation);

  }

  my $delivery_order = SL::DB::DeliveryOrder->new(id => $::form->{from_id})->load;

  $self->reclamation($reclamation);

  }

  my $invoice = SL::DB::Invoice->new(id => $::form->{from_id})->load;

  $self->reclamation($reclamation);

use SL::DB::Order::TypeData qw(:types);

use SL::DB::DeliveryOrder::TypeData qw(:types);

use SL::DB::Reclamation::TypeData qw(:types);

use SL::Util qw(trim);

use SL::Locale::String qw(t8);

}

sub new_from_workflow {

  my %defaults_flags = (

    no_linked_records => 0,

  );

  %flags = (%defaults_flags, %flags);

  return $target_object;

}

sub new_from_workflow_multi {

  return $target_object;

}

  $new_attrs{employee}  = SL::DB::Manager::Employee->current;

  return $new_record;

}

This module contains shared behaviour among the main record object types. A given record needs to be already parsed into a Rose object.

All records are treated agnostically and the underlying class needs to implement a type_data call to query for differing behaviour.

=over 4

=item C<new_from_workflow>

Set default flag no_link_record to false.

Throws an error if the target_type doesn't exist.

=item C<new_from_workflow_multi>

Creates a new record object from one or more source objects.

Returns the new record object.

note "testing new_from_workflow for quotation";

  # TODO: invoice

  is($new_record->closed, 0, "new quotation is open");

  # in the future closing sales quotations should probably happen as an after-save hook of orders,

  SL::Model::Record->save($new_record, objects_to_close => [ $sales_quotation1 ]);

  $new_record->load;

  # test whether quotations get closed when sales_order is created

    $sales_quotation1->load;

    is($sales_quotation1->closed, 1, "quotation is closed after creating an order");

  }

  my $record_history = SL::DB::Manager::History->find_by(trans_id => $new_record->id, addition => 'SAVED');

  ok($record_history->snumbers =~ m/_/, "history snumbers of record " . $record_history->snumbers . " ok");

};

note "testing new_from_workflow for order";

  # TODO: invoice

  if ( 'SL::DB::Reclamation' eq ref($new_record) ) {

    $_->reason($reclamation_reason) foreach @{ $new_record->items };

  };

  SL::Model::Record->save($new_record);

  $new_record->load;

  ok($record_history->snumbers =~ m/_/, "history snumbers of record " . $record_history->snumbers . " ok");

};

note ('testing multi');

note('combining several sales orders to one combined order');

my @sales_orders;

SL::Model::Record->save($combined_order);

cmp_ok($combined_order->netamount, '==', 3*710, "netamount of combined order ok");

)->load;

# convert order → reclamation

$converted_sales_reclamation->items_sorted->[0]->reason($reclamation_reason);

$converted_sales_reclamation->items_sorted->[1]->reason($reclamation_reason);

$converted_sales_reclamation->save->load;

$converted_purchase_reclamation->items_sorted->[0]->reason($reclamation_reason);

$converted_purchase_reclamation->items_sorted->[1]->reason($reclamation_reason);

$converted_purchase_reclamation->save->load;

# convert reclamation → order

#get items before strip

)->load;

# convert invoice → reclamation

$converted_sales_reclamation->items_sorted->[0]->reason($reclamation_reason);

$converted_sales_reclamation->items_sorted->[1]->reason($reclamation_reason);

$converted_sales_reclamation->save->load;

$converted_purchase_reclamation->items_sorted->[0]->reason($reclamation_reason);

$converted_purchase_reclamation->items_sorted->[1]->reason($reclamation_reason);

$converted_purchase_reclamation->save->load;

)->load;

# convert order → reclamation

$converted_sales_reclamation->items_sorted->[0]->reason($reclamation_reason);

$converted_sales_reclamation->items_sorted->[1]->reason($reclamation_reason);

$converted_sales_reclamation->save->load;

$converted_purchase_reclamation->items_sorted->[0]->reason($reclamation_reason);

$converted_purchase_reclamation->items_sorted->[1]->reason($reclamation_reason);

$converted_purchase_reclamation->save->load;

# convert reclamation → order

#get items before strip

# new

my $new_sales_reclamation = SL::Model::Record->new_from_workflow($sales_reclamation, 'SL::DB::Reclamation', 'sales_reclamation')->save->load;

# convert

$converted_purchase_reclamation->vendor_id($purchase_reclamation->{vendor_id});

$converted_purchase_reclamation->save->load;

$converted_sales_reclamation->customer_id($sales_reclamation->{customer_id});

$converted_sales_reclamation->save->load;