SL/OE.pm

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