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