+sub create_assembly {
+ my (%params) = @_;
+
+ my $assnumber = delete $params{assnumber};
+ my $base_partnumber = delete $params{partnumber} || 'ap';
+
+ my $assembly_items = [];
+
+ if ( $params{assembly_items} ) {
+ $assembly_items = delete $params{assembly_items};
+ } else {
+ for my $i ( 1 .. delete $params{number_of_parts} || 3) {
+ my $part = SL::Dev::Part::create_part(partnumber => "$base_partnumber $i",
+ description => "Testpart $i",
+ )->save;
+ push( @{$assembly_items}, SL::DB::Assembly->new(parts_id => $part->id,
+ qty => 1,
+ position => $i,
+ ));
+ }
+ }
+
+ my $assembly = SL::DB::Part->new_assembly(
+ partnumber => $assnumber,
+ description => 'Test Assembly',
+ sellprice => '10',
+ lastcost => '5',
+ assemblies => $assembly_items,
+ buchungsgruppen_id => _default_buchungsgruppe()->id,
+ unit => _default_unit()->name
+ );
+ $assembly->assign_attributes( %params );
+ return $assembly;
+}
+
+sub create_assortment {
+ my (%params) = @_;
+
+ my $assnumber = delete $params{assnumber};
+ my $base_partnumber = delete $params{partnumber} || 'ap';
+
+ my $assortment_items = [];
+
+ if ( $params{assortment_items} ) {
+ $assortment_items = delete $params{assortment_items};
+ } else {
+ for my $i ( 1 .. delete $params{number_of_parts} || 3) {
+ my $part = SL::Dev::Part::create_part(partnumber => "$base_partnumber $i",
+ description => "Testpart $i",
+ )->save;
+ push( @{$assortment_items}, SL::DB::AssortmentItem->new(parts_id => $part->id,
+ qty => 1,
+ position => $i,
+ unit => $part->unit,
+ ));
+ }
+ }
+
+ my $assortment = SL::DB::Part->new_assortment(
+ partnumber => $assnumber,
+ description => 'Test Assortment',
+ sellprice => '10',
+ lastcost => '5',
+ assortment_items => $assortment_items,
+ buchungsgruppen_id => _default_buchungsgruppe()->id,
+ unit => _default_unit()->name
+ );
+
+ $assortment->assign_attributes( %params );
+ return $assortment;
+}
+
+
+sub _default_buchungsgruppe {
+ return SL::DB::Manager::Buchungsgruppe->find_by(description => 'Standard 19%') || die "No accounting group";
+}
+
+sub _default_unit {
+ return SL::DB::Manager::Unit->find_by(name => 'Stck') || die "No unit";
+}
+
+