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