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       my $position = $i;
 513
 514       # save detail record in orderitems table
 515       my $cvars;
 516       if (! $form->{"orderitems_id_$i"}) {
 517         $query = qq|SELECT nextval('orderitemsid')|;
 518         ($form->{"orderitems_id_$i"}) = selectrow_query($form, $dbh, $query);
 519
 520         $query = qq|INSERT INTO orderitems (id, position) VALUES (?, ?)|;
 521         do_query($form, $dbh, $query, $form->{"orderitems_id_$i"}, conv_i($position));
 522
 523         # get values for CVars from master data for new items
 524         $cvars = CVar->get_custom_variables(dbh      => $dbh,
 525                                             module   => 'IC',
 526                                             trans_id => $form->{"id_$i"},
 527                                            );
 528       } else {
 529         # get values for CVars from custom_variables for existing items
 530         $cvars = CVar->get_custom_variables(dbh        => $dbh,
 531                                             module     => 'IC',
 532                                             sub_module => 'orderitems',
 533                                             trans_id   => $form->{"orderitems_id_$i"},
 534                                            );
 535       }
 536       # map only non-editable CVars to form (editable ones are already there)
 537       map { $form->{"ic_cvar_$_->{name}_$i"} = $_->{value} unless $_->{flag_editable} } @{ $cvars };
 538
 539       my $orderitems_id = $form->{"orderitems_id_$i"};
 540       push @processed_orderitems, $orderitems_id;
 541
 542        $query = <<SQL;
 543          UPDATE orderitems SET
 544           trans_id = ?, position = ?, parts_id = ?, description = ?, longdescription = ?, qty = ?, base_qty = ?,
 545           sellprice = ?, discount = ?, unit = ?, reqdate = ?, project_id = ?, serialnumber = ?, ship = ?,
 546           pricegroup_id = ?, ordnumber = ?, transdate = ?, cusordnumber = ?, subtotal = ?,
 547           marge_percent = ?, marge_total = ?, lastcost = ?, price_factor_id = ?,
 548           active_price_source = ?, active_discount_source = ?,
 549           price_factor = (SELECT factor FROM price_factors WHERE id = ?), marge_price_factor = ?
 550         WHERE id = ?
 551 SQL
 552       @values = (
 553            conv_i($form->{id}), conv_i($position), conv_i($form->{"id_$i"}),
 554            $form->{"description_$i"}, $restricter->process($form->{"longdescription_$i"}),
 555            $form->{"qty_$i"}, $baseqty,
 556            $fxsellprice, $form->{"discount_$i"},
 557            $form->{"unit_$i"}, conv_date($reqdate), conv_i($form->{"project_id_$i"}),
 558            $form->{"serialnumber_$i"}, $form->{"ship_$i"}, $pricegroup_id,
 559            $form->{"ordnumber_$i"}, conv_date($form->{"transdate_$i"}),
 560            $form->{"cusordnumber_$i"}, $form->{"subtotal_$i"} ? 't' : 'f',
 561            $form->{"marge_percent_$i"}, $form->{"marge_absolut_$i"},
 562            $form->{"lastcost_$i"}, conv_i($form->{"price_factor_id_$i"}),
 563            $form->{"active_price_source_$i"}, $form->{"active_discount_source_$i"},
 564            conv_i($form->{"price_factor_id_$i"}), conv_i($form->{"marge_price_factor_$i"}),
 565            conv_i($orderitems_id),
 566       );
 567
 568       do_query($form, $dbh, $query, @values);
 569
 570       $form->{"sellprice_$i"} = $fxsellprice;
 571       $form->{"discount_$i"} *= 100;
 572
 573       CVar->save_custom_variables(module       => 'IC',
 574                                   sub_module   => 'orderitems',
 575                                   trans_id     => $orderitems_id,
 576                                   configs      => $ic_cvar_configs,
 577                                   variables    => $form,
 578                                   name_prefix  => 'ic_',
 579                                   name_postfix => "_$i",
 580                                   dbh          => $dbh);
 581       # link previous items with orderitems
 582       foreach (qw(orderitems invoice)) {
 583         if ($form->{"converted_from_${_}_id_$i"}) {
 584           RecordLinks->create_links('dbh'        => $dbh,
 585                                     'mode'       => 'ids',
 586                                     'from_table' => $_,
 587                                     'from_ids'   => $form->{"converted_from_${_}_id_$i"},
 588                                     'to_table'   => 'orderitems',
 589                                     'to_id'      => $orderitems_id,
 590           );
 591           delete $form->{"converted_from_${_}_id_$i"};
 592         }
 593       }
 594     }
 595   }
 596   # search for orphaned ids
 597   $query  = sprintf 'SELECT id FROM orderitems WHERE trans_id = ? AND NOT id IN (%s)', join ', ', ("?") x scalar @processed_orderitems;
 598   @values = (conv_i($form->{id}), map { conv_i($_) } @processed_orderitems);
 599   my @orphaned_ids = map { $_->{id} } selectall_hashref_query($form, $dbh, $query, @values);
 600
 601   if (scalar @orphaned_ids) {
 602     # clean up orderitems
 603     $query  = sprintf 'DELETE FROM orderitems WHERE id IN (%s)', join ', ', ("?") x scalar @orphaned_ids;
 604     do_query($form, $dbh, $query, @orphaned_ids);
 605   }
 606
 607   $reqdate = ($form->{reqdate}) ? $form->{reqdate} : undef;
 608
 609   # add up the tax
 610   my $tax = 0;
 611   map { $tax += $form->round_amount($taxaccounts{$_}, 2) } keys %taxaccounts;
 612
 613   $amount = $form->round_amount($netamount + $tax, 2);
 614   $netamount = $form->round_amount($netamount, 2);
 615
 616   if ($form->{currency} eq $form->{defaultcurrency}) {
 617     $form->{exchangerate} = 1;
 618   } else {
 619     $exchangerate = $form->check_exchangerate($myconfig, $form->{currency}, $form->{transdate}, ($form->{vc} eq 'customer') ? 'buy' : 'sell');
 620   }
 621
 622   $form->{exchangerate} = $exchangerate || $form->parse_amount($myconfig, $form->{exchangerate});
 623
 624   my $quotation = $form->{type} =~ /_order$/ ? 'f' : 't';
 625
 626   ($null, $form->{department_id}) = split(/--/, $form->{department}) if $form->{department};
 627
 628   # save OE record
 629   $query =
 630     qq|UPDATE oe SET
 631          ordnumber = ?, quonumber = ?, cusordnumber = ?, transdate = ?, vendor_id = ?,
 632          customer_id = ?, amount = ?, netamount = ?, reqdate = ?, taxincluded = ?,
 633          shippingpoint = ?, shipvia = ?, notes = ?, intnotes = ?, currency_id = (SELECT id FROM currencies WHERE name=?), closed = ?,
 634          delivered = ?, proforma = ?, quotation = ?, department_id = ?, language_id = ?,
 635          taxzone_id = ?, shipto_id = ?, payment_id = ?, delivery_vendor_id = ?, delivery_customer_id = ?,delivery_term_id = ?,
 636          globalproject_id = ?, employee_id = ?, salesman_id = ?, cp_id = ?, transaction_description = ?, marge_total = ?, marge_percent = ?
 637          , order_probability = ?, expected_billing_date = ?
 638        WHERE id = ?|;
 639
 640   @values = ($form->{ordnumber} || '', $form->{quonumber},
 641              $form->{cusordnumber}, conv_date($form->{transdate}),
 642              conv_i($form->{vendor_id}), conv_i($form->{customer_id}),
 643              $amount, $netamount, conv_date($reqdate),
 644              $form->{taxincluded} ? 't' : 'f', $form->{shippingpoint},
 645              $form->{shipvia}, $form->{notes}, $form->{intnotes},
 646              $form->{currency}, $form->{closed} ? 't' : 'f',
 647              $form->{delivered} ? "t" : "f", $form->{proforma} ? 't' : 'f',
 648              $quotation, conv_i($form->{department_id}),
 649              conv_i($form->{language_id}), conv_i($form->{taxzone_id}),
 650              conv_i($form->{shipto_id}), conv_i($form->{payment_id}),
 651              conv_i($form->{delivery_vendor_id}),
 652              conv_i($form->{delivery_customer_id}),
 653              conv_i($form->{delivery_term_id}),
 654              conv_i($form->{globalproject_id}), conv_i($form->{employee_id}),
 655              conv_i($form->{salesman_id}), conv_i($form->{cp_id}),
 656              $form->{transaction_description},
 657              $form->{marge_total} * 1, $form->{marge_percent} * 1,
 658              $form->{order_probability} * 1, conv_date($form->{expected_billing_date}),
 659              conv_i($form->{id}));
 660   do_query($form, $dbh, $query, @values);
 661
 662   $form->{ordtotal} = $amount;
 663
 664   $form->{name} = $form->{ $form->{vc} };
 665   $form->{name} =~ s/--\Q$form->{"$form->{vc}_id"}\E//;
 666
 667   # add shipto
 668   if (!$form->{shipto_id}) {
 669     $form->add_shipto($dbh, $form->{id}, "OE");
 670   }
 671
 672   # save printed, emailed, queued
 673   $form->save_status($dbh);
 674
 675   # Link this record to the records it was created from.
 676   # check every record type we may link. i am not happy with converting the string to array back
 677   # should be a array from the start (OE.pm -> retrieve).
 678   #  and that i need the local array ref for close_quotation_rfqs. better ideas welcome
 679   $form->{convert_from_oe_ids} =~ s/^\s+//;
 680   $form->{convert_from_oe_ids} =~ s/\s+$//;
 681   my @convert_from_oe_ids      =  split m/\s+/, $form->{convert_from_oe_ids};
 682   delete $form->{convert_from_oe_ids};
 683   @{ $form->{convert_from_oe_ids} }      =  @convert_from_oe_ids;
 684   foreach (qw(ar oe)) {
 685     if ($form->{"convert_from_${_}_ids"}) {
 686       RecordLinks->create_links('dbh'        => $dbh,
 687                                 'mode'       => 'ids',
 688                                 'from_table' => $_,
 689                                 'from_ids'   => $form->{"convert_from_${_}_ids"},
 690                                 'to_table'   => 'oe',
 691                                 'to_id'      => $form->{id},
 692         );
 693       delete $form->{"convert_from_${_}_ids"};
 694     }
 695     $self->_close_quotations_rfqs('dbh'     => $dbh,
 696                                   'from_id' => \@convert_from_oe_ids,
 697                                   'to_id'   => $form->{id}) if $_ eq 'oe';
 698   }
 699
 700   if (($form->{currency} ne $form->{defaultcurrency}) && !$exchangerate) {
 701     if ($form->{vc} eq 'customer') {
 702       $form->update_exchangerate($dbh, $form->{currency}, $form->{transdate}, $form->{exchangerate}, 0);
 703     }
 704     if ($form->{vc} eq 'vendor') {
 705       $form->update_exchangerate($dbh, $form->{currency}, $form->{transdate}, 0, $form->{exchangerate});
 706     }
 707   }
 708
 709   $form->{saved_xyznumber} = $form->{$form->{type} =~ /_quotation$/ ?
 710                                        "quonumber" : "ordnumber"};
 711
 712   Common::webdav_folder($form);
 713
 714   my $rc = $dbh->commit;
 715
 716   $self->save_periodic_invoices_config(dbh         => $dbh,
 717                                        oe_id       => $form->{id},
 718                                        config_yaml => $form->{periodic_invoices_config})
 719     if ($form->{type} eq 'sales_order');
 720
 721   $main::lxdebug->leave_sub();
 722
 723   return $rc;
 724 }
 725
 726 sub save_periodic_invoices_config {
 727   my ($self, %params) = @_;
 728
 729   return if !$params{oe_id};
 730
 731   my $config = $params{config_yaml} ? YAML::Load($params{config_yaml}) : undef;
 732   return if 'HASH' ne ref $config;
 733
 734   my $obj  = SL::DB::Manager::PeriodicInvoicesConfig->find_by(oe_id => $params{oe_id})
 735           || SL::DB::PeriodicInvoicesConfig->new(oe_id => $params{oe_id});
 736   $obj->update_attributes(%{ $config });
 737 }
 738
 739 sub load_periodic_invoice_config {
 740   my $self = shift;
 741   my $form = shift;
 742
 743   delete $form->{periodic_invoices_config};
 744
 745   if ($form->{id}) {
 746     my $config_obj = SL::DB::Manager::PeriodicInvoicesConfig->find_by(oe_id => $form->{id});
 747
 748     if ($config_obj) {
 749       my $config = { map { $_ => $config_obj->$_ } qw(active terminated periodicity start_date_as_date end_date_as_date first_billing_date_as_date extend_automatically_by ar_chart_id
 750                                                       print printer_id copies) };
 751       $form->{periodic_invoices_config} = YAML::Dump($config);
 752     }
 753   }
 754 }
 755
 756 sub _close_quotations_rfqs {
 757   $main::lxdebug->enter_sub();
 758
 759   my $self     = shift;
 760   my %params   = @_;
 761
 762   Common::check_params(\%params, qw(from_id to_id));
 763
 764   my $myconfig = \%main::myconfig;
 765   my $form     = $main::form;
 766
 767   my $dbh      = $params{dbh} || $form->get_standard_dbh($myconfig);
 768
 769   my $query    = qq|SELECT quotation FROM oe WHERE id = ?|;
 770   my $sth      = prepare_query($form, $dbh, $query);
 771
 772   do_statement($form, $sth, $query, conv_i($params{to_id}));
 773
 774   my ($quotation) = $sth->fetchrow_array();
 775
 776   if ($quotation) {
 777     $main::lxdebug->leave_sub();
 778     return;
 779   }
 780
 781   my @close_ids;
 782
 783   foreach my $from_id (@{ $params{from_id} }) {
 784     $from_id = conv_i($from_id);
 785     do_statement($form, $sth, $query, $from_id);
 786     ($quotation) = $sth->fetchrow_array();
 787     push @close_ids, $from_id if ($quotation);
 788   }
 789
 790   $sth->finish();
 791
 792   if (scalar @close_ids) {
 793     $query = qq|UPDATE oe SET closed = TRUE WHERE id IN (| . join(', ', ('?') x scalar @close_ids) . qq|)|;
 794     do_query($form, $dbh, $query, @close_ids);
 795
 796     $dbh->commit() unless ($params{dbh});
 797   }
 798
 799   $main::lxdebug->leave_sub();
 800 }
 801
 802 sub delete {
 803   $main::lxdebug->enter_sub();
 804
 805   my ($self, $myconfig, $form) = @_;
 806
 807   my $rc = SL::DB::Order->new->db->with_transaction(sub {
 808     my @spoolfiles = grep { $_ } map { $_->spoolfile } @{ SL::DB::Manager::Status->get_all(where => [ trans_id => $form->{id} ]) };
 809
 810     SL::DB::Order->new(id => $form->{id})->delete;
 811
 812     my $spool = $::lx_office_conf{paths}->{spool};
 813     unlink map { "$spool/$_" } @spoolfiles if $spool;
 814
 815     1;
 816   });
 817
 818   $main::lxdebug->leave_sub();
 819
 820   return $rc;
 821 }
 822
 823 sub retrieve {
 824   $main::lxdebug->enter_sub();
 825
 826   my ($self, $myconfig, $form) = @_;
 827
 828   # connect to database
 829   my $dbh = $form->get_standard_dbh;
 830
 831   my ($query, $query_add, @values, @ids, $sth);
 832
 833   # translate the ids (given by id_# and trans_id_#) into one array of ids, so we can join them later
 834   map {
 835     push @ids, $form->{"trans_id_$_"}
 836       if ($form->{"multi_id_$_"} and $form->{"trans_id_$_"})
 837   } (1 .. $form->{"rowcount"});
 838
 839   if ($form->{rowcount} && scalar @ids) {
 840     $form->{convert_from_oe_ids} = join ' ', @ids;
 841   }
 842
 843   # if called in multi id mode, and still only got one id, switch back to single id
 844   if ($form->{"rowcount"} and $#ids == 0) {
 845     $form->{"id"} = $ids[0];
 846     undef @ids;
 847   }
 848
 849   # and remember for the rest of the function
 850   my $is_collective_order = scalar @ids;
 851
 852   if (!$form->{id}) {
 853     my $extra_days   = $form->{type} eq 'sales_quotation' ? $::instance_conf->get_reqdate_interval : 1;
 854     my $next_workday = DateTime->today_local->add(days => $extra_days);
 855     my $day_of_week  = $next_workday->day_of_week;
 856
 857     $next_workday->add(days => (8 - $day_of_week)) if $day_of_week >= 6;
 858
 859     $form->{transdate} = DateTime->today_local->to_kivitendo;
 860     $form->{reqdate}   = $next_workday->to_kivitendo;
 861   }
 862
 863   # get default accounts
 864   $query = qq|SELECT (SELECT c.accno FROM chart c WHERE d.inventory_accno_id = c.id) AS inventory_accno,
 865                      (SELECT c.accno FROM chart c WHERE d.income_accno_id    = c.id) AS income_accno,
 866                      (SELECT c.accno FROM chart c WHERE d.expense_accno_id   = c.id) AS expense_accno,
 867                      (SELECT c.accno FROM chart c WHERE d.fxgain_accno_id    = c.id) AS fxgain_accno,
 868                      (SELECT c.accno FROM chart c WHERE d.fxloss_accno_id    = c.id) AS fxloss_accno
 869               $query_add
 870               FROM defaults d|;
 871   my $ref = selectfirst_hashref_query($form, $dbh, $query);
 872   map { $form->{$_} = $ref->{$_} } keys %$ref;
 873
 874   $form->{currency} = $form->get_default_currency($myconfig);
 875
 876   # set reqdate if this is an invoice->order conversion. If someone knows a better check to ensure
 877   # we come from invoices, feel free.
 878   $form->{reqdate} = $form->{deliverydate}
 879     if (    $form->{deliverydate}
 880         and $form->{callback} =~ /action=ar_transactions/);
 881
 882   my $vc = $form->{vc} eq "customer" ? "customer" : "vendor";
 883
 884   if ($form->{id} or @ids) {
 885
 886     # retrieve order for single id
 887     # NOTE: this query is intended to fetch all information only ONCE.
 888     # so if any of these infos is important (or even different) for any item,
 889     # it will be killed out and then has to be fetched from the item scope query further down
 890     $query =
 891       qq|SELECT o.cp_id, o.ordnumber, o.transdate, o.reqdate,
 892            o.taxincluded, o.shippingpoint, o.shipvia, o.notes, o.intnotes,
 893            (SELECT cu.name FROM currencies cu WHERE cu.id=o.currency_id) AS currency, e.name AS employee, o.employee_id, o.salesman_id,
 894            o.${vc}_id, cv.name AS ${vc}, o.amount AS invtotal,
 895            o.closed, o.reqdate, o.quonumber, o.department_id, o.cusordnumber,
 896            d.description AS department, o.payment_id, o.language_id, o.taxzone_id,
 897            o.delivery_customer_id, o.delivery_vendor_id, o.proforma, o.shipto_id,
 898            o.globalproject_id, o.delivered, o.transaction_description, o.delivery_term_id
 899            , o.order_probability, o.expected_billing_date
 900          FROM oe o
 901          JOIN ${vc} cv ON (o.${vc}_id = cv.id)
 902          LEFT JOIN employee e ON (o.employee_id = e.id)
 903          LEFT JOIN department d ON (o.department_id = d.id) | .
 904         ($form->{id}
 905          ? "WHERE o.id = ?"
 906          : "WHERE o.id IN (" . join(', ', map("? ", @ids)) . ")"
 907         );
 908     @values = $form->{id} ? ($form->{id}) : @ids;
 909     $sth = prepare_execute_query($form, $dbh, $query, @values);
 910
 911     $ref = $sth->fetchrow_hashref("NAME_lc");
 912
 913     if ($ref) {
 914       map { $form->{$_} = $ref->{$_} } keys %$ref;
 915
 916       $form->{saved_xyznumber} = $form->{$form->{type} =~ /_quotation$/ ? "quonumber" : "ordnumber"};
 917
 918       # set all entries for multiple ids blank that yield different information
 919       while ($ref = $sth->fetchrow_hashref("NAME_lc")) {
 920         map { $form->{$_} = '' if ($ref->{$_} ne $form->{$_}) } keys %$ref;
 921       }
 922     }
 923
 924     # if not given, fill transdate with current_date
 925     $form->{transdate} = $form->current_date($myconfig)
 926       unless $form->{transdate};
 927
 928     $sth->finish;
 929
 930     if ($form->{delivery_customer_id}) {
 931       $query = qq|SELECT name FROM customer WHERE id = ?|;
 932       ($form->{delivery_customer_string}) = selectrow_query($form, $dbh, $query, $form->{delivery_customer_id});
 933     }
 934
 935     if ($form->{delivery_vendor_id}) {
 936       $query = qq|SELECT name FROM customer WHERE id = ?|;
 937       ($form->{delivery_vendor_string}) = selectrow_query($form, $dbh, $query, $form->{delivery_vendor_id});
 938     }
 939
 940     # shipto and pinted/mailed/queued status makes only sense for single id retrieve
 941     if (!@ids) {
 942       $query = qq|SELECT s.* FROM shipto s WHERE s.trans_id = ? AND s.module = 'OE'|;
 943       $sth = prepare_execute_query($form, $dbh, $query, $form->{id});
 944
 945       $ref = $sth->fetchrow_hashref("NAME_lc");
 946       delete($ref->{id});
 947       map { $form->{$_} = $ref->{$_} } keys %$ref;
 948       $sth->finish;
 949
 950       # get printed, emailed and queued
 951       $query = qq|SELECT s.printed, s.emailed, s.spoolfile, s.formname FROM status s WHERE s.trans_id = ?|;
 952       $sth = prepare_execute_query($form, $dbh, $query, $form->{id});
 953
 954       while ($ref = $sth->fetchrow_hashref("NAME_lc")) {
 955         $form->{printed} .= "$ref->{formname} " if $ref->{printed};
 956         $form->{emailed} .= "$ref->{formname} " if $ref->{emailed};
 957         $form->{queued}  .= "$ref->{formname} $ref->{spoolfile} " if $ref->{spoolfile};
 958       }
 959       $sth->finish;
 960       map { $form->{$_} =~ s/ +$//g } qw(printed emailed queued);
 961     }    # if !@ids
 962
 963     my $transdate = $form->{transdate} ? $dbh->quote($form->{transdate}) : "current_date";
 964
 965     $form->{taxzone_id} = 0 unless ($form->{taxzone_id});
 966
 967     # retrieve individual items
 968     # this query looks up all information about the items
 969     # stuff different from the whole will not be overwritten, but saved with a suffix.
 970     $query =
 971       qq|SELECT o.id AS orderitems_id,
 972            c1.accno AS inventory_accno, c1.new_chart_id AS inventory_new_chart, date($transdate) - c1.valid_from as inventory_valid,
 973            c2.accno AS income_accno,    c2.new_chart_id AS income_new_chart,    date($transdate) - c2.valid_from as income_valid,
 974            c3.accno AS expense_accno,   c3.new_chart_id AS expense_new_chart,   date($transdate) - c3.valid_from as expense_valid,
 975            oe.ordnumber AS ordnumber_oe, oe.transdate AS transdate_oe, oe.cusordnumber AS cusordnumber_oe,
 976            p.partnumber, p.assembly, p.listprice, o.description, o.qty,
 977            o.sellprice, o.parts_id AS id, o.unit, o.discount, p.notes AS partnotes, p.inventory_accno_id AS part_inventory_accno_id,
 978            o.reqdate, o.project_id, o.serialnumber, o.ship, o.lastcost,
 979            o.ordnumber, o.transdate, o.cusordnumber, o.subtotal, o.longdescription,
 980            o.price_factor_id, o.price_factor, o.marge_price_factor, o.active_price_source, o.active_discount_source,
 981            pr.projectnumber, p.formel,
 982            pg.partsgroup, o.pricegroup_id, (SELECT pricegroup FROM pricegroup WHERE id=o.pricegroup_id) as pricegroup
 983          FROM orderitems o
 984          JOIN parts p ON (o.parts_id = p.id)
 985          JOIN oe ON (o.trans_id = oe.id)
 986          LEFT JOIN chart c1 ON ((SELECT inventory_accno_id                   FROM buchungsgruppen WHERE id=p.buchungsgruppen_id) = c1.id)
 987          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)
 988          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)
 989          LEFT JOIN project pr ON (o.project_id = pr.id)
 990          LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id) | .
 991       ($form->{id}
 992        ? qq|WHERE o.trans_id = ?|
 993        : qq|WHERE o.trans_id IN (| . join(", ", map("?", @ids)) . qq|)|) .
 994       qq|ORDER BY o.trans_id, o.position|;
 995
 996     @ids = $form->{id} ? ($form->{id}) : @ids;
 997     $sth = prepare_execute_query($form, $dbh, $query, @values);
 998
 999     while ($ref = $sth->fetchrow_hashref("NAME_lc")) {
1000       # Retrieve custom variables.
1001       my $cvars = CVar->get_custom_variables(dbh        => $dbh,
1002                                              module     => 'IC',
1003                                              sub_module => 'orderitems',
1004                                              trans_id   => $ref->{orderitems_id},
1005                                             );
1006       map { $ref->{"ic_cvar_$_->{name}"} = $_->{value} } @{ $cvars };
1007
1008       # Handle accounts.
1009       if (!$ref->{"part_inventory_accno_id"}) {
1010         map({ delete($ref->{$_}); } qw(inventory_accno inventory_new_chart inventory_valid));
1011       }
1012       delete($ref->{"part_inventory_accno_id"});
1013
1014       # in collective order, copy global ordnumber, transdate, cusordnumber into item scope
1015       #   unless already present there
1016       # remove _oe entries afterwards
1017       map { $ref->{$_} = $ref->{"${_}_oe"} if ($ref->{$_} eq '') }
1018         qw|ordnumber transdate cusordnumber|
1019         if (@ids);
1020       map { delete $ref->{$_} } qw|ordnumber_oe transdate_oe cusordnumber_oe|;
1021
1022
1023
1024       while ($ref->{inventory_new_chart} && ($ref->{inventory_valid} >= 0)) {
1025         my $query =
1026           qq|SELECT accno AS inventory_accno, | .
1027           qq|  new_chart_id AS inventory_new_chart, | .
1028           qq|  date($transdate) - valid_from AS inventory_valid | .
1029           qq|FROM chart WHERE id = $ref->{inventory_new_chart}|;
1030         ($ref->{inventory_accno}, $ref->{inventory_new_chart},
1031          $ref->{inventory_valid}) = selectrow_query($form, $dbh, $query);
1032       }
1033
1034       while ($ref->{income_new_chart} && ($ref->{income_valid} >= 0)) {
1035         my $query =
1036           qq|SELECT accno AS income_accno, | .
1037           qq|  new_chart_id AS income_new_chart, | .
1038           qq|  date($transdate) - valid_from AS income_valid | .
1039           qq|FROM chart WHERE id = $ref->{income_new_chart}|;
1040         ($ref->{income_accno}, $ref->{income_new_chart},
1041          $ref->{income_valid}) = selectrow_query($form, $dbh, $query);
1042       }
1043
1044       while ($ref->{expense_new_chart} && ($ref->{expense_valid} >= 0)) {
1045         my $query =
1046           qq|SELECT accno AS expense_accno, | .
1047           qq|  new_chart_id AS expense_new_chart, | .
1048           qq|  date($transdate) - valid_from AS expense_valid | .
1049           qq|FROM chart WHERE id = $ref->{expense_new_chart}|;
1050         ($ref->{expense_accno}, $ref->{expense_new_chart},
1051          $ref->{expense_valid}) = selectrow_query($form, $dbh, $query);
1052       }
1053
1054       # delete orderitems_id in collective orders, so that they get cloned no matter what
1055       delete $ref->{orderitems_id} if $is_collective_order;
1056
1057       # get tax rates and description
1058       my $accno_id = ($form->{vc} eq "customer") ? $ref->{income_accno} : $ref->{expense_accno};
1059       $query =
1060         qq|SELECT c.accno, t.taxdescription, t.rate, t.taxnumber | .
1061         qq|FROM tax t LEFT JOIN chart c on (c.id = t.chart_id) | .
1062         qq|WHERE t.id IN (SELECT tk.tax_id FROM taxkeys tk | .
1063         qq|               WHERE tk.chart_id = (SELECT id FROM chart WHERE accno = ?) | .
1064         qq|                 AND startdate <= $transdate ORDER BY startdate DESC LIMIT 1) | .
1065         qq|ORDER BY c.accno|;
1066       my $stw = prepare_execute_query($form, $dbh, $query, $accno_id);
1067       $ref->{taxaccounts} = "";
1068       my $i = 0;
1069       while (my $ptr = $stw->fetchrow_hashref("NAME_lc")) {
1070         if (($ptr->{accno} eq "") && ($ptr->{rate} == 0)) {
1071           $i++;
1072           $ptr->{accno} = $i;
1073         }
1074         $ref->{taxaccounts} .= "$ptr->{accno} ";
1075         if (!($form->{taxaccounts} =~ /\Q$ptr->{accno}\E/)) {
1076           $form->{"$ptr->{accno}_rate"}        = $ptr->{rate};
1077           $form->{"$ptr->{accno}_description"} = $ptr->{taxdescription};
1078           $form->{"$ptr->{accno}_taxnumber"}   = $ptr->{taxnumber};
1079           $form->{taxaccounts} .= "$ptr->{accno} ";
1080         }
1081
1082       }
1083
1084       chop $ref->{taxaccounts};
1085
1086       push @{ $form->{form_details} }, $ref;
1087       $stw->finish;
1088     }
1089     $sth->finish;
1090
1091   } else {
1092
1093     # get last name used
1094     $form->lastname_used($dbh, $myconfig, $form->{vc})
1095       unless $form->{"$form->{vc}_id"};
1096
1097   }
1098
1099   $form->{exchangerate} = $form->get_exchangerate($dbh, $form->{currency}, $form->{transdate}, ($form->{vc} eq 'customer') ? "buy" : "sell");
1100
1101   Common::webdav_folder($form);
1102
1103   $self->load_periodic_invoice_config($form);
1104
1105   my $rc = $dbh->commit;
1106
1107   $main::lxdebug->leave_sub();
1108
1109   return $rc;
1110 }
1111
1112 sub retrieve_simple {
1113   $main::lxdebug->enter_sub();
1114
1115   my $self     = shift;
1116   my %params   = @_;
1117
1118   Common::check_params(\%params, qw(id));
1119
1120   my $myconfig    = \%main::myconfig;
1121   my $form        = $main::form;
1122
1123   my $dbh         = $params{dbh} || $form->get_standard_dbh($myconfig);
1124
1125   my $oe_query    = qq|SELECT * FROM oe         WHERE id = ?|;
1126   my $oi_query    = qq|SELECT * FROM orderitems WHERE trans_id = ? ORDER BY position|;
1127
1128   my $order            = selectfirst_hashref_query($form, $dbh, $oe_query, conv_i($params{id}));
1129   $order->{orderitems} = selectall_hashref_query(  $form, $dbh, $oi_query, conv_i($params{id}));
1130
1131   $main::lxdebug->leave_sub();
1132
1133   return $order;
1134 }
1135
1136 sub order_details {
1137   $main::lxdebug->enter_sub();
1138
1139   my ($self, $myconfig, $form) = @_;
1140
1141   # connect to database
1142   my $dbh = $form->get_standard_dbh;
1143   my $query;
1144   my @values = ();
1145   my $sth;
1146   my $nodiscount;
1147   my $yesdiscount;
1148   my $nodiscount_subtotal = 0;
1149   my $discount_subtotal = 0;
1150   my $item;
1151   my $i;
1152   my @partsgroup = ();
1153   my $partsgroup;
1154   my $position = 0;
1155   my $subtotal_header = 0;
1156   my $subposition = 0;
1157   my %taxaccounts;
1158   my %taxbase;
1159   my $tax_rate;
1160   my $taxamount;
1161
1162   my (@project_ids);
1163
1164   push(@project_ids, $form->{"globalproject_id"}) if ($form->{"globalproject_id"});
1165
1166   $form->get_lists('price_factors' => 'ALL_PRICE_FACTORS',
1167                    'departments'   => 'ALL_DEPARTMENTS');
1168   my %price_factors;
1169
1170   foreach my $pfac (@{ $form->{ALL_PRICE_FACTORS} }) {
1171     $price_factors{$pfac->{id}}  = $pfac;
1172     $pfac->{factor}             *= 1;
1173     $pfac->{formatted_factor}    = $form->format_amount($myconfig, $pfac->{factor});
1174   }
1175
1176   # lookup department
1177   foreach my $dept (@{ $form->{ALL_DEPARTMENTS} }) {
1178     next unless $dept->{id} eq $form->{department_id};
1179     $form->{department} = $dept->{description};
1180     last;
1181   }
1182
1183   # sort items by partsgroup
1184   for $i (1 .. $form->{rowcount}) {
1185     $partsgroup = "";
1186     if ($form->{"partsgroup_$i"} && $form->{groupitems}) {
1187       $partsgroup = $form->{"partsgroup_$i"};
1188     }
1189     push @partsgroup, [$i, $partsgroup];
1190     push(@project_ids, $form->{"project_id_$i"}) if ($form->{"project_id_$i"});
1191   }
1192
1193   my $projects = [];
1194   my %projects_by_id;
1195   if (@project_ids) {
1196     $projects = SL::DB::Manager::Project->get_all(query => [ id => \@project_ids ]);
1197     %projects_by_id = map { $_->id => $_ } @$projects;
1198   }
1199
1200   if ($projects_by_id{$form->{"globalproject_id"}}) {
1201     $form->{globalprojectnumber} = $projects_by_id{$form->{"globalproject_id"}}->projectnumber;
1202     $form->{globalprojectdescription} = $projects_by_id{$form->{"globalproject_id"}}->description;
1203
1204     for (@{ $projects_by_id{$form->{"globalproject_id"}}->cvars_by_config }) {
1205       $form->{"project_cvar_" . $_->config->name} = $_->value_as_text;
1206     }
1207   }
1208
1209   $form->{discount} = [];
1210
1211   $form->{TEMPLATE_ARRAYS} = { };
1212   IC->prepare_parts_for_printing(myconfig => $myconfig, form => $form);
1213
1214   my $ic_cvar_configs = CVar->get_configs(module => 'IC');
1215   my $project_cvar_configs = CVar->get_configs(module => 'Projects');
1216
1217   my @arrays =
1218     qw(runningnumber number description longdescription qty ship unit bin
1219        partnotes serialnumber reqdate sellprice listprice netprice
1220        discount p_discount discount_sub nodiscount_sub
1221        linetotal  nodiscount_linetotal tax_rate projectnumber projectdescription
1222        price_factor price_factor_name partsgroup weight lineweight);
1223
1224   push @arrays, map { "ic_cvar_$_->{name}" } @{ $ic_cvar_configs };
1225   push @arrays, map { "project_cvar_$_->{name}" } @{ $project_cvar_configs };
1226
1227   my @tax_arrays = qw(taxbase tax taxdescription taxrate taxnumber);
1228
1229   map { $form->{TEMPLATE_ARRAYS}->{$_} = [] } (@arrays, @tax_arrays);
1230
1231   my $totalweight = 0;
1232   my $sameitem = "";
1233   foreach $item (sort { $a->[1] cmp $b->[1] } @partsgroup) {
1234     $i = $item->[0];
1235
1236     if ($item->[1] ne $sameitem) {
1237       push(@{ $form->{TEMPLATE_ARRAYS}->{description} }, qq|$item->[1]|);
1238       $sameitem = $item->[1];
1239
1240       map({ push(@{ $form->{TEMPLATE_ARRAYS}->{$_} }, "") } grep({ $_ ne "description" } @arrays));
1241     }
1242
1243     $form->{"qty_$i"} = $form->parse_amount($myconfig, $form->{"qty_$i"});
1244
1245     if ($form->{"id_$i"} != 0) {
1246
1247       # add number, description and qty to $form->{number}, ....
1248
1249       if ($form->{"subtotal_$i"} && !$subtotal_header) {
1250         $subtotal_header = $i;
1251         $position = int($position);
1252         $subposition = 0;
1253         $position++;
1254       } elsif ($subtotal_header) {
1255         $subposition += 1;
1256         $position = int($position);
1257         $position = $position.".".$subposition;
1258       } else {
1259         $position = int($position);
1260         $position++;
1261       }
1262
1263       my $price_factor = $price_factors{$form->{"price_factor_id_$i"}} || { 'factor' => 1 };
1264
1265       push @{ $form->{TEMPLATE_ARRAYS}->{runningnumber} },     $position;
1266       push @{ $form->{TEMPLATE_ARRAYS}->{number} },            $form->{"partnumber_$i"};
1267       push @{ $form->{TEMPLATE_ARRAYS}->{description} },       $form->{"description_$i"};
1268       push @{ $form->{TEMPLATE_ARRAYS}->{longdescription} },   $form->{"longdescription_$i"};
1269       push @{ $form->{TEMPLATE_ARRAYS}->{qty} },               $form->format_amount($myconfig, $form->{"qty_$i"});
1270       push @{ $form->{TEMPLATE_ARRAYS}->{qty_nofmt} },         $form->{"qty_$i"};
1271       push @{ $form->{TEMPLATE_ARRAYS}->{ship} },              $form->format_amount($myconfig, $form->{"ship_$i"});
1272       push @{ $form->{TEMPLATE_ARRAYS}->{ship_nofmt} },        $form->{"ship_$i"};
1273       push @{ $form->{TEMPLATE_ARRAYS}->{unit} },              $form->{"unit_$i"};
1274       push @{ $form->{TEMPLATE_ARRAYS}->{bin} },               $form->{"bin_$i"};
1275       push @{ $form->{TEMPLATE_ARRAYS}->{partnotes} },         $form->{"partnotes_$i"};
1276       push @{ $form->{TEMPLATE_ARRAYS}->{serialnumber} },      $form->{"serialnumber_$i"};
1277       push @{ $form->{TEMPLATE_ARRAYS}->{reqdate} },           $form->{"reqdate_$i"};
1278       push @{ $form->{TEMPLATE_ARRAYS}->{sellprice} },         $form->{"sellprice_$i"};
1279       push @{ $form->{TEMPLATE_ARRAYS}->{sellprice_nofmt} },   $form->parse_amount($myconfig, $form->{"sellprice_$i"});
1280       push @{ $form->{TEMPLATE_ARRAYS}->{listprice} },         $form->{"listprice_$i"};
1281       push @{ $form->{TEMPLATE_ARRAYS}->{price_factor} },      $price_factor->{formatted_factor};
1282       push @{ $form->{TEMPLATE_ARRAYS}->{price_factor_name} }, $price_factor->{description};
1283       push @{ $form->{TEMPLATE_ARRAYS}->{partsgroup} },        $form->{"partsgroup_$i"};
1284
1285       my $sellprice     = $form->parse_amount($myconfig, $form->{"sellprice_$i"});
1286       my ($dec)         = ($sellprice =~ /\.(\d+)/);
1287       my $decimalplaces = max 2, length($dec);
1288
1289       my $parsed_discount            = $form->parse_amount($myconfig, $form->{"discount_$i"});
1290
1291       my $linetotal_exact            = $form->{"qty_$i"} * $sellprice * (100 - $parsed_discount) / 100 / $price_factor->{factor};
1292       my $linetotal                  = $form->round_amount($linetotal_exact, 2);
1293
1294       my $nodiscount_exact_linetotal = $form->{"qty_$i"} * $sellprice                                  / $price_factor->{factor};
1295       my $nodiscount_linetotal       = $form->round_amount($nodiscount_exact_linetotal,2);
1296
1297       my $discount                   = $nodiscount_linetotal - $linetotal; # is always rounded because $nodiscount_linetotal and $linetotal are rounded
1298
1299       my $discount_round_error       = $discount + ($linetotal_exact - $nodiscount_exact_linetotal); # not used
1300
1301       $form->{"netprice_$i"}   = $form->round_amount($form->{"qty_$i"} ? ($linetotal / $form->{"qty_$i"}) : 0, $decimalplaces);
1302
1303       push @{ $form->{TEMPLATE_ARRAYS}->{netprice} },       ($form->{"netprice_$i"} != 0) ? $form->format_amount($myconfig, $form->{"netprice_$i"}, $decimalplaces) : '';
1304       push @{ $form->{TEMPLATE_ARRAYS}->{netprice_nofmt} }, ($form->{"netprice_$i"} != 0) ? $form->{"netprice_$i"} : '';
1305
1306       $linetotal = ($linetotal != 0) ? $linetotal : '';
1307
1308       push @{ $form->{TEMPLATE_ARRAYS}->{discount} },       ($discount != 0) ? $form->format_amount($myconfig, $discount * -1, 2) : '';
1309       push @{ $form->{TEMPLATE_ARRAYS}->{discount_nofmt} }, ($discount != 0) ? $discount * -1 : '';
1310       push @{ $form->{TEMPLATE_ARRAYS}->{p_discount} },     $form->{"discount_$i"};
1311
1312       $form->{ordtotal}         += $linetotal;
1313       $form->{nodiscount_total} += $nodiscount_linetotal;
1314       $form->{discount_total}   += $discount;
1315
1316       if ($subtotal_header) {
1317         $discount_subtotal   += $linetotal;
1318         $nodiscount_subtotal += $nodiscount_linetotal;
1319       }
1320
1321       if ($form->{"subtotal_$i"} && $subtotal_header && ($subtotal_header != $i)) {
1322         push @{ $form->{TEMPLATE_ARRAYS}->{discount_sub} },         $form->format_amount($myconfig, $discount_subtotal,   2);
1323         push @{ $form->{TEMPLATE_ARRAYS}->{discount_sub_nofmt} },   $discount_subtotal;
1324         push @{ $form->{TEMPLATE_ARRAYS}->{nodiscount_sub} },       $form->format_amount($myconfig, $nodiscount_subtotal, 2);
1325         push @{ $form->{TEMPLATE_ARRAYS}->{nodiscount_sub_nofmt} }, $nodiscount_subtotal;
1326
1327         $discount_subtotal   = 0;
1328         $nodiscount_subtotal = 0;
1329         $subtotal_header     = 0;
1330
1331       } else {
1332         push @{ $form->{TEMPLATE_ARRAYS}->{$_} }, "" for qw(discount_sub nodiscount_sub discount_sub_nofmt nodiscount_sub_nofmt);
1333       }
1334
1335       if (!$form->{"discount_$i"}) {
1336         $nodiscount += $linetotal;
1337       }
1338
1339       my $project = $projects_by_id{$form->{"project_id_$i"}} || SL::DB::Project->new;
1340
1341       push @{ $form->{TEMPLATE_ARRAYS}->{linetotal} },                  $form->format_amount($myconfig, $linetotal, 2);
1342       push @{ $form->{TEMPLATE_ARRAYS}->{linetotal_nofmt} },            $linetotal_exact;
1343       push @{ $form->{TEMPLATE_ARRAYS}->{nodiscount_linetotal} },       $form->format_amount($myconfig, $nodiscount_linetotal, 2);
1344       push @{ $form->{TEMPLATE_ARRAYS}->{nodiscount_linetotal_nofmt} }, $nodiscount_linetotal;
1345       push @{ $form->{TEMPLATE_ARRAYS}->{projectnumber} },              $project->projectnumber;
1346       push @{ $form->{TEMPLATE_ARRAYS}->{projectdescription} },         $project->description;
1347
1348       my $lineweight = $form->{"qty_$i"} * $form->{"weight_$i"};
1349       $totalweight += $lineweight;
1350       push @{ $form->{TEMPLATE_ARRAYS}->{weight} },            $form->format_amount($myconfig, $form->{"weight_$i"}, 3);
1351       push @{ $form->{TEMPLATE_ARRAYS}->{weight_nofmt} },      $form->{"weight_$i"};
1352       push @{ $form->{TEMPLATE_ARRAYS}->{lineweight} },        $form->format_amount($myconfig, $lineweight, 3);
1353       push @{ $form->{TEMPLATE_ARRAYS}->{lineweight_nofmt} },  $lineweight;
1354
1355       my ($taxamount, $taxbase);
1356       my $taxrate = 0;
1357
1358       map { $taxrate += $form->{"${_}_rate"} } split(/ /, $form->{"taxaccounts_$i"});
1359
1360       if ($form->{taxincluded}) {
1361
1362         # calculate tax
1363         $taxamount = $linetotal * $taxrate / (1 + $taxrate);
1364         $taxbase = $linetotal / (1 + $taxrate);
1365       } else {
1366         $taxamount = $linetotal * $taxrate;
1367         $taxbase   = $linetotal;
1368       }
1369
1370       if ($taxamount != 0) {
1371         foreach my $accno (split / /, $form->{"taxaccounts_$i"}) {
1372           $taxaccounts{$accno} += $taxamount * $form->{"${accno}_rate"} / $taxrate;
1373           $taxbase{$accno}     += $taxbase;
1374         }
1375       }
1376
1377       $tax_rate = $taxrate * 100;
1378       push(@{ $form->{TEMPLATE_ARRAYS}->{tax_rate} }, qq|$tax_rate|);
1379
1380       if ($form->{"assembly_$i"}) {
1381         $sameitem = "";
1382
1383         # get parts and push them onto the stack
1384         my $sortorder = "";
1385         if ($form->{groupitems}) {
1386           $sortorder = qq|ORDER BY pg.partsgroup, a.oid|;
1387         } else {
1388           $sortorder = qq|ORDER BY a.oid|;
1389         }
1390
1391         $query = qq|SELECT p.partnumber, p.description, p.unit, a.qty, | .
1392                  qq|pg.partsgroup | .
1393                  qq|FROM assembly a | .
1394                  qq|  JOIN parts p ON (a.parts_id = p.id) | .
1395                  qq|    LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id) | .
1396                  qq|    WHERE a.bom = '1' | .
1397                  qq|    AND a.id = ? | . $sortorder;
1398         @values = ($form->{"id_$i"});
1399         $sth = $dbh->prepare($query);
1400         $sth->execute(@values) || $form->dberror($query);
1401
1402         while (my $ref = $sth->fetchrow_hashref("NAME_lc")) {
1403           if ($form->{groupitems} && $ref->{partsgroup} ne $sameitem) {
1404             map({ push(@{ $form->{TEMPLATE_ARRAYS}->{$_} }, "") } grep({ $_ ne "description" } @arrays));
1405             $sameitem = ($ref->{partsgroup}) ? $ref->{partsgroup} : "--";
1406             push(@{ $form->{TEMPLATE_ARRAYS}->{description} }, $sameitem);
1407           }
1408
1409           push(@{ $form->{TEMPLATE_ARRAYS}->{description} }, $form->format_amount($myconfig, $ref->{qty} * $form->{"qty_$i"}) . qq|, $ref->{partnumber}, $ref->{description}|);
1410           map({ push(@{ $form->{TEMPLATE_ARRAYS}->{$_} }, "") } grep({ $_ ne "description" } @arrays));
1411         }
1412         $sth->finish;
1413       }
1414
1415       my $cvars;
1416       if (! $form->{"orderitems_id_$i"}) {
1417         # get values for CVars from master data for new items
1418         $cvars = CVar->get_custom_variables(dbh      => $dbh,
1419                                             module   => 'IC',
1420                                             trans_id => $form->{"id_$i"},
1421                                            );
1422       } else {
1423         # get values for CVars from custom_variables for existing items
1424         $cvars = CVar->get_custom_variables(dbh        => $dbh,
1425                                             module     => 'IC',
1426                                             sub_module => 'orderitems',
1427                                             trans_id   => $form->{"orderitems_id_$i"},
1428                                            );
1429       }
1430       # map only non-editable CVars to form (editable ones are already there)
1431       map { $form->{"ic_cvar_$_->{name}_$i"} = $_->{value} unless $_->{flag_editable} } @{ $cvars };
1432
1433       push @{ $form->{TEMPLATE_ARRAYS}->{"ic_cvar_$_->{name}"} },
1434         CVar->format_to_template(CVar->parse($form->{"ic_cvar_$_->{name}_$i"}, $_), $_)
1435           for @{ $ic_cvar_configs };
1436
1437       push @{ $form->{TEMPLATE_ARRAYS}->{"project_cvar_" . $_->config->name} }, $_->value_as_text for @{ $project->cvars_by_config };
1438     }
1439   }
1440
1441   $form->{totalweight}       = $form->format_amount($myconfig, $totalweight, 3);
1442   $form->{totalweight_nofmt} = $totalweight;
1443   my $defaults = AM->get_defaults();
1444   $form->{weightunit}        = $defaults->{weightunit};
1445
1446   my $tax = 0;
1447   foreach $item (sort keys %taxaccounts) {
1448     $tax += $taxamount = $form->round_amount($taxaccounts{$item}, 2);
1449
1450     push(@{ $form->{TEMPLATE_ARRAYS}->{taxbase} },        $form->format_amount($myconfig, $taxbase{$item}, 2));
1451     push(@{ $form->{TEMPLATE_ARRAYS}->{taxbase_nofmt} },  $taxbase{$item});
1452     push(@{ $form->{TEMPLATE_ARRAYS}->{tax} },            $form->format_amount($myconfig, $taxamount,      2));
1453     push(@{ $form->{TEMPLATE_ARRAYS}->{tax_nofmt} },      $taxamount);
1454     push(@{ $form->{TEMPLATE_ARRAYS}->{taxrate} },        $form->format_amount($myconfig, $form->{"${item}_rate"} * 100));
1455     push(@{ $form->{TEMPLATE_ARRAYS}->{taxrate_nofmt} },  $form->{"${item}_rate"} * 100);
1456     push(@{ $form->{TEMPLATE_ARRAYS}->{taxnumber} },      $form->{"${item}_taxnumber"});
1457
1458     my $tax_obj     = SL::DB::Manager::Tax->find_by(taxnumber => $form->{"${item}_taxnumber"});
1459     my $description = $tax_obj ? $tax_obj->translated_attribute('taxdescription',  $form->{language_id}, 0) : '';
1460     push(@{ $form->{TEMPLATE_ARRAYS}->{taxdescription} }, $description . q{ } . 100 * $form->{"${item}_rate"} . q{%});
1461   }
1462
1463   $form->{nodiscount_subtotal} = $form->format_amount($myconfig, $form->{nodiscount_total}, 2);
1464   $form->{discount_total}      = $form->format_amount($myconfig, $form->{discount_total}, 2);
1465   $form->{nodiscount}          = $form->format_amount($myconfig, $nodiscount, 2);
1466   $form->{yesdiscount}         = $form->format_amount($myconfig, $form->{nodiscount_total} - $nodiscount, 2);
1467
1468   if($form->{taxincluded}) {
1469     $form->{subtotal}       = $form->format_amount($myconfig, $form->{ordtotal} - $tax, 2);
1470     $form->{subtotal_nofmt} = $form->{ordtotal} - $tax;
1471   } else {
1472     $form->{subtotal}       = $form->format_amount($myconfig, $form->{ordtotal}, 2);
1473     $form->{subtotal_nofmt} = $form->{ordtotal};
1474   }
1475
1476   $form->{ordtotal} = ($form->{taxincluded}) ? $form->{ordtotal} : $form->{ordtotal} + $tax;
1477
1478   # format amounts
1479   $form->{quototal} = $form->{ordtotal} = $form->format_amount($myconfig, $form->{ordtotal}, 2);
1480
1481   if ($form->{type} =~ /_quotation/) {
1482     $form->set_payment_options($myconfig, $form->{quodate});
1483   } else {
1484     $form->set_payment_options($myconfig, $form->{orddate});
1485   }
1486
1487   $form->{username} = $myconfig->{name};
1488
1489   $dbh->disconnect;
1490
1491   $form->{delivery_term} = SL::DB::Manager::DeliveryTerm->find_by(id => $form->{delivery_term_id} || undef);
1492   $form->{delivery_term}->description_long($form->{delivery_term}->translated_attribute('description_long', $form->{language_id})) if $form->{delivery_term} && $form->{language_id};
1493
1494   $::form->{order} = SL::DB::Manager::Order->find_by(id => $::form->{id});
1495
1496   $main::lxdebug->leave_sub();
1497 }
1498
1499 sub project_description {
1500   $main::lxdebug->enter_sub();
1501
1502   my ($self, $dbh, $id) = @_;
1503
1504   my $query = qq|SELECT description FROM project WHERE id = ?|;
1505   my ($value) = selectrow_query($main::form, $dbh, $query, $id);
1506
1507   $main::lxdebug->leave_sub();
1508
1509   return $value;
1510 }
1511
1512 1;
1513
1514 __END__
1515
1516 =head1 NAME
1517
1518 OE.pm - Order entry module
1519
1520 =head1 DESCRIPTION
1521
1522 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>.
1523
1524 =head1 FUNCTIONS
1525
1526 =over 4
1527
1528 =item retrieve_simple PARAMS
1529
1530 simple OE retrieval by id. does not look up customer, vendor, units or any other stuff. only oe and orderitems.
1531
1532   my $order = retrieve_simple(id => 2);
1533
1534   $order => {
1535     %_OE_CONTENT,
1536     orderitems => [
1537       %_ORDERITEM_ROW_1,
1538       %_ORDERITEM_ROW_2,
1539       ...
1540     ]
1541   }
1542
1543 =back
1544
1545 =cut