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