projekt kivitendo

  $query = qq|SELECT * FROM shipto WHERE (trans_id = ?)|;

  $form->{SHIPTO} = selectall_hashref_query($form, $dbh, $query, $vc_id);

  $query = qq|SELECT * FROM contacts WHERE (cp_cv_id = ?)|;

  $form->{CONTACTS} = selectall_hashref_query($form, $dbh, $query, $vc_id);

use SL::MIME;

use SL::Util qw(trim);

use SL::YAML;

use SL::DB::History;

use SL::DB::Order;

use SL::DB::Default;

    $self->js->hide('#shipto_selection');

  }

  $self->js->val( '#order_salesman_id',      $self->order->salesman_id)        if $self->order->is_sales;

  $self->js

    ->focus(      '#order_' . $self->cv . '_id')

    ->run('kivi.Order.update_exchangerate');

  $details{payment_terms}       = $cv->payment->description       if $cv->payment;

  $details{pricegroup}          = $cv->pricegroup->pricegroup     if $is_customer && $cv->pricegroup;

  foreach my $entry (@{ $cv->shipto }) {

    push @{ $details{SHIPTO} },   { map { $_ => $entry->$_ } @{$entry->meta->columns} };

  }

  );

}

# build the selection box for shiptos

#

# Needed, if customer/vendor changed.

  $order->intnotes($order->customervendor->notes);

}

# setup custom shipto from form

use strict;

use Rose::DB::Object::Helpers qw(as_tree);

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

  return $self->create_zugferd_invoices;

}

1;

  }

  my %args = ( map({ ( $_ => $source->$_ ) } qw(cp_id currency_id customer_id cusordnumber delivery_term_id department_id employee_id globalproject_id intnotes language_id notes

                                             )),

               closed    => 0,

               is_sales  => !!$source->customer_id,

  $terms = $source->customer->payment_terms if !defined $terms && $source->customer;

  my %args = ( map({ ( $_ => $source->$_ ) } qw(customer_id taxincluded shippingpoint shipvia notes intnotes salesman_id cusordnumber ordnumber department_id

               transdate   => $params{transdate} // DateTime->today_local,

               gldate      => DateTime->today_local,

               duedate     => $terms ? $terms->calc_date(reference_date => DateTime->today_local) : DateTime->today_local,

  my %args = ( map({ ( $_ => $source->$_ ) } qw(amount cp_id currency_id cusordnumber customer_id delivery_customer_id delivery_term_id delivery_vendor_id

                                                department_id exchangerate globalproject_id intnotes marge_percent marge_total language_id netamount notes

                                                ordnumber payment_id quonumber reqdate salesman_id shippingpoint shipvia taxincluded tax_point taxzone_id

                                             )),

               quotation => !!($destination_type =~ m{quotation$}),

               closed    => 0,

         donumber = ?, ordnumber = ?, cusordnumber = ?, transdate = ?, vendor_id = ?,

         customer_id = ?, reqdate = ?, tax_point = ?,

         shippingpoint = ?, shipvia = ?, notes = ?, intnotes = ?, closed = ?,

         globalproject_id = ?, employee_id = ?, salesman_id = ?, cp_id = ?, transaction_description = ?,

         is_sales = ?, taxzone_id = ?, taxincluded = ?, payment_id = ?, currency_id = (SELECT id FROM currencies WHERE name = ?),

         delivery_term_id = ?

             conv_date($form->{reqdate}), conv_date($form->{tax_point}), $form->{shippingpoint}, $form->{shipvia},

             $restricter->process($form->{notes}), $form->{intnotes},

             $form->{closed} ? 't' : 'f', $form->{delivered} ? "t" : "f",

             conv_i($form->{globalproject_id}), conv_i($form->{employee_id}),

             conv_i($form->{salesman_id}), conv_i($form->{cp_id}),

             $form->{transaction_description},

         dord.${vc}_id, cv.name AS ${vc},

         dord.closed, dord.reqdate, dord.department_id, dord.cusordnumber,

         d.description AS department, dord.language_id,

         dord.itime, dord.mtime,

         dord.globalproject_id, dord.delivered, dord.transaction_description,

         dord.taxzone_id, dord.taxincluded, dord.payment_id, (SELECT cu.name FROM currencies cu WHERE cu.id=dord.currency_id) AS currency,

                shipvia     = ?,                    notes         = ?, intnotes      = ?,

                currency_id = (SELECT id FROM currencies WHERE name = ?),

                department_id = ?, payment_id    = ?, taxincluded   = ?,

                employee_id = ?, salesman_id   = ?, storno_id     = ?, storno        = ?,

                cp_id       = ?, marge_total   = ?, marge_percent = ?,

                globalproject_id               = ?, delivery_customer_id             = ?,

             conv_date($form->{"duedate"}),  conv_date($form->{"deliverydate"}),    '1',                                $form->{"shippingpoint"},

                       $form->{"shipvia"},                                $restricter->process($form->{"notes"}),       $form->{"intnotes"},

                       $form->{"currency"},     conv_i($form->{"department_id"}), conv_i($form->{"payment_id"}),        $form->{"taxincluded"} ? 't' : 'f',

                conv_i($form->{"employee_id"}), conv_i($form->{"salesman_id"}),   conv_i($form->{storno_id}),           $form->{"storno"} ? 't' : 'f',

                conv_i($form->{"cp_id"}),            1 * $form->{marge_total} ,      1 * $form->{marge_percent},

                conv_i($form->{"globalproject_id"}),                              conv_i($form->{"delivery_customer_id"}),

           a.transdate AS invdate, a.deliverydate, a.tax_point, a.paid, a.storno, a.storno_id, a.gldate,

           a.shippingpoint, a.shipvia, a.notes, a.intnotes, a.taxzone_id,

           a.duedate, a.taxincluded, (SELECT cu.name FROM currencies cu WHERE cu.id=a.currency_id) AS currency, a.shipto_id, a.cp_id,

           a.employee_id, a.salesman_id, a.payment_id,

           a.mtime, a.itime,

           a.language_id, a.delivery_customer_id, a.delivery_vendor_id, a.type,

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

         c.notes AS intnotes, c.pricegroup_id as customer_pricegroup_id, 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)

         customer_id = ?, amount = ?, netamount = ?, reqdate = ?, tax_point = ?, taxincluded = ?,

         shippingpoint = ?, shipvia = ?, notes = ?, intnotes = ?, currency_id = (SELECT id FROM currencies WHERE name=?), closed = ?,

         delivered = ?, proforma = ?, quotation = ?, department_id = ?, language_id = ?,

         globalproject_id = ?, employee_id = ?, salesman_id = ?, cp_id = ?, transaction_description = ?, marge_total = ?, marge_percent = ?

         , order_probability = ?, expected_billing_date = ?

       WHERE id = ?|;

             $form->{delivered} ? "t" : "f", $form->{proforma} ? 't' : 'f',

             $quotation, conv_i($form->{department_id}),

             conv_i($form->{language_id}), conv_i($form->{taxzone_id}),

             conv_i($form->{delivery_vendor_id}),

             conv_i($form->{delivery_customer_id}),

             conv_i($form->{delivery_term_id}),

           o.closed, o.reqdate, o.tax_point, o.quonumber, o.department_id, o.cusordnumber,

           o.mtime, o.itime,

           d.description AS department, o.payment_id, o.language_id, o.taxzone_id,

           o.globalproject_id, o.delivered, o.transaction_description, o.delivery_term_id,

           o.itime::DATE AS insertdate, o.order_probability, o.expected_billing_date

         FROM oe o

  $form->{show_details} = $::myconfig{show_form_details};

  $form->{callback} = build_std_url('action=add', 'type', 'vc') unless ($form->{callback});

  prepare_order();

  display_form();

  check_do_access();

  my $form     = $main::form;

  my %myconfig = %main::myconfig;

  } else {

    IS->get_customer(\%myconfig, \%$form);

    $form->{discount} = $form->{customer_discount};

  }

  $form->restore_vars(qw(payment_id language_id taxzone_id intnotes cp_id delivery_term_id));

  if (($form->{"previous_${vc}_id"} || $form->{"${vc}_id"}) != $form->{"${vc}_id"}) {

    $::form->{salesman_id} = SL::DB::Manager::Employee->current->id if exists $::form->{salesman_id};

  }

  $form->{discount} =  $form->{"$form->{vc}_discount"} if defined $form->{"$form->{vc}_discount"};

  if (($form->{"previous_${vc}_id"} || $form->{"${vc}_id"}) != $form->{"${vc}_id"}) {

    $::form->{salesman_id} = SL::DB::Manager::Employee->current->id if exists $::form->{salesman_id};

    update();

    $::dispatcher->end_request;

  $form->{callback} = "$form->{script}?action=add&type=$form->{type}" unless $form->{callback};

  &prepare_invoice;

  &display_form;

  # Delay access check to after the invoice's been loaded so that

  # project-specific invoice rights can be evaluated.

  my $form     = $main::form;

  my %myconfig = %main::myconfig;

  IS->get_customer(\%myconfig, \%$form);

  $form->restore_vars(qw(id));

  IS->retrieve_invoice(\%myconfig, \%$form);

    $::form->{salesman_id} = SL::DB::Manager::Employee->current->id if exists $::form->{salesman_id};

    IS->get_customer(\%myconfig, $form);

  }

  $form->{taxincluded} ||= $taxincluded;

  $form->{show_details} = $::myconfig{show_form_details};

  &prepare_order;

  &display_form;

sub order_links {

  $main::lxdebug->enter_sub();

  my $form     = $main::form;

  my %myconfig = %main::myconfig;

  my $locale   = $main::locale;

  $form->backup_vars(qw(payment_id language_id taxzone_id salesman_id taxincluded cp_id intnotes shipto_id delivery_term_id currency));

  # get customer / vendor

  $form->restore_vars(qw(payment_id language_id taxzone_id intnotes cp_id shipto_id delivery_term_id));

  $form->restore_vars(qw(currency))    if $form->{id};

  if (($form->{"previous_${vc}_id"} || $form->{"${vc}_id"}) != $form->{"${vc}_id"}) {

    $::form->{salesman_id} = SL::DB::Manager::Employee->current->id if exists $::form->{salesman_id};

  }

  if (!$form->{forex}) {        # read exchangerate from input field (not hidden)

    IS->get_customer(\%myconfig, $form) if $vc eq 'customer';

    IR->get_vendor(\%myconfig, $form)   if $vc eq 'vendor';

    update();

    $::dispatcher->end_request;

  }

  if (($form->{"previous_${vc}_id"} || $form->{"${vc}_id"}) != $form->{"${vc}_id"}) {

    $::form->{salesman_id} = SL::DB::Manager::Employee->current->id if exists $::form->{salesman_id};

    update();

    $::dispatcher->end_request;

  'Added sections and function blocks: #1' => 'Hinzugefügte Abschnitte und Funktionsblöcke: #1',

  'Added text blocks: #1'       => 'Hinzugefügte Textblöcke: #1',

  'Addition'                    => 'Zusatz',

  'Additional Billing Addresses' => 'Zusätzliche Rechnungsadressen',

  'Additional articles'         => 'Zusätzliche Artikel',

  'Additional articles actions' => 'Aktionen zu zusätzlichen Artikeln',

  'Current version'             => 'Aktuelle Version',

  'Current year'                => 'Aktuelles Jahr',

  'Currently #1 delivery orders can be converted into invoices and printed.' => 'Momentan können #1 Lieferscheine in Rechnungen umgewandelt werden.',

  'Custom CSV format'           => 'Eigenes CSV-Format',

  'Custom Variables'            => 'Benutzerdefinierte Variablen',

  'Custom data export'          => 'Benutzerdefinierter Datenexport',

[%- USE T8 %]

<h1>[% IF is_customer %][% 'Customer details' | $T8 %][% ELSE %][% 'Vendor details' | $T8 %][% END %] &quot;[% HTML.escape(name) %]&quot;</h1>

[% BLOCK jump_block %]

[%- IF SHIPTO.size || CONTACTS.size %]

 <p>

  [% 'Jump to' | $T8 %] <a href="#billing">[% 'Billing Address' | $T8 %]</a>

  [%- FOREACH shipto = SHIPTO %]

   ,

   <a href="#shipping[% loop.count %]">

[%- END %]

[% END %]

 <a name="billing"><h1>[% 'Billing Address' | $T8 %]</h1></a>

 </table>

 [% FOREACH row = SHIPTO %]

  <hr>

  <a name="shipping[% loop.count %]"><h1>[% 'Shipping Address' | $T8 %] &quot;[% HTML.escape(row.shiptoname) %]&quot;</h1></a>

  <hr>

  <a name="contact[% loop.count %]"><h1>[% 'Contact Person' | $T8 %] &quot;[% HTML.escape(row.cp_name) %]&quot;</h1></a>

         </td>

        </tr>

        [%- IF business %]

        <tr>

         <th align="right">[% IF is_customer %][% 'Customer type' | $T8 %][% ELSE %][% 'Vendor type' | $T8 %][% END %]</th>

           [% L.button_tag("kivi.SalesPurchase.edit_custom_shipto()", LxERP.t8("Custom shipto")) %]

          </td>

        </tr>

        <tr>

          <td align="right">[% 'Credit Limit' | $T8 %]</td>

          <td>

                      [% L.button_tag("kivi.SalesPurchase.edit_custom_shipto()", LxERP.t8("Custom shipto")) %]

                    </td>

                  </tr>

[%- IF is_order %]

                  <tr>

                    <td align="right">[% 'Credit Limit' | $T8 %]</td>

            </td>

          </tr>

          [%- PROCESS order/tabs/_business_info_row.html SELF=SELF %]

          <tr>