projekt kivitendo

__PACKAGE__->run_before('check_auth');

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

__PACKAGE__->run_before('load_languages',    only => [ qw(new list edit create update) ]);

#

# actions

sub action_new {

  my ($self) = @_;

  $self->render('payment_term/form', title => $::locale->text('Create a new payment term'));

}

sub action_edit {

  my ($self) = @_;

  $self->render('payment_term/form', title => $::locale->text('Edit payment term'));

}

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

}

#

# helpers

#

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

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

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

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

__PACKAGE__->meta->columns(

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

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

  id               => { type => 'integer', not_null => 1, sequence => 'id' },

use strict;

use SL::DB::MetaSetup::PaymentTerm;

use SL::DB::Manager::PaymentTerm;

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

  my $reference_date  = $params{reference_date} || DateTime->today_local;

  $reference_date     = DateTime->from_kivitendo($reference_date) unless ref($reference_date) eq 'DateTime';

  my $terms           = ($params{terms} // 'net') eq 'discount' ? 'terms_skonto' : 'terms_netto';

  my $date            = $reference_date->add(days => $self->$terms);

=item C<calc_date [%params]>

Calculates and returns a due date as an instance of L<DateTime> by

C<%params> can contain the following parameters:

Defaults to the current date if unset.

=item C<terms>

Can be either C<net> or C<discount>. For C<net> the number of days to

}

sub set_payment_options {

  my ($self, $myconfig, $transdate) = @_;

  my ($invtotal, $total);

  my (%amounts, %formatted_amounts);

  }

  if ($self->{"language_id"}) {

      qq|SELECT t.translation, l.output_numberformat, l.output_dateformat, l.output_longdates | .

      qq|FROM generic_translations t | .

      qq|LEFT JOIN language l ON t.language_id = l.id | .

  $self->{skonto_in_percent} = $formatted_amounts{skonto_in_percent};

}

sub get_template_language {

  $main::lxdebug->leave_sub();

}

sub _get_contacts {

  $main::lxdebug->enter_sub();

  my $dateformat = $myconfig->{dateformat};

  $dateformat .= "yy" if $myconfig->{dateformat} !~ /^y/;

  my $cid = conv_i($form->{customer_id});

  my $payment_id;

  # get customer

  $query =

    qq|SELECT

         c.street, c.zipcode, c.city, c.country,

         c.notes AS intnotes, c.klass as customer_klass, c.taxzone_id, c.salesman_id, cu.name AS curr,

         c.taxincluded_checked, c.direct_debit,

         b.discount AS tradediscount, b.description AS business

       FROM customer c

       LEFT JOIN business b ON (b.id = c.business_id)

       LEFT JOIN currencies cu ON (c.currency_id=cu.id)

       WHERE c.id = ?|;

  push @values, $cid;

  $ref = selectfirst_hashref_query($form, $dbh, $query, @values);

  delete $ref->{salesman_id} if !$ref->{salesman_id};

  map { $form->{$_} = $ref->{$_} } keys %$ref;

  # use customer currency

  $form->{currency} = $form->{curr};

use List::MoreUtils qw(any uniq apply);

use List::Util qw(min max first);

use SL::CVar;

use SL::Common;

use SL::CT;

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

use SL::IC;

  $main::lxdebug->leave_sub();

}

  _check_io_auth();

}

sub _update_part_information {

  ), @custom_hiddens,

  map { $_.'_rate', $_.'_description', $_.'_taxnumber' } split / /, $form->{taxaccounts}];

  $form->header();

use SL::DB::Default;

use SL::DB::Customer;

require "bin/mozilla/io.pl";

require "bin/mozilla/invoice_io.pl";

  ), @custom_hiddens,

  map { $_.'_rate', $_.'_description', $_.'_taxnumber' } split / /, $form->{taxaccounts}];

  $form->header();

  relink_accounts();

  # If transfer_out is requested, get rose db handle and do post and

  # transfer out in one transaction. Otherwise just post the invoice.

  if ($::instance_conf->get_is_transfer_out && $form->{type} ne 'credit_note' && !$form->{storno}) {

  $form->{rowcount}--;

  $form->{paidaccounts} = 1;

  $form->{invdate}      = $form->current_date(\%myconfig);

  $form->{employee_id}  = SL::DB::Manager::Employee->current->id;

  $form->{forex}        = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{invdate}, 'buy');

  $form->{exchangerate} = $form->{forex} if $form->{forex};

  this.init_on_submit_checks = function() {

     $('input[type=submit]').click(kivi.SalesPurchase.on_submit_checks);

  };

});

  'Authentification database creation' => 'Anlegen der Datenbank zur Benutzerauthentifizierung',

  'Authentification tables creation' => 'Anlegen der Tabellen zur Benutzerauthentifizierung',

  'Auto Send?'                  => 'Auto. Versand?',

  'Automatic deletion of leading, trailing and excessive (repetitive) spaces in customer or vendor names' => 'Automatisches Löschen von voran-/nachgestellten und aufeinanderfolgenden Leerzeichen im Kunden- oder Lieferantennamen',

  'Automatic deletion of leading, trailing and excessive (repetitive) spaces in part description and part notes. Affects the CSV import as well.' => 'Automatisches Löschen von voran-/nachgestellten und aufeinanderfolgenden Leerzeichen in Artikelbeschreibungen und -bemerkungen. Betrifft auch den CSV-Import.',

  'Automatic skonto chart purchase' => 'Skontoautomatik Einkauf',

  'CSV import: shipping addresses' => 'CSV-Import: Lieferadressen',

  'CTI settings'                => 'CTI-Einstellungen',

  'Calculate'                   => 'Berechnen',

  'Calculate the value of goods for delivery plan (WARNING:  Experimental (not taxincluded safe!)' => 'Warenverkaufswert anzeigen (Brutto / Netto), so wie im Auftrags-Beleg gespeichert. Benötigt das Recht: Verkaufs-Aufträge bearbeiten.',

  'Calling #1 now'              => 'Wähle jetzt #1',

  'Can not create that quantity with current stock' => 'Diese Anzahl kann mit dem gegenwärtigen Lagerbestand nicht hergestellt werden.',

    description_long => 'payment',

    terms_netto      => '30',

    terms_skonto     => '5',

  )->save;

  $vendor       = SL::DB::Vendor->new(

[%- END %]

</form>

        </tr>

        <tr>

          <th align="right">[% 'Credit Note Date' | $T8 %]</th>

        </tr>

[%- ELSE %]

        <tr>

        </tr>

        <tr>

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

        </tr>

        <tr>

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

        </tr>

[%- END %]

[% ELSE %]

[% END %]

     });

   //-->

  </script>

  <input type="hidden" name="webdav" value="[% webdav | html %]">

                   label_key     = 'description',

                   show_empty    = 1

                   allow_textbox = 0 -%]

               </td>

             </tr>

             <tr>

        </tr>

        <tr>

          <th align="right">[% 'Credit Note Date' | $T8 %]</th>

        </tr>

[%- ELSE %]

        <tr>

        </tr>

        <tr>

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

        </tr>

        <tr>

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

        </tr>

        <tr>

        <th align="right" nowrap>[% 'Delivery Order Number' | $T8 %]</th>

[% ELSE %]

[% END %]

     });

   //-->

  </script>

<table width="100%">

    </tr>

   [%- END %]

   <tr>

    <td>[%- 'Netto Terms' | $T8 %]</td>

    <td>

    </td>

   </tr>

   <tr><td>&lt;%bank_code%&gt;</td><td>[% LxERP.t8("Your bank code") %]</td></tr>

  </table>

 </form>

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

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

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

     <th align="right">[%- 'Netto Terms' | $T8 %]</th>

     <th align="right">[%- 'Skonto Terms' | $T8 %]</th>

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

      </a>

     </td>

     <td>[%- HTML.escape(payment_term.description_long) %]</td>

     <td align="right">[%- HTML.escape(payment_term.terms_netto_as_number) %]</td>

     <td align="right">[%- HTML.escape(payment_term.terms_skonto_as_number) %]</td>

     <td align="right">[%- HTML.escape(payment_term.percent_skonto_as_percent) %] %</td>

 </form>

 [% L.sortable_element('#payment_term_list tbody', url => 'controller.pl?action=PaymentTerm/reorder', with => 'payment_term_id') %]