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