projekt kivitendo

use SL::DB::Helper::ValidateAssembly qw(validate_assembly);

    ->no_flash_clear->render();

  my @checked_objects;

  foreach my $item (@{$item_objects}) {

    my $errstr = validate_assembly($item->part,$self->part);

    $self->js->flash('error',$errstr) if     $errstr;

    push (@checked_objects,$item)     unless $errstr;

  }

  my $html = $self->render_assembly_items_to_html(\@checked_objects);

  if ($add_item_id ) {

    foreach my $item (@{$item_objects}) {

      my $errstr = validate_assembly($item->part,$self->part);

      return $self->js->flash('error',$errstr)->render if $errstr;

    }

  }

package SL::DB::Helper::ValidateAssembly;

use strict;

use parent qw(Exporter);

our @EXPORT = qw(validate_assembly);

use SL::Locale::String;

use SL::DB::Part;

use SL::DB::Assembly;

sub validate_assembly {

  my ($new_part, $part) = @_;

  return t8("The assembly '#1' cannot be a part from itself.", $part->partnumber) if $new_part->id == $part->id;

  my @seen = ($part->id);

  return assembly_loop_exists(0, $new_part, @seen);

}

sub assembly_loop_exists {

  my ($depth, $new_part, @seen) = @_;

  return t8("Too much recursions in assembly tree (>100)") if $depth > 100;

  # 1. check part is an assembly

  return unless $new_part->is_assembly;

  # 2. check assembly is still in list

  return t8("The assembly '#1' would make a loop in assembly tree.", $new_part->partnumber) if grep { $_ == $new_part->id } @seen;

  # 3. add to new list

  push @seen, $new_part->id;

  # 4. go into depth for each child

  foreach my $assembly ($new_part->assemblies) {

    my $retval = assembly_loop_exists($depth + 1, $assembly->part, @seen);

    return $retval if $retval;

  }

  return undef;

}

1;

__END__

=encoding utf-8

=head1 NAME

SL::DB::Helper::ValidateAssembly - Mixin to check loops in assemblies

=head1 SYNOPSIS

SL::DB::Helper::ValidateAssembly->validate_assembly($newpart,$assembly_part);

=head1 HELPER FUNCTION

=over 4

=item C<validate_assembly new_part_object  part_object>

A new part is added to an assembly. C<new_part_object> is the part which is want to added.

First it was checked if the new part is equal the actual part.

Then recursively all assemblies in the assemby are checked for a loop.

The function returns an error string if a loop exists or the maximum of 100 iterations is reached

else on success ''.

=back

=head1 AUTHOR

Martin Helmling E<lt>martin.helmling@opendynamic.de>E<gt>

=cut

  my $partnumber = delete $params{part1number} || 'ap1';

  my $part1 = SL::Dev::Part::create_part(partnumber   => $partnumber,

    $part->partnumber(  $partnumber . " " . $i );

  my $assnumber = delete $params{assnumber} || 'as1';

    partnumber         => $assnumber,

  ns.show_multi_items_dialog = function(part_type,part_id) {

              'part.id'       : part_id,

  'The assembly \'#1\' cannot be a part from itself.' => 'Das Erzeugnis \'#1\' kann kein Teil von sich selbst sein.',

  'The assembly \'#1\' would make a loop in assembly tree.' => 'Das Erzeugnis \'#1\' würde eine Schleife im Erzeugnisbaum machen.',

  'Too much recursions in assembly tree (>100)' => 'Zu tiefe Verschachtelung (>100) des Erzeugnisbaum',

use SL::DB::Helper::ValidateAssembly;

$::locale        = Locale->new("en");

is( scalar @{$assembly_part->assemblies}, 3, 'assembly consists of three parts' );

my $assembly2_part = SL::Dev::Part::create_assembly( partnumber => '20000', part1number => 'ap2', assnumber => 'as2' )->save;

my $retval = validate_assembly($assembly_part,$assembly2_part);

ok( $retval eq undef , 'assembly 19000 can be child of assembly 20000' );

$assembly2_part->add_assemblies(SL::DB::Assembly->new(parts_id => $assembly_part->id, qty => 3, bom => 1));

$assembly2_part->save;

my $assembly3_part = SL::Dev::Part::create_assembly( partnumber => '30000', part1number => 'ap3', assnumber => 'as3' )->save;

$retval = validate_assembly($assembly3_part,$assembly_part);

ok( $retval eq undef , 'assembly 30000 can be child of assembly 19000' );

$retval = validate_assembly($assembly3_part,$assembly2_part);

ok( $retval eq undef , 'assembly 30000 can be child of assembly 20000' );

$assembly_part->add_assemblies(SL::DB::Assembly->new(parts_id => $assembly3_part->id, qty => 4, bom => 1));

$assembly_part->save;

$retval = validate_assembly($assembly3_part,$assembly2_part);

ok( $retval eq undef , 'assembly 30000 can be child of assembly 20000' );

$assembly2_part->add_assemblies(SL::DB::Assembly->new(parts_id => $assembly3_part->id, qty => 5, bom => 1));

$assembly2_part->save;

# fetch assembly item corresponding to partnumber 20000

my $assembly2_items = $assembly2_part->find_assemblies() || die "can't find assembly_item";

is( scalar @{$assembly2_items}, 5, 'assembly2 consists of four parts' );

my $assembly2_item = $assembly2_items->[3];

is($assembly2_item->qty, 3, 'count of 3.th assembly is 3' );

is($assembly2_item->part->part_type, 'assembly', '3.th assembly \''.$assembly2_item->part->partnumber. '\' is also an assembly');

my $assembly3_items = $assembly2_item->part->find_assemblies() || die "can't find assembly_item";

is( scalar @{$assembly3_items}, 4, 'assembly3 consists of three parts' );

# check loop to itself

$retval = validate_assembly($assembly_part,$assembly_part);

is( $retval,"The assembly '19000' cannot be a part from itself.", 'assembly loops to itself' );

if (!$retval && $assembly_part->add_assemblies( SL::DB::Assembly->new(parts_id => $assembly_part->id, qty => 8, bom => 1))) {

  $assembly_part->save;

}

is( scalar @{$assembly_part->assemblies}, 4, 'assembly consists of three parts' );

# check indirekt loop

$retval = validate_assembly($assembly2_part,$assembly_part);

ok( $retval, 'assembly indirect loop' );

if (!$retval && $assembly_part->add_assemblies( SL::DB::Assembly->new(parts_id => $assembly2_part->id, qty => 9, bom => 1))) {

  $assembly_part->save;

}

is( scalar @{$assembly_part->assemblies}, 4, 'assembly consists of three parts' );

 <td>[% L.button_tag('kivi.Part.show_multi_items_dialog("assembly",' _ SELF.part.id _ ')', LxERP.t8('Add multiple items')) %]</td>

 <td>[% L.button_tag('kivi.Part.show_multi_items_dialog("assortment",' _ SELF.part.id _ ')', LxERP.t8('Add multiple items')) %]</td>

  data.push({ name: 'part_type', value: '[%- FORM.part.part_type %]' });

  data.push({ name: 'part.id'  , value: '[%- FORM.part.id %]' });