Kreditorenbuchungen: nur zur Kontenkategorie passende Steuerschlüsselauswahl anbieten

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

diff --git a/SL/Presenter/Part.pm b/SL/Presenter/Part.pm
index 08c425ba68c50239f336ea0733d05d0bd98ecda1..4bd45ca41130d841e87b60f2ab7cbb5756f5634b 100644 (file)
--- a/SL/Presenter/Part.pm
+++ b/SL/Presenter/Part.pm
@@ -3,10 +3,11 @@ package SL::Presenter::Part;
 use strict;
 
 use SL::DB::Part;
 use strict;
 
 use SL::DB::Part;

-use SL::DB::Manager::PartsClassification;
+use SL::DB::PartClassification;
+use SL::Locale::String qw(t8);

 
 use Exporter qw(import);
 
 use Exporter qw(import);

-our @EXPORT = qw(part_picker part select_classification classification_abbreviation type_abbreviation separate_abbreviation);
+our @EXPORT = qw(part_picker part select_classification classification_abbreviation type_abbreviation separate_abbreviation typeclass_abbreviation);

 
 use Carp;
 
 
 use Carp;
 


@@ -38,7 +39,7 @@ sub part_picker {
 
   my $ret =
     $self->input_tag($name, (ref $value && $value->can('id') ? $value->id : ''), class => "@classes", type => 'hidden', id => $id) .
 
   my $ret =
     $self->input_tag($name, (ref $value && $value->can('id') ? $value->id : ''), class => "@classes", type => 'hidden', id => $id) .

-    join('', map { $params{$_} ? $self->input_tag("", delete $params{$_}, id => "${id}_${_}", type => 'hidden') : '' } qw(part_type unit convertible_unit)) .
+    join('', map { $params{$_} ? $self->input_tag("", delete $params{$_}, id => "${id}_${_}", type => 'hidden') : '' } qw(part_type classification_id unit convertible_unit)) .

     $self->input_tag("", ref $value ? $value->displayable_name : '', id => "${id}_name", %params);
 
   $::request->layout->add_javascripts('autocomplete_part.js');
     $self->input_tag("", ref $value ? $value->displayable_name : '', id => "${id}_name", %params);
 
   $::request->layout->add_javascripts('autocomplete_part.js');


@@ -48,11 +49,10 @@ sub part_picker {
 }
 
 #
 }
 
 #

-# Must be addapted to new type table
+# shortcut for article type

 #
 sub type_abbreviation {
   my ($self, $part_type) = @_;
 #
 sub type_abbreviation {
   my ($self, $part_type) = @_;

-  $main::lxdebug->message(LXDebug->DEBUG2(),"parttype=".$part_type);

   return $::locale->text('Assembly (typeabbreviation)')   if $part_type eq 'assembly';
   return $::locale->text('Part (typeabbreviation)')       if $part_type eq 'part';
   return $::locale->text('Assortment (typeabbreviation)') if $part_type eq 'assortment';
   return $::locale->text('Assembly (typeabbreviation)')   if $part_type eq 'assembly';
   return $::locale->text('Part (typeabbreviation)')       if $part_type eq 'part';
   return $::locale->text('Assortment (typeabbreviation)') if $part_type eq 'assortment';


@@ -74,22 +74,40 @@ sub type_abbreviation {
 # $::locale->text('Merchandise')
 # $::locale->text('Production')
 
 # $::locale->text('Merchandise')
 # $::locale->text('Production')
 

+#
+# shortcut for article type
+#

 sub classification_abbreviation {
   my ($self, $id) = @_;
 sub classification_abbreviation {
   my ($self, $id) = @_;

-  $main::lxdebug->message(LXDebug->DEBUG2(),"classif=".$id);
-  return $::locale->text(SL::DB::Manager::PartsClassification->get_abbreviation($id));
+  SL::DB::Manager::PartClassification->cache_all();
+  my $obj = SL::DB::PartClassification->load_cached($id);
+  $obj && $obj->abbreviation ? t8($obj->abbreviation) : '';

 }
 
 }
 

+sub typeclass_abbreviation {
+  my ($self, $part) = @_;
+  return '' if !$part || !$part->isa('SL::DB::Part');
+  return $self->type_abbreviation($part->part_type).$self->classification_abbreviation($part->classification_id);
+}
+
+#
+# shortcut for article type
+#

 sub separate_abbreviation {
   my ($self, $id) = @_;
 sub separate_abbreviation {
   my ($self, $id) = @_;

-  return $::locale->text(SL::DB::Manager::PartsClassification->get_separate_abbreviation($id));
+  SL::DB::Manager::PartClassification->cache_all();
+  my $obj = SL::DB::PartClassification->load_cached($id);
+  $obj && $obj->abbreviation && $obj->report_separate ? t8($obj->abbreviation) : '';

 }
 
 }
 

+#
+# generate selection tag
+#

 sub select_classification {
   my ($self, $name, %attributes) = @_;
   $attributes{value_key} = 'id';
   $attributes{title_key} = 'description';
 sub select_classification {
   my ($self, $name, %attributes) = @_;
   $attributes{value_key} = 'id';
   $attributes{title_key} = 'description';

-  my $collection = SL::DB::Manager::PartsClassification->get_all_sorted();
+  my $collection = SL::DB::Manager::PartClassification->get_all_sorted();

   $_->description($::locale->text($_->description)) for @{ $collection };
   return $self->select_tag( $name, $collection, %attributes );
 }
   $_->description($::locale->text($_->description)) for @{ $collection };
   return $self->select_tag( $name, $collection, %attributes );
 }


@@ -141,6 +159,40 @@ to the corresponding 'edit' action.
 
 =over 2
 
 
 =over 2
 

+=item C<classification_abbreviation $classification_id>
+
+Returns the shortcut of the classification
+
+=back
+
+=over 2
+
+=item C<separate_abbreviation $classification_id>
+
+Returns the shortcut of the classification if the classifiaction has the separate flag set.
+
+=back
+
+=over 2
+
+=item C<select_classification $name,%params>
+
+Returns a HTML Select Tag with all available Classifications
+
+C<%params> can include:
+
+=over 4
+
+=item * default
+
+The Id of the selected item .
+
+=back
+
+=back
+
+=over 2
+

 =item C<part_picker $name, $value, %params>
 
 All-in-one picker widget for parts. The name will be both id and name
 =item C<part_picker $name, $value, %params>
 
 All-in-one picker widget for parts. The name will be both id and name


@@ -262,4 +314,6 @@ None atm :)
 
 Sven Schöling E<lt>s.schoeling@linet-services.deE<gt>
 
 
 Sven Schöling E<lt>s.schoeling@linet-services.deE<gt>
 

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

 =cut
 =cut