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 = ?,
 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"},
 550            $form->{"active_price_source_$i"},
 551            conv_i($form->{"price_factor_id_$i"}), conv_i($form->{"price_factor_id_$i"}),
 552            conv_i($form->{"marge_price_factor_$i"}),
 553            conv_i($orderitems_id),
 554       );
 555
 556       do_query($form, $dbh, $query, @values);
 557
 558       $form->{"sellprice_$i"} = $fxsellprice;
 559       $form->{"discount_$i"} *= 100;
 560
 561       CVar->save_custom_variables(module       => 'IC',
 562                                   sub_module   => 'orderitems',
 563                                   trans_id     => $orderitems_id,
 564                                   configs      => $ic_cvar_configs,
 565                                   variables    => $form,
 566                                   name_prefix  => 'ic_',
 567                                   name_postfix => "_$i",
 568                                   dbh          => $dbh);
 569     }
 570   }
 571   # search for orphaned ids
 572   $query  = sprintf 'SELECT id FROM orderitems WHERE trans_id = ? AND NOT id IN (%s)', join ', ', ("?") x scalar @processed_orderitems;
 573   @values = (conv_i($form->{id}), map { conv_i($_) } @processed_orderitems);
 574   my @orphaned_ids = map { $_->{id} } selectall_hashref_query($form, $dbh, $query, @values);
 575
 576   if (scalar @orphaned_ids) {
 577     # clean up orderitems
 578     $query  = sprintf 'DELETE FROM orderitems WHERE id IN (%s)', join ', ', ("?") x scalar @orphaned_ids;
 579     do_query($form, $dbh, $query, @orphaned_ids);
 580   }
 581
 582   $reqdate = ($form->{reqdate}) ? $form->{reqdate} : undef;
 583
 584   # add up the tax
 585   my $tax = 0;
 586   map { $tax += $form->round_amount($taxaccounts{$_}, 2) } keys %taxaccounts;
 587
 588   $amount = $form->round_amount($netamount + $tax, 2);
 589   $netamount = $form->round_amount($netamount, 2);
 590
 591   if ($form->{currency} eq $form->{defaultcurrency}) {
 592     $form->{exchangerate} = 1;
 593   } else {
 594     $exchangerate = $form->check_exchangerate($myconfig, $form->{currency}, $form->{transdate}, ($form->{vc} eq 'customer') ? 'buy' : 'sell');
 595   }
 596
 597   $form->{exchangerate} = $exchangerate || $form->parse_amount($myconfig, $form->{exchangerate});
 598
 599   my $quotation = $form->{type} =~ /_order$/ ? 'f' : 't';
 600
 601   ($null, $form->{department_id}) = split(/--/, $form->{department}) if $form->{department};
 602
 603   # save OE record
 604   $query =
 605     qq|UPDATE oe SET
 606          ordnumber = ?, quonumber = ?, cusordnumber = ?, transdate = ?, vendor_id = ?,
 607          customer_id = ?, amount = ?, netamount = ?, reqdate = ?, taxincluded = ?,
 608          shippingpoint = ?, shipvia = ?, notes = ?, intnotes = ?, currency_id = (SELECT id FROM currencies WHERE name=?), closed = ?,
 609          delivered = ?, proforma = ?, quotation = ?, department_id = ?, language_id = ?,
 610          taxzone_id = ?, shipto_id = ?, payment_id = ?, delivery_vendor_id = ?, delivery_customer_id = ?,delivery_term_id = ?,
 611          globalproject_id = ?, employee_id = ?, salesman_id = ?, cp_id = ?, transaction_description = ?, marge_total = ?, marge_percent = ?
 612          , order_probability = ?, expected_billing_date = ?
 613        WHERE id = ?|;
 614
 615   @values = ($form->{ordnumber} || '', $form->{quonumber},
 616              $form->{cusordnumber}, conv_date($form->{transdate}),
 617              conv_i($form->{vendor_id}), conv_i($form->{customer_id}),
 618              $amount, $netamount, conv_date($reqdate),
 619              $form->{taxincluded} ? 't' : 'f', $form->{shippingpoint},
 620              $form->{shipvia}, $form->{notes}, $form->{intnotes},
 621              $form->{currency}, $form->{closed} ? 't' : 'f',
 622              $form->{delivered} ? "t" : "f", $form->{proforma} ? 't' : 'f',
 623              $quotation, conv_i($form->{department_id}),
 624              conv_i($form->{language_id}), conv_i($form->{taxzone_id}),
 625              conv_i($form->{shipto_id}), conv_i($form->{payment_id}),
 626              conv_i($form->{delivery_vendor_id}),
 627              conv_i($form->{delivery_customer_id}),
 628              conv_i($form->{delivery_term_id}),
 629              conv_i($form->{globalproject_id}), conv_i($form->{employee_id}),
 630              conv_i($form->{salesman_id}), conv_i($form->{cp_id}),
 631              $form->{transaction_description},
 632              $form->{marge_total} * 1, $form->{marge_percent} * 1,
 633              $form->{order_probability} * 1, conv_date($form->{expected_billing_date}),
 634              conv_i($form->{id}));
 635   do_query($form, $dbh, $query, @values);
 636
 637   $form->{ordtotal} = $amount;
 638
 639   $form->{name} = $form->{ $form->{vc} };
 640   $form->{name} =~ s/--\Q$form->{"$form->{vc}_id"}\E//;
 641
 642   # add shipto
 643   if (!$form->{shipto_id}) {
 644     $form->add_shipto($dbh, $form->{id}, "OE");
 645   }
 646
 647   # save printed, emailed, queued
 648   $form->save_status($dbh);
 649
 650   # Link this record to the records it was created from.
 651   $form->{convert_from_oe_ids} =~ s/^\s+//;
 652   $form->{convert_from_oe_ids} =~ s/\s+$//;
 653   my @convert_from_oe_ids      =  split m/\s+/, $form->{convert_from_oe_ids};
 654   delete $form->{convert_from_oe_ids};
 655
 656   if (scalar @convert_from_oe_ids) {
 657     RecordLinks->create_links('dbh'        => $dbh,
 658                               'mode'       => 'ids',
 659                               'from_table' => 'oe',
 660                               'from_ids'   => \@convert_from_oe_ids,
 661                               'to_table'   => 'oe',
 662                               'to_id'      => $form->{id},
 663       );
 664
 665     $self->_close_quotations_rfqs('dbh'     => $dbh,
 666                                   'from_id' => \@convert_from_oe_ids,
 667                                   'to_id'   => $form->{id});
 668   }
 669
 670   if (($form->{currency} ne $form->{defaultcurrency}) && !$exchangerate) {
 671     if ($form->{vc} eq 'customer') {
 672       $form->update_exchangerate($dbh, $form->{currency}, $form->{transdate}, $form->{exchangerate}, 0);
 673     }
 674     if ($form->{vc} eq 'vendor') {
 675       $form->update_exchangerate($dbh, $form->{currency}, $form->{transdate}, 0, $form->{exchangerate});
 676     }
 677   }
 678
 679   $form->{saved_xyznumber} = $form->{$form->{type} =~ /_quotation$/ ?
 680                                        "quonumber" : "ordnumber"};
 681
 682   Common::webdav_folder($form);
 683
 684   my $rc = $dbh->commit;
 685
 686   $self->save_periodic_invoices_config(dbh         => $dbh,
 687                                        oe_id       => $form->{id},
 688                                        config_yaml => $form->{periodic_invoices_config})
 689     if ($form->{type} eq 'sales_order');
 690
 691   $main::lxdebug->leave_sub();
 692
 693   return $rc;
 694 }
 695
 696 sub save_periodic_invoices_config {
 697   my ($self, %params) = @_;
 698
 699   return if !$params{oe_id};
 700
 701   my $config = $params{config_yaml} ? YAML::Load($params{config_yaml}) : undef;
 702   return if 'HASH' ne ref $config;
 703
 704   my $obj  = SL::DB::Manager::PeriodicInvoicesConfig->find_by(oe_id => $params{oe_id})
 705           || SL::DB::PeriodicInvoicesConfig->new(oe_id => $params{oe_id});
 706   $obj->update_attributes(%{ $config });
 707 }
 708
 709 sub load_periodic_invoice_config {
 710   my $self = shift;
 711   my $form = shift;
 712
 713   delete $form->{periodic_invoices_config};
 714
 715   if ($form->{id}) {
 716     my $config_obj = SL::DB::Manager::PeriodicInvoicesConfig->find_by(oe_id => $form->{id});
 717
 718     if ($config_obj) {
 719       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
 720                                                       print printer_id copies) };
 721       $form->{periodic_invoices_config} = YAML::Dump($config);
 722     }
 723   }
 724 }
 725
 726 sub _close_quotations_rfqs {
 727   $main::lxdebug->enter_sub();
 728
 729   my $self     = shift;
 730   my %params   = @_;
 731
 732   Common::check_params(\%params, qw(from_id to_id));
 733
 734   my $myconfig = \%main::myconfig;
 735   my $form     = $main::form;
 736
 737   my $dbh      = $params{dbh} || $form->get_standard_dbh($myconfig);
 738
 739   my $query    = qq|SELECT quotation FROM oe WHERE id = ?|;
 740   my $sth      = prepare_query($form, $dbh, $query);
 741
 742   do_statement($form, $sth, $query, conv_i($params{to_id}));
 743
 744   my ($quotation) = $sth->fetchrow_array();
 745
 746   if ($quotation) {
 747     $main::lxdebug->leave_sub();
 748     return;
 749   }
 750
 751   my @close_ids;
 752
 753   foreach my $from_id (@{ $params{from_id} }) {
 754     $from_id = conv_i($from_id);
 755     do_statement($form, $sth, $query, $from_id);
 756     ($quotation) = $sth->fetchrow_array();
 757     push @close_ids, $from_id if ($quotation);
 758   }
 759
 760   $sth->finish();
 761
 762   if (scalar @close_ids) {
 763     $query = qq|UPDATE oe SET closed = TRUE WHERE id IN (| . join(', ', ('?') x scalar @close_ids) . qq|)|;
 764     do_query($form, $dbh, $query, @close_ids);
 765
 766     $dbh->commit() unless ($params{dbh});
 767   }
 768
 769   $main::lxdebug->leave_sub();
 770 }
 771
 772 sub delete {
 773   $main::lxdebug->enter_sub();
 774
 775   my ($self, $myconfig, $form) = @_;
 776
 777   my $rc = SL::DB::Order->new->db->with_transaction(sub {
 778     my @spoolfiles = grep { $_ } map { $_->spoolfile } @{ SL::DB::Manager::Status->get_all(where => [ trans_id => $form->{id} ]) };
 779
 780     SL::DB::Order->new(id => $form->{id})->delete;
 781
 782     my $spool = $::lx_office_conf{paths}->{spool};
 783     unlink map { "$spool/$_" } @spoolfiles if $spool;
 784
 785     1;
 786   });
 787
 788   $main::lxdebug->leave_sub();
 789
 790   return $rc;
 791 }
 792
 793 sub retrieve {
 794   $main::lxdebug->enter_sub();
 795
 796   my ($self, $myconfig, $form) = @_;
 797
 798   # connect to database
 799   my $dbh = $form->get_standard_dbh;
 800
 801   my ($query, $query_add, @values, @ids, $sth);
 802
 803   # translate the ids (given by id_# and trans_id_#) into one array of ids, so we can join them later
 804   map {
 805     push @ids, $form->{"trans_id_$_"}
 806       if ($form->{"multi_id_$_"} and $form->{"trans_id_$_"})
 807   } (1 .. $form->{"rowcount"});
 808
 809   if ($form->{rowcount} && scalar @ids) {
 810     $form->{convert_from_oe_ids} = join ' ', @ids;
 811   }
 812
 813   # if called in multi id mode, and still only got one id, switch back to single id
 814   if ($form->{"rowcount"} and $#ids == 0) {
 815     $form->{"id"} = $ids[0];
 816     undef @ids;
 817   }
 818
 819   # and remember for the rest of the function
 820   my $is_collective_order = scalar @ids;
 821
 822   if (!$form->{id}) {
 823     my $wday         = (localtime(time))[6];
 824     my $next_workday = $wday == 5 ? 3 : $wday == 6 ? 2 : 1;
 825
 826     # if we have a client configured interval for sales quotation, we add this
 827     $next_workday   += $::instance_conf->get_reqdate_interval if ($::instance_conf->get_reqdate_interval &&
 828                                                                     $form->{type} eq 'sales_quotation' );
 829
 830     $query_add       = qq|, current_date AS transdate, date(current_date + interval '${next_workday} days') AS reqdate|;
 831   }
 832
 833   # get default accounts
 834   $query = qq|SELECT (SELECT c.accno FROM chart c WHERE d.inventory_accno_id = c.id) AS inventory_accno,
 835                      (SELECT c.accno FROM chart c WHERE d.income_accno_id    = c.id) AS income_accno,
 836                      (SELECT c.accno FROM chart c WHERE d.expense_accno_id   = c.id) AS expense_accno,
 837                      (SELECT c.accno FROM chart c WHERE d.fxgain_accno_id    = c.id) AS fxgain_accno,
 838                      (SELECT c.accno FROM chart c WHERE d.fxloss_accno_id    = c.id) AS fxloss_accno
 839               $query_add
 840               FROM defaults d|;
 841   my $ref = selectfirst_hashref_query($form, $dbh, $query);
 842   map { $form->{$_} = $ref->{$_} } keys %$ref;
 843
 844   $form->{currency} = $form->get_default_currency($myconfig);
 845
 846   # set reqdate if this is an invoice->order conversion. If someone knows a better check to ensure
 847   # we come from invoices, feel free.
 848   $form->{reqdate} = $form->{deliverydate}
 849     if (    $form->{deliverydate}
 850         and $form->{callback} =~ /action=ar_transactions/);
 851
 852   my $vc = $form->{vc} eq "customer" ? "customer" : "vendor";
 853
 854   if ($form->{id} or @ids) {
 855
 856     # retrieve order for single id
 857     # NOTE: this query is intended to fetch all information only ONCE.
 858     # so if any of these infos is important (or even different) for any item,
 859     # it will be killed out and then has to be fetched from the item scope query further down
 860     $query =
 861       qq|SELECT o.cp_id, o.ordnumber, o.transdate, o.reqdate,
 862            o.taxincluded, o.shippingpoint, o.shipvia, o.notes, o.intnotes,
 863            (SELECT cu.name FROM currencies cu WHERE cu.id=o.currency_id) AS currency, e.name AS employee, o.employee_id, o.salesman_id,
 864            o.${vc}_id, cv.name AS ${vc}, o.amount AS invtotal,
 865            o.closed, o.reqdate, o.quonumber, o.department_id, o.cusordnumber,
 866            d.description AS department, o.payment_id, o.language_id, o.taxzone_id,
 867            o.delivery_customer_id, o.delivery_vendor_id, o.proforma, o.shipto_id,
 868            o.globalproject_id, o.delivered, o.transaction_description, o.delivery_term_id
 869            , o.order_probability, o.expected_billing_date
 870          FROM oe o
 871          JOIN ${vc} cv ON (o.${vc}_id = cv.id)
 872          LEFT JOIN employee e ON (o.employee_id = e.id)
 873          LEFT JOIN department d ON (o.department_id = d.id) | .
 874         ($form->{id}
 875          ? "WHERE o.id = ?"
 876          : "WHERE o.id IN (" . join(', ', map("? ", @ids)) . ")"
 877         );
 878     @values = $form->{id} ? ($form->{id}) : @ids;
 879     $sth = prepare_execute_query($form, $dbh, $query, @values);
 880
 881     $ref = $sth->fetchrow_hashref("NAME_lc");
 882
 883     if ($ref) {
 884       map { $form->{$_} = $ref->{$_} } keys %$ref;
 885
 886       $form->{saved_xyznumber} = $form->{$form->{type} =~ /_quotation$/ ? "quonumber" : "ordnumber"};
 887
 888       # set all entries for multiple ids blank that yield different information
 889       while ($ref = $sth->fetchrow_hashref("NAME_lc")) {
 890         map { $form->{$_} = '' if ($ref->{$_} ne $form->{$_}) } keys %$ref;
 891       }
 892     }
 893
 894     # if not given, fill transdate with current_date
 895     $form->{transdate} = $form->current_date($myconfig)
 896       unless $form->{transdate};
 897
 898     $sth->finish;
 899
 900     if ($form->{delivery_customer_id}) {
 901       $query = qq|SELECT name FROM customer WHERE id = ?|;
 902       ($form->{delivery_customer_string}) = selectrow_query($form, $dbh, $query, $form->{delivery_customer_id});
 903     }
 904
 905     if ($form->{delivery_vendor_id}) {
 906       $query = qq|SELECT name FROM customer WHERE id = ?|;
 907       ($form->{delivery_vendor_string}) = selectrow_query($form, $dbh, $query, $form->{delivery_vendor_id});
 908     }
 909
 910     # shipto and pinted/mailed/queued status makes only sense for single id retrieve
 911     if (!@ids) {
 912       $query = qq|SELECT s.* FROM shipto s WHERE s.trans_id = ? AND s.module = 'OE'|;
 913       $sth = prepare_execute_query($form, $dbh, $query, $form->{id});
 914
 915       $ref = $sth->fetchrow_hashref("NAME_lc");
 916       delete($ref->{id});
 917       map { $form->{$_} = $ref->{$_} } keys %$ref;
 918       $sth->finish;
 919
 920       # get printed, emailed and queued
 921       $query = qq|SELECT s.printed, s.emailed, s.spoolfile, s.formname FROM status s WHERE s.trans_id = ?|;
 922       $sth = prepare_execute_query($form, $dbh, $query, $form->{id});
 923
 924       while ($ref = $sth->fetchrow_hashref("NAME_lc")) {
 925         $form->{printed} .= "$ref->{formname} " if $ref->{printed};
 926         $form->{emailed} .= "$ref->{formname} " if $ref->{emailed};
 927         $form->{queued}  .= "$ref->{formname} $ref->{spoolfile} " if $ref->{spoolfile};
 928       }
 929       $sth->finish;
 930       map { $form->{$_} =~ s/ +$//g } qw(printed emailed queued);
 931     }    # if !@ids
 932
 933     my $transdate = $form->{transdate} ? $dbh->quote($form->{transdate}) : "current_date";
 934
 935     $form->{taxzone_id} = 0 unless ($form->{taxzone_id});
 936
 937     # retrieve individual items
 938     # this query looks up all information about the items
 939     # stuff different from the whole will not be overwritten, but saved with a suffix.
 940     $query =
 941       qq|SELECT o.id AS orderitems_id,
 942            c1.accno AS inventory_accno, c1.new_chart_id AS inventory_new_chart, date($transdate) - c1.valid_from as inventory_valid,
 943            c2.accno AS income_accno,    c2.new_chart_id AS income_new_chart,    date($transdate) - c2.valid_from as income_valid,
 944            c3.accno AS expense_accno,   c3.new_chart_id AS expense_new_chart,   date($transdate) - c3.valid_from as expense_valid,
 945            oe.ordnumber AS ordnumber_oe, oe.transdate AS transdate_oe, oe.cusordnumber AS cusordnumber_oe,
 946            p.partnumber, p.assembly, p.listprice, o.description, o.qty,
 947            o.sellprice, o.parts_id AS id, o.unit, o.discount, p.notes AS partnotes, p.inventory_accno_id AS part_inventory_accno_id,
 948            o.reqdate, o.project_id, o.serialnumber, o.ship, o.lastcost,
 949            o.ordnumber, o.transdate, o.cusordnumber, o.subtotal, o.longdescription,
 950            o.price_factor_id, o.price_factor, o.marge_price_factor, o.active_price_source,
 951            pr.projectnumber, p.formel,
 952            pg.partsgroup, o.pricegroup_id, (SELECT pricegroup FROM pricegroup WHERE id=o.pricegroup_id) as pricegroup
 953          FROM orderitems o
 954          JOIN parts p ON (o.parts_id = p.id)
 955          JOIN oe ON (o.trans_id = oe.id)
 956          LEFT JOIN chart c1 ON ((SELECT inventory_accno_id                   FROM buchungsgruppen WHERE id=p.buchungsgruppen_id) = c1.id)
 957          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)
 958          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)
 959          LEFT JOIN project pr ON (o.project_id = pr.id)
 960          LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id) | .
 961       ($form->{id}
 962        ? qq|WHERE o.trans_id = ?|
 963        : qq|WHERE o.trans_id IN (| . join(", ", map("?", @ids)) . qq|)|) .
 964       qq|ORDER BY o.oid|;
 965
 966     @ids = $form->{id} ? ($form->{id}) : @ids;
 967     $sth = prepare_execute_query($form, $dbh, $query, @values);
 968
 969     while ($ref = $sth->fetchrow_hashref("NAME_lc")) {
 970       # Retrieve custom variables.
 971       my $cvars = CVar->get_custom_variables(dbh        => $dbh,
 972                                              module     => 'IC',
 973                                              sub_module => 'orderitems',
 974                                              trans_id   => $ref->{orderitems_id},
 975                                             );
 976       map { $ref->{"ic_cvar_$_->{name}"} = $_->{value} } @{ $cvars };
 977
 978       # Handle accounts.
 979       if (!$ref->{"part_inventory_accno_id"}) {
 980         map({ delete($ref->{$_}); } qw(inventory_accno inventory_new_chart inventory_valid));
 981       }
 982       delete($ref->{"part_inventory_accno_id"});
 983
 984       # in collective order, copy global ordnumber, transdate, cusordnumber into item scope
 985       #   unless already present there
 986       # remove _oe entries afterwards
 987       map { $ref->{$_} = $ref->{"${_}_oe"} if ($ref->{$_} eq '') }
 988         qw|ordnumber transdate cusordnumber|
 989         if (@ids);
 990       map { delete $ref->{$_} } qw|ordnumber_oe transdate_oe cusordnumber_oe|;
 991
 992
 993
 994       while ($ref->{inventory_new_chart} && ($ref->{inventory_valid} >= 0)) {
 995         my $query =
 996           qq|SELECT accno AS inventory_accno, | .
 997           qq|  new_chart_id AS inventory_new_chart, | .
 998           qq|  date($transdate) - valid_from AS inventory_valid | .
 999           qq|FROM chart WHERE id = $ref->{inventory_new_chart}|;
1000         ($ref->{inventory_accno}, $ref->{inventory_new_chart},
1001          $ref->{inventory_valid}) = selectrow_query($form, $dbh, $query);
1002       }
1003
1004       while ($ref->{income_new_chart} && ($ref->{income_valid} >= 0)) {
1005         my $query =
1006           qq|SELECT accno AS income_accno, | .
1007           qq|  new_chart_id AS income_new_chart, | .
1008           qq|  date($transdate) - valid_from AS income_valid | .
1009           qq|FROM chart WHERE id = $ref->{income_new_chart}|;
1010         ($ref->{income_accno}, $ref->{income_new_chart},
1011          $ref->{income_valid}) = selectrow_query($form, $dbh, $query);
1012       }
1013
1014       while ($ref->{expense_new_chart} && ($ref->{expense_valid} >= 0)) {
1015         my $query =
1016           qq|SELECT accno AS expense_accno, | .
1017           qq|  new_chart_id AS expense_new_chart, | .
1018           qq|  date($transdate) - valid_from AS expense_valid | .
1019           qq|FROM chart WHERE id = $ref->{expense_new_chart}|;
1020         ($ref->{expense_accno}, $ref->{expense_new_chart},
1021          $ref->{expense_valid}) = selectrow_query($form, $dbh, $query);
1022       }
1023
1024       # delete orderitems_id in collective orders, so that they get cloned no matter what
1025       delete $ref->{orderitems_id} if $is_collective_order;
1026
1027       # get tax rates and description
1028       my $accno_id = ($form->{vc} eq "customer") ? $ref->{income_accno} : $ref->{expense_accno};
1029       $query =
1030         qq|SELECT c.accno, t.taxdescription, t.rate, t.taxnumber | .
1031         qq|FROM tax t LEFT JOIN chart c on (c.id = t.chart_id) | .
1032         qq|WHERE t.id IN (SELECT tk.tax_id FROM taxkeys tk | .
1033         qq|               WHERE tk.chart_id = (SELECT id FROM chart WHERE accno = ?) | .
1034         qq|                 AND startdate <= $transdate ORDER BY startdate DESC LIMIT 1) | .
1035         qq|ORDER BY c.accno|;
1036       my $stw = prepare_execute_query($form, $dbh, $query, $accno_id);
1037       $ref->{taxaccounts} = "";
1038       my $i = 0;
1039       while (my $ptr = $stw->fetchrow_hashref("NAME_lc")) {
1040         if (($ptr->{accno} eq "") && ($ptr->{rate} == 0)) {
1041           $i++;
1042           $ptr->{accno} = $i;
1043         }
1044         $ref->{taxaccounts} .= "$ptr->{accno} ";
1045         if (!($form->{taxaccounts} =~ /\Q$ptr->{accno}\E/)) {
1046           $form->{"$ptr->{accno}_rate"}        = $ptr->{rate};
1047           $form->{"$ptr->{accno}_description"} = $ptr->{taxdescription};
1048           $form->{"$ptr->{accno}_taxnumber"}   = $ptr->{taxnumber};
1049           $form->{taxaccounts} .= "$ptr->{accno} ";
1050         }
1051
1052       }
1053
1054       chop $ref->{taxaccounts};
1055
1056       push @{ $form->{form_details} }, $ref;
1057       $stw->finish;
1058     }
1059     $sth->finish;
1060
1061   } else {
1062
1063     # get last name used
1064     $form->lastname_used($dbh, $myconfig, $form->{vc})
1065       unless $form->{"$form->{vc}_id"};
1066
1067   }
1068
1069   $form->{exchangerate} = $form->get_exchangerate($dbh, $form->{currency}, $form->{transdate}, ($form->{vc} eq 'customer') ? "buy" : "sell");
1070
1071   Common::webdav_folder($form);
1072
1073   $self->load_periodic_invoice_config($form);
1074
1075   my $rc = $dbh->commit;
1076
1077   $main::lxdebug->leave_sub();
1078
1079   return $rc;
1080 }
1081
1082 sub retrieve_simple {
1083   $main::lxdebug->enter_sub();
1084
1085   my $self     = shift;
1086   my %params   = @_;
1087
1088   Common::check_params(\%params, qw(id));
1089
1090   my $myconfig    = \%main::myconfig;
1091   my $form        = $main::form;
1092
1093   my $dbh         = $params{dbh} || $form->get_standard_dbh($myconfig);
1094
1095   my $oe_query    = qq|SELECT * FROM oe         WHERE id = ?|;
1096   my $oi_query    = qq|SELECT * FROM orderitems WHERE trans_id = ?|;
1097
1098   my $order            = selectfirst_hashref_query($form, $dbh, $oe_query, conv_i($params{id}));
1099   $order->{orderitems} = selectall_hashref_query(  $form, $dbh, $oi_query, conv_i($params{id}));
1100
1101   $main::lxdebug->leave_sub();
1102
1103   return $order;
1104 }
1105
1106 sub order_details {
1107   $main::lxdebug->enter_sub();
1108
1109   my ($self, $myconfig, $form) = @_;
1110
1111   # connect to database
1112   my $dbh = $form->get_standard_dbh;
1113   my $query;
1114   my @values = ();
1115   my $sth;
1116   my $nodiscount;
1117   my $yesdiscount;
1118   my $nodiscount_subtotal = 0;
1119   my $discount_subtotal = 0;
1120   my $item;
1121   my $i;
1122   my @partsgroup = ();
1123   my $partsgroup;
1124   my $position = 0;
1125   my $subtotal_header = 0;
1126   my $subposition = 0;
1127   my %taxaccounts;
1128   my %taxbase;
1129   my $tax_rate;
1130   my $taxamount;
1131
1132   my (@project_ids);
1133
1134   push(@project_ids, $form->{"globalproject_id"}) if ($form->{"globalproject_id"});
1135
1136   $form->get_lists('price_factors' => 'ALL_PRICE_FACTORS',
1137                    'departments'   => 'ALL_DEPARTMENTS');
1138   my %price_factors;
1139
1140   foreach my $pfac (@{ $form->{ALL_PRICE_FACTORS} }) {
1141     $price_factors{$pfac->{id}}  = $pfac;
1142     $pfac->{factor}             *= 1;
1143     $pfac->{formatted_factor}    = $form->format_amount($myconfig, $pfac->{factor});
1144   }
1145
1146   # lookup department
1147   foreach my $dept (@{ $form->{ALL_DEPARTMENTS} }) {
1148     next unless $dept->{id} eq $form->{department_id};
1149     $form->{department} = $dept->{description};
1150     last;
1151   }
1152
1153   # sort items by partsgroup
1154   for $i (1 .. $form->{rowcount}) {
1155     $partsgroup = "";
1156     if ($form->{"partsgroup_$i"} && $form->{groupitems}) {
1157       $partsgroup = $form->{"partsgroup_$i"};
1158     }
1159     push @partsgroup, [$i, $partsgroup];
1160     push(@project_ids, $form->{"project_id_$i"}) if ($form->{"project_id_$i"});
1161   }
1162
1163   my $projects = [];
1164   my %projects_by_id;
1165   if (@project_ids) {
1166     $projects = SL::DB::Manager::Project->get_all(query => [ id => \@project_ids ]);
1167     %projects_by_id = map { $_->id => $_ } @$projects;
1168   }
1169
1170   if ($projects_by_id{$form->{"globalproject_id"}}) {
1171     $form->{globalprojectnumber} = $projects_by_id{$form->{"globalproject_id"}}->projectnumber;
1172     $form->{globalprojectdescription} = $projects_by_id{$form->{"globalproject_id"}}->description;
1173
1174     for (@{ $projects_by_id{$form->{"globalproject_id"}}->cvars_by_config }) {
1175       $form->{"project_cvar_" . $_->config->name} = $_->value_as_text;
1176     }
1177   }
1178
1179   $form->{discount} = [];
1180
1181   $form->{TEMPLATE_ARRAYS} = { };
1182   IC->prepare_parts_for_printing(myconfig => $myconfig, form => $form);
1183
1184   my $ic_cvar_configs = CVar->get_configs(module => 'IC');
1185   my $project_cvar_configs = CVar->get_configs(module => 'Projects');
1186
1187   my @arrays =
1188     qw(runningnumber number description longdescription qty ship unit bin
1189        partnotes serialnumber reqdate sellprice listprice netprice
1190        discount p_discount discount_sub nodiscount_sub
1191        linetotal  nodiscount_linetotal tax_rate projectnumber projectdescription
1192        price_factor price_factor_name partsgroup weight lineweight);
1193
1194   push @arrays, map { "ic_cvar_$_->{name}" } @{ $ic_cvar_configs };
1195   push @arrays, map { "project_cvar_$_->{name}" } @{ $project_cvar_configs };
1196
1197   my @tax_arrays = qw(taxbase tax taxdescription taxrate taxnumber);
1198
1199   map { $form->{TEMPLATE_ARRAYS}->{$_} = [] } (@arrays, @tax_arrays);
1200
1201   my $totalweight = 0;
1202   my $sameitem = "";
1203   foreach $item (sort { $a->[1] cmp $b->[1] } @partsgroup) {
1204     $i = $item->[0];
1205
1206     if ($item->[1] ne $sameitem) {
1207       push(@{ $form->{TEMPLATE_ARRAYS}->{description} }, qq|$item->[1]|);
1208       $sameitem = $item->[1];
1209
1210       map({ push(@{ $form->{TEMPLATE_ARRAYS}->{$_} }, "") } grep({ $_ ne "description" } @arrays));
1211     }
1212
1213     $form->{"qty_$i"} = $form->parse_amount($myconfig, $form->{"qty_$i"});
1214
1215     if ($form->{"id_$i"} != 0) {
1216
1217       # add number, description and qty to $form->{number}, ....
1218
1219       if ($form->{"subtotal_$i"} && !$subtotal_header) {
1220         $subtotal_header = $i;
1221         $position = int($position);
1222         $subposition = 0;
1223         $position++;
1224       } elsif ($subtotal_header) {
1225         $subposition += 1;
1226         $position = int($position);
1227         $position = $position.".".$subposition;
1228       } else {
1229         $position = int($position);
1230         $position++;
1231       }
1232
1233       my $price_factor = $price_factors{$form->{"price_factor_id_$i"}} || { 'factor' => 1 };
1234
1235       push @{ $form->{TEMPLATE_ARRAYS}->{runningnumber} },     $position;
1236       push @{ $form->{TEMPLATE_ARRAYS}->{number} },            $form->{"partnumber_$i"};
1237       push @{ $form->{TEMPLATE_ARRAYS}->{description} },       $form->{"description_$i"};
1238       push @{ $form->{TEMPLATE_ARRAYS}->{longdescription} },   $form->{"longdescription_$i"};
1239       push @{ $form->{TEMPLATE_ARRAYS}->{qty} },               $form->format_amount($myconfig, $form->{"qty_$i"});
1240       push @{ $form->{TEMPLATE_ARRAYS}->{qty_nofmt} },         $form->{"qty_$i"};
1241       push @{ $form->{TEMPLATE_ARRAYS}->{ship} },              $form->format_amount($myconfig, $form->{"ship_$i"});
1242       push @{ $form->{TEMPLATE_ARRAYS}->{ship_nofmt} },        $form->{"ship_$i"};
1243       push @{ $form->{TEMPLATE_ARRAYS}->{unit} },              $form->{"unit_$i"};
1244       push @{ $form->{TEMPLATE_ARRAYS}->{bin} },               $form->{"bin_$i"};
1245       push @{ $form->{TEMPLATE_ARRAYS}->{partnotes} },         $form->{"partnotes_$i"};
1246       push @{ $form->{TEMPLATE_ARRAYS}->{serialnumber} },      $form->{"serialnumber_$i"};
1247       push @{ $form->{TEMPLATE_ARRAYS}->{reqdate} },           $form->{"reqdate_$i"};
1248       push @{ $form->{TEMPLATE_ARRAYS}->{sellprice} },         $form->{"sellprice_$i"};
1249       push @{ $form->{TEMPLATE_ARRAYS}->{sellprice_nofmt} },   $form->parse_amount($myconfig, $form->{"sellprice_$i"});
1250       push @{ $form->{TEMPLATE_ARRAYS}->{listprice} },         $form->{"listprice_$i"};
1251       push @{ $form->{TEMPLATE_ARRAYS}->{price_factor} },      $price_factor->{formatted_factor};
1252       push @{ $form->{TEMPLATE_ARRAYS}->{price_factor_name} }, $price_factor->{description};
1253       push @{ $form->{TEMPLATE_ARRAYS}->{partsgroup} },        $form->{"partsgroup_$i"};
1254
1255       my $sellprice     = $form->parse_amount($myconfig, $form->{"sellprice_$i"});
1256       my ($dec)         = ($sellprice =~ /\.(\d+)/);
1257       my $decimalplaces = max 2, length($dec);
1258
1259       my $parsed_discount            = $form->parse_amount($myconfig, $form->{"discount_$i"});
1260
1261       my $linetotal_exact            = $form->{"qty_$i"} * $sellprice * (100 - $parsed_discount) / 100 / $price_factor->{factor};
1262       my $linetotal                  = $form->round_amount($linetotal_exact, 2);
1263
1264       my $nodiscount_exact_linetotal = $form->{"qty_$i"} * $sellprice                                  / $price_factor->{factor};
1265       my $nodiscount_linetotal       = $form->round_amount($nodiscount_exact_linetotal,2);
1266
1267       my $discount                   = $nodiscount_linetotal - $linetotal; # is always rounded because $nodiscount_linetotal and $linetotal are rounded
1268
1269       my $discount_round_error       = $discount + ($linetotal_exact - $nodiscount_exact_linetotal); # not used
1270
1271       $form->{"netprice_$i"}   = $form->round_amount($form->{"qty_$i"} ? ($linetotal / $form->{"qty_$i"}) : 0, $decimalplaces);
1272
1273       push @{ $form->{TEMPLATE_ARRAYS}->{netprice} },       ($form->{"netprice_$i"} != 0) ? $form->format_amount($myconfig, $form->{"netprice_$i"}, $decimalplaces) : '';
1274       push @{ $form->{TEMPLATE_ARRAYS}->{netprice_nofmt} }, ($form->{"netprice_$i"} != 0) ? $form->{"netprice_$i"} : '';
1275
1276       $linetotal = ($linetotal != 0) ? $linetotal : '';
1277
1278       push @{ $form->{TEMPLATE_ARRAYS}->{discount} },       ($discount != 0) ? $form->format_amount($myconfig, $discount * -1, 2) : '';
1279       push @{ $form->{TEMPLATE_ARRAYS}->{discount_nofmt} }, ($discount != 0) ? $discount * -1 : '';
1280       push @{ $form->{TEMPLATE_ARRAYS}->{p_discount} },     $form->{"discount_$i"};
1281
1282       $form->{ordtotal}         += $linetotal;
1283       $form->{nodiscount_total} += $nodiscount_linetotal;
1284       $form->{discount_total}   += $discount;
1285
1286       if ($subtotal_header) {
1287         $discount_subtotal   += $linetotal;
1288         $nodiscount_subtotal += $nodiscount_linetotal;
1289       }
1290
1291       if ($form->{"subtotal_$i"} && $subtotal_header && ($subtotal_header != $i)) {
1292         push @{ $form->{TEMPLATE_ARRAYS}->{discount_sub} },         $form->format_amount($myconfig, $discount_subtotal,   2);
1293         push @{ $form->{TEMPLATE_ARRAYS}->{discount_sub_nofmt} },   $discount_subtotal;
1294         push @{ $form->{TEMPLATE_ARRAYS}->{nodiscount_sub} },       $form->format_amount($myconfig, $nodiscount_subtotal, 2);
1295         push @{ $form->{TEMPLATE_ARRAYS}->{nodiscount_sub_nofmt} }, $nodiscount_subtotal;
1296
1297         $discount_subtotal   = 0;
1298         $nodiscount_subtotal = 0;
1299         $subtotal_header     = 0;
1300
1301       } else {
1302         push @{ $form->{TEMPLATE_ARRAYS}->{$_} }, "" for qw(discount_sub nodiscount_sub discount_sub_nofmt nodiscount_sub_nofmt);
1303       }
1304
1305       if (!$form->{"discount_$i"}) {
1306         $nodiscount += $linetotal;
1307       }
1308
1309       my $project = $projects_by_id{$form->{"project_id_$i"}} || SL::DB::Project->new;
1310
1311       push @{ $form->{TEMPLATE_ARRAYS}->{linetotal} },                  $form->format_amount($myconfig, $linetotal, 2);
1312       push @{ $form->{TEMPLATE_ARRAYS}->{linetotal_nofmt} },            $linetotal_exact;
1313       push @{ $form->{TEMPLATE_ARRAYS}->{nodiscount_linetotal} },       $form->format_amount($myconfig, $nodiscount_linetotal, 2);
1314       push @{ $form->{TEMPLATE_ARRAYS}->{nodiscount_linetotal_nofmt} }, $nodiscount_linetotal;
1315       push @{ $form->{TEMPLATE_ARRAYS}->{projectnumber} },              $project->projectnumber;
1316       push @{ $form->{TEMPLATE_ARRAYS}->{projectdescription} },         $project->description;
1317
1318       my $lineweight = $form->{"qty_$i"} * $form->{"weight_$i"};
1319       $totalweight += $lineweight;
1320       push @{ $form->{TEMPLATE_ARRAYS}->{weight} },            $form->format_amount($myconfig, $form->{"weight_$i"}, 3);
1321       push @{ $form->{TEMPLATE_ARRAYS}->{weight_nofmt} },      $form->{"weight_$i"};
1322       push @{ $form->{TEMPLATE_ARRAYS}->{lineweight} },        $form->format_amount($myconfig, $lineweight, 3);
1323       push @{ $form->{TEMPLATE_ARRAYS}->{lineweight_nofmt} },  $lineweight;
1324
1325       my ($taxamount, $taxbase);
1326       my $taxrate = 0;
1327
1328       map { $taxrate += $form->{"${_}_rate"} } split(/ /, $form->{"taxaccounts_$i"});
1329
1330       if ($form->{taxincluded}) {
1331
1332         # calculate tax
1333         $taxamount = $linetotal * $taxrate / (1 + $taxrate);
1334         $taxbase = $linetotal / (1 + $taxrate);
1335       } else {
1336         $taxamount = $linetotal * $taxrate;
1337         $taxbase   = $linetotal;
1338       }
1339
1340       if ($taxamount != 0) {
1341         foreach my $accno (split / /, $form->{"taxaccounts_$i"}) {
1342           $taxaccounts{$accno} += $taxamount * $form->{"${accno}_rate"} / $taxrate;
1343           $taxbase{$accno}     += $taxbase;
1344         }
1345       }
1346
1347       $tax_rate = $taxrate * 100;
1348       push(@{ $form->{TEMPLATE_ARRAYS}->{tax_rate} }, qq|$tax_rate|);
1349
1350       if ($form->{"assembly_$i"}) {
1351         $sameitem = "";
1352
1353         # get parts and push them onto the stack
1354         my $sortorder = "";
1355         if ($form->{groupitems}) {
1356           $sortorder = qq|ORDER BY pg.partsgroup, a.oid|;
1357         } else {
1358           $sortorder = qq|ORDER BY a.oid|;
1359         }
1360
1361         $query = qq|SELECT p.partnumber, p.description, p.unit, a.qty, | .
1362                  qq|pg.partsgroup | .
1363                  qq|FROM assembly a | .
1364                  qq|  JOIN parts p ON (a.parts_id = p.id) | .
1365                  qq|    LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id) | .
1366                  qq|    WHERE a.bom = '1' | .
1367                  qq|    AND a.id = ? | . $sortorder;
1368         @values = ($form->{"id_$i"});
1369         $sth = $dbh->prepare($query);
1370         $sth->execute(@values) || $form->dberror($query);
1371
1372         while (my $ref = $sth->fetchrow_hashref("NAME_lc")) {
1373           if ($form->{groupitems} && $ref->{partsgroup} ne $sameitem) {
1374             map({ push(@{ $form->{TEMPLATE_ARRAYS}->{$_} }, "") } grep({ $_ ne "description" } @arrays));
1375             $sameitem = ($ref->{partsgroup}) ? $ref->{partsgroup} : "--";
1376             push(@{ $form->{TEMPLATE_ARRAYS}->{description} }, $sameitem);
1377           }
1378
1379           push(@{ $form->{TEMPLATE_ARRAYS}->{description} }, $form->format_amount($myconfig, $ref->{qty} * $form->{"qty_$i"}) . qq|, $ref->{partnumber}, $ref->{description}|);
1380           map({ push(@{ $form->{TEMPLATE_ARRAYS}->{$_} }, "") } grep({ $_ ne "description" } @arrays));
1381         }
1382         $sth->finish;
1383       }
1384
1385       push @{ $form->{TEMPLATE_ARRAYS}->{"ic_cvar_$_->{name}"} },
1386         CVar->format_to_template(CVar->parse($form->{"ic_cvar_$_->{name}_$i"}, $_), $_)
1387           for @{ $ic_cvar_configs };
1388
1389       push @{ $form->{TEMPLATE_ARRAYS}->{"project_cvar_" . $_->config->name} }, $_->value_as_text for @{ $project->cvars_by_config };
1390     }
1391   }
1392
1393   $form->{totalweight}       = $form->format_amount($myconfig, $totalweight, 3);
1394   $form->{totalweight_nofmt} = $totalweight;
1395   my $defaults = AM->get_defaults();
1396   $form->{weightunit}        = $defaults->{weightunit};
1397
1398   my $tax = 0;
1399   foreach $item (sort keys %taxaccounts) {
1400     $tax += $taxamount = $form->round_amount($taxaccounts{$item}, 2);
1401
1402     push(@{ $form->{TEMPLATE_ARRAYS}->{taxbase} },        $form->format_amount($myconfig, $taxbase{$item}, 2));
1403     push(@{ $form->{TEMPLATE_ARRAYS}->{taxbase_nofmt} },  $taxbase{$item});
1404     push(@{ $form->{TEMPLATE_ARRAYS}->{tax} },            $form->format_amount($myconfig, $taxamount,      2));
1405     push(@{ $form->{TEMPLATE_ARRAYS}->{tax_nofmt} },      $taxamount);
1406     push(@{ $form->{TEMPLATE_ARRAYS}->{taxrate} },        $form->format_amount($myconfig, $form->{"${item}_rate"} * 100));
1407     push(@{ $form->{TEMPLATE_ARRAYS}->{taxrate_nofmt} },  $form->{"${item}_rate"} * 100);
1408     push(@{ $form->{TEMPLATE_ARRAYS}->{taxnumber} },      $form->{"${item}_taxnumber"});
1409
1410     my $tax_obj     = SL::DB::Manager::Tax->find_by(taxnumber => $form->{"${item}_taxnumber"});
1411     my $description = $tax_obj ? $tax_obj->translated_attribute('taxdescription',  $form->{language_id}, 0) : '';
1412     push(@{ $form->{TEMPLATE_ARRAYS}->{taxdescription} }, $description . q{ } . 100 * $form->{"${item}_rate"} . q{%});
1413   }
1414
1415   $form->{nodiscount_subtotal} = $form->format_amount($myconfig, $form->{nodiscount_total}, 2);
1416   $form->{discount_total}      = $form->format_amount($myconfig, $form->{discount_total}, 2);
1417   $form->{nodiscount}          = $form->format_amount($myconfig, $nodiscount, 2);
1418   $form->{yesdiscount}         = $form->format_amount($myconfig, $form->{nodiscount_total} - $nodiscount, 2);
1419
1420   if($form->{taxincluded}) {
1421     $form->{subtotal}       = $form->format_amount($myconfig, $form->{ordtotal} - $tax, 2);
1422     $form->{subtotal_nofmt} = $form->{ordtotal} - $tax;
1423   } else {
1424     $form->{subtotal}       = $form->format_amount($myconfig, $form->{ordtotal}, 2);
1425     $form->{subtotal_nofmt} = $form->{ordtotal};
1426   }
1427
1428   $form->{ordtotal} = ($form->{taxincluded}) ? $form->{ordtotal} : $form->{ordtotal} + $tax;
1429
1430   # format amounts
1431   $form->{quototal} = $form->{ordtotal} = $form->format_amount($myconfig, $form->{ordtotal}, 2);
1432
1433   if ($form->{type} =~ /_quotation/) {
1434     $form->set_payment_options($myconfig, $form->{quodate});
1435   } else {
1436     $form->set_payment_options($myconfig, $form->{orddate});
1437   }
1438
1439   $form->{username} = $myconfig->{name};
1440
1441   $dbh->disconnect;
1442
1443   $form->{delivery_term} = SL::DB::Manager::DeliveryTerm->find_by(id => $form->{delivery_term_id} || undef);
1444   $form->{delivery_term}->description_long($form->{delivery_term}->translated_attribute('description_long', $form->{language_id})) if $form->{delivery_term} && $form->{language_id};
1445
1446   $::form->{order} = SL::DB::Manager::Order->find_by(id => $::form->{id});
1447
1448   $main::lxdebug->leave_sub();
1449 }
1450
1451 sub project_description {
1452   $main::lxdebug->enter_sub();
1453
1454   my ($self, $dbh, $id) = @_;
1455
1456   my $query = qq|SELECT description FROM project WHERE id = ?|;
1457   my ($value) = selectrow_query($main::form, $dbh, $query, $id);
1458
1459   $main::lxdebug->leave_sub();
1460
1461   return $value;
1462 }
1463
1464 1;
1465
1466 __END__
1467
1468 =head1 NAME
1469
1470 OE.pm - Order entry module
1471
1472 =head1 DESCRIPTION
1473
1474 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>.
1475
1476 =head1 FUNCTIONS
1477
1478 =over 4
1479
1480 =item retrieve_simple PARAMS
1481
1482 simple OE retrieval by id. does not look up customer, vendor, units or any other stuff. only oe and orderitems.
1483
1484   my $order = retrieve_simple(id => 2);
1485
1486   $order => {
1487     %_OE_CONTENT,
1488     orderitems => [
1489       %_ORDERITEM_ROW_1,
1490       %_ORDERITEM_ROW_2,
1491       ...
1492     ]
1493   }
1494
1495 =back
1496
1497 =cut