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