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} = $::form->{from_id};

  $self->order($order);

  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 $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);

  require SL::DB::PurchaseInvoice;

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

  $invoice->{type} = $invoice->invoice_type; #can't add type → invoice_type in SL/DB/PurchaseInvoice

  $self->reclamation($reclamation);

}

sub new_from_workflow {

  $flags{destination_type} = $target_subtype;

  my %defaults_flags = (

  );

  %flags = (%defaults_flags, %flags);

  my $target_object = ${target_type}->new_from($source_object, %flags);

  return $target_object;

}

sub new_from_workflow_multi {

  my $target_object = ${target_type}->new_from_multi($source_objects, %flags);

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

  # return: nichts

  # fehler: exception

=item C<new_from_workflow>

Throws an error if the target_type doesn't exist.

=item C<new_from_workflow_multi>

Returns the new record object.

use Data::Dumper;

use Support::TestSetup;

use Test::Exception;

use SL::DB::PaymentTerm;

use SL::DB::DeliveryTerm;

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

)->load;

# new

# 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;