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