Projekt

Allgemein

Profil

Herunterladen (3,92 KB) Statistiken
| Zweig: | Markierung: | Revision:

kivitendo/SL/Controller/Buchungsgruppen.pm @ 1c62d23e

f5c454e3 Niclas Zimmermann
package SL::Controller::Buchungsgruppen;

use strict;

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

use SL::DB::TaxZone;
use SL::Helper::Flash;
use SL::Locale::String;
use SL::DB::TaxzoneChart;
use SL::Controller::ClientConfig;

use Rose::Object::MakeMethods::Generic (
scalar => [ qw(config) ],
);

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

#
# actions
#

sub action_list {
my ($self) = @_;

my $buchungsgruppen = SL::DB::Manager::Buchungsgruppe->get_all_sorted();
6e603868 Geoffrey Richardson
my $taxzones = SL::DB::Manager::TaxZone->get_all_sorted(query => [ obsolete => 0 ]);
f5c454e3 Niclas Zimmermann
my %chartlist = ();
foreach my $gruppe (@{ $buchungsgruppen }) {
$chartlist{ $gruppe->id } = SL::DB::TaxzoneChart->get_all_accounts_by_buchungsgruppen_id($gruppe->id);
}

$::form->header;
$self->render('buchungsgruppen/list',
title => t8('Buchungsgruppen'),
BUCHUNGSGRUPPEN => $buchungsgruppen,
CHARTLIST => \%chartlist,
TAXZONES => $taxzones);
}

sub action_new {
my ($self) = @_;

$self->config(SL::DB::Buchungsgruppe->new());
$self->show_form(title => t8('Add Buchungsgruppe'));
}

sub show_form {
my ($self, %params) = @_;

$self->render('buchungsgruppen/form', %params,
TAXZONES => SL::DB::Manager::TaxZone->get_all_sorted(),
ACCOUNTS => SL::Controller::ClientConfig->init_accounts(),
account_label => sub { "$_[0]{accno}--$_[0]{description}" });
}

sub action_edit {
my ($self) = @_;

6e603868 Geoffrey Richardson
# check whether buchungsgruppe is assigned to any parts
my $number_of_parts_with_buchungsgruppe = SL::DB::Manager::Part->get_objects_count(where => [ buchungsgruppen_id => $self->config->id]);

f5c454e3 Niclas Zimmermann
$self->show_form(title => t8('Edit Buchungsgruppe'),
6e603868 Geoffrey Richardson
linked_parts => $number_of_parts_with_buchungsgruppe,
f5c454e3 Niclas Zimmermann
CHARTLIST => SL::DB::TaxzoneChart->get_all_accounts_by_buchungsgruppen_id($self->config->id));
}

sub action_create {
my ($self) = @_;

$self->config(SL::DB::Buchungsgruppe->new());
$self->create_or_update;
}

sub action_update {
my ($self) = @_;
$self->create_or_update;
}

sub action_reorder {
my ($self) = @_;

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

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

#
# filters
#

sub check_auth {
$::auth->assert('config');
}

sub load_config {
my ($self) = @_;

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

#
# helpers
#

sub create_or_update {
my ($self) = @_;
my $is_new = !$self->config->id;

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

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

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

if (@errors) {
flash('error', @errors);
$self->show_form(title => $is_new ? t8('Add taxzone') : t8('Edit taxzone'));
return;
}

$self->config->save;

6e603868 Geoffrey Richardson
# check whether there are any assigned parts
my $number_of_parts_with_buchungsgruppe = SL::DB::Manager::Part->get_objects_count(where => [ buchungsgruppen_id => $self->config->id]);

# Save or update taxzone_charts:
if ($is_new or $number_of_parts_with_buchungsgruppe == 0) {
f5c454e3 Niclas Zimmermann
my $taxzones = SL::DB::Manager::TaxZone->get_all_sorted();

foreach my $tz (@{ $taxzones }) {
my $taxzone_chart = SL::DB::Manager::TaxzoneChart->find_by_or_create(buchungsgruppen_id => $self->config->id, taxzone_id => $tz->id);
$taxzone_chart->taxzone_id($tz->id);
$taxzone_chart->buchungsgruppen_id($self->config->id);
$taxzone_chart->income_accno_id($::form->{"income_accno_id_" . $tz->id});
$taxzone_chart->expense_accno_id($::form->{"expense_accno_id_" . $tz->id});
$taxzone_chart->save;
}
}

flash_later('info', $is_new ? t8('The Buchungsgruppe has been created.') : t8('The Buchungsgruppe has been saved.'));
$self->redirect_to(action => 'list');
}

1;