SL/OE.pm

   1 #====================================================================
   2 # LX-Office ERP
   3 # Copyright (C) 2004
   4 # Based on SQL-Ledger Version 2.1.9
   5 # Web http://www.lx-office.org
   6 #
   7 #=====================================================================
   8 # SQL-Ledger Accounting
   9 # Copyright (C) 1999-2003
  10 #
  11 #  Author: Dieter Simader
  12 #   Email: dsimader@sql-ledger.org
  13 #     Web: http://www.sql-ledger.org
  14 #
  15 #  Contributors:
  16 #
  17 # This program is free software; you can redistribute it and/or modify
  18 # it under the terms of the GNU General Public License as published by
  19 # the Free Software Foundation; either version 2 of the License, or
  20 # (at your option) any later version.
  21 #
  22 # This program is distributed in the hope that it will be useful,
  23 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  24 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  25 # GNU General Public License for more details.
  26 # You should have received a copy of the GNU General Public License
  27 # along with this program; if not, write to the Free Software
  28 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
  29 # MA 02110-1335, USA.
  30 #======================================================================
  31 #
  32 # Order entry module
  33 # Quotation
  34 #======================================================================
  35
  36 package OE;
  37
  38 use List::Util qw(max first);
  39
  40 use SL::AM;
  41 use SL::Common;
  42 use SL::CVar;
  43 use SL::DB::Order;
  44 use SL::DB::PeriodicInvoicesConfig;
  45 use SL::DB::Project;
  46 use SL::DB::ProjectType;
  47 use SL::DB::Status;
  48 use SL::DB::Tax;
  49 use SL::DBUtils;
  50 use SL::HTML::Restrict;
  51 use SL::IC;
  52 use SL::TransNumber;
  53 use SL::Util qw(trim);
  54 use SL::DB;
  55 use SL::YAML;
  56 use Text::ParseWords;
  57
  58 use strict;
  59
  60 sub transactions {
  61   $main::lxdebug->enter_sub();
  62
  63   my ($self, $myconfig, $form) = @_;
  64
  65   # connect to database
  66   my $dbh = $form->get_standard_dbh;
  67
  68   my $query;
  69   my $ordnumber = 'ordnumber';
  70   my $quotation = '0';
  71
  72   my @values;
  73   my $where;
  74
  75   my ($periodic_invoices_columns, $periodic_invoices_joins);
  76
  77   my $rate = ($form->{vc} eq 'customer') ? 'buy' : 'sell';
  78
  79   if ($form->{type} =~ /_quotation$/) {
  80     $quotation = '1';
  81     $ordnumber = 'quonumber';
  82
  83   } elsif ($form->{type} eq 'sales_order') {
  84     $periodic_invoices_columns = qq| , COALESCE(pcfg.active, 'f') AS periodic_invoices |;
  85     $periodic_invoices_joins   = qq| LEFT JOIN periodic_invoices_configs pcfg ON (o.id = pcfg.oe_id) |;
  86   }
  87
  88   my $vc = $form->{vc} eq "customer" ? "customer" : "vendor";
  89
  90   my %billed_amount;
  91   my %billed_netamount;
  92   if ($form->{l_remaining_amount} || $form->{l_remaining_netamount}) {
  93     $query = <<'';
  94       SELECT from_id, ar.amount, ar.netamount FROM (
  95         SELECT from_id, to_id
  96         FROM record_links
  97         WHERE from_table = 'oe' AND to_table = 'ar'
  98         UNION
  99         SELECT rl1.from_id, rl2.to_id
 100         FROM record_links rl1
 101         LEFT JOIN record_links rl2 ON (rl1.to_table = rl2.from_table AND rl1.to_id = rl2.from_id)
 102         WHERE rl1.from_table = 'oe' AND rl2.to_table = 'ar'
 103       ) rl
 104       LEFT JOIN ar ON ar.id = rl.to_id
 105
 106     for my $ref (@{ selectall_hashref_query($form, $dbh, $query) }) {
 107       $billed_amount{   $ref->{from_id}} += $ref->{amount};
 108       $billed_netamount{$ref->{from_id}} += $ref->{netamount};
 109     }
 110   }
 111
 112   $query =
 113     qq|SELECT o.id, o.ordnumber, o.transdate, o.reqdate, | .
 114     qq|  o.amount, ct.${vc}number, ct.name, o.netamount, o.${vc}_id, o.globalproject_id, | .
 115     qq|  o.closed, o.delivered, o.quonumber, o.cusordnumber, o.shippingpoint, o.shipvia, | .
 116     qq|  o.transaction_description, | .
 117     qq|  o.marge_total, o.marge_percent, | .
 118     qq|  o.itime::DATE AS insertdate, | .
 119     qq|  ex.$rate AS exchangerate, | .
 120     qq|  pt.description AS payment_terms, | .
 121     qq|  pr.projectnumber AS globalprojectnumber, | .
 122     qq|  e.name AS employee, s.name AS salesman, | .
 123     qq|  ct.${vc}number AS vcnumber, ct.country, ct.ustid, ct.business_id,  | .
 124     qq|  tz.description AS taxzone | .
 125     $periodic_invoices_columns .
 126     qq|  , o.order_probability, o.expected_billing_date, (o.netamount * o.order_probability / 100) AS expected_netamount | .
 127     qq|FROM oe o | .
 128     qq|JOIN $vc ct ON (o.${vc}_id = ct.id) | .
 129     qq|LEFT JOIN contacts cp ON (o.cp_id = cp.cp_id) | .
 130     qq|LEFT JOIN employee e ON (o.employee_id = e.id) | .
 131     qq|LEFT JOIN employee s ON (o.salesman_id = s.id) | .
 132     qq|LEFT JOIN exchangerate ex ON (ex.currency_id = o.currency_id | .
 133     qq|  AND ex.transdate = o.transdate) | .
 134     qq|LEFT JOIN project pr ON (o.globalproject_id = pr.id) | .
 135     qq|LEFT JOIN payment_terms pt ON (pt.id = o.payment_id)| .
 136     qq|LEFT JOIN tax_zones tz ON (o.taxzone_id = tz.id) | .
 137     qq|$periodic_invoices_joins | .
 138     qq|WHERE (o.quotation = ?) |;
 139   push(@values, $quotation);
 140
 141   if ($form->{department_id}) {
 142     $query .= qq| AND o.department_id = ?|;
 143     push(@values, $form->{department_id});
 144   }
 145
 146   if ($form->{"project_id"}) {
 147     $query .=
 148       qq|AND ((globalproject_id = ?) OR EXISTS | .
 149       qq|  (SELECT * FROM orderitems oi | .
 150       qq|   WHERE oi.project_id = ? AND oi.trans_id = o.id))|;
 151     push(@values, conv_i($form->{"project_id"}), conv_i($form->{"project_id"}));
 152   }
 153
 154   if ($form->{"projectnumber"}) {
 155     $query .= <<SQL;
 156       AND ((pr.projectnumber ILIKE ?) OR EXISTS (
 157         SELECT * FROM orderitems oi
 158         LEFT JOIN project proi ON proi.id = oi.project_id
 159         WHERE proi.projectnumber ILIKE ? AND oi.trans_id = o.id
 160       ))
 161 SQL
 162     push @values, like($form->{"projectnumber"}), like($form->{"projectnumber"});
 163   }
 164
 165   if ($form->{"business_id"}) {
 166     $query .= " AND ct.business_id = ?";
 167     push(@values, $form->{"business_id"});
 168   }
 169
 170   if ($form->{"${vc}_id"}) {
 171     $query .= " AND o.${vc}_id = ?";
 172     push(@values, $form->{"${vc}_id"});
 173
 174   } elsif ($form->{$vc}) {
 175     $query .= " AND ct.name ILIKE ?";
 176     push(@values, like($form->{$vc}));
 177   }
 178
 179   if ($form->{"cp_name"}) {
 180     $query .= " AND (cp.cp_name ILIKE ? OR cp.cp_givenname ILIKE ?)";
 181     push(@values, (like($form->{"cp_name"}))x2);
 182   }
 183
 184   if (!$main::auth->assert('sales_all_edit', 1)) {
 185     $query .= " AND o.employee_id = (select id from employee where login= ?)";
 186     push @values, $::myconfig{login};
 187   }
 188   if ($form->{employee_id}) {
 189     $query .= " AND o.employee_id = ?";
 190     push @values, conv_i($form->{employee_id});
 191   }
 192
 193   if ($form->{salesman_id}) {
 194     $query .= " AND o.salesman_id = ?";
 195     push @values, conv_i($form->{salesman_id});
 196   }
 197
 198   if (!$form->{open} && !$form->{closed}) {
 199     $query .= " AND o.id = 0";
 200   } elsif (!($form->{open} && $form->{closed})) {
 201     $query .= ($form->{open}) ? " AND o.closed = '0'" : " AND o.closed = '1'";
 202   }
 203
 204   if (($form->{"notdelivered"} || $form->{"delivered"}) &&
 205       ($form->{"notdelivered"} ne $form->{"delivered"})) {
 206     $query .= $form->{"delivered"} ?
 207       " AND o.delivered " : " AND NOT o.delivered";
 208   }
 209
 210   if ($form->{$ordnumber}) {
 211     $query .= qq| AND o.$ordnumber ILIKE ?|;
 212     push(@values, like($form->{$ordnumber}));
 213   }
 214
 215   if ($form->{cusordnumber}) {
 216     $query .= qq| AND o.cusordnumber ILIKE ?|;
 217     push(@values, like($form->{cusordnumber}));
 218   }
 219
 220   if($form->{transdatefrom}) {
 221     $query .= qq| AND o.transdate >= ?|;
 222     push(@values, conv_date($form->{transdatefrom}));
 223   }
 224
 225   if($form->{transdateto}) {
 226     $query .= qq| AND o.transdate <= ?|;
 227     push(@values, conv_date($form->{transdateto}));
 228   }
 229
 230   if($form->{reqdatefrom}) {
 231     $query .= qq| AND o.reqdate >= ?|;
 232     push(@values, conv_date($form->{reqdatefrom}));
 233   }
 234
 235   if($form->{reqdateto}) {
 236     $query .= qq| AND o.reqdate <= ?|;
 237     push(@values, conv_date($form->{reqdateto}));
 238   }
 239
 240   if($form->{insertdatefrom}) {
 241     $query .= qq| AND o.itime::DATE >= ?|;
 242     push(@values, conv_date($form->{insertdatefrom}));
 243   }
 244
 245   if($form->{insertdateto}) {
 246     $query .= qq| AND o.itime::DATE <= ?|;
 247     push(@values, conv_date($form->{insertdateto}));
 248   }
 249
 250   if ($form->{shippingpoint}) {
 251     $query .= qq| AND o.shippingpoint ILIKE ?|;
 252     push(@values, like($form->{shippingpoint}));
 253   }
 254
 255   if ($form->{taxzone_id} ne '') { # taxzone_id could be 0
 256     $query .= qq| AND tz.id = ?|;
 257     push(@values, $form->{taxzone_id});
 258   }
 259
 260   if ($form->{transaction_description}) {
 261     $query .= qq| AND o.transaction_description ILIKE ?|;
 262     push(@values, like($form->{transaction_description}));
 263   }
 264
 265   if ($form->{periodic_invoices_active} ne $form->{periodic_invoices_inactive}) {
 266     my $not  = $form->{periodic_invoices_inactive} ? 'NOT' : '';
 267     $query  .= qq| AND ${not} COALESCE(pcfg.active, 'f')|;
 268   }
 269
 270   if ($form->{reqdate_unset_or_old}) {
 271     $query .= qq| AND ((o.reqdate IS NULL) OR (o.reqdate < date_trunc('month', current_date)))|;
 272   }
 273
 274   if (($form->{order_probability_value} || '') ne '') {
 275     my $op  = $form->{order_probability_value} eq 'le' ? '<=' : '>=';
 276     $query .= qq| AND (o.order_probability ${op} ?)|;
 277     push @values, trim($form->{order_probability_value});
 278   }
 279
 280   if ($form->{expected_billing_date_from}) {
 281     $query .= qq| AND (o.expected_billing_date >= ?)|;
 282     push @values, conv_date($form->{expected_billing_date_from});
 283   }
 284
 285   if ($form->{expected_billing_date_to}) {
 286     $query .= qq| AND (o.expected_billing_date <= ?)|;
 287     push @values, conv_date($form->{expected_billing_date_to});
 288   }
 289
 290   if ($form->{parts_partnumber}) {
 291     $query .= <<SQL;
 292       AND EXISTS (
 293         SELECT orderitems.trans_id
 294         FROM orderitems
 295         LEFT JOIN parts ON (orderitems.parts_id = parts.id)
 296         WHERE (orderitems.trans_id = o.id)
 297           AND (parts.partnumber ILIKE ?)
 298         LIMIT 1
 299       )
 300 SQL
 301     push @values, like($form->{parts_partnumber});
 302   }
 303
 304   if ($form->{parts_description}) {
 305     $query .= <<SQL;
 306       AND EXISTS (
 307         SELECT orderitems.trans_id
 308         FROM orderitems
 309         WHERE (orderitems.trans_id = o.id)
 310           AND (orderitems.description ILIKE ?)
 311         LIMIT 1
 312       )
 313 SQL
 314     push @values, like($form->{parts_description});
 315   }
 316
 317   if ($form->{all}) {
 318     my @tokens = parse_line('\s+', 0, $form->{all});
 319     # ordnumber quonumber customer.name vendor.name transaction_description
 320     $query .= qq| AND (
 321       o.ordnumber ILIKE ? OR
 322       o.quonumber ILIKE ? OR
 323       ct.name     ILIKE ? OR
 324       o.transaction_description ILIKE ?
 325     )| for @tokens;
 326     push @values, (like($_))x4 for @tokens;
 327   }
 328
 329   my ($cvar_where, @cvar_values) = CVar->build_filter_query('module'         => 'CT',
 330                                                             'trans_id_field' => 'ct.id',
 331                                                             'filter'         => $form,
 332                                                            );
 333   if ($cvar_where) {
 334     $query .= qq| AND ($cvar_where)|;
 335     push @values, @cvar_values;
 336   }
 337
 338   my $sortdir   = !defined $form->{sortdir} ? 'ASC' : $form->{sortdir} ? 'ASC' : 'DESC';
 339   my $sortorder = join(', ', map { "${_} ${sortdir} " } ("o.id", $form->sort_columns("transdate", $ordnumber, "name"), "o.itime"));
 340   my %allowed_sort_columns = (
 341     "transdate"               => "o.transdate",
 342     "reqdate"                 => "o.reqdate",
 343     "id"                      => "o.id",
 344     "ordnumber"               => "o.ordnumber",
 345     "cusordnumber"            => "o.cusordnumber",
 346     "quonumber"               => "o.quonumber",
 347     "name"                    => "ct.name",
 348     "employee"                => "e.name",
 349     "salesman"                => "s.name",
 350     "shipvia"                 => "o.shipvia",
 351     "transaction_description" => "o.transaction_description",
 352     "shippingpoint"           => "o.shippingpoint",
 353     "insertdate"              => "o.itime",
 354     "taxzone"                 => "tz.description",
 355     "payment_terms"           => "pt.description",
 356   );
 357   if ($form->{sort} && grep($form->{sort}, keys(%allowed_sort_columns))) {
 358     $sortorder = $allowed_sort_columns{$form->{sort}} . " ${sortdir}"  . ", o.itime ${sortdir}";
 359   }
 360   $query .= qq| ORDER by | . $sortorder;
 361
 362   my $sth = $dbh->prepare($query);
 363   $sth->execute(@values) ||
 364     $form->dberror($query . " (" . join(", ", @values) . ")");
 365
 366   my %id = ();
 367   $form->{OE} = [];
 368   while (my $ref = $sth->fetchrow_hashref("NAME_lc")) {
 369     $ref->{billed_amount}    = $billed_amount{$ref->{id}};
 370     $ref->{billed_netamount} = $billed_netamount{$ref->{id}};
 371     $ref->{remaining_amount} = $ref->{amount} - $ref->{billed_amount};
 372     $ref->{remaining_netamount} = $ref->{netamount} - $ref->{billed_netamount};
 373     $ref->{exchangerate} = 1 unless $ref->{exchangerate};
 374     push @{ $form->{OE} }, $ref if $ref->{id} != $id{ $ref->{id} };
 375     $id{ $ref->{id} } = $ref->{id};
 376   }
 377
 378   $sth->finish;
 379
 380   $main::lxdebug->leave_sub();
 381 }
 382
 383 sub transactions_for_todo_list {
 384   $main::lxdebug->enter_sub();
 385
 386   my $self     = shift;
 387   my %params   = @_;
 388
 389   my $myconfig = \%main::myconfig;
 390   my $form     = $main::form;
 391
 392   my $dbh      = $params{dbh} || $form->get_standard_dbh($myconfig);
 393
 394   my $query    = qq|SELECT id FROM employee WHERE login = ?|;
 395   my ($e_id)   = selectrow_query($form, $dbh, $query, $::myconfig{login});
 396
 397   $query       =
 398     qq|SELECT oe.id, oe.transdate, oe.reqdate, oe.quonumber, oe.transaction_description, oe.amount,
 399          CASE WHEN (COALESCE(oe.customer_id, 0) = 0) THEN 'vendor' ELSE 'customer' END AS vc,
 400          c.name AS customer,
 401          v.name AS vendor,
 402          e.name AS employee
 403        FROM oe
 404        LEFT JOIN customer c ON (oe.customer_id = c.id)
 405        LEFT JOIN vendor v   ON (oe.vendor_id   = v.id)
 406        LEFT JOIN employee e ON (oe.employee_id = e.id)
 407        WHERE (COALESCE(quotation, FALSE) = TRUE)
 408          AND (COALESCE(closed,    FALSE) = FALSE)
 409          AND ((oe.employee_id = ?) OR (oe.salesman_id = ?))
 410          AND NOT (oe.reqdate ISNULL)
 411          AND (oe.reqdate < current_date)
 412        ORDER BY transdate|;
 413
 414   my $quotations = selectall_hashref_query($form, $dbh, $query, $e_id, $e_id);
 415
 416   $main::lxdebug->leave_sub();
 417
 418   return $quotations;
 419 }
 420
 421 sub save {
 422   my ($self, $myconfig, $form) = @_;
 423   $main::lxdebug->enter_sub();
 424
 425   my $rc = SL::DB->client->with_transaction(\&_save, $self, $myconfig, $form);
 426
 427   $::lxdebug->leave_sub;
 428
 429   return $rc;
 430 }
 431
 432 sub _save {
 433   $main::lxdebug->enter_sub();
 434
 435   my ($self, $myconfig, $form) = @_;
 436
 437   my $dbh = SL::DB->client->dbh;
 438   my $restricter = SL::HTML::Restrict->create;
 439
 440   my ($query, @values, $sth, $null);
 441   my $exchangerate = 0;
 442
 443   my $all_units = AM->retrieve_units($myconfig, $form);
 444   $form->{all_units} = $all_units;
 445
 446   my $ic_cvar_configs = CVar->get_configs(module => 'IC',
 447                                           dbh    => $dbh);
 448
 449   $form->{employee_id} = (split /--/, $form->{employee})[1] if !$form->{employee_id};
 450   unless ($form->{employee_id}) {
 451     $form->get_employee($dbh);
 452   }
 453
 454   my $ml = ($form->{type} eq 'sales_order') ? 1 : -1;
 455
 456   my $number_field         = $form->{type} =~ m{order} ? 'ordnumber' : 'quonumber';
 457   my $trans_number         = SL::TransNumber->new(type => $form->{type}, dbh => $dbh, number => $form->{$number_field}, id => $form->{id});
 458   $form->{$number_field} ||= $trans_number->create_unique; # set $form->{ordnumber} or $form->{quonumber}
 459
 460   if ($form->{id}) {
 461     $query = qq|DELETE FROM custom_variables
 462                 WHERE (config_id IN (SELECT id        FROM custom_variable_configs WHERE (module = 'ShipTo')))
 463                   AND (trans_id  IN (SELECT shipto_id FROM shipto                  WHERE (module = 'OE') AND (trans_id = ?)))|;
 464     do_query($form, $dbh, $query, $form->{id});
 465
 466     $query = qq|DELETE FROM shipto | .
 467              qq|WHERE trans_id = ? AND module = 'OE'|;
 468     do_query($form, $dbh, $query, $form->{id});
 469
 470   } else {
 471
 472     $query = qq|SELECT nextval('id')|;
 473     ($form->{id}) = selectrow_query($form, $dbh, $query);
 474
 475     $query = qq|INSERT INTO oe (id, ordnumber, employee_id, currency_id, taxzone_id) VALUES (?, '', ?, (SELECT currency_id FROM defaults), ?)|;
 476     do_query($form, $dbh, $query, $form->{id}, $form->{employee_id}, $form->{taxzone_id});
 477   }
 478
 479   my $amount    = 0;
 480   my $linetotal = 0;
 481   my $discount  = 0;
 482   my $project_id;
 483   my $reqdate;
 484   my $taxrate;
 485   my $taxbase;
 486   my $taxdiff;
 487   my $taxamount = 0;
 488   my $fxsellprice;
 489   my %taxbase;
 490   my @taxaccounts;
 491   my %taxaccounts;
 492   my $netamount = 0;
 493   my @processed_orderitems;
 494
 495   $form->get_lists('price_factors' => 'ALL_PRICE_FACTORS');
 496   my %price_factors = map { $_->{id} => $_->{factor} } @{ $form->{ALL_PRICE_FACTORS} };
 497   my $price_factor;
 498
 499   for my $i (1 .. $form->{rowcount}) {
 500
 501     map({ $form->{"${_}_$i"} = $form->parse_amount($myconfig, $form->{"${_}_$i"}) } qw(qty ship));
 502
 503     if ($form->{"id_$i"}) {
 504
 505       # get item baseunit
 506       $query = qq|SELECT unit FROM parts WHERE id = ?|;
 507       my ($item_unit) = selectrow_query($form, $dbh, $query, $form->{"id_$i"});
 508
 509       my $basefactor = 1;
 510       if (defined($all_units->{$item_unit}->{factor}) &&
 511           (($all_units->{$item_unit}->{factor} * 1) != 0)) {
 512         $basefactor = $all_units->{$form->{"unit_$i"}}->{factor} / $all_units->{$item_unit}->{factor};
 513       }
 514       my $baseqty = $form->{"qty_$i"} * $basefactor;
 515
 516       $form->{"marge_percent_$i"} = $form->parse_amount($myconfig, $form->{"marge_percent_$i"}) * 1;
 517       $form->{"marge_absolut_$i"} = $form->parse_amount($myconfig, $form->{"marge_absolut_$i"}) * 1;
 518
 519       $form->{"lastcost_$i"} = $form->parse_amount($myconfig, $form->{"lastcost_$i"});
 520
 521       # keep entered selling price
 522       my $fxsellprice =
 523         $form->parse_amount($myconfig, $form->{"sellprice_$i"});
 524
 525       my ($dec) = ($fxsellprice =~ /\.(\d+)/);
 526       $dec = length $dec;
 527       my $decimalplaces = ($dec > 2) ? $dec : 2;
 528
 529       # undo discount formatting
 530       $form->{"discount_$i"} = $form->parse_amount($myconfig, $form->{"discount_$i"}) / 100;
 531
 532       # deduct discount
 533       $form->{"sellprice_$i"} = $fxsellprice * (1 - $form->{"discount_$i"});
 534
 535       # round linetotal at least to 2 decimal places
 536       $price_factor = $price_factors{ $form->{"price_factor_id_$i"} } || 1;
 537       $linetotal    = $form->round_amount($form->{"sellprice_$i"} * $form->{"qty_$i"} / $price_factor, 2);
 538
 539       $form->{"inventory_accno_$i"} *= 1;
 540       $form->{"expense_accno_$i"}   *= 1;
 541
 542       @taxaccounts = split(/ /, $form->{"taxaccounts_$i"});
 543       $taxrate     = 0;
 544       $taxdiff     = 0;
 545
 546       map { $taxrate += $form->{"${_}_rate"} } @taxaccounts;
 547
 548       if ($form->{taxincluded}) {
 549         $taxamount = $linetotal * $taxrate / (1 + $taxrate);
 550         $taxbase   = $linetotal - $taxamount;
 551
 552         # we are not keeping a natural price, do not round
 553         $form->{"sellprice_$i"} =
 554           $form->{"sellprice_$i"} * (1 / (1 + $taxrate));
 555       } else {
 556         $taxamount = $linetotal * $taxrate;
 557         $taxbase   = $linetotal;
 558       }
 559
 560       if ($form->round_amount($taxrate, 7) == 0) {
 561         if ($form->{taxincluded}) {
 562           foreach my $item (@taxaccounts) {
 563             $taxamount = $form->round_amount($linetotal * $form->{"${item}_rate"} / (1 + abs($form->{"${item}_rate"})), 2);
 564             $taxaccounts{$item} += $taxamount;
 565             $taxdiff            += $taxamount;
 566             $taxbase{$item}     += $taxbase;
 567           }
 568           $taxaccounts{ $taxaccounts[0] } += $taxdiff;
 569         } else {
 570           foreach my $item (@taxaccounts) {
 571             $taxaccounts{$item} += $linetotal * $form->{"${item}_rate"};
 572             $taxbase{$item}     += $taxbase;
 573           }
 574         }
 575       } else {
 576         foreach my $item (@taxaccounts) {
 577           $taxaccounts{$item} += $taxamount * $form->{"${item}_rate"} / $taxrate;
 578           $taxbase{$item} += $taxbase;
 579         }
 580       }
 581
 582       $netamount += $form->{"sellprice_$i"} * $form->{"qty_$i"} / $price_factor;
 583
 584       $reqdate = ($form->{"reqdate_$i"}) ? $form->{"reqdate_$i"} : undef;
 585
 586       # Get pricegroup_id and save it. Unfortunately the interface
 587       # also uses ID "0" for signalling that none is selected, but "0"
 588       # must not be stored in the database. Therefore we cannot simply
 589       # use conv_i().
 590       ($null, my $pricegroup_id) = split(/--/, $form->{"sellprice_pg_$i"});
 591       $pricegroup_id *= 1;
 592       $pricegroup_id  = undef if !$pricegroup_id;
 593
 594       # force new project, if not set yet
 595       if ($::instance_conf->get_order_always_project && !$form->{"globalproject_id"} && ($form->{type} eq 'sales_order')) {
 596         require SL::DB::Customer;
 597         my $customer = SL::DB::Manager::Customer->find_by(id => $form->{customer_id});
 598         die "Can't find customer" unless $customer;
 599         my $new_project = SL::DB::Project->new(
 600           projectnumber     => $form->{ordnumber},
 601           description       => $customer->name,
 602           customer_id       => $customer->id,
 603           active            => 1,
 604           project_type_id   => $::instance_conf->get_project_type_id,
 605           project_status_id => $::instance_conf->get_project_status_id,
 606         );
 607         $new_project->save;
 608         $form->{"globalproject_id"} = $new_project->id;
 609       };
 610
 611       CVar->get_non_editable_ic_cvars(form               => $form,
 612                                       dbh                => $dbh,
 613                                       row                => $i,
 614                                       sub_module         => 'orderitems',
 615                                       may_converted_from => ['orderitems', 'invoice']);
 616
 617       my $position = $i;
 618
 619       # save detail record in orderitems table
 620       if (! $form->{"orderitems_id_$i"}) {
 621         $query = qq|SELECT nextval('orderitemsid')|;
 622         ($form->{"orderitems_id_$i"}) = selectrow_query($form, $dbh, $query);
 623
 624         $query = qq|INSERT INTO orderitems (id, position) VALUES (?, ?)|;
 625         do_query($form, $dbh, $query, $form->{"orderitems_id_$i"}, conv_i($position));
 626       }
 627
 628       my $orderitems_id = $form->{"orderitems_id_$i"};
 629       push @processed_orderitems, $orderitems_id;
 630
 631        $query = <<SQL;
 632          UPDATE orderitems SET
 633           trans_id = ?, position = ?, parts_id = ?, description = ?, longdescription = ?, qty = ?, base_qty = ?,
 634           sellprice = ?, discount = ?, unit = ?, reqdate = ?, project_id = ?, serialnumber = ?, ship = ?,
 635           pricegroup_id = ?, subtotal = ?,
 636           marge_percent = ?, marge_total = ?, lastcost = ?, price_factor_id = ?,
 637           active_price_source = ?, active_discount_source = ?,
 638           price_factor = (SELECT factor FROM price_factors WHERE id = ?), marge_price_factor = ?
 639         WHERE id = ?
 640 SQL
 641       @values = (
 642            conv_i($form->{id}), conv_i($position), conv_i($form->{"id_$i"}),
 643            $form->{"description_$i"}, $restricter->process($form->{"longdescription_$i"}),
 644            $form->{"qty_$i"}, $baseqty,
 645            $fxsellprice, $form->{"discount_$i"},
 646            $form->{"unit_$i"}, conv_date($reqdate), conv_i($form->{"project_id_$i"}),
 647            $form->{"serialnumber_$i"}, $form->{"ship_$i"},
 648            $pricegroup_id, $form->{"subtotal_$i"} ? 't' : 'f',
 649            $form->{"marge_percent_$i"}, $form->{"marge_absolut_$i"},
 650            $form->{"lastcost_$i"}, conv_i($form->{"price_factor_id_$i"}),
 651            $form->{"active_price_source_$i"}, $form->{"active_discount_source_$i"},
 652            conv_i($form->{"price_factor_id_$i"}), conv_i($form->{"marge_price_factor_$i"}),
 653            conv_i($orderitems_id),
 654       );
 655
 656       do_query($form, $dbh, $query, @values);
 657
 658       $form->{"sellprice_$i"} = $fxsellprice;
 659       $form->{"discount_$i"} *= 100;
 660
 661       CVar->save_custom_variables(module       => 'IC',
 662                                   sub_module   => 'orderitems',
 663                                   trans_id     => $orderitems_id,
 664                                   configs      => $ic_cvar_configs,
 665                                   variables    => $form,
 666                                   name_prefix  => 'ic_',
 667                                   name_postfix => "_$i",
 668                                   dbh          => $dbh);
 669
 670       # link previous items with orderitems
 671       # assume we have a new workflow if we link from invoice or order to quotation
 672       # unluckily orderitems are used for quotation and orders - therefore one more
 673       # check to be sure NOT to link from order to quotation
 674       foreach (qw(orderitems)) {
 675         if (!$form->{saveasnew} && !$form->{useasnew} && $form->{"converted_from_${_}_id_$i"}
 676               && $form->{type} !~ 'quotation') {
 677           RecordLinks->create_links('dbh'        => $dbh,
 678                                     'mode'       => 'ids',
 679                                     'from_table' => $_,
 680                                     'from_ids'   => $form->{"converted_from_${_}_id_$i"},
 681                                     'to_table'   => 'orderitems',
 682                                     'to_id'      => $orderitems_id,
 683           );
 684         }
 685         delete $form->{"converted_from_${_}_id_$i"};
 686       }
 687     }
 688   }
 689
 690   # search for orphaned ids
 691   $query  = sprintf 'SELECT id FROM orderitems WHERE trans_id = ? AND NOT id IN (%s)', join ', ', ("?") x scalar @processed_orderitems;
 692   @values = (conv_i($form->{id}), map { conv_i($_) } @processed_orderitems);
 693   my @orphaned_ids = map { $_->{id} } selectall_hashref_query($form, $dbh, $query, @values);
 694
 695   if (scalar @orphaned_ids) {
 696     # clean up orderitems
 697     $query  = sprintf 'DELETE FROM orderitems WHERE id IN (%s)', join ', ', ("?") x scalar @orphaned_ids;
 698     do_query($form, $dbh, $query, @orphaned_ids);
 699   }
 700
 701   $reqdate = ($form->{reqdate}) ? $form->{reqdate} : undef;
 702
 703   # add up the tax
 704   my $tax = 0;
 705   map { $tax += $form->round_amount($taxaccounts{$_}, 2) } keys %taxaccounts;
 706
 707   $amount = $form->round_amount($netamount + $tax, 2, 1);
 708   $netamount = $form->round_amount($netamount, 2);
 709
 710   if ($form->{currency} eq $form->{defaultcurrency}) {
 711     $form->{exchangerate} = 1;
 712   } else {
 713     $exchangerate = $form->check_exchangerate($myconfig, $form->{currency}, $form->{transdate}, ($form->{vc} eq 'customer') ? 'buy' : 'sell');
 714   }
 715
 716   # from inputfield (exchangerate) or hidden (forex)
 717   my $exchangerate_from_form = $form->{forex} || $form->parse_amount($myconfig, $form->{exchangerate});
 718
 719   $form->{exchangerate} = $exchangerate || $exchangerate_from_form;
 720
 721   my $quotation = $form->{type} =~ /_order$/ ? 'f' : 't';
 722
 723   # save OE record
 724   $query =
 725     qq|UPDATE oe SET
 726          ordnumber = ?, quonumber = ?, cusordnumber = ?, transdate = ?, vendor_id = ?,
 727          customer_id = ?, amount = ?, netamount = ?, reqdate = ?, taxincluded = ?,
 728          shippingpoint = ?, shipvia = ?, notes = ?, intnotes = ?, currency_id = (SELECT id FROM currencies WHERE name=?), closed = ?,
 729          delivered = ?, proforma = ?, quotation = ?, department_id = ?, language_id = ?,
 730          taxzone_id = ?, shipto_id = ?, payment_id = ?, delivery_vendor_id = ?, delivery_customer_id = ?,delivery_term_id = ?,
 731          globalproject_id = ?, employee_id = ?, salesman_id = ?, cp_id = ?, transaction_description = ?, marge_total = ?, marge_percent = ?
 732          , order_probability = ?, expected_billing_date = ?
 733        WHERE id = ?|;
 734
 735   @values = ($form->{ordnumber} || '', $form->{quonumber},
 736              $form->{cusordnumber}, conv_date($form->{transdate}),
 737              conv_i($form->{vendor_id}), conv_i($form->{customer_id}),
 738              $amount, $netamount, conv_date($reqdate),
 739              $form->{taxincluded} ? 't' : 'f', $form->{shippingpoint},
 740              $form->{shipvia}, $restricter->process($form->{notes}), $form->{intnotes},
 741              $form->{currency}, $form->{closed} ? 't' : 'f',
 742              $form->{delivered} ? "t" : "f", $form->{proforma} ? 't' : 'f',
 743              $quotation, conv_i($form->{department_id}),
 744              conv_i($form->{language_id}), conv_i($form->{taxzone_id}),
 745              conv_i($form->{shipto_id}), conv_i($form->{payment_id}),
 746              conv_i($form->{delivery_vendor_id}),
 747              conv_i($form->{delivery_customer_id}),
 748              conv_i($form->{delivery_term_id}),
 749              conv_i($form->{globalproject_id}), conv_i($form->{employee_id}),
 750              conv_i($form->{salesman_id}), conv_i($form->{cp_id}),
 751              $form->{transaction_description},
 752              $form->{marge_total} * 1, $form->{marge_percent} * 1,
 753              $form->{order_probability} * 1, conv_date($form->{expected_billing_date}),
 754              conv_i($form->{id}));
 755   do_query($form, $dbh, $query, @values);
 756
 757   $form->new_lastmtime('oe');
 758
 759   $form->{ordtotal} = $amount;
 760
 761   $form->{name} = $form->{ $form->{vc} };
 762   $form->{name} =~ s/--\Q$form->{"$form->{vc}_id"}\E//;
 763
 764   # add shipto
 765   if (!$form->{shipto_id}) {
 766     $form->add_shipto($dbh, $form->{id}, "OE");
 767   }
 768
 769   # save printed, emailed, queued
 770   $form->save_status($dbh);
 771
 772   # Link this record to the records it was created from.
 773   $form->{convert_from_oe_ids} =~ s/^\s+//;
 774   $form->{convert_from_oe_ids} =~ s/\s+$//;
 775   my @convert_from_oe_ids      =  split m/\s+/, $form->{convert_from_oe_ids};
 776   delete $form->{convert_from_oe_ids};
 777   if (!$form->{useasnew} && scalar @convert_from_oe_ids) {
 778     RecordLinks->create_links('dbh'        => $dbh,
 779                               'mode'       => 'ids',
 780                               'from_table' => 'oe',
 781                               'from_ids'   => \@convert_from_oe_ids,
 782                               'to_table'   => 'oe',
 783                               'to_id'      => $form->{id},
 784       );
 785     $self->_close_quotations_rfqs('dbh'     => $dbh,
 786                                   'from_id' => \@convert_from_oe_ids,
 787                                   'to_id'   => $form->{id});
 788   }
 789
 790   if (($form->{currency} ne $form->{defaultcurrency}) && !$exchangerate) {
 791     if ($form->{vc} eq 'customer') {
 792       $form->update_exchangerate($dbh, $form->{currency}, $form->{transdate}, $form->{exchangerate}, 0);
 793     }
 794     if ($form->{vc} eq 'vendor') {
 795       $form->update_exchangerate($dbh, $form->{currency}, $form->{transdate}, 0, $form->{exchangerate});
 796     }
 797   }
 798
 799   $form->{saved_xyznumber} = $form->{$form->{type} =~ /_quotation$/ ?
 800                                        "quonumber" : "ordnumber"};
 801
 802   Common::webdav_folder($form);
 803
 804   $self->save_periodic_invoices_config(dbh         => $dbh,
 805                                        oe_id       => $form->{id},
 806                                        config_yaml => $form->{periodic_invoices_config})
 807     if ($form->{type} eq 'sales_order');
 808
 809   $main::lxdebug->leave_sub();
 810
 811   return 1;
 812 }
 813
 814 sub save_periodic_invoices_config {
 815   my ($self, %params) = @_;
 816
 817   return if !$params{oe_id};
 818
 819   my $config = $params{config_yaml} ? SL::YAML::Load($params{config_yaml}) : undef;
 820   return if 'HASH' ne ref $config;
 821
 822   my $obj  = SL::DB::Manager::PeriodicInvoicesConfig->find_by(oe_id => $params{oe_id})
 823           || SL::DB::PeriodicInvoicesConfig->new(oe_id => $params{oe_id});
 824   $obj->update_attributes(%{ $config });
 825 }
 826
 827 sub load_periodic_invoice_config {
 828   my $self = shift;
 829   my $form = shift;
 830
 831   delete $form->{periodic_invoices_config};
 832
 833   if ($form->{id}) {
 834     my $config_obj = SL::DB::Manager::PeriodicInvoicesConfig->find_by(oe_id => $form->{id});
 835
 836     if ($config_obj) {
 837       my $config = { map { $_ => $config_obj->$_ } qw(active terminated periodicity order_value_periodicity start_date_as_date end_date_as_date first_billing_date_as_date extend_automatically_by ar_chart_id
 838                                                       print printer_id copies direct_debit send_email email_recipient_contact_id email_recipient_address email_sender email_subject email_body) };
 839       $form->{periodic_invoices_config} = SL::YAML::Dump($config);
 840     }
 841   }
 842 }
 843
 844 sub _close_quotations_rfqs {
 845   $main::lxdebug->enter_sub();
 846
 847   my $self     = shift;
 848   my %params   = @_;
 849
 850   Common::check_params(\%params, qw(from_id to_id));
 851
 852   my $myconfig = \%main::myconfig;
 853   my $form     = $main::form;
 854
 855   my $dbh      = $params{dbh} || SL::DB->client->dbh;
 856
 857   SL::DB->client->with_transaction(sub {
 858
 859     my $query    = qq|SELECT quotation FROM oe WHERE id = ?|;
 860     my $sth      = prepare_query($form, $dbh, $query);
 861
 862     do_statement($form, $sth, $query, conv_i($params{to_id}));
 863
 864     my ($quotation) = $sth->fetchrow_array();
 865
 866     if ($quotation) {
 867       return 1;
 868     }
 869
 870     my @close_ids;
 871
 872     foreach my $from_id (@{ $params{from_id} }) {
 873       $from_id = conv_i($from_id);
 874       do_statement($form, $sth, $query, $from_id);
 875       ($quotation) = $sth->fetchrow_array();
 876       push @close_ids, $from_id if ($quotation);
 877     }
 878
 879     $sth->finish();
 880
 881     if (scalar @close_ids) {
 882       $query = qq|UPDATE oe SET closed = TRUE WHERE id IN (| . join(', ', ('?') x scalar @close_ids) . qq|)|;
 883       do_query($form, $dbh, $query, @close_ids);
 884     }
 885     1;
 886   }) or do { die SL::DB->client->error };
 887
 888   $main::lxdebug->leave_sub();
 889 }
 890
 891 sub delete {
 892   $main::lxdebug->enter_sub();
 893
 894   my ($self, $myconfig, $form) = @_;
 895
 896   my $rc = SL::DB::Order->new->db->with_transaction(sub {
 897     my @spoolfiles = grep { $_ } map { $_->spoolfile } @{ SL::DB::Manager::Status->get_all(where => [ trans_id => $form->{id} ]) };
 898
 899     SL::DB::Order->new(id => $form->{id})->delete;
 900
 901     my $spool = $::lx_office_conf{paths}->{spool};
 902     unlink map { "$spool/$_" } @spoolfiles if $spool;
 903
 904     1;
 905   }) or do { die SL::DB->client->error };
 906
 907   $main::lxdebug->leave_sub();
 908
 909   return $rc;
 910 }
 911
 912 sub retrieve {
 913   my ($self, $myconfig, $form) = @_;
 914   $main::lxdebug->enter_sub();
 915
 916   my $rc = SL::DB->client->with_transaction(\&_retrieve, $self, $myconfig, $form);
 917
 918   $::lxdebug->leave_sub;
 919   return $rc;
 920 }
 921
 922 sub _retrieve {
 923   my ($self, $myconfig, $form) = @_;
 924
 925   # connect to database
 926   my $dbh = SL::DB->client->dbh;
 927
 928   my ($query, $query_add, @values, @ids, $sth);
 929
 930   # translate the ids (given by id_# and trans_id_#) into one array of ids, so we can join them later
 931   map {
 932     push @ids, $form->{"trans_id_$_"}
 933       if ($form->{"multi_id_$_"} and $form->{"trans_id_$_"})
 934   } (1 .. $form->{"rowcount"});
 935
 936   if ($form->{rowcount} && scalar @ids) {
 937     $form->{convert_from_oe_ids} = join ' ', @ids;
 938   }
 939
 940   # if called in multi id mode, and still only got one id, switch back to single id
 941   if ($form->{"rowcount"} and $#ids == 0) {
 942     $form->{"id"} = $ids[0];
 943     undef @ids;
 944     delete $form->{convert_from_oe_ids};
 945   }
 946
 947   # and remember for the rest of the function
 948   my $is_collective_order = scalar @ids;
 949
 950   # If collective order was created from exactly 1 order, we assume the same
 951   # behaviour as a "save as new" from within an order is actually desired, i.e.
 952   # the original order isn't part of a workflow where we want to remember
 953   # record_links, but simply a quick way of generating a new order from an old
 954   # one without having to enter everything again.
 955   # Setting useasnew will prevent the creation of record_links for the items
 956   # when saving the new order.
 957   # This form variable is probably not necessary, could just set saveasnew instead
 958   $form->{useasnew} = 1 if $is_collective_order == 1;
 959
 960   if (!$form->{id}) {
 961     my $extra_days = $form->{type} eq 'sales_quotation' ? $::instance_conf->get_reqdate_interval       :
 962                      $form->{type} eq 'sales_order'     ? $::instance_conf->get_delivery_date_interval : 1;
 963     $form->{reqdate}   = DateTime->today_local->next_workday(extra_days => $extra_days)->to_kivitendo;
 964     $form->{transdate} = DateTime->today_local->to_kivitendo;
 965   }
 966
 967   # get default accounts
 968   $query = qq|SELECT (SELECT c.accno FROM chart c WHERE d.inventory_accno_id = c.id) AS inventory_accno,
 969                      (SELECT c.accno FROM chart c WHERE d.income_accno_id    = c.id) AS income_accno,
 970                      (SELECT c.accno FROM chart c WHERE d.expense_accno_id   = c.id) AS expense_accno,
 971                      (SELECT c.accno FROM chart c WHERE d.fxgain_accno_id    = c.id) AS fxgain_accno,
 972                      (SELECT c.accno FROM chart c WHERE d.fxloss_accno_id    = c.id) AS fxloss_accno,
 973                      (SELECT c.accno FROM chart c WHERE d.rndgain_accno_id   = c.id) AS rndgain_accno,
 974                      (SELECT c.accno FROM chart c WHERE d.rndloss_accno_id   = c.id) AS rndloss_accno
 975               $query_add
 976               FROM defaults d|;
 977   my $ref = selectfirst_hashref_query($form, $dbh, $query);
 978   map { $form->{$_} = $ref->{$_} } keys %$ref;
 979
 980   $form->{currency} = $form->get_default_currency($myconfig);
 981
 982   # set reqdate if this is an invoice->order conversion. If someone knows a better check to ensure
 983   # we come from invoices, feel free.
 984   $form->{reqdate} = $form->{deliverydate}
 985     if (    $form->{deliverydate}
 986         and $form->{callback} =~ /action=ar_transactions/);
 987
 988   my $vc = $form->{vc} eq "customer" ? "customer" : "vendor";
 989
 990   if ($form->{id} or @ids) {
 991
 992     # retrieve order for single id
 993     # NOTE: this query is intended to fetch all information only ONCE.
 994     # so if any of these infos is important (or even different) for any item,
 995     # it will be killed out and then has to be fetched from the item scope query further down
 996     $query =
 997       qq|SELECT o.cp_id, o.ordnumber, o.transdate, o.reqdate,
 998            o.taxincluded, o.shippingpoint, o.shipvia, o.notes, o.intnotes,
 999            (SELECT cu.name FROM currencies cu WHERE cu.id=o.currency_id) AS currency, e.name AS employee, o.employee_id, o.salesman_id,
1000            o.${vc}_id, cv.name AS ${vc}, o.amount AS invtotal,
1001            o.closed, o.reqdate, o.quonumber, o.department_id, o.cusordnumber,
1002            o.mtime, o.itime,
1003            d.description AS department, o.payment_id, o.language_id, o.taxzone_id,
1004            o.delivery_customer_id, o.delivery_vendor_id, o.proforma, o.shipto_id,
1005            o.globalproject_id, o.delivered, o.transaction_description, o.delivery_term_id,
1006            o.itime::DATE AS insertdate, o.order_probability, o.expected_billing_date
1007          FROM oe o
1008          JOIN ${vc} cv ON (o.${vc}_id = cv.id)
1009          LEFT JOIN employee e ON (o.employee_id = e.id)
1010          LEFT JOIN department d ON (o.department_id = d.id) | .
1011         ($form->{id}
1012          ? "WHERE o.id = ?"
1013          : "WHERE o.id IN (" . join(', ', map("? ", @ids)) . ")"
1014         );
1015     @values = $form->{id} ? ($form->{id}) : @ids;
1016     $sth = prepare_execute_query($form, $dbh, $query, @values);
1017
1018     $ref = $sth->fetchrow_hashref("NAME_lc");
1019
1020     if ($ref) {
1021       map { $form->{$_} = $ref->{$_} } keys %$ref;
1022
1023       $form->{saved_xyznumber} = $form->{$form->{type} =~ /_quotation$/ ? "quonumber" : "ordnumber"};
1024
1025       # set all entries for multiple ids blank that yield different information
1026       while ($ref = $sth->fetchrow_hashref("NAME_lc")) {
1027         map { $form->{$_} = '' if ($ref->{$_} ne $form->{$_}) } keys %$ref;
1028       }
1029     }
1030     $form->{mtime}   ||= $form->{itime};
1031     $form->{lastmtime} = $form->{mtime};
1032
1033     # if not given, fill transdate with current_date
1034     $form->{transdate} = $form->current_date($myconfig)
1035       unless $form->{transdate};
1036
1037     $sth->finish;
1038
1039     if ($form->{delivery_customer_id}) {
1040       $query = qq|SELECT name FROM customer WHERE id = ?|;
1041       ($form->{delivery_customer_string}) = selectrow_query($form, $dbh, $query, $form->{delivery_customer_id});
1042     }
1043
1044     if ($form->{delivery_vendor_id}) {
1045       $query = qq|SELECT name FROM customer WHERE id = ?|;
1046       ($form->{delivery_vendor_string}) = selectrow_query($form, $dbh, $query, $form->{delivery_vendor_id});
1047     }
1048
1049     # shipto and pinted/mailed/queued status makes only sense for single id retrieve
1050     if (!@ids) {
1051       $query = qq|SELECT s.* FROM shipto s WHERE s.trans_id = ? AND s.module = 'OE'|;
1052       $sth = prepare_execute_query($form, $dbh, $query, $form->{id});
1053
1054       $ref = $sth->fetchrow_hashref("NAME_lc");
1055       $form->{$_} = $ref->{$_} for grep { m{^shipto(?!_id$)} } keys %$ref;
1056       $sth->finish;
1057
1058       if ($ref->{shipto_id}) {
1059         my $cvars = CVar->get_custom_variables(
1060           dbh      => $dbh,
1061           module   => 'ShipTo',
1062           trans_id => $ref->{shipto_id},
1063         );
1064         $form->{"shiptocvar_$_->{name}"} = $_->{value} for @{ $cvars };
1065       }
1066
1067       # get printed, emailed and queued
1068       $query = qq|SELECT s.printed, s.emailed, s.spoolfile, s.formname FROM status s WHERE s.trans_id = ?|;
1069       $sth = prepare_execute_query($form, $dbh, $query, $form->{id});
1070
1071       while ($ref = $sth->fetchrow_hashref("NAME_lc")) {
1072         $form->{printed} .= "$ref->{formname} " if $ref->{printed};
1073         $form->{emailed} .= "$ref->{formname} " if $ref->{emailed};
1074         $form->{queued}  .= "$ref->{formname} $ref->{spoolfile} " if $ref->{spoolfile};
1075       }
1076       $sth->finish;
1077       map { $form->{$_} =~ s/ +$//g } qw(printed emailed queued);
1078     }    # if !@ids
1079
1080     my $transdate = $form->{transdate} ? $dbh->quote($form->{transdate}) : "current_date";
1081
1082     $form->{taxzone_id} = 0 unless ($form->{taxzone_id});
1083
1084     # retrieve individual items
1085     # this query looks up all information about the items
1086     # stuff different from the whole will not be overwritten, but saved with a suffix.
1087     $query =
1088       qq|SELECT o.id AS orderitems_id,
1089            c1.accno AS inventory_accno, c1.new_chart_id AS inventory_new_chart, date($transdate) - c1.valid_from as inventory_valid,
1090            c2.accno AS income_accno,    c2.new_chart_id AS income_new_chart,    date($transdate) - c2.valid_from as income_valid,
1091            c3.accno AS expense_accno,   c3.new_chart_id AS expense_new_chart,   date($transdate) - c3.valid_from as expense_valid,
1092            oe.ordnumber AS ordnumber_oe, oe.transdate AS transdate_oe, oe.cusordnumber AS cusordnumber_oe,
1093            p.partnumber, p.part_type, p.listprice, o.description, o.qty,
1094            p.classification_id,
1095            o.sellprice, o.parts_id AS id, o.unit, o.discount, p.notes AS partnotes, p.part_type,
1096            o.reqdate, o.project_id, o.serialnumber, o.ship, o.lastcost,
1097            o.ordnumber, o.transdate, o.cusordnumber, o.subtotal, o.longdescription,
1098            o.price_factor_id, o.price_factor, o.marge_price_factor, o.active_price_source, o.active_discount_source,
1099            pr.projectnumber, p.formel,
1100            pg.partsgroup, o.pricegroup_id, (SELECT pricegroup FROM pricegroup WHERE id=o.pricegroup_id) as pricegroup
1101          FROM orderitems o
1102          JOIN parts p ON (o.parts_id = p.id)
1103          JOIN oe ON (o.trans_id = oe.id)
1104          LEFT JOIN chart c1 ON ((SELECT inventory_accno_id                   FROM buchungsgruppen WHERE id=p.buchungsgruppen_id) = c1.id)
1105          LEFT JOIN chart c2 ON ((SELECT tc.income_accno_id FROM taxzone_charts tc WHERE tc.taxzone_id = '$form->{taxzone_id}' and tc.buchungsgruppen_id = p.buchungsgruppen_id) = c2.id)
1106          LEFT JOIN chart c3 ON ((SELECT tc.expense_accno_id FROM taxzone_charts tc WHERE tc.taxzone_id = '$form->{taxzone_id}' and tc.buchungsgruppen_id = p.buchungsgruppen_id) = c3.id)
1107          LEFT JOIN project pr ON (o.project_id = pr.id)
1108          LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id) | .
1109       ($form->{id}
1110        ? qq|WHERE o.trans_id = ?|
1111        : qq|WHERE o.trans_id IN (| . join(", ", map("?", @ids)) . qq|)|) .
1112       qq|ORDER BY o.trans_id, o.position|;
1113
1114     @ids = $form->{id} ? ($form->{id}) : @ids;
1115     $sth = prepare_execute_query($form, $dbh, $query, @values);
1116
1117     while ($ref = $sth->fetchrow_hashref("NAME_lc")) {
1118       # Retrieve custom variables.
1119       my $cvars = CVar->get_custom_variables(dbh        => $dbh,
1120                                              module     => 'IC',
1121                                              sub_module => 'orderitems',
1122                                              trans_id   => $ref->{orderitems_id},
1123                                             );
1124       map { $ref->{"ic_cvar_$_->{name}"} = $_->{value} } @{ $cvars };
1125
1126       # Handle accounts.
1127       if (!$ref->{"part_type"} eq 'part') {
1128         map({ delete($ref->{$_}); } qw(inventory_accno inventory_new_chart inventory_valid));
1129       }
1130       # delete($ref->{"part_inventory_accno_id"});
1131
1132       # in collective order, copy global ordnumber, transdate, cusordnumber into item scope
1133       #   unless already present there
1134       # remove _oe entries afterwards
1135       map { $ref->{$_} = $ref->{"${_}_oe"} if ($ref->{$_} eq '') }
1136         qw|ordnumber transdate cusordnumber|
1137         if (@ids);
1138       map { delete $ref->{$_} } qw|ordnumber_oe transdate_oe cusordnumber_oe|;
1139
1140
1141
1142       while ($ref->{inventory_new_chart} && ($ref->{inventory_valid} >= 0)) {
1143         my $query =
1144           qq|SELECT accno AS inventory_accno, | .
1145           qq|  new_chart_id AS inventory_new_chart, | .
1146           qq|  date($transdate) - valid_from AS inventory_valid | .
1147           qq|FROM chart WHERE id = $ref->{inventory_new_chart}|;
1148         ($ref->{inventory_accno}, $ref->{inventory_new_chart},
1149          $ref->{inventory_valid}) = selectrow_query($form, $dbh, $query);
1150       }
1151
1152       while ($ref->{income_new_chart} && ($ref->{income_valid} >= 0)) {
1153         my $query =
1154           qq|SELECT accno AS income_accno, | .
1155           qq|  new_chart_id AS income_new_chart, | .
1156           qq|  date($transdate) - valid_from AS income_valid | .
1157           qq|FROM chart WHERE id = $ref->{income_new_chart}|;
1158         ($ref->{income_accno}, $ref->{income_new_chart},
1159          $ref->{income_valid}) = selectrow_query($form, $dbh, $query);
1160       }
1161
1162       while ($ref->{expense_new_chart} && ($ref->{expense_valid} >= 0)) {
1163         my $query =
1164           qq|SELECT accno AS expense_accno, | .
1165           qq|  new_chart_id AS expense_new_chart, | .
1166           qq|  date($transdate) - valid_from AS expense_valid | .
1167           qq|FROM chart WHERE id = $ref->{expense_new_chart}|;
1168         ($ref->{expense_accno}, $ref->{expense_new_chart},
1169          $ref->{expense_valid}) = selectrow_query($form, $dbh, $query);
1170       }
1171
1172       # delete orderitems_id in collective orders, so that they get cloned no matter what
1173       # is this correct? or is the following meant?
1174       # remember orderitems_ids in converted_from_orderitems_ids, so that they may be linked
1175       $ref->{converted_from_orderitems_id} = delete $ref->{orderitems_id} if $is_collective_order;
1176
1177       # get tax rates and description
1178       my $accno_id = ($form->{vc} eq "customer") ? $ref->{income_accno} : $ref->{expense_accno};
1179       $query =
1180         qq|SELECT c.accno, t.taxdescription, t.rate, c.accno as taxnumber | .
1181         qq|FROM tax t | .
1182         qq|LEFT JOIN chart c on (c.id = t.chart_id) | .
1183         qq|WHERE t.id IN (SELECT tk.tax_id FROM taxkeys tk | .
1184         qq|               WHERE tk.chart_id = (SELECT id FROM chart WHERE accno = ?) | .
1185         qq|                 AND startdate <= $transdate ORDER BY startdate DESC LIMIT 1) | .
1186         qq|ORDER BY c.accno|;
1187       my $stw = prepare_execute_query($form, $dbh, $query, $accno_id);
1188       $ref->{taxaccounts} = "";
1189       my $i = 0;
1190       while (my $ptr = $stw->fetchrow_hashref("NAME_lc")) {
1191         if (($ptr->{accno} eq "") && ($ptr->{rate} == 0)) {
1192           $i++;
1193           $ptr->{accno} = $i;
1194         }
1195         $ref->{taxaccounts} .= "$ptr->{accno} ";
1196         if (!($form->{taxaccounts} =~ /\Q$ptr->{accno}\E/)) {
1197           $form->{"$ptr->{accno}_rate"}        = $ptr->{rate};
1198           $form->{"$ptr->{accno}_description"} = $ptr->{taxdescription};
1199           $form->{"$ptr->{accno}_taxnumber"}   = $ptr->{taxnumber};
1200           $form->{taxaccounts} .= "$ptr->{accno} ";
1201         }
1202
1203       }
1204
1205       chop $ref->{taxaccounts};
1206
1207       push @{ $form->{form_details} }, $ref;
1208       $stw->finish;
1209     }
1210     $sth->finish;
1211
1212   } else {
1213
1214     # get last name used
1215     $form->lastname_used($dbh, $myconfig, $form->{vc})
1216       unless $form->{"$form->{vc}_id"};
1217
1218   }
1219
1220   $form->{exchangerate} = $form->get_exchangerate($dbh, $form->{currency}, $form->{transdate}, ($form->{vc} eq 'customer') ? "buy" : "sell");
1221
1222   Common::webdav_folder($form);
1223
1224   $self->load_periodic_invoice_config($form);
1225
1226   return 1;
1227 }
1228
1229 sub retrieve_simple {
1230   $main::lxdebug->enter_sub();
1231
1232   my $self     = shift;
1233   my %params   = @_;
1234
1235   Common::check_params(\%params, qw(id));
1236
1237   my $myconfig    = \%main::myconfig;
1238   my $form        = $main::form;
1239
1240   my $dbh         = $params{dbh} || $form->get_standard_dbh($myconfig);
1241
1242   my $oe_query    = qq|SELECT * FROM oe         WHERE id = ?|;
1243   my $oi_query    = qq|SELECT * FROM orderitems WHERE trans_id = ? ORDER BY position|;
1244
1245   my $order            = selectfirst_hashref_query($form, $dbh, $oe_query, conv_i($params{id}));
1246   $order->{orderitems} = selectall_hashref_query(  $form, $dbh, $oi_query, conv_i($params{id}));
1247
1248   $main::lxdebug->leave_sub();
1249
1250   return $order;
1251 }
1252
1253 sub order_details {
1254   $main::lxdebug->enter_sub();
1255
1256   my ($self, $myconfig, $form) = @_;
1257
1258   # connect to database
1259   my $dbh = SL::DB->client->dbh;
1260   my $query;
1261   my @values = ();
1262   my $sth;
1263   my $nodiscount;
1264   my $yesdiscount;
1265   my $nodiscount_subtotal = 0;
1266   my $discount_subtotal = 0;
1267   my $item;
1268   my $i;
1269   my @partsgroup = ();
1270   my $partsgroup;
1271   my $position = 0;
1272   my $subtotal_header = 0;
1273   my $subposition = 0;
1274   my %taxaccounts;
1275   my %taxbase;
1276   my $tax_rate;
1277   my $taxamount;
1278
1279   my (@project_ids);
1280
1281   push(@project_ids, $form->{"globalproject_id"}) if ($form->{"globalproject_id"});
1282
1283   $form->get_lists('price_factors' => 'ALL_PRICE_FACTORS');
1284   my %price_factors;
1285
1286   foreach my $pfac (@{ $form->{ALL_PRICE_FACTORS} }) {
1287     $price_factors{$pfac->{id}}  = $pfac;
1288     $pfac->{factor}             *= 1;
1289     $pfac->{formatted_factor}    = $form->format_amount($myconfig, $pfac->{factor});
1290   }
1291
1292   # sort items by partsgroup
1293   for $i (1 .. $form->{rowcount}) {
1294     $partsgroup = "";
1295     if ($form->{"partsgroup_$i"} && $form->{groupitems}) {
1296       $partsgroup = $form->{"partsgroup_$i"};
1297     }
1298     push @partsgroup, [$i, $partsgroup];
1299     push(@project_ids, $form->{"project_id_$i"}) if ($form->{"project_id_$i"});
1300   }
1301
1302   my $projects = [];
1303   my %projects_by_id;
1304   if (@project_ids) {
1305     $projects = SL::DB::Manager::Project->get_all(query => [ id => \@project_ids ]);
1306     %projects_by_id = map { $_->id => $_ } @$projects;
1307   }
1308
1309   if ($projects_by_id{$form->{"globalproject_id"}}) {
1310     $form->{globalprojectnumber} = $projects_by_id{$form->{"globalproject_id"}}->projectnumber;
1311     $form->{globalprojectdescription} = $projects_by_id{$form->{"globalproject_id"}}->description;
1312
1313     for (@{ $projects_by_id{$form->{"globalproject_id"}}->cvars_by_config }) {
1314       $form->{"project_cvar_" . $_->config->name} = $_->value_as_text;
1315     }
1316   }
1317
1318   $form->{discount} = [];
1319
1320   # get some values of parts from db on store them in extra array,
1321   # so that they can be sorted in later
1322   my %prepared_template_arrays = IC->prepare_parts_for_printing(myconfig => $myconfig, form => $form);
1323   my @prepared_arrays          = keys %prepared_template_arrays;
1324   my @separate_totals          = qw(non_separate_subtotal);
1325
1326   $form->{TEMPLATE_ARRAYS} = { };
1327
1328   my $ic_cvar_configs = CVar->get_configs(module => 'IC');
1329   my $project_cvar_configs = CVar->get_configs(module => 'Projects');
1330
1331   my @arrays =
1332     qw(runningnumber number description longdescription qty qty_nofmt ship ship_nofmt unit bin
1333        partnotes serialnumber reqdate sellprice sellprice_nofmt listprice listprice_nofmt netprice netprice_nofmt
1334        discount discount_nofmt p_discount discount_sub discount_sub_nofmt nodiscount_sub nodiscount_sub_nofmt
1335        linetotal linetotal_nofmt nodiscount_linetotal nodiscount_linetotal_nofmt tax_rate projectnumber projectdescription
1336        price_factor price_factor_name partsgroup weight weight_nofmt lineweight lineweight_nofmt);
1337
1338   push @arrays, map { "ic_cvar_$_->{name}" } @{ $ic_cvar_configs };
1339   push @arrays, map { "project_cvar_$_->{name}" } @{ $project_cvar_configs };
1340
1341   my @tax_arrays = qw(taxbase tax taxdescription taxrate taxnumber);
1342
1343   map { $form->{TEMPLATE_ARRAYS}->{$_} = [] } (@arrays, @tax_arrays, @prepared_arrays);
1344
1345   my $totalweight = 0;
1346   my $sameitem = "";
1347   foreach $item (sort { $a->[1] cmp $b->[1] } @partsgroup) {
1348     $i = $item->[0];
1349
1350     if ($item->[1] ne $sameitem) {
1351       push(@{ $form->{TEMPLATE_ARRAYS}->{entry_type}  }, 'partsgroup');
1352       push(@{ $form->{TEMPLATE_ARRAYS}->{description} }, qq|$item->[1]|);
1353       $sameitem = $item->[1];
1354
1355       map({ push(@{ $form->{TEMPLATE_ARRAYS}->{$_} }, "") } grep({ $_ ne "description" } (@arrays, @prepared_arrays)));
1356     }
1357
1358     $form->{"qty_$i"} = $form->parse_amount($myconfig, $form->{"qty_$i"});
1359
1360     if ($form->{"id_$i"} != 0) {
1361
1362       # add number, description and qty to $form->{number}, ....
1363
1364       if ($form->{"subtotal_$i"} && !$subtotal_header) {
1365         $subtotal_header = $i;
1366         $position = int($position);
1367         $subposition = 0;
1368         $position++;
1369       } elsif ($subtotal_header) {
1370         $subposition += 1;
1371         $position = int($position);
1372         $position = $position.".".$subposition;
1373       } else {
1374         $position = int($position);
1375         $position++;
1376       }
1377
1378       my $price_factor = $price_factors{$form->{"price_factor_id_$i"}} || { 'factor' => 1 };
1379
1380       push(@{ $form->{TEMPLATE_ARRAYS}->{$_} },                $prepared_template_arrays{$_}[$i - 1]) for @prepared_arrays;
1381
1382       push @{ $form->{TEMPLATE_ARRAYS}->{entry_type} },        'normal';
1383       push @{ $form->{TEMPLATE_ARRAYS}->{runningnumber} },     $position;
1384       push @{ $form->{TEMPLATE_ARRAYS}->{number} },            $form->{"partnumber_$i"};
1385       push @{ $form->{TEMPLATE_ARRAYS}->{description} },       $form->{"description_$i"};
1386       push @{ $form->{TEMPLATE_ARRAYS}->{longdescription} },   $form->{"longdescription_$i"};
1387       push @{ $form->{TEMPLATE_ARRAYS}->{qty} },               $form->format_amount($myconfig, $form->{"qty_$i"});
1388       push @{ $form->{TEMPLATE_ARRAYS}->{qty_nofmt} },         $form->{"qty_$i"};
1389       push @{ $form->{TEMPLATE_ARRAYS}->{ship} },              $form->format_amount($myconfig, $form->{"ship_$i"});
1390       push @{ $form->{TEMPLATE_ARRAYS}->{ship_nofmt} },        $form->{"ship_$i"};
1391       push @{ $form->{TEMPLATE_ARRAYS}->{unit} },              $form->{"unit_$i"};
1392       push @{ $form->{TEMPLATE_ARRAYS}->{bin} },               $form->{"bin_$i"};
1393       push @{ $form->{TEMPLATE_ARRAYS}->{partnotes} },         $form->{"partnotes_$i"};
1394       push @{ $form->{TEMPLATE_ARRAYS}->{serialnumber} },      $form->{"serialnumber_$i"};
1395       push @{ $form->{TEMPLATE_ARRAYS}->{reqdate} },           $form->{"reqdate_$i"};
1396       push @{ $form->{TEMPLATE_ARRAYS}->{sellprice} },         $form->{"sellprice_$i"};
1397       push @{ $form->{TEMPLATE_ARRAYS}->{sellprice_nofmt} },   $form->parse_amount($myconfig, $form->{"sellprice_$i"});
1398       push @{ $form->{TEMPLATE_ARRAYS}->{listprice} },         $form->format_amount($myconfig, $form->{"listprice_$i"}, 2);
1399       push @{ $form->{TEMPLATE_ARRAYS}->{listprice_nofmt} },   $form->{"listprice_$i"};
1400       push @{ $form->{TEMPLATE_ARRAYS}->{price_factor} },      $price_factor->{formatted_factor};
1401       push @{ $form->{TEMPLATE_ARRAYS}->{price_factor_name} }, $price_factor->{description};
1402       push @{ $form->{TEMPLATE_ARRAYS}->{partsgroup} },        $form->{"partsgroup_$i"};
1403
1404       my $sellprice     = $form->parse_amount($myconfig, $form->{"sellprice_$i"});
1405       my ($dec)         = ($sellprice =~ /\.(\d+)/);
1406       my $decimalplaces = max 2, length($dec);
1407
1408       my $parsed_discount            = $form->parse_amount($myconfig, $form->{"discount_$i"});
1409
1410       my $linetotal_exact            = $form->{"qty_$i"} * $sellprice * (100 - $parsed_discount) / 100 / $price_factor->{factor};
1411       my $linetotal                  = $form->round_amount($linetotal_exact, 2);
1412
1413       my $nodiscount_exact_linetotal = $form->{"qty_$i"} * $sellprice                                  / $price_factor->{factor};
1414       my $nodiscount_linetotal       = $form->round_amount($nodiscount_exact_linetotal,2);
1415
1416       my $discount                   = $nodiscount_linetotal - $linetotal; # is always rounded because $nodiscount_linetotal and $linetotal are rounded
1417
1418       my $discount_round_error       = $discount + ($linetotal_exact - $nodiscount_exact_linetotal); # not used
1419
1420       $form->{"netprice_$i"}   = $form->round_amount($form->{"qty_$i"} ? ($linetotal / $form->{"qty_$i"}) : 0, $decimalplaces);
1421
1422       push @{ $form->{TEMPLATE_ARRAYS}->{netprice} },       ($form->{"netprice_$i"} != 0) ? $form->format_amount($myconfig, $form->{"netprice_$i"}, $decimalplaces) : '';
1423       push @{ $form->{TEMPLATE_ARRAYS}->{netprice_nofmt} }, ($form->{"netprice_$i"} != 0) ? $form->{"netprice_$i"} : '';
1424
1425       $linetotal = ($linetotal != 0) ? $linetotal : '';
1426
1427       push @{ $form->{TEMPLATE_ARRAYS}->{discount} },       ($discount != 0) ? $form->format_amount($myconfig, $discount * -1, 2) : '';
1428       push @{ $form->{TEMPLATE_ARRAYS}->{discount_nofmt} }, ($discount != 0) ? $discount * -1 : '';
1429       push @{ $form->{TEMPLATE_ARRAYS}->{p_discount} },     $form->{"discount_$i"};
1430
1431       if ( $prepared_template_arrays{separate}[$i - 1]  ) {
1432         my $pabbr = $prepared_template_arrays{separate}[$i - 1];
1433         if ( ! $form->{"separate_${pabbr}_subtotal"} ) {
1434             push @separate_totals , "separate_${pabbr}_subtotal";
1435             $form->{"separate_${pabbr}_subtotal"} = 0;
1436         }
1437         $form->{"separate_${pabbr}_subtotal"} += $linetotal;
1438       } else {
1439         $form->{non_separate_subtotal} += $linetotal;
1440       }
1441
1442       $form->{ordtotal}         += $linetotal;
1443       $form->{nodiscount_total} += $nodiscount_linetotal;
1444       $form->{discount_total}   += $discount;
1445
1446       if ($subtotal_header) {
1447         $discount_subtotal   += $linetotal;
1448         $nodiscount_subtotal += $nodiscount_linetotal;
1449       }
1450
1451       if ($form->{"subtotal_$i"} && $subtotal_header && ($subtotal_header != $i)) {
1452         push @{ $form->{TEMPLATE_ARRAYS}->{discount_sub} },         $form->format_amount($myconfig, $discount_subtotal,   2);
1453         push @{ $form->{TEMPLATE_ARRAYS}->{discount_sub_nofmt} },   $discount_subtotal;
1454         push @{ $form->{TEMPLATE_ARRAYS}->{nodiscount_sub} },       $form->format_amount($myconfig, $nodiscount_subtotal, 2);
1455         push @{ $form->{TEMPLATE_ARRAYS}->{nodiscount_sub_nofmt} }, $nodiscount_subtotal;
1456
1457         $discount_subtotal   = 0;
1458         $nodiscount_subtotal = 0;
1459         $subtotal_header     = 0;
1460
1461       } else {
1462         push @{ $form->{TEMPLATE_ARRAYS}->{$_} }, "" for qw(discount_sub nodiscount_sub discount_sub_nofmt nodiscount_sub_nofmt);
1463       }
1464
1465       if (!$form->{"discount_$i"}) {
1466         $nodiscount += $linetotal;
1467       }
1468
1469       my $project = $projects_by_id{$form->{"project_id_$i"}} || SL::DB::Project->new;
1470
1471       push @{ $form->{TEMPLATE_ARRAYS}->{linetotal} },                  $form->format_amount($myconfig, $linetotal, 2);
1472       push @{ $form->{TEMPLATE_ARRAYS}->{linetotal_nofmt} },            $linetotal_exact;
1473       push @{ $form->{TEMPLATE_ARRAYS}->{nodiscount_linetotal} },       $form->format_amount($myconfig, $nodiscount_linetotal, 2);
1474       push @{ $form->{TEMPLATE_ARRAYS}->{nodiscount_linetotal_nofmt} }, $nodiscount_linetotal;
1475       push @{ $form->{TEMPLATE_ARRAYS}->{projectnumber} },              $project->projectnumber;
1476       push @{ $form->{TEMPLATE_ARRAYS}->{projectdescription} },         $project->description;
1477
1478       my $lineweight = $form->{"qty_$i"} * $form->{"weight_$i"};
1479       $totalweight += $lineweight;
1480       push @{ $form->{TEMPLATE_ARRAYS}->{weight} },            $form->format_amount($myconfig, $form->{"weight_$i"}, 3);
1481       push @{ $form->{TEMPLATE_ARRAYS}->{weight_nofmt} },      $form->{"weight_$i"};
1482       push @{ $form->{TEMPLATE_ARRAYS}->{lineweight} },        $form->format_amount($myconfig, $lineweight, 3);
1483       push @{ $form->{TEMPLATE_ARRAYS}->{lineweight_nofmt} },  $lineweight;
1484
1485       my ($taxamount, $taxbase);
1486       my $taxrate = 0;
1487
1488       map { $taxrate += $form->{"${_}_rate"} } split(/ /, $form->{"taxaccounts_$i"});
1489
1490       if ($form->{taxincluded}) {
1491
1492         # calculate tax
1493         $taxamount = $linetotal * $taxrate / (1 + $taxrate);
1494         $taxbase = $linetotal / (1 + $taxrate);
1495       } else {
1496         $taxamount = $linetotal * $taxrate;
1497         $taxbase   = $linetotal;
1498       }
1499
1500       if ($taxamount != 0) {
1501         foreach my $accno (split / /, $form->{"taxaccounts_$i"}) {
1502           $taxaccounts{$accno} += $taxamount * $form->{"${accno}_rate"} / $taxrate;
1503           $taxbase{$accno}     += $taxbase;
1504         }
1505       }
1506
1507       $tax_rate = $taxrate * 100;
1508       push(@{ $form->{TEMPLATE_ARRAYS}->{tax_rate} }, qq|$tax_rate|);
1509
1510       if ($form->{"part_type_$i"} eq 'assembly') {
1511         $sameitem = "";
1512
1513         # get parts and push them onto the stack
1514         my $sortorder = "";
1515         if ($form->{groupitems}) {
1516           $sortorder = qq|ORDER BY pg.partsgroup, a.oid|;
1517         } else {
1518           $sortorder = qq|ORDER BY a.oid|;
1519         }
1520
1521         $query = qq|SELECT p.partnumber, p.description, p.unit, a.qty, | .
1522                  qq|pg.partsgroup | .
1523                  qq|FROM assembly a | .
1524                  qq|  JOIN parts p ON (a.parts_id = p.id) | .
1525                  qq|    LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id) | .
1526                  qq|    WHERE a.bom = '1' | .
1527                  qq|    AND a.id = ? | . $sortorder;
1528         @values = ($form->{"id_$i"});
1529         $sth = $dbh->prepare($query);
1530         $sth->execute(@values) || $form->dberror($query);
1531
1532         while (my $ref = $sth->fetchrow_hashref("NAME_lc")) {
1533           if ($form->{groupitems} && $ref->{partsgroup} ne $sameitem) {
1534             map({ push(@{ $form->{TEMPLATE_ARRAYS}->{$_} }, "") } grep({ $_ ne "description" } (@arrays, @prepared_arrays)));
1535             $sameitem = ($ref->{partsgroup}) ? $ref->{partsgroup} : "--";
1536             push(@{ $form->{TEMPLATE_ARRAYS}->{entry_type}  }, 'assembly-item-partsgroup');
1537             push(@{ $form->{TEMPLATE_ARRAYS}->{description} }, $sameitem);
1538           }
1539
1540           push(@{ $form->{TEMPLATE_ARRAYS}->{entry_type}  }, 'assembly-item');
1541           push(@{ $form->{TEMPLATE_ARRAYS}->{description} }, $form->format_amount($myconfig, $ref->{qty} * $form->{"qty_$i"}) . qq|, $ref->{partnumber}, $ref->{description}|);
1542           map({ push(@{ $form->{TEMPLATE_ARRAYS}->{$_} }, "") } grep({ $_ ne "description" } (@arrays, @prepared_arrays)));
1543         }
1544         $sth->finish;
1545       }
1546
1547       CVar->get_non_editable_ic_cvars(form               => $form,
1548                                       dbh                => $dbh,
1549                                       row                => $i,
1550                                       sub_module         => 'orderitems',
1551                                       may_converted_from => ['orderitems', 'invoice']);
1552
1553       push @{ $form->{TEMPLATE_ARRAYS}->{"ic_cvar_$_->{name}"} },
1554         CVar->format_to_template(CVar->parse($form->{"ic_cvar_$_->{name}_$i"}, $_), $_)
1555           for @{ $ic_cvar_configs };
1556
1557       push @{ $form->{TEMPLATE_ARRAYS}->{"project_cvar_" . $_->config->name} }, $_->value_as_text for @{ $project->cvars_by_config };
1558     }
1559   }
1560
1561   $form->{totalweight}       = $form->format_amount($myconfig, $totalweight, 3);
1562   $form->{totalweight_nofmt} = $totalweight;
1563   my $defaults = AM->get_defaults();
1564   $form->{weightunit}        = $defaults->{weightunit};
1565
1566   my $tax = 0;
1567   foreach $item (sort keys %taxaccounts) {
1568     $tax += $taxamount = $form->round_amount($taxaccounts{$item}, 2);
1569
1570     push(@{ $form->{TEMPLATE_ARRAYS}->{taxbase} },        $form->format_amount($myconfig, $taxbase{$item}, 2));
1571     push(@{ $form->{TEMPLATE_ARRAYS}->{taxbase_nofmt} },  $taxbase{$item});
1572     push(@{ $form->{TEMPLATE_ARRAYS}->{tax} },            $form->format_amount($myconfig, $taxamount,      2));
1573     push(@{ $form->{TEMPLATE_ARRAYS}->{tax_nofmt} },      $taxamount);
1574     push(@{ $form->{TEMPLATE_ARRAYS}->{taxrate} },        $form->format_amount($myconfig, $form->{"${item}_rate"} * 100));
1575     push(@{ $form->{TEMPLATE_ARRAYS}->{taxrate_nofmt} },  $form->{"${item}_rate"} * 100);
1576     push(@{ $form->{TEMPLATE_ARRAYS}->{taxnumber} },      $form->{"${item}_taxnumber"});
1577
1578     my $tax_objs     = SL::DB::Manager::Tax->get_objects_from_sql(
1579       sql  => 'SELECT * from tax where chart_id = (SELECT id FROM chart WHERE accno = ?)',
1580       args => [ $form->{"${item}_taxnumber"} ]
1581     );
1582     my $tax_obj;
1583     if ( $tax_objs ) {
1584       $tax_obj     = $tax_objs->[0];
1585     }
1586     my $description = $tax_obj ? $tax_obj->translated_attribute('taxdescription',  $form->{language_id}, 0) : '';
1587     push(@{ $form->{TEMPLATE_ARRAYS}->{taxdescription} }, $description . q{ } . 100 * $form->{"${item}_rate"} . q{%});
1588   }
1589
1590   $form->{nodiscount_subtotal} = $form->format_amount($myconfig, $form->{nodiscount_total}, 2);
1591   $form->{discount_total}      = $form->format_amount($myconfig, $form->{discount_total}, 2);
1592   $form->{nodiscount}          = $form->format_amount($myconfig, $nodiscount, 2);
1593   $form->{yesdiscount}         = $form->format_amount($myconfig, $form->{nodiscount_total} - $nodiscount, 2);
1594
1595   if($form->{taxincluded}) {
1596     $form->{subtotal}       = $form->format_amount($myconfig, $form->{ordtotal} - $tax, 2);
1597     $form->{subtotal_nofmt} = $form->{ordtotal} - $tax;
1598   } else {
1599     $form->{subtotal}       = $form->format_amount($myconfig, $form->{ordtotal}, 2);
1600     $form->{subtotal_nofmt} = $form->{ordtotal};
1601   }
1602
1603   my $grossamount = ($form->{taxincluded}) ? $form->{ordtotal} : $form->{ordtotal} + $tax;
1604   $form->{ordtotal} = $form->round_amount( $grossamount, 2, 1);
1605   $form->{rounding} = $form->round_amount(
1606     $form->{ordtotal} - $form->round_amount($grossamount, 2),
1607     2
1608   );
1609
1610   # format amounts
1611   $form->{rounding} = $form->format_amount($myconfig, $form->{rounding}, 2);
1612   $form->{quototal} = $form->{ordtotal} = $form->format_amount($myconfig, $form->{ordtotal}, 2);
1613
1614   $form->set_payment_options($myconfig, $form->{$form->{type} =~ /_quotation/ ? 'quodate' : 'orddate'}, $form->{type});
1615
1616   $form->{username} = $myconfig->{name};
1617
1618   $form->{department}    = SL::DB::Manager::Department->find_by(id => $form->{department_id})->description if $form->{department_id};
1619   $form->{delivery_term} = SL::DB::Manager::DeliveryTerm->find_by(id => $form->{delivery_term_id} || undef);
1620   $form->{delivery_term}->description_long($form->{delivery_term}->translated_attribute('description_long', $form->{language_id})) if $form->{delivery_term} && $form->{language_id};
1621
1622   $form->{order} = SL::DB::Manager::Order->find_by(id => $form->{id}) if $form->{id};
1623   $form->{$_} = $form->format_amount($myconfig, $form->{$_}, 2) for @separate_totals;
1624
1625   $main::lxdebug->leave_sub();
1626 }
1627
1628 1;
1629
1630 __END__
1631
1632 =head1 NAME
1633
1634 OE.pm - Order entry module
1635
1636 =head1 DESCRIPTION
1637
1638 OE.pm is part of the OE module. OE is responsible for sales and purchase orders, as well as sales quotations and purchase requests. This file abstracts the database tables C<oe> and C<orderitems>.
1639
1640 =head1 FUNCTIONS
1641
1642 =over 4
1643
1644 =item retrieve_simple PARAMS
1645
1646 simple OE retrieval by id. does not look up customer, vendor, units or any other stuff. only oe and orderitems.
1647
1648   my $order = retrieve_simple(id => 2);
1649
1650   $order => {
1651     %_OE_CONTENT,
1652     orderitems => [
1653       %_ORDERITEM_ROW_1,
1654       %_ORDERITEM_ROW_2,
1655       ...
1656     ]
1657   }
1658
1659 =back
1660
1661 =cut