SL/OE.pm

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