Part Controller - id -> part.id

[mfinanz.git] / SL / DB / Part.pm

diff --git a/SL/DB/Part.pm b/SL/DB/Part.pm
index f95be9bfd9783e9f56decf00840793b20f0630ac..32571276b9acc4d924dd8ab3354153f67561a0ec 100644 (file)
--- a/SL/DB/Part.pm
+++ b/SL/DB/Part.pm
@@ -16,6 +16,7 @@ use SL::DB::Helper::CustomVariables (
   module      => 'IC',
   cvars_alias => 1,
 );
   module      => 'IC',
   cvars_alias => 1,
 );

+use List::Util qw(sum);

 
 __PACKAGE__->meta->add_relationships(
   assemblies                     => {
 
 __PACKAGE__->meta->add_relationships(
   assemblies                     => {


@@ -32,6 +33,7 @@ __PACKAGE__->meta->add_relationships(
   makemodels     => {
     type         => 'one to many',
     class        => 'SL::DB::MakeModel',
   makemodels     => {
     type         => 'one to many',
     class        => 'SL::DB::MakeModel',

+    manager_args => { sort_by => 'sortorder' },

     column_map   => { id => 'parts_id' },
   },
   translations   => {
     column_map   => { id => 'parts_id' },
   },
   translations   => {


@@ -44,6 +46,13 @@ __PACKAGE__->meta->add_relationships(
     class        => 'SL::DB::AssortmentItem',
     column_map   => { id => 'assortment_id' },
   },
     class        => 'SL::DB::AssortmentItem',
     column_map   => { id => 'assortment_id' },
   },

+  history_entries   => {
+    type            => 'one to many',
+    class           => 'SL::DB::History',
+    column_map      => { id => 'trans_id' },
+    query_args      => [ what_done => 'part' ],
+    manager_args    => { sort_by => 'itime' },
+  },

 );
 
 __PACKAGE__->meta->initialize;
 );
 
 __PACKAGE__->meta->initialize;


@@ -129,6 +138,11 @@ sub new_assortment {
   $class->new(%params, part_type => 'assortment');
 }
 
   $class->new(%params, part_type => 'assortment');
 }
 

+sub last_modification {
+  my ($self) = @_;
+  return $self->mtime or $self->itime;
+};
+

 sub orphaned {
   my ($self) = @_;
   die 'not an accessor' if @_ > 1;
 sub orphaned {
   my ($self) = @_;
   die 'not an accessor' if @_ > 1;


@@ -211,7 +225,7 @@ sub get_chart {
   if (!exists $charts->{$taxzone}->{$type}) {
     require SL::DB::Buchungsgruppe;
     my $bugru    = SL::DB::Buchungsgruppe->load_cached($self->buchungsgruppen_id);
   if (!exists $charts->{$taxzone}->{$type}) {
     require SL::DB::Buchungsgruppe;
     my $bugru    = SL::DB::Buchungsgruppe->load_cached($self->buchungsgruppen_id);

-    my $chart_id = ($type eq 'inventory') ? ($self->inventory_accno_id ? $bugru->inventory_accno_id : undef)
+    my $chart_id = ($type eq 'inventory') ? ($self->is_part ? $bugru->inventory_accno_id : undef)

                  :                          $bugru->call_sub("${type}_accno_id", $taxzone);
 
     if ($chart_id) {
                  :                          $bugru->call_sub("${type}_accno_id", $taxzone);
 
     if ($chart_id) {


@@ -278,6 +292,34 @@ sub clone_and_reset_deep {
   return $clone;
 }
 
   return $clone;
 }
 

+sub assembly_sellprice_sum {
+  my ($self) = @_;
+
+  return unless $self->is_assembly;
+  sum map { $_->linetotal } @{$self->part->assemblies};
+};
+
+sub assembly_lastcost_sum {
+  my ($self) = @_;
+
+  return unless $self->is_assembly;
+  sum map { $_->linetotal } @{$self->part->assemblies};
+};
+
+sub assortment_sellprice_sum {
+  my ($self) = @_;
+
+  return unless $self->is_assortment;
+  sum map { $_->linetotal } @{$self->part->assortment_items};
+};
+
+sub assortment_lastcost_sum {
+  my ($self) = @_;
+
+  return unless $self->is_assortment;
+  sum map { $_->linetotal } @{$self->part->assortment_items};
+};
+

 1;
 
 __END__
 1;
 
 __END__


@@ -416,6 +458,22 @@ Used to set the accounting information from a L<SL:DB::Buchungsgruppe> object.
 Please note, that this is a write only accessor, the original Buchungsgruppe can
 not be retrieved from an article once set.
 
 Please note, that this is a write only accessor, the original Buchungsgruppe can
 not be retrieved from an article once set.
 

+=item C<assembly_sellprice_sum>
+
+Non-recursive sellprice sum of all the assembly item sellprices.
+
+=item C<assortment_sellprice_sum>
+
+Non-recursive sellprice sum of all the assortment item sellprices.
+
+=item C<assembly_lastcost_sum>
+
+Non-recursive lastcost sum of all the assembly item lastcosts.
+
+=item C<assortment_lastcost_sum>
+
+Non-recursive lastcost sum of all the assortment item lastcosts.
+

 =back
 
 =head1 AUTHORS
 =back
 
 =head1 AUTHORS