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