SL/OE.pm

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