projekt kivitendo

    from_date           => DateTime->new( day => 1,    month => DateTime->today_local->month, year => DateTime->today_local->year)->subtract(months => 1)->to_kivitendo,

    to_date             => DateTime->last_day_of_month(month => DateTime->today_local->month, year => DateTime->today_local->year)->subtract(months => 1)->to_kivitendo,

    customernumbers     => [],

    override_part_id    => undef,

    default_part_id     => undef,

    override_project_id => undef,

    default_project_id  => undef,

    rounding            => 1,

    link_order          => 0,

  if ($self->params->{override_part_id} && !SL::DB::Manager::Part->find_by(id => $self->params->{override_part_id},

                                                                           or => [obsolete => undef, obsolete => 0])) {

    die 'No valid part found by given override part id';

  }

  if ($self->params->{default_part_id} && !SL::DB::Manager::Part->find_by(id => $self->params->{default_part_id},

                                                                           or => [obsolete => undef, obsolete => 0])) {

    die 'No valid part found by given default part id';

  if ($self->params->{override_project_id} && !SL::DB::Manager::Project->find_by(id => $self->params->{override_project_id},

                                                                                 active => 1, valid => 1)) {

    die 'No valid project found by given override project id';

  }

  if ($self->params->{default_project_id} && !SL::DB::Manager::Project->find_by(id => $self->params->{default_project_id},

                                                                                active => 1, valid => 1)) {

    die 'No valid project found by given default project id';

    rounding         => $self->params->{rounding},

    override_part_id => $self->params->{override_part_id},

    default_part_id  => $self->params->{default_part_id},

    override_part_id => $self->params->{override_part_id},

    default_part_id  => $self->params->{default_part_id},

    $project_id   = $self->params->{override_project_id};

    $project_id ||= $self->params->{default_project_id};

  $part_id   = $self->params->{override_part_id};

  $part_id ||= $self->params->{default_part_id};

  if ($tr->project_id && !$self->params->{override_project_id} && $tr->project_id != ($matching_order->globalproject_id || 0)) {

=item C<override_part_id>

The part id of a time based service which should be used to

book the times instead of the parts which are set in the time

recordings.

=item C<default_part_id>

=item C<override_project_id>

Use this project id instead of the project id in the time recordings to find

a related order. This is only used if C<link_order> is true.

=item C<default_project_id>

Use this project id if no project id is set in the time recording

entry. This is only used if C<link_order> is true.

  my $default_part_id  = $params{default_part_id}     ? $params{default_part_id}

                       : $params{default_partnumber}  ? SL::DB::Manager::Part->find_by(partnumber => $params{default_partnumber})->id

                       : undef;

  my $override_part_id = $params{override_part_id}    ? $params{override_part_id}

                       : $params{override_partnumber} ? SL::DB::Manager::Part->find_by(partnumber => $params{override_partnumber})->id

                       : undef;

    my $part_id   = $override_part_id;

    $part_id    ||= $source->part_id;

    $part_id    ||= $default_part_id;

entry, a default article will be used. The article given in the time

recording entry can be overriden.

=item C<default_part_id>

An optional part id which is used as default value if no part is set

in the time recording entry.

=item C<default_partnumber>

Like C<default_part_id> but given as partnumber, not as id.

=item C<override_part_id>

An optional part id which is used instead of a value set in the time

recording entry.

=item C<override_partnumber>

Like C<overrride_part_id> but given as partnumber, not as id.

use Test::More tests => 52;

# two time recordings, one order linked with project_id in time recording entry

# two time recordings, one order linked with project_id in time recording entry

# two time recordings, one order linked with project_id in time recording entry

########################################

# override project and part

########################################

$part     = new_service(partnumber => 'Serv1', unit => 'Std')->save;

my $part2    = new_service(partnumber => 'Serv2', unit => 'min')->save;

$project  = create_project(projectnumber => 'p1', description => 'Project 1');

my $project2 = create_project(projectnumber => 'p2', description => 'Project 2');

$customer = new_customer()->save;

$sales_order = create_sales_order(

  save             => 1,

  customer         => $customer,

  globalproject    => $project,

  taxincluded      => 0,

  orderitems       => [ create_order_item(part => $part, qty => 180, unit => 'min', sellprice => 70), ]

);

my $sales_order2 = create_sales_order(

  save             => 1,

  customer         => $customer,

  globalproject    => $project,

  taxincluded      => 0,

  orderitems       => [ create_order_item(part => $part2, qty => 180, unit => 'min', sellprice => 70), ]

);

new_time_recording(

  start_time => DateTime->new(year => 2021, month =>  4, day => 19, hour => 10, minute => 10),

  end_time   => DateTime->new(year => 2021, month =>  4, day => 19, hour => 11, minute => 10),

  customer   => $customer,

  project    => $project,

  part       => $part,

)->save;

new_time_recording(

  start_time => DateTime->new(year => 2021, month =>  4, day => 19, hour => 11, minute => 10),

  end_time   => DateTime->new(year => 2021, month =>  4, day => 19, hour => 12, minute => 10),

  customer   => $customer,

  project    => $project2,

  part       => $part2,

)->save;

new_time_recording(

  start_time => DateTime->new(year => 2021, month =>  4, day => 19, hour => 12, minute => 10),

  end_time   => DateTime->new(year => 2021, month =>  4, day => 19, hour => 13, minute => 10),

  customer   => $customer,

)->save;

%data = (

  link_order          => 1,

  from_date           => '01.04.2021',

  to_date             => '30.04.2021',

  override_part_id    => $part->id,

  override_project_id => $project->id,

);

$db_obj = SL::DB::BackgroundJob->new();

$db_obj->set_data(%data);

$job    = SL::BackgroundJob::ConvertTimeRecordings->new;

$ret    = $job->run($db_obj);

$linked_dos = $sales_order->linked_records(to => 'DeliveryOrder');

is($linked_dos->[0]->globalproject_id, $project->id, 'overriden part and project: project in delivery order');

$linked_items = $sales_order->items->[0]->linked_records(to => 'DeliveryOrderItem');

is($linked_items->[0]->qty*1, 3, 'overriden part and project: qty in delivery order');

is($linked_items->[0]->base_qty*1, 3, 'overriden part and project: base_qty in delivery order');

is($linked_items->[0]->parts_id, $part->id, 'overriden part and project: part id');

my $linked_dos2 = $sales_order2->linked_records(to => 'DeliveryOrder');

is(scalar @$linked_dos2, 0, 'overriden part and project: no delivery order for unused order');

# reload order and orderitems to get changes to deliverd and ship

Rose::DB::Object::Helpers::forget_related($sales_order, 'orderitems');

$sales_order->load;

Rose::DB::Object::Helpers::forget_related($sales_order2, 'orderitems');

$sales_order2->load;

is($sales_order ->items->[0]->ship||0, 180, 'overriden part and project: ship in related order');

is($sales_order2->items->[0]->ship||0,   0, 'overriden part and project: ship in not related order');

clear_up();

########################################

# default project and part

########################################

$part     = new_service(partnumber => 'Serv1', unit => 'Std')->save;

$project  = create_project(projectnumber => 'p1', description => 'Project 1');

$customer = new_customer()->save;

$sales_order = create_sales_order(

  save             => 1,

  customer         => $customer,

  globalproject    => $project,

  taxincluded      => 0,

  orderitems       => [ create_order_item(part => $part, qty => 180, unit => 'min', sellprice => 70), ]

);

new_time_recording(

  start_time => DateTime->new(year => 2021, month =>  4, day => 19, hour => 10, minute => 10),

  end_time   => DateTime->new(year => 2021, month =>  4, day => 19, hour => 11, minute => 40),

  customer   => $customer,

)->save;

%data = (

  link_order         => 1,

  from_date          => '01.04.2021',

  to_date            => '30.04.2021',

  default_part_id    => $part->id,

  default_project_id => $project->id,

);

$db_obj = SL::DB::BackgroundJob->new();

$db_obj->set_data(%data);

$job    = SL::BackgroundJob::ConvertTimeRecordings->new;

$ret    = $job->run($db_obj);

$linked_dos = $sales_order->linked_records(to => 'DeliveryOrder');

is($linked_dos->[0]->globalproject_id, $project->id, 'default and project: project in delivery order');

$linked_items = $sales_order->items->[0]->linked_records(to => 'DeliveryOrderItem');

is($linked_items->[0]->qty*1, 1.5, 'default part and project: qty in delivery order');

is($linked_items->[0]->base_qty*1, 1.5, 'default part and project: base_qty in delivery order');

is($linked_items->[0]->parts_id, $part->id, 'default part and project: part id');

# reload order and orderitems to get changes to deliverd and ship

Rose::DB::Object::Helpers::forget_related($sales_order, 'orderitems');

$sales_order->load;

is($sales_order->items->[0]->ship*1, 90, 'default part and project: ship in related order');

clear_up();

  override_part_id => '123',

ok($err_msg =~ '^No valid part found by given override part id', 'invalid part id detected');

  override_part_id => $part->id,

ok($err_msg =~ '^No valid part found by given override part id', 'obsolete part detected');

  override_project_id => 123,

ok($err_msg =~ '^No valid project found by given override project id', 'invalid project id detected');

  override_project_id => $project->id,

ok($err_msg =~ '^No valid project found by given override project id', 'invalid project detected');