Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 981bfe17

Von Kivitendo Admin vor mehr als 7 Jahren hinzugefügt

  • ID 981bfe1710c2c9634356346b4c99c76c6b686a4b
  • Vorgänger c6d47254
  • Nachfolger a50663d8

SL::Dev::Part - create_assembly und create_assortment überarbeitet

create_assembly wie create_assortment erweitert, so daß man direkt beim
Erstellen die Erzeugnisbestandteile als Assembly-Objekte im param
assembly_items übergeben kann.

Refactoring, kein clonen wenn mehrere Bestandteile automatisch erstellt
werden.

Unterschiede anzeigen:

t/part/assembly.t
16 16 
clear_up();
17 17 
reset_state();
18 18 

  		




  19
  
  
    
is( SL::DB::Manager::Part->get_all_count(), 4,  "total number of parts created is 4");


  		




  
  19
  
    
is( SL::DB::Manager::Part->get_all_count(), 4,  "total number of parts created by reset_state() is 4");


  		




  20
  20
  
    

  		




  21
  
  
    
my $assembly_part      = SL::DB::Manager::Part->find_by( partnumber => '19000' ) || die "Can't find part 19000";


  		




  22
  
  
    
my $assembly_item_part = SL::DB::Manager::Part->find_by( partnumber => 'ap1' );


  		




  
  21
  
    
my $assembly_part      = SL::DB::Manager::Part->find_by( partnumber => '19000' )   || die "Can't find assembly 19000";


  		




  
  22
  
    
my $assembly_item_part = SL::DB::Manager::Part->find_by( partnumber => '19000 1' ) || die "Can't find assembly item part '19000 1'";


  		




  23
  23
  
    

  		




  24
  24
  
    
is($assembly_part->part_type, 'assembly', 'assembly has correct type');


  		




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


  		




  ......




  27
  27
  
    
# fetch assembly item corresponding to partnumber 19000


  		




  28
  28
  
    
my $assembly_items = $assembly_part->find_assemblies( { parts_id => $assembly_item_part->id } ) || die "can't find assembly_item";


  		




  29
  29
  
    
my $assembly_item = $assembly_items->[0];


  		




  30
  
  
    
is($assembly_item->part->partnumber, 'ap1', 'assembly part part relation works');


  		




  
  30
  
    
is($assembly_item->part->partnumber, '19000 1', 'assembly part part relation works');


  		




  31
  31
  
    
is($assembly_item->assembly_part->partnumber, '19000', 'assembly part assembly part relation works');


  		




  32
  32
  
    

  		




  33
  33
  
    

  		




  34
  34
  
    

  		




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


  		




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


  		




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


  		




  37
  37
  
    
ok(!defined $retval, 'assembly 19000 can be child of assembly 20000' );


  		




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


  		




  39
  39
  
    
$assembly2_part->save;


  		




  40
  40
  
    

  		




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


  		




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


  		




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


  		




  43
  43
  
    
ok(!defined $retval, 'assembly 30000 can be child of assembly 19000' );


  		




  44
  44
  
    

  		




  ......




  56
  56
  
    

  		




  57
  57
  
    
# fetch assembly item corresponding to partnumber 20000


  		




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


  		




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


  		




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


  		




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


  		




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


  		




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


  		




  
  61
  
    
is($assembly2_item->qty, 3, 'qty of 3rd assembly item is 3' );


  		




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


  		




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


  		




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


  		




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


  		




  65
  65
  
    

  		




  66
  66
  
    

  		




  67
  67
  
    

  		




  ......




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


  		




  72
  72
  
    
  $assembly_part->save;


  		




  73
  73
  
    
}


  		




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


  		




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


  		




  75
  75
  
    

  		




  76
  76
  
    
# check indirekt loop


  		




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


  		




  ......




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


  		




  80
  80
  
    
  $assembly_part->save;


  		




  81
  81
  
    
}


  		




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


  		




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


  		




  83
  83
  
    

  		




  84
  84
  
    
clear_up();


  		




  85
  85
  
    
done_testing;


  		




  ......




  92
  92
  
    
sub reset_state {


  		




  93
  93
  
    
  my %params = @_;


  		




  94
  94
  
    

  		




  95
  
  
    
  my $assembly = SL::Dev::Part::create_assembly( partnumber => '19000' )->save;


  		




  
  95
  
    
  my $assembly = SL::Dev::Part::create_assembly( assnumber => '19000', partnumber => '19000' )->save;


  		




  96
  96
  
    
};


  		




  97
  97
  
    

  		




  98
  98
  
    
1;


  		












Auch abrufbar als:  Unified diff