projekt kivitendo

  return SL::DB::Manager::Pricegroup->get_all_sorted;

  $self->{all_pricegroups} = SL::DB::Manager::Pricegroup->get_all_sorted(query => [ or => [ id => $self->{cv}->pricegroup_id, obsolete => 0 ] ]);

  SL::DB::Manager::Pricegroup->get_all_sorted;

package SL::Controller::Pricegroup;

use strict;

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

use SL::Helper::Flash;

use SL::Locale::String;

use SL::DB::Default;

use SL::DB::Manager::Pricegroup;

use Rose::Object::MakeMethods::Generic (

  scalar                  => [ qw(pricegroup) ],

  'scalar --get_set_init' => [ qw(all_pricegroups) ],

);

__PACKAGE__->run_before('check_auth');

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

#

# actions

#

sub action_list {

  my ($self) = @_;

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

                title   => t8('Pricegroups'),

               );

}

sub action_new {

  my ($self) = @_;

  $self->pricegroup( SL::DB::Pricegroup->new );

  $self->render('pricegroup/form',

                 title => t8('Add pricegroup'),

               );

}

sub action_edit {

  my ($self) = @_;

  $self->render('pricegroup/form',

                 title   => t8('Edit pricegroup'),

                );

}

sub action_create {

  my ($self) = @_;

  $self->pricegroup( SL::DB::Pricegroup->new );

  $self->create_or_update;

}

sub action_update {

  my ($self) = @_;

  $self->create_or_update;

}

sub action_delete {

  my ($self) = @_;

  if ( !$self->pricegroup->orphaned ) {

    flash_later('error', $::locale->text('The pricegroup has been used and cannot be deleted.'));

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

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

  } else {

    flash_later('error', $::locale->text('The pricegroup has been used and cannot be deleted.'));

  };

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

}

sub action_reorder {

  my ($self) = @_;

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

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

}

#

# filters

#

sub check_auth {

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

}

sub load_pricegroup {

  my ($self) = @_;

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

}

sub init_all_pricegroups { SL::DB::Manager::Pricegroup->get_all_sorted }

#

# helpers

#

sub create_or_update {

  my ($self) = @_;

  my $is_new = !$self->pricegroup->id;

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

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

  my @errors = $self->pricegroup->validate;

  if (@errors) {

    flash('error', @errors);

    $self->render('pricegroup/form',

                   title => $is_new ? t8('Add pricegroup') : t8('Edit pricegroup'),

                 );

    return;

  }

  $self->pricegroup->save;

  flash_later('info', $is_new ? t8('The pricegroup has been created.') : t8('The pricegroup has been saved.'));

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

}

1;

__END__

=encoding utf-8

=head1 NAME

SL::Controller::Pricegroup - CRUD controller for pricegroups

=head1 SYNOPSIS

A new controller to create / edit / delete pricegroups.

Pricegroups can only be deleted if they haven't been used anywhere.

=head1 OBSOLETE PRICEGROUPS

Pricegroups can't be obsoleted while any of the customers still use that

pricegroup as their default pricegroup. Obsoleting a pricegroup means it can't

be selected when editing customers and it can't be selected as a price source

for new records.

=head1 AUTHOR

G. Richardson E<lt>grichardson@kivitendo-premium.deE<gt>

=cut

  return ( default => [ 'sortkey', 1 ],

           columns => { SIMPLE => 'ALL' });

  obsolete   => { type => 'boolean', default => 'false' },

  sortkey    => { type => 'integer', not_null => 1 },

use SL::DB::Helper::ActsAsList;

use SL::DB::Customer;

sub validate {

  my ($self) = @_;

  my @errors;

  if ( $self->obsolete && SL::DB::Manager::Customer->get_all_count(query => [ pricegroup_id => $self->id ]) ) {

    push @errors, $::locale->text('The pricegroup is being used by customers.');

  }

  return @errors;

}

sub orphaned {

  my ($self) = @_;

  die 'not an accessor' if @_ > 1;

  return 1 unless $self->id;

  my @relations = qw(

    SL::DB::Customer

    SL::DB::Price

  );

  # check if pricegroup is the default pricegroup for any customers and has any

  # prices assigned.

  for my $class (@relations) {

    eval "require $class";

    return 0 if $class->_get_manager_class->get_all_count(query => [ pricegroup_id => $self->id ]);

  }

  # check if pricegroup was used in any pricesource

  my @item_relations = qw(

    SL::DB::OrderItem

    SL::DB::DeliveryOrderItem

    SL::DB::InvoiceItem

  );

  for my $class (@item_relations) {

    eval "require $class";

    return 0 if $class->_get_manager_class->get_all_count(query => [ active_price_source => 'pricegroup/' . $self->id ]);

  }

  return 1;

}

  my $query = [ parts_id => $item->parts_id, price => { gt => 0 } ];

  # add a pricegroup_filter for obsolete pricegroups, unless part of an

  # existing pricegroup where that pricegroup was actually used.

  if ( $self->record->id and $item->active_price_source =~ m/^pricegroup/ ) {

    my ($pricegroup_id) = $item->active_price_source =~ m/^pricegroup\/(\d+)$/;

    push(@{$query}, or => [ 'pricegroup.obsolete' => 0, 'pricegroup_id' => $pricegroup_id ]);

  } else {

    push(@{$query}, 'pricegroup.obsolete' => 0);

  }

    query        => $query,

    sort_by      => 'pricegroup.sortkey',

  my $pricegroups = SL::DB::Manager::Pricegroup->get_all_sorted;

# partsgroup administration

  - Neuer Controller für Preisgruppen, die nun sortiert und ungültig gesetzt

    werden können.

  'Add pricegroup'              => 'Preisgruppe hinzufügen',

  'Edit pricegroup'             => 'Preisgruppe bearbeiten',

  'The pricegroup has been created.' => 'Die Preisgruppe wurde erstellt.',

  'The pricegroup has been deleted.' => 'Die Preisgruppe wurde gelöscht.',

  'The pricegroup has been saved.' => 'Die Preisgruppe wurde gespeichert.',

  'The pricegroup has been used and cannot be deleted.' => 'Die Preisgruppe wurde bereits verwendet und kann nicht gelöscht werden.',

  'The pricegroup is being used by customers.' => 'Die Preisgruppe wird von Kunden verwendet.',

    action: Pricegroup/list

-- @tag: pricegroup_sortkey_obsolete

-- @description: Sortierreihenfolge und ungültig für Preisgruppen

-- @charset: UTF-8

-- @depends: release_3_4_1

-- @ignore: 0

ALTER TABLE pricegroup ADD COLUMN obsolete BOOLEAN DEFAULT FALSE;

ALTER TABLE pricegroup ADD COLUMN sortkey INTEGER;

CREATE SEQUENCE tmp_counter;

UPDATE pricegroup SET sortkey = nextval('tmp_counter');

DROP SEQUENCE tmp_counter;

ALTER TABLE pricegroup ALTER COLUMN sortkey SET NOT NULL;

[%- USE HTML -%][%- USE LxERP -%][%- USE L -%][%- USE T8 -%]

[% SET style="width: 400px" %]

[% SET size=15 %]

<h1>[% HTML.escape(title) %]</h1>

<form action="controller.pl" method="post">

[%- INCLUDE 'common/flash.html' %]

[%- L.hidden_tag("id", SELF.pricegroup.id) %]

<table>

  <tr>

    <th align="right">[% 'Description' | $T8 %]</th>

    <td>

       [%- L.input_tag("pricegroup.pricegroup", SELF.pricegroup.pricegroup) %]

   </td>

  [% IF SELF.pricegroup.id %]

  <tr>

    <th align="right">[% 'Obsolete' | $T8 %]</th>

    <td>[% L.checkbox_tag('pricegroup.obsolete', checked = SELF.pricegroup.obsolete, for_submit=1) %]</td>

  </tr>

  </tr>

  [% END %]

</table>

 <p>

  [% L.hidden_tag("action", "Pricegroup/dispatch") %]

  [% L.submit_tag("action_" _  (SELF.pricegroup.id ? "update" : "create"), LxERP.t8('Save'), onclick="return check_prerequisites();") %]

  [%- IF SELF.pricegroup.id AND SELF.pricegroup.orphaned -%]

    [% L.submit_tag("action_delete", LxERP.t8('Delete')) %]

  [%- END %]

  <a href="[% SELF.url_for(action='list') %]">[%- LxERP.t8("Cancel") %]</a>

 </p>

 <hr>

<script type="text/javascript">

<!--

function check_prerequisites() {

  if ($('#pricegroup_pricegroup').val() === "") {

    alert(kivi.t8('The description is missing.'));

    return false;

  }

  return true;

}

-->

</script>

[%- USE HTML -%][%- USE LxERP -%][%- USE L -%][%- USE T8 -%][%- INCLUDE 'common/flash.html' %]

<h1>[% title %]</h1>

<p>

 <table width="100%" id="pricegroup_list">

  <thead>

   <tr class="listheading">

    <th align="center" width="1%"><img src="image/updown.png" alt="[ LxERP.t8('reorder item') %]"></th>

    <th>[% 'Description' | $T8 %]</th>

    <th>[% 'Obsolete'    | $T8 %]</th>

   </tr>

  </thead>

  <tbody>

   [%- FOREACH pricegroup = SELF.all_pricegroups %]

    <tr class="listrow" id="pricegroup_id_[% pricegroup.id %]">

     <td align="center" class="dragdrop"><img src="image/updown.png" alt="[ LxERP.t8('reorder item') %]"></td>

     <td><a href="[% SELF.url_for(action='edit', id=pricegroup.id) %]">[% HTML.escape(pricegroup.pricegroup) %]</a></td>

     <td>[% HTML.escape(pricegroup.obsolete) %]</a></td>

    </tr>

   [%- END %]

  </tbody>

 </table>

</p>

<hr height="3">

[% L.sortable_element('#pricegroup_list tbody', url=SELF.url_for(action='reorder'), with='pricegroup_id') %]

<p>

 <a href="[% SELF.url_for(action='new') %]">[%- 'Add' | $T8 %]</a>

</p>