SL/OE.pm

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