SL/OE.pm

   1 #====================================================================
   2 # LX-Office ERP
   3 # Copyright (C) 2004
   4 # Based on SQL-Ledger Version 2.1.9
   5 # Web http://www.lx-office.org
   6 #
   7 #=====================================================================
   8 # SQL-Ledger Accounting
   9 # Copyright (C) 1999-2003
  10 #
  11 #  Author: Dieter Simader
  12 #   Email: dsimader@sql-ledger.org
  13 #     Web: http://www.sql-ledger.org
  14 #
  15 #  Contributors:
  16 #
  17 # This program is free software; you can redistribute it and/or modify
  18 # it under the terms of the GNU General Public License as published by
  19 # the Free Software Foundation; either version 2 of the License, or
  20 # (at your option) any later version.
  21 #
  22 # This program is distributed in the hope that it will be useful,
  23 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  24 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  25 # GNU General Public License for more details.
  26 # You should have received a copy of the GNU General Public License
  27 # along with this program; if not, write to the Free Software
  28 # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  29 #======================================================================
  30 #
  31 # Order entry module
  32 # Quotation
  33 #======================================================================
  34
  35 package OE;
  36
  37 use List::Util qw(max first);
  38 use YAML;
  39
  40 use SL::AM;
  41 use SL::Common;
  42 use SL::CVar;
  43 use SL::DB::PeriodicInvoicesConfig;
  44 use SL::DBUtils;
  45 use SL::IC;
  46
  47 use strict;
  48
  49 sub transactions {
  50   $main::lxdebug->enter_sub();
  51
  52   my ($self, $myconfig, $form) = @_;
  53
  54   # connect to database
  55   my $dbh = $form->get_standard_dbh;
  56
  57   my $query;
  58   my $ordnumber = 'ordnumber';
  59   my $quotation = '0';
  60
  61   my @values;
  62   my $where;
  63
  64   my ($periodic_invoices_columns, $periodic_invoices_joins);
  65
  66   my $rate = ($form->{vc} eq 'customer') ? 'buy' : 'sell';
  67
  68   if ($form->{type} =~ /_quotation$/) {
  69     $quotation = '1';
  70     $ordnumber = 'quonumber';
  71
  72   } elsif ($form->{type} eq 'sales_order') {
  73     $periodic_invoices_columns = qq| , COALESCE(pcfg.active, 'f') AS periodic_invoices |;
  74     $periodic_invoices_joins   = qq| LEFT JOIN periodic_invoices_configs pcfg ON (o.id = pcfg.oe_id) |;
  75   }
  76
  77   my $vc = $form->{vc} eq "customer" ? "customer" : "vendor";
  78
  79   $query =
  80     qq|SELECT o.id, o.ordnumber, o.transdate, o.reqdate, | .
  81     qq|  o.amount, ct.${vc}number, ct.name, o.netamount, o.${vc}_id, o.globalproject_id, | .
  82     qq|  o.closed, o.delivered, o.quonumber, o.shippingpoint, o.shipvia, | .
  83     qq|  o.transaction_description, | .
  84     qq|  o.marge_total, o.marge_percent, | .
  85     qq|  ex.$rate AS exchangerate, | .
  86     qq|  pr.projectnumber AS globalprojectnumber, | .
  87     qq|  e.name AS employee, s.name AS salesman, | .
  88     qq|  ct.${vc}number AS vcnumber, ct.country, ct.ustid  | .
  89     $periodic_invoices_columns .
  90     qq|FROM oe o | .
  91     qq|JOIN $vc ct ON (o.${vc}_id = ct.id) | .
  92     qq|LEFT JOIN employee e ON (o.employee_id = e.id) | .
  93     qq|LEFT JOIN employee s ON (o.salesman_id = s.id) | .
  94     qq|LEFT JOIN exchangerate ex ON (ex.curr = o.curr | .
  95     qq|  AND ex.transdate = o.transdate) | .
  96     qq|LEFT JOIN project pr ON (o.globalproject_id = pr.id) | .
  97     qq|$periodic_invoices_joins | .
  98     qq|WHERE (o.quotation = ?) |;
  99   push(@values, $quotation);
 100
 101   my ($null, $split_department_id) = split /--/, $form->{department};
 102   my $department_id = $form->{department_id} || $split_department_id;
 103   if ($department_id) {
 104     $query .= qq| AND o.department_id = ?|;
 105     push(@values, $department_id);
 106   }
 107
 108   if ($form->{"project_id"}) {
 109     $query .=
 110       qq|AND ((globalproject_id = ?) OR EXISTS | .
 111       qq|  (SELECT * FROM orderitems oi | .
 112       qq|   WHERE oi.project_id = ? AND oi.trans_id = o.id))|;
 113     push(@values, conv_i($form->{"project_id"}), conv_i($form->{"project_id"}));
 114   }
 115
 116   if ($form->{"projectnumber"}) {
 117     $query .= <<SQL;
 118       AND ((pr.projectnumber ILIKE ?) OR EXISTS (
 119         SELECT * FROM orderitems oi
 120         LEFT JOIN project proi ON proi.id = oi.project_id
 121         WHERE proi.projectnumber ILIKE ? AND oi.trans_id = o.id
 122       ))
 123 SQL
 124     push @values, "%" . $form->{"projectnumber"} . "%", "%" . $form->{"projectnumber"} . "%" ;
 125   }
 126
 127   if ($form->{"${vc}_id"}) {
 128     $query .= " AND o.${vc}_id = ?";
 129     push(@values, $form->{"${vc}_id"});
 130
 131   } elsif ($form->{$vc}) {
 132     $query .= " AND ct.name ILIKE ?";
 133     push(@values, '%' . $form->{$vc} . '%');
 134   }
 135
 136   if (!$main::auth->assert('sales_all_edit', 1)) {
 137     $query .= " AND o.employee_id = (select id from employee where login= ?)";
 138     push @values, $form->{login};
 139   }
 140   if ($form->{employee_id}) {
 141     $query .= " AND o.employee_id = ?";
 142     push @values, conv_i($form->{employee_id});
 143   }
 144
 145   if ($form->{salesman_id}) {
 146     $query .= " AND o.salesman_id = ?";
 147     push @values, conv_i($form->{salesman_id});
 148   }
 149
 150   if (!$form->{open} && !$form->{closed}) {
 151     $query .= " AND o.id = 0";
 152   } elsif (!($form->{open} && $form->{closed})) {
 153     $query .= ($form->{open}) ? " AND o.closed = '0'" : " AND o.closed = '1'";
 154   }
 155
 156   if (($form->{"notdelivered"} || $form->{"delivered"}) &&
 157       ($form->{"notdelivered"} ne $form->{"delivered"})) {
 158     $query .= $form->{"delivered"} ?
 159       " AND o.delivered " : " AND NOT o.delivered";
 160   }
 161
 162   if ($form->{$ordnumber}) {
 163     $query .= qq| AND o.$ordnumber ILIKE ?|;
 164     push(@values, '%' . $form->{$ordnumber} . '%');
 165   }
 166
 167   if($form->{transdatefrom}) {
 168     $query .= qq| AND o.transdate >= ?|;
 169     push(@values, conv_date($form->{transdatefrom}));
 170   }
 171
 172   if($form->{transdateto}) {
 173     $query .= qq| AND o.transdate <= ?|;
 174     push(@values, conv_date($form->{transdateto}));
 175   }
 176
 177   if($form->{reqdatefrom}) {
 178     $query .= qq| AND o.reqdate >= ?|;
 179     push(@values, conv_date($form->{reqdatefrom}));
 180   }
 181
 182   if($form->{reqdateto}) {
 183     $query .= qq| AND o.reqdate <= ?|;
 184     push(@values, conv_date($form->{reqdateto}));
 185   }
 186
 187   if ($form->{transaction_description}) {
 188     $query .= qq| AND o.transaction_description ILIKE ?|;
 189     push(@values, '%' . $form->{transaction_description} . '%');
 190   }
 191
 192   if ($form->{periodic_invoices_active} ne $form->{periodic_invoices_inactive}) {
 193     my $not  = $form->{periodic_invoices_inactive} ? 'NOT' : '';
 194     $query  .= qq| AND ${not} COALESCE(pcfg.active, 'f')|;
 195   }
 196
 197   my $sortdir   = !defined $form->{sortdir} ? 'ASC' : $form->{sortdir} ? 'ASC' : 'DESC';
 198   my $sortorder = join(', ', map { "${_} ${sortdir} " } ("o.id", $form->sort_columns("transdate", $ordnumber, "name")));
 199   my %allowed_sort_columns = (
 200     "transdate"               => "o.transdate",
 201     "reqdate"                 => "o.reqdate",
 202     "id"                      => "o.id",
 203     "ordnumber"               => "o.ordnumber",
 204     "quonumber"               => "o.quonumber",
 205     "name"                    => "ct.name",
 206     "employee"                => "e.name",
 207     "salesman"                => "s.name",
 208     "shipvia"                 => "o.shipvia",
 209     "transaction_description" => "o.transaction_description"
 210   );
 211   if ($form->{sort} && grep($form->{sort}, keys(%allowed_sort_columns))) {
 212     $sortorder = $allowed_sort_columns{$form->{sort}} . " ${sortdir}";
 213   }
 214   $query .= qq| ORDER by | . $sortorder;
 215
 216   my $sth = $dbh->prepare($query);
 217   $sth->execute(@values) ||
 218     $form->dberror($query . " (" . join(", ", @values) . ")");
 219
 220   my %id = ();
 221   $form->{OE} = [];
 222   while (my $ref = $sth->fetchrow_hashref("NAME_lc")) {
 223     $ref->{exchangerate} = 1 unless $ref->{exchangerate};
 224     push @{ $form->{OE} }, $ref if $ref->{id} != $id{ $ref->{id} };
 225     $id{ $ref->{id} } = $ref->{id};
 226   }
 227
 228   $sth->finish;
 229
 230   $main::lxdebug->leave_sub();
 231 }
 232
 233 sub transactions_for_todo_list {
 234   $main::lxdebug->enter_sub();
 235
 236   my $self     = shift;
 237   my %params   = @_;
 238
 239   my $myconfig = \%main::myconfig;
 240   my $form     = $main::form;
 241
 242   my $dbh      = $params{dbh} || $form->get_standard_dbh($myconfig);
 243
 244   my $query    = qq|SELECT id FROM employee WHERE login = ?|;
 245   my ($e_id)   = selectrow_query($form, $dbh, $query, $form->{login});
 246
 247   $query       =
 248     qq|SELECT oe.id, oe.transdate, oe.reqdate, oe.quonumber, oe.transaction_description, oe.amount,
 249          CASE WHEN (COALESCE(oe.customer_id, 0) = 0) THEN 'vendor' ELSE 'customer' END AS vc,
 250          c.name AS customer,
 251          v.name AS vendor,
 252          e.name AS employee
 253        FROM oe
 254        LEFT JOIN customer c ON (oe.customer_id = c.id)
 255        LEFT JOIN vendor v   ON (oe.vendor_id   = v.id)
 256        LEFT JOIN employee e ON (oe.employee_id = e.id)
 257        WHERE (COALESCE(quotation, FALSE) = TRUE)
 258          AND (COALESCE(closed,    FALSE) = FALSE)
 259          AND ((oe.employee_id = ?) OR (oe.salesman_id = ?))
 260          AND NOT (oe.reqdate ISNULL)
 261          AND (oe.reqdate < current_date)
 262        ORDER BY transdate|;
 263
 264   my $quotations = selectall_hashref_query($form, $dbh, $query, $e_id, $e_id);
 265
 266   $main::lxdebug->leave_sub();
 267
 268   return $quotations;
 269 }
 270
 271 sub save {
 272   $main::lxdebug->enter_sub();
 273
 274   my ($self, $myconfig, $form) = @_;
 275
 276   # connect to database, turn off autocommit
 277   my $dbh = $form->get_standard_dbh;
 278
 279   my ($query, @values, $sth, $null);
 280   my $exchangerate = 0;
 281
 282   my $all_units = AM->retrieve_units($myconfig, $form);
 283   $form->{all_units} = $all_units;
 284
 285   my $ic_cvar_configs = CVar->get_configs(module => 'IC',
 286                                           dbh    => $dbh);
 287
 288   $form->{employee_id} = (split /--/, $form->{employee})[1] if !$form->{employee_id};
 289   unless ($form->{employee_id}) {
 290     $form->get_employee($dbh);
 291   }
 292
 293   my $ml = ($form->{type} eq 'sales_order') ? 1 : -1;
 294
 295   if ($form->{id}) {
 296     $query = qq|DELETE FROM custom_variables
 297                 WHERE (config_id IN (SELECT id FROM custom_variable_configs WHERE module = 'IC'))
 298                   AND (sub_module = 'orderitems')
 299                   AND (trans_id IN (SELECT id FROM orderitems WHERE trans_id = ?))|;
 300     do_query($form, $dbh, $query, $form->{id});
 301
 302     $query = qq|DELETE FROM orderitems WHERE trans_id = ?|;
 303     do_query($form, $dbh, $query, $form->{id});
 304
 305     $query = qq|DELETE FROM shipto | .
 306              qq|WHERE trans_id = ? AND module = 'OE'|;
 307     do_query($form, $dbh, $query, $form->{id});
 308
 309   } else {
 310
 311     $query = qq|SELECT nextval('id')|;
 312     ($form->{id}) = selectrow_query($form, $dbh, $query);
 313
 314     $query = qq|INSERT INTO oe (id, ordnumber, employee_id) VALUES (?, '', ?)|;
 315     do_query($form, $dbh, $query, $form->{id}, $form->{employee_id});
 316   }
 317
 318   my $amount    = 0;
 319   my $linetotal = 0;
 320   my $discount  = 0;
 321   my $project_id;
 322   my $reqdate;
 323   my $taxrate;
 324   my $taxbase;
 325   my $taxdiff;
 326   my $taxamount = 0;
 327   my $fxsellprice;
 328   my %taxbase;
 329   my @taxaccounts;
 330   my %taxaccounts;
 331   my $netamount = 0;
 332
 333   $form->get_lists('price_factors' => 'ALL_PRICE_FACTORS');
 334   my %price_factors = map { $_->{id} => $_->{factor} } @{ $form->{ALL_PRICE_FACTORS} };
 335   my $price_factor;
 336
 337   for my $i (1 .. $form->{rowcount}) {
 338
 339     map({ $form->{"${_}_$i"} = $form->parse_amount($myconfig, $form->{"${_}_$i"}) } qw(qty ship));
 340
 341     if ($form->{"id_$i"}) {
 342
 343       # get item baseunit
 344       $query = qq|SELECT unit FROM parts WHERE id = ?|;
 345       my ($item_unit) = selectrow_query($form, $dbh, $query, $form->{"id_$i"});
 346
 347       my $basefactor = 1;
 348       if (defined($all_units->{$item_unit}->{factor}) &&
 349           (($all_units->{$item_unit}->{factor} * 1) != 0)) {
 350         $basefactor = $all_units->{$form->{"unit_$i"}}->{factor} / $all_units->{$item_unit}->{factor};
 351       }
 352       my $baseqty = $form->{"qty_$i"} * $basefactor;
 353
 354       $form->{"marge_percent_$i"} = $form->parse_amount($myconfig, $form->{"marge_percent_$i"}) * 1;
 355       $form->{"marge_absolut_$i"} = $form->parse_amount($myconfig, $form->{"marge_absolut_$i"}) * 1;
 356
 357       $form->{"lastcost_$i"} = $form->parse_amount($myconfig, $form->{"lastcost_$i"});
 358
 359       # set values to 0 if nothing entered
 360       $form->{"discount_$i"} = $form->parse_amount($myconfig, $form->{"discount_$i"}) / 100;
 361
 362       $form->{"sellprice_$i"} = $form->parse_amount($myconfig, $form->{"sellprice_$i"});
 363       $fxsellprice = $form->{"sellprice_$i"};
 364
 365       my ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/);
 366       $dec = length($dec);
 367       my $decimalplaces = ($dec > 2) ? $dec : 2;
 368
 369       $discount = $form->round_amount($form->{"sellprice_$i"} * $form->{"discount_$i"}, $decimalplaces);
 370       $form->{"sellprice_$i"} = $form->round_amount($form->{"sellprice_$i"} - $discount, $decimalplaces);
 371
 372       $form->{"inventory_accno_$i"} *= 1;
 373       $form->{"expense_accno_$i"}   *= 1;
 374
 375       $price_factor = $price_factors{ $form->{"price_factor_id_$i"} } || 1;
 376       $linetotal    = $form->round_amount($form->{"sellprice_$i"} * $form->{"qty_$i"} / $price_factor, 2);
 377
 378       @taxaccounts = split(/ /, $form->{"taxaccounts_$i"});
 379       $taxrate     = 0;
 380       $taxdiff     = 0;
 381
 382       map { $taxrate += $form->{"${_}_rate"} } @taxaccounts;
 383
 384       if ($form->{taxincluded}) {
 385         $taxamount = $linetotal * $taxrate / (1 + $taxrate);
 386         $taxbase   = $linetotal - $taxamount;
 387
 388         # we are not keeping a natural price, do not round
 389         $form->{"sellprice_$i"} =
 390           $form->{"sellprice_$i"} * (1 / (1 + $taxrate));
 391       } else {
 392         $taxamount = $linetotal * $taxrate;
 393         $taxbase   = $linetotal;
 394       }
 395
 396       if ($form->round_amount($taxrate, 7) == 0) {
 397         if ($form->{taxincluded}) {
 398           foreach my $item (@taxaccounts) {
 399             $taxamount = $form->round_amount($linetotal * $form->{"${item}_rate"} / (1 + abs($form->{"${item}_rate"})), 2);
 400             $taxaccounts{$item} += $taxamount;
 401             $taxdiff            += $taxamount;
 402             $taxbase{$item}     += $taxbase;
 403           }
 404           $taxaccounts{ $taxaccounts[0] } += $taxdiff;
 405         } else {
 406           foreach my $item (@taxaccounts) {
 407             $taxaccounts{$item} += $linetotal * $form->{"${item}_rate"};
 408             $taxbase{$item}     += $taxbase;
 409           }
 410         }
 411       } else {
 412         foreach my $item (@taxaccounts) {
 413           $taxaccounts{$item} += $taxamount * $form->{"${item}_rate"} / $taxrate;
 414           $taxbase{$item} += $taxbase;
 415         }
 416       }
 417
 418       $netamount += $form->{"sellprice_$i"} * $form->{"qty_$i"} / $price_factor;
 419
 420       $reqdate = ($form->{"reqdate_$i"}) ? $form->{"reqdate_$i"} : undef;
 421
 422       # get pricegroup_id and save 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   # translate the ids (given by id_# and trans_id_#) into one array of ids, so we can join them later
 729   map {
 730     push @ids, $form->{"trans_id_$_"}
 731       if ($form->{"multi_id_$_"} and $form->{"trans_id_$_"})
 732   } (1 .. $form->{"rowcount"});
 733
 734   if ($form->{rowcount} && scalar @ids) {
 735     $form->{convert_from_oe_ids} = join ' ', @ids;
 736   }
 737
 738   # if called in multi id mode, and still only got one id, switch back to single id
 739   if ($form->{"rowcount"} and $#ids == 0) {
 740     $form->{"id"} = $ids[0];
 741     undef @ids;
 742   }
 743
 744   # and remember for the rest of the function
 745   my $is_collective_order = scalar @ids;
 746
 747   if (!$form->{id}) {
 748     my $wday         = (localtime(time))[6];
 749     my $next_workday = $wday == 5 ? 3 : $wday == 6 ? 2 : 1;
 750     $query_add       = qq|, current_date AS transdate, date(current_date + interval '${next_workday} days') AS reqdate|;
 751   }
 752
 753   # get default accounts
 754   $query = qq|SELECT (SELECT c.accno FROM chart c WHERE d.inventory_accno_id = c.id) AS inventory_accno,
 755                      (SELECT c.accno FROM chart c WHERE d.income_accno_id    = c.id) AS income_accno,
 756                      (SELECT c.accno FROM chart c WHERE d.expense_accno_id   = c.id) AS expense_accno,
 757                      (SELECT c.accno FROM chart c WHERE d.fxgain_accno_id    = c.id) AS fxgain_accno,
 758                      (SELECT c.accno FROM chart c WHERE d.fxloss_accno_id    = c.id) AS fxloss_accno,
 759               d.curr AS currencies
 760               $query_add
 761               FROM defaults d|;
 762   my $ref = selectfirst_hashref_query($form, $dbh, $query);
 763   map { $form->{$_} = $ref->{$_} } keys %$ref;
 764
 765   ($form->{currency}) = split(/:/, $form->{currencies}) unless ($form->{currency});
 766
 767   # set reqdate if this is an invoice->order conversion. If someone knows a better check to ensure
 768   # we come from invoices, feel free.
 769   $form->{reqdate} = $form->{deliverydate}
 770     if (    $form->{deliverydate}
 771         and $form->{callback} =~ /action=ar_transactions/);
 772
 773   my $vc = $form->{vc} eq "customer" ? "customer" : "vendor";
 774
 775   if ($form->{id} or @ids) {
 776
 777     # retrieve order for single id
 778     # NOTE: this query is intended to fetch all information only ONCE.
 779     # so if any of these infos is important (or even different) for any item,
 780     # it will be killed out and then has to be fetched from the item scope query further down
 781     $query =
 782       qq|SELECT o.cp_id, o.ordnumber, o.transdate, o.reqdate,
 783            o.taxincluded, o.shippingpoint, o.shipvia, o.notes, o.intnotes,
 784            o.curr AS currency, e.name AS employee, o.employee_id, o.salesman_id,
 785            o.${vc}_id, cv.name AS ${vc}, o.amount AS invtotal,
 786            o.closed, o.reqdate, o.quonumber, o.department_id, o.cusordnumber,
 787            d.description AS department, o.payment_id, o.language_id, o.taxzone_id,
 788            o.delivery_customer_id, o.delivery_vendor_id, o.proforma, o.shipto_id,
 789            o.globalproject_id, o.delivered, o.transaction_description
 790          FROM oe o
 791          JOIN ${vc} cv ON (o.${vc}_id = cv.id)
 792          LEFT JOIN employee e ON (o.employee_id = e.id)
 793          LEFT JOIN department d ON (o.department_id = d.id) | .
 794         ($form->{id}
 795          ? "WHERE o.id = ?"
 796          : "WHERE o.id IN (" . join(', ', map("? ", @ids)) . ")"
 797         );
 798     @values = $form->{id} ? ($form->{id}) : @ids;
 799     $sth = prepare_execute_query($form, $dbh, $query, @values);
 800
 801     $ref = $sth->fetchrow_hashref("NAME_lc");
 802
 803     if ($ref) {
 804       map { $form->{$_} = $ref->{$_} } keys %$ref;
 805
 806       # remove any trailing whitespace
 807       $form->{currency} =~ s/\s*$//;
 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 %oid = ('Pg'     => 'oid',
 857                'Oracle' => 'rowid');
 858
 859     my $transdate = $form->{transdate} ? $dbh->quote($form->{transdate}) : "current_date";
 860
 861     $form->{taxzone_id} = 0 unless ($form->{taxzone_id});
 862
 863     # retrieve individual items
 864     # this query looks up all information about the items
 865     # stuff different from the whole will not be overwritten, but saved with a suffix.
 866     $query =
 867       qq|SELECT o.id AS orderitems_id,
 868            c1.accno AS inventory_accno, c1.new_chart_id AS inventory_new_chart, date($transdate) - c1.valid_from as inventory_valid,
 869            c2.accno AS income_accno,    c2.new_chart_id AS income_new_chart,    date($transdate) - c2.valid_from as income_valid,
 870            c3.accno AS expense_accno,   c3.new_chart_id AS expense_new_chart,   date($transdate) - c3.valid_from as expense_valid,
 871            oe.ordnumber AS ordnumber_oe, oe.transdate AS transdate_oe, oe.cusordnumber AS cusordnumber_oe,
 872            p.partnumber, p.assembly, p.listprice, o.description, o.qty,
 873            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,
 874            o.reqdate, o.project_id, o.serialnumber, o.ship, o.lastcost,
 875            o.ordnumber, o.transdate, o.cusordnumber, o.subtotal, o.longdescription,
 876            o.price_factor_id, o.price_factor, o.marge_price_factor,
 877            pr.projectnumber, p.formel,
 878            pg.partsgroup, o.pricegroup_id, (SELECT pricegroup FROM pricegroup WHERE id=o.pricegroup_id) as pricegroup
 879          FROM orderitems o
 880          JOIN parts p ON (o.parts_id = p.id)
 881          JOIN oe ON (o.trans_id = oe.id)
 882          LEFT JOIN chart c1 ON ((SELECT inventory_accno_id                   FROM buchungsgruppen WHERE id=p.buchungsgruppen_id) = c1.id)
 883          LEFT JOIN chart c2 ON ((SELECT income_accno_id_$form->{taxzone_id}  FROM buchungsgruppen WHERE id=p.buchungsgruppen_id) = c2.id)
 884          LEFT JOIN chart c3 ON ((SELECT expense_accno_id_$form->{taxzone_id} FROM buchungsgruppen WHERE id=p.buchungsgruppen_id) = c3.id)
 885          LEFT JOIN project pr ON (o.project_id = pr.id)
 886          LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id) | .
 887       ($form->{id}
 888        ? qq|WHERE o.trans_id = ?|
 889        : qq|WHERE o.trans_id IN (| . join(", ", map("?", @ids)) . qq|)|) .
 890       qq|ORDER BY o.$oid{$myconfig->{dbdriver}}|;
 891
 892     @ids = $form->{id} ? ($form->{id}) : @ids;
 893     $sth = prepare_execute_query($form, $dbh, $query, @values);
 894
 895     while ($ref = $sth->fetchrow_hashref("NAME_lc")) {
 896       # Retrieve custom variables.
 897       my $cvars = CVar->get_custom_variables(dbh        => $dbh,
 898                                              module     => 'IC',
 899                                              sub_module => 'orderitems',
 900                                              trans_id   => $ref->{orderitems_id},
 901                                             );
 902       map { $ref->{"ic_cvar_$_->{name}"} = $_->{value} } @{ $cvars };
 903
 904       # Handle accounts.
 905       if (!$ref->{"part_inventory_accno_id"}) {
 906         map({ delete($ref->{$_}); } qw(inventory_accno inventory_new_chart inventory_valid));
 907       }
 908       delete($ref->{"part_inventory_accno_id"});
 909
 910       # in collective order, copy global ordnumber, transdate, cusordnumber into item scope
 911       #   unless already present there
 912       # remove _oe entries afterwards
 913       map { $ref->{$_} = $ref->{"${_}_oe"} if ($ref->{$_} eq '') }
 914         qw|ordnumber transdate cusordnumber|
 915         if (@ids);
 916       map { delete $ref->{$_} } qw|ordnumber_oe transdate_oe cusordnumber_oe|;
 917
 918
 919
 920       while ($ref->{inventory_new_chart} && ($ref->{inventory_valid} >= 0)) {
 921         my $query =
 922           qq|SELECT accno AS inventory_accno, | .
 923           qq|  new_chart_id AS inventory_new_chart, | .
 924           qq|  date($transdate) - valid_from AS inventory_valid | .
 925           qq|FROM chart WHERE id = $ref->{inventory_new_chart}|;
 926         ($ref->{inventory_accno}, $ref->{inventory_new_chart},
 927          $ref->{inventory_valid}) = selectrow_query($form, $dbh, $query);
 928       }
 929
 930       while ($ref->{income_new_chart} && ($ref->{income_valid} >= 0)) {
 931         my $query =
 932           qq|SELECT accno AS income_accno, | .
 933           qq|  new_chart_id AS income_new_chart, | .
 934           qq|  date($transdate) - valid_from AS income_valid | .
 935           qq|FROM chart WHERE id = $ref->{income_new_chart}|;
 936         ($ref->{income_accno}, $ref->{income_new_chart},
 937          $ref->{income_valid}) = selectrow_query($form, $dbh, $query);
 938       }
 939
 940       while ($ref->{expense_new_chart} && ($ref->{expense_valid} >= 0)) {
 941         my $query =
 942           qq|SELECT accno AS expense_accno, | .
 943           qq|  new_chart_id AS expense_new_chart, | .
 944           qq|  date($transdate) - valid_from AS expense_valid | .
 945           qq|FROM chart WHERE id = $ref->{expense_new_chart}|;
 946         ($ref->{expense_accno}, $ref->{expense_new_chart},
 947          $ref->{expense_valid}) = selectrow_query($form, $dbh, $query);
 948       }
 949
 950       # delete orderitems_id in collective orders, so that they get cloned no matter what
 951       delete $ref->{orderitems_id} if (@ids);
 952
 953       # get tax rates and description
 954       my $accno_id = ($form->{vc} eq "customer") ? $ref->{income_accno} : $ref->{expense_accno};
 955       $query =
 956         qq|SELECT c.accno, t.taxdescription, t.rate, t.taxnumber | .
 957         qq|FROM tax t LEFT JOIN chart c on (c.id = t.chart_id) | .
 958         qq|WHERE t.id IN (SELECT tk.tax_id FROM taxkeys tk | .
 959         qq|               WHERE tk.chart_id = (SELECT id FROM chart WHERE accno = ?) | .
 960         qq|                 AND startdate <= $transdate ORDER BY startdate DESC LIMIT 1) | .
 961         qq|ORDER BY c.accno|;
 962       my $stw = prepare_execute_query($form, $dbh, $query, $accno_id);
 963       $ref->{taxaccounts} = "";
 964       my $i = 0;
 965       while (my $ptr = $stw->fetchrow_hashref("NAME_lc")) {
 966         if (($ptr->{accno} eq "") && ($ptr->{rate} == 0)) {
 967           $i++;
 968           $ptr->{accno} = $i;
 969         }
 970         $ref->{taxaccounts} .= "$ptr->{accno} ";
 971         if (!($form->{taxaccounts} =~ /\Q$ptr->{accno}\E/)) {
 972           $form->{"$ptr->{accno}_rate"}        = $ptr->{rate};
 973           $form->{"$ptr->{accno}_description"} = $ptr->{taxdescription};
 974           $form->{"$ptr->{accno}_taxnumber"}   = $ptr->{taxnumber};
 975           $form->{taxaccounts} .= "$ptr->{accno} ";
 976         }
 977
 978       }
 979
 980       chop $ref->{taxaccounts};
 981
 982       push @{ $form->{form_details} }, $ref;
 983       $stw->finish;
 984     }
 985     $sth->finish;
 986
 987   } else {
 988
 989     # get last name used
 990     $form->lastname_used($dbh, $myconfig, $form->{vc})
 991       unless $form->{"$form->{vc}_id"};
 992
 993   }
 994
 995   $form->{exchangerate} = $form->get_exchangerate($dbh, $form->{currency}, $form->{transdate}, ($form->{vc} eq 'customer') ? "buy" : "sell");
 996
 997   Common::webdav_folder($form);
 998
 999   $self->load_periodic_invoice_config($form);
1000
1001   my $rc = $dbh->commit;
1002
1003   $main::lxdebug->leave_sub();
1004
1005   return $rc;
1006 }
1007
1008 sub retrieve_simple {
1009   $main::lxdebug->enter_sub();
1010
1011   my $self     = shift;
1012   my %params   = @_;
1013
1014   Common::check_params(\%params, qw(id));
1015
1016   my $myconfig    = \%main::myconfig;
1017   my $form        = $main::form;
1018
1019   my $dbh         = $params{dbh} || $form->get_standard_dbh($myconfig);
1020
1021   my $oe_query    = qq|SELECT * FROM oe         WHERE id = ?|;
1022   my $oi_query    = qq|SELECT * FROM orderitems WHERE trans_id = ?|;
1023
1024   my $order            = selectfirst_hashref_query($form, $dbh, $oe_query, conv_i($params{id}));
1025   $order->{orderitems} = selectall_hashref_query(  $form, $dbh, $oi_query, conv_i($params{id}));
1026
1027   $main::lxdebug->leave_sub();
1028
1029   return $order;
1030 }
1031
1032 sub order_details {
1033   $main::lxdebug->enter_sub();
1034
1035   my ($self, $myconfig, $form) = @_;
1036
1037   # connect to database
1038   my $dbh = $form->get_standard_dbh;
1039   my $query;
1040   my @values = ();
1041   my $sth;
1042   my $nodiscount;
1043   my $yesdiscount;
1044   my $nodiscount_subtotal = 0;
1045   my $discount_subtotal = 0;
1046   my $item;
1047   my $i;
1048   my @partsgroup = ();
1049   my $partsgroup;
1050   my $position = 0;
1051   my $subtotal_header = 0;
1052   my $subposition = 0;
1053   my %taxaccounts;
1054   my %taxbase;
1055   my $tax_rate;
1056   my $taxamount;
1057
1058
1059   my %oid = ('Pg'     => 'oid',
1060              'Oracle' => 'rowid');
1061
1062   my (@project_ids, %projectnumbers, %projectdescriptions);
1063
1064   push(@project_ids, $form->{"globalproject_id"}) if ($form->{"globalproject_id"});
1065
1066   $form->get_lists('price_factors' => 'ALL_PRICE_FACTORS',
1067                    'departments'   => 'ALL_DEPARTMENTS');
1068   my %price_factors;
1069
1070   foreach my $pfac (@{ $form->{ALL_PRICE_FACTORS} }) {
1071     $price_factors{$pfac->{id}}  = $pfac;
1072     $pfac->{factor}             *= 1;
1073     $pfac->{formatted_factor}    = $form->format_amount($myconfig, $pfac->{factor});
1074   }
1075
1076   # lookup department
1077   foreach my $dept (@{ $form->{ALL_DEPARTMENTS} }) {
1078     next unless $dept->{id} eq $form->{department_id};
1079     $form->{department} = $dept->{description};
1080     last;
1081   }
1082
1083   # sort items by partsgroup
1084   for $i (1 .. $form->{rowcount}) {
1085     $partsgroup = "";
1086     if ($form->{"partsgroup_$i"} && $form->{groupitems}) {
1087       $partsgroup = $form->{"partsgroup_$i"};
1088     }
1089     push @partsgroup, [$i, $partsgroup];
1090     push(@project_ids, $form->{"project_id_$i"}) if ($form->{"project_id_$i"});
1091   }
1092
1093   if (@project_ids) {
1094     $query = "SELECT id, projectnumber, description FROM project WHERE id IN (" .
1095       join(", ", map("?", @project_ids)) . ")";
1096     $sth = prepare_execute_query($form, $dbh, $query, @project_ids);
1097     while (my $ref = $sth->fetchrow_hashref()) {
1098       $projectnumbers{$ref->{id}} = $ref->{projectnumber};
1099       $projectdescriptions{$ref->{id}} = $ref->{description};
1100     }
1101     $sth->finish();
1102   }
1103
1104   $form->{"globalprojectnumber"} = $projectnumbers{$form->{"globalproject_id"}};
1105   $form->{"globalprojectdescription"} = $projectdescriptions{$form->{"globalproject_id"}};
1106
1107   $form->{discount} = [];
1108
1109   $form->{TEMPLATE_ARRAYS} = { };
1110   IC->prepare_parts_for_printing();
1111
1112   my $ic_cvar_configs = CVar->get_configs(module => 'IC');
1113
1114   my @arrays =
1115     qw(runningnumber number description longdescription qty ship unit bin
1116        partnotes serialnumber reqdate sellprice listprice netprice
1117        discount p_discount discount_sub nodiscount_sub
1118        linetotal  nodiscount_linetotal tax_rate projectnumber projectdescription
1119        price_factor price_factor_name partsgroup);
1120
1121   push @arrays, map { "ic_cvar_$_->{name}" } @{ $ic_cvar_configs };
1122
1123   my @tax_arrays = qw(taxbase tax taxdescription taxrate taxnumber);
1124
1125   map { $form->{TEMPLATE_ARRAYS}->{$_} = [] } (@arrays, @tax_arrays);
1126
1127   my $sameitem = "";
1128   foreach $item (sort { $a->[1] cmp $b->[1] } @partsgroup) {
1129     $i = $item->[0];
1130
1131     if ($item->[1] ne $sameitem) {
1132       push(@{ $form->{TEMPLATE_ARRAYS}->{description} }, qq|$item->[1]|);
1133       $sameitem = $item->[1];
1134
1135       map({ push(@{ $form->{TEMPLATE_ARRAYS}->{$_} }, "") } grep({ $_ ne "description" } @arrays));
1136     }
1137
1138     $form->{"qty_$i"} = $form->parse_amount($myconfig, $form->{"qty_$i"});
1139
1140     if ($form->{"id_$i"} != 0) {
1141
1142       # add number, description and qty to $form->{number}, ....
1143
1144       if ($form->{"subtotal_$i"} && !$subtotal_header) {
1145         $subtotal_header = $i;
1146         $position = int($position);
1147         $subposition = 0;
1148         $position++;
1149       } elsif ($subtotal_header) {
1150         $subposition += 1;
1151         $position = int($position);
1152         $position = $position.".".$subposition;
1153       } else {
1154         $position = int($position);
1155         $position++;
1156       }
1157
1158       my $price_factor = $price_factors{$form->{"price_factor_id_$i"}} || { 'factor' => 1 };
1159
1160       push @{ $form->{TEMPLATE_ARRAYS}->{runningnumber} },     $position;
1161       push @{ $form->{TEMPLATE_ARRAYS}->{number} },            $form->{"partnumber_$i"};
1162       push @{ $form->{TEMPLATE_ARRAYS}->{description} },       $form->{"description_$i"};
1163       push @{ $form->{TEMPLATE_ARRAYS}->{longdescription} },   $form->{"longdescription_$i"};
1164       push @{ $form->{TEMPLATE_ARRAYS}->{qty} },               $form->format_amount($myconfig, $form->{"qty_$i"});
1165       push @{ $form->{TEMPLATE_ARRAYS}->{qty_nofmt} },         $form->{"qty_$i"};
1166       push @{ $form->{TEMPLATE_ARRAYS}->{ship} },              $form->format_amount($myconfig, $form->{"ship_$i"});
1167       push @{ $form->{TEMPLATE_ARRAYS}->{ship_nofmt} },        $form->{"ship_$i"};
1168       push @{ $form->{TEMPLATE_ARRAYS}->{unit} },              $form->{"unit_$i"};
1169       push @{ $form->{TEMPLATE_ARRAYS}->{bin} },               $form->{"bin_$i"};
1170       push @{ $form->{TEMPLATE_ARRAYS}->{partnotes} },         $form->{"partnotes_$i"};
1171       push @{ $form->{TEMPLATE_ARRAYS}->{serialnumber} },      $form->{"serialnumber_$i"};
1172       push @{ $form->{TEMPLATE_ARRAYS}->{reqdate} },           $form->{"reqdate_$i"};
1173       push @{ $form->{TEMPLATE_ARRAYS}->{sellprice} },         $form->{"sellprice_$i"};
1174       push @{ $form->{TEMPLATE_ARRAYS}->{sellprice_nofmt} },   $form->parse_amount($myconfig, $form->{"sellprice_$i"});
1175       push @{ $form->{TEMPLATE_ARRAYS}->{listprice} },         $form->{"listprice_$i"};
1176       push @{ $form->{TEMPLATE_ARRAYS}->{price_factor} },      $price_factor->{formatted_factor};
1177       push @{ $form->{TEMPLATE_ARRAYS}->{price_factor_name} }, $price_factor->{description};
1178       push @{ $form->{TEMPLATE_ARRAYS}->{partsgroup} },        $form->{"partsgroup_$i"};
1179
1180       my $sellprice     = $form->parse_amount($myconfig, $form->{"sellprice_$i"});
1181       my ($dec)         = ($sellprice =~ /\.(\d+)/);
1182       my $decimalplaces = max 2, length($dec);
1183
1184       my $parsed_discount            = $form->parse_amount($myconfig, $form->{"discount_$i"});
1185
1186       my $linetotal_exact            = $form->{"qty_$i"} * $sellprice * (100 - $parsed_discount) / 100 / $price_factor->{factor};
1187       my $linetotal                  = $form->round_amount($linetotal_exact, 2);
1188
1189       my $nodiscount_exact_linetotal = $form->{"qty_$i"} * $sellprice                                  / $price_factor->{factor};
1190       my $nodiscount_linetotal       = $form->round_amount($nodiscount_exact_linetotal,2);
1191
1192       my $discount                   = $nodiscount_linetotal - $linetotal; # is always rounded because $nodiscount_linetotal and $linetotal are rounded
1193
1194       my $discount_round_error       = $discount + ($linetotal_exact - $nodiscount_exact_linetotal); # not used
1195
1196       $form->{"netprice_$i"}   = $form->round_amount($form->{"qty_$i"} ? ($linetotal / $form->{"qty_$i"}) : 0, 2);
1197
1198       push @{ $form->{TEMPLATE_ARRAYS}->{netprice} },       ($form->{"netprice_$i"} != 0) ? $form->format_amount($myconfig, $form->{"netprice_$i"}, $decimalplaces) : '';
1199       push @{ $form->{TEMPLATE_ARRAYS}->{netprice_nofmt} }, ($form->{"netprice_$i"} != 0) ? $form->{"netprice_$i"} : '';
1200
1201       $linetotal = ($linetotal != 0) ? $linetotal : '';
1202
1203       push @{ $form->{TEMPLATE_ARRAYS}->{discount} },       ($discount != 0) ? $form->format_amount($myconfig, $discount * -1, 2) : '';
1204       push @{ $form->{TEMPLATE_ARRAYS}->{discount_nofmt} }, ($discount != 0) ? $discount * -1 : '';
1205       push @{ $form->{TEMPLATE_ARRAYS}->{p_discount} },     $form->{"discount_$i"};
1206
1207       $form->{ordtotal}         += $linetotal;
1208       $form->{nodiscount_total} += $nodiscount_linetotal;
1209       $form->{discount_total}   += $discount;
1210
1211       if ($subtotal_header) {
1212         $discount_subtotal   += $linetotal;
1213         $nodiscount_subtotal += $nodiscount_linetotal;
1214       }
1215
1216       if ($form->{"subtotal_$i"} && $subtotal_header && ($subtotal_header != $i)) {
1217         push @{ $form->{TEMPLATE_ARRAYS}->{discount_sub} },         $form->format_amount($myconfig, $discount_subtotal,   2);
1218         push @{ $form->{TEMPLATE_ARRAYS}->{discount_sub_nofmt} },   $discount_subtotal;
1219         push @{ $form->{TEMPLATE_ARRAYS}->{nodiscount_sub} },       $form->format_amount($myconfig, $nodiscount_subtotal, 2);
1220         push @{ $form->{TEMPLATE_ARRAYS}->{nodiscount_sub_nofmt} }, $nodiscount_subtotal;
1221
1222         $discount_subtotal   = 0;
1223         $nodiscount_subtotal = 0;
1224         $subtotal_header     = 0;
1225
1226       } else {
1227         push @{ $form->{TEMPLATE_ARRAYS}->{$_} }, "" for qw(discount_sub nodiscount_sub discount_sub_nofmt nodiscount_sub_nofmt);
1228       }
1229
1230       if (!$form->{"discount_$i"}) {
1231         $nodiscount += $linetotal;
1232       }
1233
1234       push @{ $form->{TEMPLATE_ARRAYS}->{linetotal} },                  $form->format_amount($myconfig, $linetotal, 2);
1235       push @{ $form->{TEMPLATE_ARRAYS}->{linetotal_nofmt} },            $linetotal_exact;
1236       push @{ $form->{TEMPLATE_ARRAYS}->{nodiscount_linetotal} },       $form->format_amount($myconfig, $nodiscount_linetotal, 2);
1237       push @{ $form->{TEMPLATE_ARRAYS}->{nodiscount_linetotal_nofmt} }, $nodiscount_linetotal;
1238       push(@{ $form->{TEMPLATE_ARRAYS}->{projectnumber} },              $projectnumbers{$form->{"project_id_$i"}});
1239       push(@{ $form->{TEMPLATE_ARRAYS}->{projectdescription} },         $projectdescriptions{$form->{"project_id_$i"}});
1240
1241       my ($taxamount, $taxbase);
1242       my $taxrate = 0;
1243
1244       map { $taxrate += $form->{"${_}_rate"} } split(/ /, $form->{"taxaccounts_$i"});
1245
1246       if ($form->{taxincluded}) {
1247
1248         # calculate tax
1249         $taxamount = $linetotal * $taxrate / (1 + $taxrate);
1250         $taxbase = $linetotal / (1 + $taxrate);
1251       } else {
1252         $taxamount = $linetotal * $taxrate;
1253         $taxbase   = $linetotal;
1254       }
1255
1256       if ($taxamount != 0) {
1257         foreach my $accno (split / /, $form->{"taxaccounts_$i"}) {
1258           $taxaccounts{$accno} += $taxamount * $form->{"${accno}_rate"} / $taxrate;
1259           $taxbase{$accno}     += $taxbase;
1260         }
1261       }
1262
1263       $tax_rate = $taxrate * 100;
1264       push(@{ $form->{TEMPLATE_ARRAYS}->{tax_rate} }, qq|$tax_rate|);
1265
1266       if ($form->{"assembly_$i"}) {
1267         $sameitem = "";
1268
1269         # get parts and push them onto the stack
1270         my $sortorder = "";
1271         if ($form->{groupitems}) {
1272           $sortorder = qq|ORDER BY pg.partsgroup, a.$oid{$myconfig->{dbdriver}}|;
1273         } else {
1274           $sortorder = qq|ORDER BY a.$oid{$myconfig->{dbdriver}}|;
1275         }
1276
1277         $query = qq|SELECT p.partnumber, p.description, p.unit, a.qty, | .
1278                  qq|pg.partsgroup | .
1279                  qq|FROM assembly a | .
1280                  qq|  JOIN parts p ON (a.parts_id = p.id) | .
1281                  qq|    LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id) | .
1282                  qq|    WHERE a.bom = '1' | .
1283                  qq|    AND a.id = ? | . $sortorder;
1284         @values = ($form->{"id_$i"});
1285         $sth = $dbh->prepare($query);
1286         $sth->execute(@values) || $form->dberror($query);
1287
1288         while (my $ref = $sth->fetchrow_hashref("NAME_lc")) {
1289           if ($form->{groupitems} && $ref->{partsgroup} ne $sameitem) {
1290             map({ push(@{ $form->{TEMPLATE_ARRAYS}->{$_} }, "") } grep({ $_ ne "description" } @arrays));
1291             $sameitem = ($ref->{partsgroup}) ? $ref->{partsgroup} : "--";
1292             push(@{ $form->{TEMPLATE_ARRAYS}->{description} }, $sameitem);
1293           }
1294
1295           push(@{ $form->{TEMPLATE_ARRAYS}->{description} }, $form->format_amount($myconfig, $ref->{qty} * $form->{"qty_$i"}) . qq|, $ref->{partnumber}, $ref->{description}|);
1296           map({ push(@{ $form->{TEMPLATE_ARRAYS}->{$_} }, "") } grep({ $_ ne "description" } @arrays));
1297         }
1298         $sth->finish;
1299       }
1300
1301       push @{ $form->{TEMPLATE_ARRAYS}->{"ic_cvar_$_->{name}"} },
1302         CVar->format_to_template(CVar->parse($form->{"ic_cvar_$_->{name}_$i"}, $_), $_)
1303           for @{ $ic_cvar_configs };
1304     }
1305   }
1306
1307   my $tax = 0;
1308   foreach $item (sort keys %taxaccounts) {
1309     $tax += $taxamount = $form->round_amount($taxaccounts{$item}, 2);
1310
1311     push(@{ $form->{TEMPLATE_ARRAYS}->{taxbase} },        $form->format_amount($myconfig, $taxbase{$item}, 2));
1312     push(@{ $form->{TEMPLATE_ARRAYS}->{taxbase_nofmt} },  $taxbase{$item});
1313     push(@{ $form->{TEMPLATE_ARRAYS}->{tax} },            $form->format_amount($myconfig, $taxamount,      2));
1314     push(@{ $form->{TEMPLATE_ARRAYS}->{tax_nofmt} },      $taxamount);
1315     push(@{ $form->{TEMPLATE_ARRAYS}->{taxrate} },        $form->format_amount($myconfig, $form->{"${item}_rate"} * 100));
1316     push(@{ $form->{TEMPLATE_ARRAYS}->{taxrate_nofmt} },  $form->{"${item}_rate"} * 100);
1317     push(@{ $form->{TEMPLATE_ARRAYS}->{taxdescription} }, $form->{"${item}_description"} . q{ } . 100 * $form->{"${item}_rate"} . q{%});
1318     push(@{ $form->{TEMPLATE_ARRAYS}->{taxnumber} },      $form->{"${item}_taxnumber"});
1319   }
1320
1321   $form->{nodiscount_subtotal} = $form->format_amount($myconfig, $form->{nodiscount_total}, 2);
1322   $form->{discount_total}      = $form->format_amount($myconfig, $form->{discount_total}, 2);
1323   $form->{nodiscount}          = $form->format_amount($myconfig, $nodiscount, 2);
1324   $form->{yesdiscount}         = $form->format_amount($myconfig, $form->{nodiscount_total} - $nodiscount, 2);
1325
1326   if($form->{taxincluded}) {
1327     $form->{subtotal}       = $form->format_amount($myconfig, $form->{ordtotal} - $tax, 2);
1328     $form->{subtotal_nofmt} = $form->{ordtotal} - $tax;
1329   } else {
1330     $form->{subtotal}       = $form->format_amount($myconfig, $form->{ordtotal}, 2);
1331     $form->{subtotal_nofmt} = $form->{ordtotal};
1332   }
1333
1334   $form->{ordtotal} = ($form->{taxincluded}) ? $form->{ordtotal} : $form->{ordtotal} + $tax;
1335
1336   # format amounts
1337   $form->{quototal} = $form->{ordtotal} = $form->format_amount($myconfig, $form->{ordtotal}, 2);
1338
1339   if ($form->{type} =~ /_quotation/) {
1340     $form->set_payment_options($myconfig, $form->{quodate});
1341   } else {
1342     $form->set_payment_options($myconfig, $form->{orddate});
1343   }
1344
1345   $form->{username} = $myconfig->{name};
1346
1347   $dbh->disconnect;
1348
1349   $main::lxdebug->leave_sub();
1350 }
1351
1352 sub project_description {
1353   $main::lxdebug->enter_sub();
1354
1355   my ($self, $dbh, $id) = @_;
1356
1357   my $query = qq|SELECT description FROM project WHERE id = ?|;
1358   my ($value) = selectrow_query($main::form, $dbh, $query, $id);
1359
1360   $main::lxdebug->leave_sub();
1361
1362   return $value;
1363 }
1364
1365 1;
1366
1367 __END__
1368
1369 =head1 NAME
1370
1371 OE.pm - Order entry module
1372
1373 =head1 DESCRIPTION
1374
1375 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>.
1376
1377 =head1 FUNCTIONS
1378
1379 =over 4
1380
1381 =item retrieve_simple PARAMS
1382
1383 simple OE retrieval by id. does not look up customer, vendor, units or any other stuff. only oe and orderitems.
1384
1385   my $order = retrieve_simple(id => 2);
1386
1387   $order => {
1388     %_OE_CONTENT,
1389     orderitems => [
1390       %_ORDERITEM_ROW_1,
1391       %_ORDERITEM_ROW_2,
1392       ...
1393     ]
1394   }
1395
1396 =back
1397
1398 =cut