projekt kivitendo

package SL::Controller::BankAccount;

use strict;

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

use SL::Helper::Flash;

use SL::Locale::String;

use SL::DB::Default;

use SL::DB::Manager::BankAccount;

use SL::DB::Manager::BankTransaction;

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

  scalar                  => [ qw(bank_account) ],

);

__PACKAGE__->run_before('check_auth');

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

#

# actions

#

sub action_list {

  my ($self) = @_;

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

                title           => t8('Bank accounts'),

                BANKACCOUNTS    => SL::DB::Manager::BankAccount->get_all_sorted,

               );

}

sub action_new {

  my ($self) = @_;

  $self->{bank_account} = SL::DB::BankAccount->new;

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

                 title => t8('Add bank account'));

}

sub action_edit {

  my ($self) = @_;

  $self->render('bankaccounts/form', title => t8('Edit bank account'));

}

sub action_create {

  my ($self) = @_;

  $self->{bank_account} = SL::DB::BankAccount->new;

  $self->create_or_update;

}

sub action_update {

  my ($self) = @_;

  $self->create_or_update;

}

sub action_delete {

  my ($self) = @_;

  if ( $self->{bank_account}->{number_of_bank_transactions} > 0 ) {

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

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

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

  } else {

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

  };

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

}

sub action_reorder {

  my ($self) = @_;

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

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

}

#

# filters

#

sub check_auth {

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

}

sub load_bank_account {

  my ($self) = @_;

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

  $self->{bank_account}->{number_of_bank_transactions} = SL::DB::Manager::BankTransaction->get_all_count( query => [ local_bank_account_id => $self->{bank_account}->{id} ] );

}

#

# helpers

#

sub create_or_update {

  my ($self) = @_;

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

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

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

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

  if (@errors) {

    flash('error', @errors);

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

                   title => $is_new ? t8('Add bank account') : t8('Edit bank account'));

    return;

  }

  $self->{bank_account}->save;

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

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

}

1;

"The IBAN is missing.":"Die IBAN fehlt.",

"There is no connected chart.":"Es fehlt ein verknüpftes Buchungskonto.",

  'The bank account has been created.' => 'Das Bankkonto wurde erstellt.',

  'The bank account has been deleted.' => 'Das Bankkonto wurde gelöscht.',

  'The bank account has been saved.' => 'Das Bankkonto wurde gespeichert',

  'The bank account has been used and cannot be deleted.' => 'Das Bankkonto wurde benutzt und kann nicht gelöscht werden.',

    action: BankAccount/list

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

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

[% SET size=34 %]

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

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

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

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

<table>

  <tr>

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

    <td>[%- L.input_tag("bank_account.name", SELF.bank_account.name, size=size) %]</td>

  </tr>

  <tr>

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

    <td>[%- L.input_tag("bank_account.iban", SELF.bank_account.iban, size=size) %]</td>

  </tr>

  <tr>

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

    <td>[%- L.input_tag("bank_account.bank", SELF.bank_account.bank, size=size) %]</td>

  </tr>

  <tr>

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

    <td>[%- L.input_tag("bank_account.account_number", SELF.bank_account.account_number, size=size) %]</td>

  </tr>

  <tr>

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

    <td>[%- L.input_tag("bank_account.bic", SELF.bank_account.bic, size=size) %]</td>

  </tr>

  <tr>

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

    <td>[%- L.input_tag("bank_account.bank_code", SELF.bank_account.bank_code, size=size) %]</td>

  </tr>

  <tr>

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

    <td>[% L.chart_picker('bank_account.chart_id', SELF.bank_account.chart_id, type='AR_paid,AP_paid', category='A,L,Q', choose=1, style=style) %]</td>

  </tr>

  <tr>

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

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

  </tr>

  <tr>

    <td align="left">[% 'Reconciliation' | $T8 %]:</td>

    <td></td>

  </tr>

  <tr>

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

    <td>[% L.date_tag('bank_account.reconciliation_starting_date', SELF.bank_account.reconciliation_starting_date) %]</td>

  </tr>

  <tr>

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

    <td>[%- L.input_tag('bank_account.reconciliation_starting_balance_as_number', SELF.bank_account.reconciliation_starting_balance_as_number) %]</td>

  </tr>

</table>

 <p>

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

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

  [%- IF SELF.bank_account.id AND SELF.bank_account.number_of_bank_transactions == 0 -%]

    [% 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 ($('#bank_account_name').val() === "") {

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

    return false;

  }

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

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

    return false;

  }

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

    alert(kivi.t8('There is no connected chart.'));

    return false;

  }

  return true;

}

-->

</script>

</form>

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

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

<p>

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

  <thead>

   <tr class="listheading">

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

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

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

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

    <th>[% 'Bank code' | $T8 %]</th>

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

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

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

   </tr>

  </thead>

  <tbody>

   [%- FOREACH account = BANKACCOUNTS %]

    <tr class="listrow" id="account_id_[% account.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=account.id) %]">[% HTML.escape(account.name) %]</a></td>

     <td>[% HTML.escape(account.iban) %]</a></td>

     <td>[% HTML.escape(account.bank) %]</a></td>

     <td>[% HTML.escape(account.bank_code) %]</a></td>

     <td>[% HTML.escape(account.bic) %]</a></td>

     <td>[% HTML.escape(account.reconciliation_starting_date.to_kivitendo) %]</a></td>

     <td align="right">[% HTML.escape(account.reconciliation_starting_balance_as_number) %]</a></td>

    </tr>

   [%- END %]

  </tbody>

 </table>

</p>

<hr height="3">

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

<p>

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

</p>