projekt kivitendo

  my $query =

    qq|SELECT DISTINCT a.id, a.invnumber, a.ordnumber, a.cusordnumber, a.transdate, | .

    qq|  a.duedate, a.netamount, a.amount, a.paid, | .

    qq|  a.shippingpoint, a.storno, a.storno_id, a.globalproject_id, | .

    qq|  a.marge_total, a.marge_percent, | .

    qq|  a.transaction_description, | .

sub items { goto &orderitems; }

sub add_items { goto &add_orderitems; }

sub sales_order {

  my $self   = shift;

    $item_parent_column    = 'order';

  }

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

                                             )),

               closed    => 0,

               is_sales  => !!$source->customer_id,

               delivered => 0,

               transdate => DateTime->today_local,

            );

  _copy($self, $form, '', '', 0, qw(id type taxzone_id ordnumber quonumber invnumber donumber cusordnumber taxincluded shippingpoint shipvia notes intnotes cp_id

                                    employee_id salesman_id closed department_id language_id payment_id delivery_customer_id delivery_vendor_id shipto_id proforma

                                    orddate quodate reqdate gldate duedate deliverydate datepaid transdate delivery_term_id));

  $form->{currency} = $form->{curr} = $self->currency_id ? $self->currency->name || '' : '';

  require SL::DB::Employee;

  my (@columns, @item_columns, $item_parent_id_column, $item_parent_column);

  if (ref($source) eq 'SL::DB::Order') {

    @item_columns = qw(subtotal);

    $item_parent_id_column = 'trans_id';

    $item_parent_column    = 'delivery_order';

  }

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

               transdate   => DateTime->today_local,

               gldate      => DateTime->today_local,

               invoice     => 1,

               type        => 'invoice',

               storno      => 0,

  taxincluded_checked       => { type => 'boolean' },

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

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

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

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

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

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

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

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

  reqdate                 => { type => 'date' },

  salesman_id             => { type => 'integer' },

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

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

  taxincluded             => { type => 'boolean' },

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

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

  transdate               => { type => 'date', default => 'now()' },

  vendor_id               => { type => 'integer' },

    key_columns => { language_id => 'id' },

  },

  salesman => {

    class       => 'SL::DB::Employee',

    key_columns => { salesman_id => 'id' },

  storno_id                 => { type => 'integer' },

  taxincluded               => { type => 'boolean' },

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

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

  transdate                 => { type => 'date', default => 'now' },

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

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

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

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

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

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

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

  taxincluded      => { type => 'boolean' },

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

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

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

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

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

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

         delivered = ?, department_id = ?, language_id = ?, shipto_id = ?,

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

         delivery_term_id = ?

       WHERE id = ?|;

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

             $form->{transaction_description},

             $form->{type} =~ /^sales/ ? 't' : 'f',

             conv_i($form->{delivery_term_id}),

             conv_i($form->{id}));

  do_query($form, $dbh, $query, @values);

         d.description AS department, dord.language_id,

         dord.shipto_id,

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

         dord.delivery_term_id, dord.itime::DATE AS insertdate

       FROM delivery_orders dord

       JOIN ${vc} cv ON (dord.${vc}_id = cv.id)

                    "d.description"           => "department",

                    "ct.name"                 => $table,

                    "cu.name"                 => "currency",

    );

  if ($self->{type} =~ /delivery_order/) {

  my $query =

    qq|SELECT

         v.id AS vendor_id, v.name AS vendor, v.discount as vendor_discount,

         v.email, v.cc, v.bcc, v.language_id, v.payment_id, v.delivery_term_id,

         v.street, v.zipcode, v.city, v.country, v.taxzone_id, cu.name AS curr, v.direct_debit,

         $duedate + COALESCE(pt.terms_netto, 0) AS duedate,

  my $dbh = $form->get_standard_dbh;

  my $sth;

  my (@project_ids);

  $form->{TEMPLATE_ARRAYS} = {};

          $sortorder = qq|ORDER BY a.oid|;

        }

          qq|SELECT p.partnumber, p.description, p.unit, a.qty, pg.partsgroup

             FROM assembly a

             JOIN parts p ON (a.parts_id = p.id)

                transdate   = ?, orddate       = ?, quodate       = ?, customer_id   = ?,

                amount      = ?, netamount     = ?, paid          = ?,

                duedate     = ?, deliverydate  = ?, invoice       = ?, shippingpoint = ?,

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

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

                type        = ?, language_id   = ?, taxzone_id    = ?, shipto_id     = ?,

             conv_date($form->{"invdate"}),  conv_date($form->{"orddate"}),    conv_date($form->{"quodate"}),    conv_i($form->{"customer_id"}),

                       $amount,                        $netamount,                       $form->{"paid"},

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

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

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

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

           a.invnumber, a.ordnumber, a.quonumber, a.cusordnumber,

           a.orddate, a.quodate, a.globalproject_id,

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

           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.language_id, a.delivery_customer_id, a.delivery_vendor_id, a.type,

  # get customer

  $query =

    qq|SELECT

         c.email, c.cc, c.bcc, c.language_id, c.payment_id, c.delivery_term_id,

         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,

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

  invoice_links();

  $form->{currency}     = $currency;

  $form->{exchangerate} = "";

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

  <input type="hidden" name="max_dunning_level" value="[% HTML.escape(max_dunning_level) %]">

  <input type="hidden" name="media" value="[% HTML.escape(media) %]">

  <input type="hidden" name="message" value="[% HTML.escape(message) %]">

  <input type="hidden" name="printed" value="[% HTML.escape(printed) %]">

  <input type="hidden" name="proforma" value="[% HTML.escape(proforma) %]">

  <input type="hidden" name="queued" value="[% HTML.escape(queued) %]">

  <input type="hidden" name="subject" value="[% HTML.escape(subject) %]">

  <input type="hidden" name="taxincluded" value="[% HTML.escape(taxincluded) %]">

  <input type="hidden" name="taxzone_id" value="[% HTML.escape(taxzone_id) %]">

  <input type="hidden" name="title" value="[% HTML.escape(title) %]">

  <input type="hidden" name="type" value="[% HTML.escape(type) %]">

  <input type="hidden" name="vc" value="[% HTML.escape(vc) %]">