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