projekt kivitendo

 'scalar --get_set_init' => [ qw(bg_by settings parts_by price_factors_by classification_by units_by partsgroups_by

                       part_classification       => 0,

sub init_classification_by {

  my ($self) = @_;

  my $all_classifications = SL::DB::Manager::PartClassification->get_all;

  $_->abbreviation($::locale->text($_->abbreviation)) for @{ $all_classifications };

  return { map { my $col = $_; ( $col => { map { ( $_->$col => $_ ) } @{ $all_classifications } } ) } qw(id abbreviation) };

}

                                                                    shoparticle_if_missing part_type classification_id default_unit) };

  $self->add_columns(qw(part_type classification_id)) if $self->settings->{part_type} eq 'mixed';

  if ($part_type eq 'mixed' && $entry->{raw_data}->{part_type}) {

    $part_type = $entry->{raw_data}->{part_type} =~ m/^p/i     ? 'part'

               : $entry->{raw_data}->{part_type} =~ m/^s/i     ? 'service'

               :                                                 $self->settings->{part_type};

  }

  my $classification_id = $self->settings->{classification_id};

  if ( $entry->{raw_data}->{pclass} && length($entry->{raw_data}->{pclass}) >= 2 ) {

    my $abbr1 = substr($entry->{raw_data}->{pclass},0,1);

    my $abbr2 = substr($entry->{raw_data}->{pclass},1);

    if ( $self->classification_by->{abbreviation}->{$abbr2} ) {

      my $tmp_classification_id = $self->classification_by->{abbreviation}->{$abbr2}->id;

      $classification_id = $tmp_classification_id if $tmp_classification_id;

    }

    if ($part_type eq 'mixed') {

      $part_type = $abbr1 eq $::locale->text('Part (typeabbreviation)') ? 'part'

        : $abbr1 eq $::locale->text('Service (typeabbreviation)')       ? 'service'

        : $abbr1 eq $::locale->text('Assembly (typeabbreviation)')      ? 'assembly'

        : $abbr1 eq $::locale->text('Assortment (typeabbreviation)')    ? 'assortment'

        :                                                                 undef;

    }

  $entry->{object}->classification_id( $classification_id );

                                 { name => 'buchungsgruppen_id', description => $::locale->text('Booking group (database ID)')                          },

                                 { name => 'buchungsgruppe',     description => $::locale->text('Booking group (name)')                                 },

                                 { name => 'part_classification',description => $::locale->text('Article classification')  . ' [3]'                     },

                                 { name => 'shop',               description => $::locale->text('Shop article')                                         },

                                 { name => 'type',               description => $::locale->text('Article type')  . ' [3]'                               },

                                 { name => 'warehouse',          description => $::locale->text('Warehouse (name)')                                     },

package SL::Controller::PartClassification;

use strict;

use parent qw(SL::Controller::Base);

use SL::DB::PartClassification;

use SL::Helper::Flash;

use Rose::Object::MakeMethods::Generic

(

 scalar => [ qw(part_classification) ],

);

__PACKAGE__->run_before('check_auth');

__PACKAGE__->run_before('load_part_classification', only => [ qw(edit update destroy) ]);

#

# This Controller is responsible for creating,editing or deleting

# Part Classifications.

#

# The use of Part Classifications is described in SL::DB::PartClassification

#

#

# List all available part classifications

#

sub action_list {

  my ($self) = @_;

  $self->render('part_classification/list',

                title                => $::locale->text('Parts Classifications'),

                PART_CLASSIFICATIONS => SL::DB::Manager::PartClassification->get_all_sorted);

}

# A Form for a new creatable part classifications is generated

#

sub action_new {

  my ($self) = @_;

  $self->{part_classification} = SL::DB::PartClassification->new;

  $self->render('part_classification/form', title => $::locale->text('Create a new parts classification'));

}

# Edit an existing part classifications

#

sub action_edit {

  my ($self) = @_;

  $self->render('part_classification/form', title => $::locale->text('Edit parts classification'));

}

# A new part classification is saved

#

sub action_create {

  my ($self) = @_;

  $self->{part_classification} = SL::DB::PartClassification->new;

  $self->create_or_update;

}

# An existing part classification is saved

#

sub action_update {

  my ($self) = @_;

  $self->create_or_update;

}

# An existing part classification is deleted

#

# The basic classifications cannot be deleted, also classifications which are in use

#

sub action_destroy {

  my ($self) = @_;

  if ( $self->{part_classification}->id < 5 ) {

    flash_later('error', $::locale->text('The basic parts classification cannot be deleted.'));

  }

  elsif (eval { $self->{part_classification}->delete; 1; }) {

    flash_later('info',  $::locale->text('The parts classification has been deleted.'));

  } else {

    flash_later('error', $::locale->text('The parts classification is in use and cannot be deleted.'));

  }

  $self->redirect_to(action => 'list');

}

# reordering the lines

#

sub action_reorder {

  my ($self) = @_;

  SL::DB::PartClassification->reorder_list(@{ $::form->{part_classification_id} || [] });

  $self->render(\'', { type => 'json' });

}

#

# filters

#

# check authentication, only "config" is allowed

#

sub check_auth {

  $::auth->assert('config');

}

#

# helpers

#

# submethod for update the database

#

sub create_or_update {

  my $self   = shift;

  my $is_new = !$self->{part_classification}->id;

  $::form->{part_classification}->{used_for_purchase} = 0 if ! $::form->{part_classification}->{used_for_purchase};

  $::form->{part_classification}->{used_for_sale}     = 0 if ! $::form->{part_classification}->{used_for_sale};

  my $params = delete($::form->{part_classification}) || { };

  $self->{part_classification}->assign_attributes(%{ $params });

  my @errors = $self->{part_classification}->validate;

  if (@errors) {

    flash('error', @errors);

    $self->render('part_classification/form', title => $is_new ? $::locale->text('Create a new parts classification') : $::locale->text('Edit parts classification'));

    return;

  }

  $self->{part_classification}->save;

  flash_later('info', $is_new ? $::locale->text('The parts classification has been created.') : $::locale->text('The parts classification has been saved.'));

  $self->redirect_to(action => 'list');

}

# submethod for loading one item from the database

#

sub load_part_classification {

  my ($self) = @_;

  $self->{part_classification} = SL::DB::PartClassification->new(id => $::form->{id})->load;

}

1;

__END__

=encoding utf-8

=head1 NAME

SL::Controller::PartClassification

=head1 SYNOPSIS

This Controller is responsible for creating,editing or deleting

Part Classifications.

=head1 DESCRIPTION

The use of Part Classifications is described in L<SL::DB::PartClassification>

=head1 METHODS

=head2 action_create

 $self->action_create();

A new part classification is saved

=head2 action_destroy

 $self->action_destroy();

An existing part classification is deleted

The basic classifications cannot be deleted, also classifications which are in use

=head2 action_edit

 $self->action_edit();

Edit an existing part classifications

=head2 action_list

 $self->action_list();

List all available part classifications

=head2 action_new

 $self->action_new();

A Form for a new creatable part classifications is generated

=head2 action_reorder

 $self->action_reorder();

reordering the lines

=head2 action_update

 $self->action_update();

An existing part classification is saved

=head1 AUTHOR

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

=cut

use SL::DB::PartClassification;

  part_classifications           => 'PartClassification',

package SL::DB::Manager::PartClassification;

use strict;

use parent qw(SL::DB::Helper::Manager);

use SL::DB::Helper::Sorted;

sub object_class { 'SL::DB::PartClassification' }

__PACKAGE__->make_manager_methods;

#

# get the one/two character shortcut of the parts classification

#

sub get_abbreviation {

  my ($class,$id) = @_;

  my $obj = $class->get_first(query => [ id => $id ]);

  return '' unless $obj;

  return $obj->abbreviation?$obj->abbreviation:'';

}

1;

__END__

=encoding utf-8

=head1 NAME

SL::DB::Manager::PartClassification

=head1 SYNOPSIS

This class has wrapper methodes to get the shortcuts

=head1 METHODS

=head2 get_abbreviation

 $class->get_abbreviation($classification_id);

get the one/two character shortcut of the parts classification

=head2 get_separate_abbreviation

 $class->get_separate_abbreviation($classification_id);

get the one/two character shortcut of the parts classification if it is a separate article

=head1 AUTHOR

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

=cut

  classification_id  => { type => 'integer', default => '0' },

  classification => {

    class       => 'SL::DB::PartClassification',

    key_columns => { classification_id => 'id' },

  },

# This file has been auto-generated. Do not modify it; it will be overwritten

# by rose_auto_create_model.pl automatically.

package SL::DB::PartClassification;

use strict;

use parent qw(SL::DB::Object);

__PACKAGE__->meta->table('part_classifications');

__PACKAGE__->meta->columns(

  abbreviation      => { type => 'text' },

  description       => { type => 'text' },

  id                => { type => 'serial', not_null => 1 },

  used_for_purchase => { type => 'boolean', default => 'true' },

  used_for_sale     => { type => 'boolean', default => 'true' },

);

__PACKAGE__->meta->primary_key_columns([ 'id' ]);

1;

;

package SL::DB::PartClassification;

use strict;

use SL::DB::MetaSetup::PartClassification;

use SL::DB::Manager::PartClassification;

__PACKAGE__->meta->initialize;

# check if the description and abbreviation is present

#

sub validate {

  my ($self) = @_;

  my @errors;

  push @errors, $::locale->text('The description is missing.')  if !$self->description;

  push @errors, $::locale->text('The abbreviation is missing.') if !$self->abbreviation;

  return @errors;

}

1;

__END__

=encoding utf-8

=head1 NAME

SL::DB::PartClassification

=head1 SYNOPSIS

Additional to the article types "part", "assembly", "service" and "assortement"

the parts classification specifies other ortogonal attributes

=head1 DESCRIPTION

The primary attributes are the rule

of the article as "used_for_sales" or "used_for_purchase".

Additional other attributes may follow

To see this attributes in a short way there are shortcuts of one (or two characters, if needed for compare )

which may be translated in the specified language

The type of the article is also as shortcut available, so this combined type and classification shortcut

is used short as "Type"

English type shortcuts are 'P','A','S'

German  type shortcuts are 'W','E','D'

The can set in the language-files

To get the localized abbreviations you can use L<SL::Presenter::Part> .

=head1 METHODS

=head2 validate

 $self->validate();

check if the description and abbreviation is present

=head1 AUTHOR

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

=cut

       p.classification_id,

  my @select_tokens = qw(id factor part_type classification_id);

  if ($form->{l_assembly} && $form->{l_lastcost}) {

    push @where_tokens, "p.part_type = 'part'"       if /part/;

    push @where_tokens, "p.part_type = 'service'"    if /service/;

    push @where_tokens, "p.part_type = 'assembly'"   if /assembly/;

    push @where_tokens, "p.part_type = 'assortment'" if /assortment/;

  }

  if ( $form->{classification_id} > 0 ) {

    push @where_tokens, "p.classification_id = ?";

    push @bind_vars, $form->{classification_id};

  push @select_tokens, $q_assembly_lastcost                                   if $form->{l_assembly} && $form->{l_lastcost};

  if ($form->{l_assembly} && $form->{bom}) {

  }

    qq|SELECT id, partnumber, description, unit, sellprice,

       classification_id

    $form->{"type_and_classific_$j"} = $::request->presenter->type_abbreviation($ref->{part_type}).

                                       $::request->presenter->classification_abbreviation($ref->{classification_id});

    my $prt = $parts_by_id{$id};

    my $type_abbr = $::request->presenter->type_abbreviation($prt->part_type);

    push @{ $template_arrays{part_type} }, $type_abbr;

    push @{ $template_arrays{type_and_classific}},  $type_abbr.$::request->presenter->classification_abbreviation($prt->classification_id);

  return %template_arrays;

use constant PCLASS_OK             =>   0;

use constant PCLASS_NOTFORSALE     =>   1;

use constant PCLASS_NOTFORPURCHASE =>   2;

        ,p.classification_id

         p.classification_id,

         pt.used_for_purchase AS used_for_purchase,

       LEFT JOIN part_classifications pt ON (pt.id = p.classification_id)

  my $has_wrong_pclass = PCLASS_OK;

    $ref->{type_and_classific} = $::request->presenter->type_abbreviation($ref->{part_type}).

                                 $::request->presenter->classification_abbreviation($ref->{classification_id});

    if (! $ref->{used_for_purchase} ) {

       $has_wrong_pclass = PCLASS_NOTFORPURCHASE;

       next;

    }

  $form->{is_wrong_pclass} = $has_wrong_pclass;

  $form->{NOTFORSALE}      = PCLASS_NOTFORSALE;

  $form->{NOTFORPURCHASE}  = PCLASS_NOTFORPURCHASE;

    $form->{is_wrong_pclass} = PCLASS_OK; # one correct type

use constant PCLASS_OK             =>   0;

use constant PCLASS_NOTFORSALE     =>   1;

use constant PCLASS_NOTFORPURCHASE =>   2;

           p.classification_id,

         p.classification_id,

         pt.used_for_sale AS used_for_sale,

       LEFT JOIN part_classifications pt ON (pt.id = p.classification_id)

  my $has_wrong_pclass = PCLASS_OK;

    $ref->{type_and_classific} = $::request->presenter->type_abbreviation($ref->{part_type}).

                                 $::request->presenter->classification_abbreviation($ref->{classification_id});

    if (! $ref->{used_for_sale} ) {

      $has_wrong_pclass = PCLASS_NOTFORSALE ;

      next;

    }

  $form->{is_wrong_pclass} = $has_wrong_pclass;

  $form->{NOTFORSALE}      = PCLASS_NOTFORSALE;

  $form->{NOTFORPURCHASE}  = PCLASS_NOTFORPURCHASE;

    $form->{is_wrong_pclass} = PCLASS_OK; # one correct type

           p.classification_id,

use SL::DB::PartClassification;

use SL::Locale::String qw(t8);

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

#

# shortcut for article 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('Service (typeabbreviation)');

}

#

# Translations for Abbreviations:

#

# $::locale->text('None (typeabbreviation)')

# $::locale->text('Purchase (typeabbreviation)')

# $::locale->text('Sales (typeabbreviation)')

# $::locale->text('Merchandise (typeabbreviation)')

# $::locale->text('Production (typeabbreviation)')

#

# and for descriptions

# $::locale->text('Purchase')

# $::locale->text('Sales')

# $::locale->text('Merchandise')

# $::locale->text('Production')

#

# shortcut for article type

#

sub classification_abbreviation {

  my ($self, $id) = @_;

  SL::DB::Manager::PartClassification->cache_all();

  my $obj = SL::DB::PartClassification->load_cached($id);

  $obj && $obj->abbreviation ? t8($obj->abbreviation) : '';

}

#

# generate selection tag

#

sub select_classification {

  my ($self, $name, %attributes) = @_;

  $attributes{value_key} = 'id';

  $attributes{title_key} = 'description';

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

  $_->description($::locale->text($_->description)) for @{ $collection };

  return $self->select_tag( $name, $collection, %attributes );

}

=item C<classification_abbreviation $classification_id>

Returns the shortcut of the classification

=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

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

  if ($filter{classification_id}) {

    push @filter_ary, "p.classification_id = ?";

    push @filter_vars, $filter{classification_id};

  }

     "classification_id"    => "p.classification_id",

     "part_type"            => "p.part_type",

  $form->{l_classification_id}  = 'Y';

#  - classification_id - will return matches with this parts with this classification only

  if ($filter{classification_id}) {

    push @filter_ary, "p.classification_id = ?";

    push @filter_vars, $filter{classification_id};

  }

     "classification_id"    => "p.classification_id",

     "part_type"            => "p.part_type",

  $form->{l_classification_id}  = 'Y';

  $form->{l_part_type}          = 'Y';

  my %is_xyz     = map { +"is_$_" => ($form->{searchitems} eq $_) } qw(part service assembly assortment);

  $form->{title} =~ s/ys$/ies/;

# partnumber ean description partsgroup classification serialnumber make model drawing microfiche

    'type_and_classific' => { 'text' => $locale->text('Type'), },

  $form->{"l_type_and_classific"} = "Y";

    partnumber type_and_classific description notes partsgroup bin onhand rop soldtotal unit listprice

    qw(l_type_and_classific classification_id),

    'article'  => $locale->text('article_list'),

                       'raw_bottom_info_text'  => $form->parse_html_template('ic/generate_report_bottom' ,

                                                  { PART_CLASSIFICATIONS => SL::DB::Manager::PartClassification->get_all_sorted }),

    $row->{type_and_classific}{data} = $::request->presenter->type_abbreviation($ref->{part_type}).

                                       $::request->presenter->classification_abbreviation($ref->{classification_id});

    runningnumber partnumber type_and_classific description ship ship_missing qty price_factor

    type_and_classific

                  => { width => 2,     value => $locale->text('Type'),                 display => 1, },

    $column_data{runningnumber}  = q|<a onclick= "$('#partnumber_| . $i . q|').val(''); $('#update_button').click();">| .

    $column_data{type_and_classific} = $::request->presenter->type_abbreviation($form->{"part_type_$i"}).

                                       $::request->presenter->classification_abbreviation($form->{"classification_id_$i"}) if $form->{"id_$i"};

    my $info                        = $form->{PART_INFORMATION}->{$form->{"id_${i}"}} || { };

    $form->{"partunit_${i}"}        = $info->{unit};

    $form->{"weight_$i"}            = $info->{weight};

    $form->{"part_type_$i"}         = $info->{part_type};

    $form->{"classification_id_$i"} = $info->{classification_id};

  my @columns = qw(trans_id date warehouse_from bin_from warehouse_to bin_to partnumber type_and_classific partdescription chargenumber bestbefore trans_type comment qty unit partunit employee oe_id projectnumber);

  map { $filter{$_} = $form->{$_} if ($form->{$_}) } qw(warehouse_id bin_id classification_id partnumber description chargenumber bestbefore);

  push @hidden_variables, qw(classification_id);

    'type_and_classific'

                      => { 'text' => $locale->text('Type'), },

  $column_defs{type_and_classific}->{visible} = 1;

  $column_defs{type_and_classific}->{link} ='';

  my $allrows = 0;

  $allrows = 1 if $form->{report_generator_output_format} ne 'HTML' ;

  # manual paginating

  my $pages = {};

  $pages->{per_page}        = $::form->{per_page} || 15;

  my $first_nr = ($page - 1) * $pages->{per_page};

  my $last_nr  = $first_nr + $pages->{per_page};

  my $idx       = 0;

    $entry->{type_and_classific} = $::request->presenter->type_abbreviation($entry->{part_type}).

                                   $::request->presenter->classification_abbreviation($entry->{classification_id});

  my @columns = qw(warehousedescription bindescription partnumber type_and_classific partdescription chargenumber bestbefore comment qty partunit stock_value);

  map { $filter{$_} = $form->{$_} if ($form->{$_}) } qw(warehouse_id bin_id classification_id partnumber description chargenumber bestbefore date include_invalid_warehouses);

  my $currentdate = $form->current_date(\%myconfig);

  push @options, $locale->text('Printdate') . " : ".$locale->date(\%myconfig, $currentdate, 1);

   classification_id => sub { push @options, $locale->text('Parts Classification'). " : ".

                                               SL::DB::Manager::PartClassification->get_first(where => [ id => $form->{classification_id} ] )->description; },

  push @options, $locale->text('Stock Qty for Date') . " " . $locale->date(\%myconfig, $form->{date}?$form->{date}:$currentdate, 1);

  push @hidden_variables, qw(classification_id);

    'type_and_classific'   => { 'text' => $locale->text('Type'), },

  $column_defs{type_and_classific}->{visible} = 1;

  $column_defs{type_and_classific}->{link} ='';

    $entry->{type_and_classific} = $::request->presenter->type_abbreviation($entry->{part_type}).

                                   $::request->presenter->classification_abbreviation($entry->{classification_id});

namespace("kivi").setupLocale({

"A transaction description is required.":"",

"Add function block":"",

"Add linked record":"",

"Add multiple items":"",

"Add picture":"",

"Add picture to text block":"",

"Add section":"",

"Add sub function block":"",

"Add text block":"",

"Additional articles actions":"",

"Are you sure?":"",

"Assign invoice":"",

"Basic settings actions":"",

"Cancel":"",

"Chart picker":"",

"Copy":"",

"Copy requirement spec":"",

"Copy template":"",

"Create":"",

"Create HTML":"",

"Create PDF":"",

"Create a new version":"",

"Create and print all invoices":"",

"Create invoice":"",

"Create new quotation/order":"",

"Create new qutoation/order":"",

"Create new version":"",

"Database Connection Test":"",

"Delete":"",

"Delete picture":"",

"Delete quotation/order":"",

"Delete requirement spec":"",

"Delete template":"",

"Delete text block":"",

"Do you really want do continue?":"",

"Do you really want to cancel?":"",

"Do you really want to delete this draft?":"",

"Do you really want to revert to this version?":"",

"Do you really want to save?":"",

"Do you want to set the account number \"#1\" to \"#2\" and the name \"#3\" to \"#4\"?":"",

"Download picture":"",

"Edit":"",

"Edit article/section assignments":"",

"Edit picture":"",

"Edit project link":"",

"Edit text block":"",

"Enter longdescription":"",

"Function block actions":"",

"Hide all details":"",

"Hide details":"",

"History":"",

"If you switch to a different tab without saving you will lose the data you've entered in the current tab.":"",

"Map":"",

"No":"",

"No delivery orders have been selected.":"",

"No invoices have been selected.":"",

"Part picker":"",

"Paste":"",

"Paste template":"",

"Please select a customer.":"",

"Please select a vendor.":"",

"Price Types":"",

"Print options":"",

"Project link actions":"",

"Quotations/Orders actions":"",

"Re-numbering all sections and function blocks in the order they are currently shown cannot be undone.":"",

"Remove article":"",

"Renumber sections and function blocks":"",

"Requirement spec actions":"",

"Requirement spec template actions":"",

"Revert to version":"",

"Save":"",

"Save and keep open":"",

"Section/Function block actions":"",

"Select template to paste":"",

"Show all details":"",

"Show details":"",

"Subject":"",

"Text block actions":"",

"Text block picture actions":"",

"The IBAN is missing.":"",

"The description is missing.":"",

"The name is missing.":"",

"The name must only consist of letters, numbers and underscores and start with a letter.":"",

"The option field is empty.":"",

"The recipient, subject or body is missing.":"",

"The selected database is still configured for client \"#1\". If you delete the database that client will stop working until you re-configure it. Do you still want to delete the database?":"",

"There are duplicate parts at positions":"",

"There are still transfers not matching the qty of the delivery order. Stock operations can not be changed later. Do you really want to proceed?":"",

"There is no connected chart.":"",

"There is one or more sections for which no part has been assigned yet; therefore creating the new record is not possible yet.":"",

"This sales order has an active configuration for periodic invoices. If you save then all subsequently created invoices will contain those changes as well, but not those that have already been created. Do you want to continue?":"",

"Time/cost estimate actions":"",

"Title":"",

"Toggle marker":"",