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