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