projekt kivitendo

  $self->netamount(  0);

  $self->marge_total(0);

  my $idx = 0;

  foreach my $item (@{ $self->items_sorted }) {

  $data->{invoicediff} += $sellprice * (1 - $item->discount) * $item->qty * $data->{exchangerate} / $item->price_factor - $linetotal if $self->taxincluded;

  my $tax_rate   = $taxkey->tax->rate;

  my $tax_amount = undef;

  $self->update_attributes(paid => $self->amount);

}

1;

__END__

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  return shift->transdate;

}

sub displayable_type {

  my $type = shift->type;

  $self->update_attributes(paid => $self->amount);

}

1;

  # Format dates.

  $self->format_dates($output_dateformat, $output_longdates,

                         transdate_oe deliverydate_oe employee_startdate employee_enddate),

                      grep({ /^(?:datepaid|transdate_oe|reqdate|deliverydate|deliverydate_oe|transdate)_\d+$/ } keys(%{$self})));

  # transdate madness.

  my $transdate = "";

    # use deliverydate for sales and purchase invoice, if it exists

    # also use deliverydate for credit notes

  } else {

  }

  if ($transdate eq "") {

    if ($form->{currency} ne $defaultcurrency) && !$exchangerate;

# record acc_trans transactions

  foreach my $trans_id (keys %{ $form->{amount} }) {

    foreach my $accno (keys %{ $form->{amount}{$trans_id} }) {

      $form->{amount}{$trans_id}{$accno} = $form->round_amount($form->{amount}{$trans_id}{$accno}, 2);

                orddate      = ?, quodate     = ?, vendor_id     = ?, amount       = ?,

                netamount    = ?, paid        = ?, duedate       = ?, deliverydate = ?,

                invoice      = ?, taxzone_id  = ?, notes         = ?, taxincluded  = ?,

                cp_id        = ?, employee_id = ?, department_id = ?, delivery_term_id = ?,

                payment_id   = ?,

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

      conv_date($form->{orddate}), conv_date($form->{quodate}),     conv_i($form->{vendor_id}),               $amount,

                $netamount,                  $form->{paid},        conv_date($form->{duedate}),     conv_date($form->{deliverydate}),

            '1',                             $taxzone_id, $restricter->process($form->{notes}),               $form->{taxincluded} ? 't' : 'f',

         conv_i($form->{cp_id}),      conv_i($form->{employee_id}), conv_i($form->{department_id}), conv_i($form->{delivery_term_id}),

         conv_i($form->{payment_id}),

                $form->{"currency"},

  # retrieve invoice

  $query = qq|SELECT cp_id, invnumber, transdate AS invdate, duedate,

                ordnumber, quonumber, paid, taxincluded, notes, taxzone_id, storno, gldate,

                mtime, itime,

                intnotes, (SELECT cu.name FROM currencies cu WHERE cu.id=ap.currency_id) AS currency, direct_debit,

  delete $ref->{id};

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

  my $taxzone_id = $form->{taxzone_id} * 1;

  $taxzone_id = SL::DB::Manager::TaxZone->get_default->id unless SL::DB::Manager::TaxZone->find_by(id => $taxzone_id);

  $project_id = conv_i($form->{"globalproject_id"});

  # entsprechend auch beim Bestimmen des Steuerschlüssels in Taxkey.pm berücksichtigen

  foreach my $trans_id (keys %{ $form->{amount_cogs} }) {

    foreach my $accno (keys %{ $form->{amount_cogs}{$trans_id} }) {

  $query = qq|UPDATE ar set

                invnumber   = ?, ordnumber     = ?, quonumber     = ?, cusordnumber  = ?,

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

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

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

                delivery_term_id = ?

              WHERE id = ?|;

  @values = (          $form->{"invnumber"},           $form->{"ordnumber"},             $form->{"quonumber"},          $form->{"cusordnumber"},

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

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

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

      qq|SELECT

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

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

           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,

    $sth->finish;

    map { $form->{$_} =~ s/ +$//g } qw(printed emailed queued);

                  : $form->{invdate}      ? $dbh->quote($form->{invdate})

                  :                         "current_date";

  $query =

    qq|UPDATE oe SET

         ordnumber = ?, quonumber = ?, cusordnumber = ?, transdate = ?, vendor_id = ?,

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

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

         taxzone_id = ?, shipto_id = ?, payment_id = ?, delivery_vendor_id = ?, delivery_customer_id = ?,delivery_term_id = ?,

  @values = ($form->{ordnumber} || '', $form->{quonumber},

             $form->{cusordnumber}, conv_date($form->{transdate}),

             conv_i($form->{vendor_id}), conv_i($form->{customer_id}),

             $form->{taxincluded} ? 't' : 'f', $form->{shippingpoint},

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

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

           o.taxincluded, o.shippingpoint, o.shipvia, o.notes, o.intnotes,

           (SELECT cu.name FROM currencies cu WHERE cu.id=o.currency_id) AS currency, e.name AS employee, o.employee_id, o.salesman_id,

           o.${vc}_id, cv.name AS ${vc}, o.amount AS invtotal,

           o.mtime, o.itime,

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

           o.delivery_customer_id, o.delivery_vendor_id, o.proforma, o.shipto_id,

      map { $form->{$_} =~ s/ +$//g } qw(printed emailed queued);

    }    # if !@ids

    $form->{taxzone_id} = 0 unless ($form->{taxzone_id});

    unshift @values, ($form->{taxzone_id}) x 2;

  # Format dates.

  format_dates($output_dateformat, $output_longdates,

                  shippingdate deliverydate validitydate paymentdate

                  datepaid transdate_oe transdate_do transdate_quo deliverydate_oe dodate

                  employee_startdate employee_enddate

  'Tax deleted!'                => 'Steuer gelöscht!',

  'Tax number'                  => 'Steuernummer',

  'Tax paid'                    => 'Vorsteuer',

  'Tax rate'                    => 'Steuersatz',

  'Tax saved!'                  => 'Steuer gespeichert!',

  'Tax zone'                    => 'Steuerzone',

           <span id="duedate_fixed"[% IF !payment_terms_obj.auto_calculation %] style="display:none"[% END %]>[% HTML.escape(duedate) %]</span>

          </td>

        </tr>

        <tr>

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

          <td>[% L.date_tag('deliverydate', deliverydate) %]</td>

           <span id="duedate_fixed"[% IF !payment_terms_obj.auto_calculation %] style="display:none"[% END %]>[% HTML.escape(duedate) %]</span>

          </td>

        </tr>

        <tr>

          <td colspan="3"><input size='11' name="donumber" id="donumber" value="[% HTML.escape(donumber) %]"></td>

        </tr>

[%- END %]

                      [% L.date_tag('transdate', transdate, id='transdate') %]

                    </td>

                  </tr>

                  <tr>

                    <th align="right" nowrap>

                     [%- IF is_sales_quo %]