SL/IS.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) 1998-2002
  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 # Inventory invoicing module
  32 #
  33 #======================================================================
  34
  35 package IS;
  36
  37 use List::Util qw(max);
  38
  39 use SL::AM;
  40 use SL::Common;
  41 use SL::DBUtils;
  42 use SL::MoreCommon;
  43 use Data::Dumper;
  44
  45 sub invoice_details {
  46   $main::lxdebug->enter_sub();
  47
  48   my ($self, $myconfig, $form, $locale) = @_;
  49
  50   $form->{duedate} ||= $form->{invdate};
  51
  52   # connect to database
  53   my $dbh = $form->dbconnect($myconfig);
  54   my $sth;
  55
  56   my $query = qq|SELECT date | . conv_dateq($form->{duedate}) . qq| - date | . conv_dateq($form->{invdate}) . qq| AS terms|;
  57   ($form->{terms}) = selectrow_query($form, $dbh, $query);
  58
  59   my (@project_ids, %projectnumbers);
  60
  61   push(@project_ids, $form->{"globalproject_id"}) if ($form->{"globalproject_id"});
  62
  63   $form->get_lists('price_factors' => 'ALL_PRICE_FACTORS');
  64   my %price_factors;
  65
  66   foreach my $pfac (@{ $form->{ALL_PRICE_FACTORS} }) {
  67     $price_factors{$pfac->{id}}  = $pfac;
  68     $pfac->{factor}             *= 1;
  69     $pfac->{formatted_factor}    = $form->format_amount($myconfig, $pfac->{factor});
  70   }
  71
  72   # sort items by partsgroup
  73   for $i (1 .. $form->{rowcount}) {
  74     $partsgroup = "";
  75     if ($form->{"partsgroup_$i"} && $form->{groupitems}) {
  76       $partsgroup = $form->{"partsgroup_$i"};
  77     }
  78     push @partsgroup, [$i, $partsgroup];
  79     push(@project_ids, $form->{"project_id_$i"}) if ($form->{"project_id_$i"});
  80   }
  81
  82   if (@project_ids) {
  83     $query = "SELECT id, projectnumber FROM project WHERE id IN (" .
  84       join(", ", map({ "?" } @project_ids)) . ")";
  85     $sth = $dbh->prepare($query);
  86     $sth->execute(@project_ids) ||
  87       $form->dberror($query . " (" . join(", ", @project_ids) . ")");
  88     while (my $ref = $sth->fetchrow_hashref()) {
  89       $projectnumbers{$ref->{id}} = $ref->{projectnumber};
  90     }
  91     $sth->finish();
  92   }
  93
  94   $form->{"globalprojectnumber"} =
  95     $projectnumbers{$form->{"globalproject_id"}};
  96
  97   my $tax = 0;
  98   my $item;
  99   my $i;
 100   my @partsgroup = ();
 101   my $partsgroup;
 102   my %oid = ('Pg'     => 'oid',
 103              'Oracle' => 'rowid');
 104
 105   # sort items by partsgroup
 106   for $i (1 .. $form->{rowcount}) {
 107     $partsgroup = "";
 108     if ($form->{"partsgroup_$i"} && $form->{groupitems}) {
 109       $partsgroup = $form->{"partsgroup_$i"};
 110     }
 111     push @partsgroup, [$i, $partsgroup];
 112   }
 113
 114   my $sameitem = "";
 115   my @taxaccounts;
 116   my %taxaccounts;
 117   my %taxbase;
 118   my $taxrate;
 119   my $taxamount;
 120   my $taxbase;
 121   my $taxdiff;
 122   my $nodiscount;
 123   my $yesdiscount;
 124   my $nodiscount_subtotal = 0;
 125   my $discount_subtotal = 0;
 126   my $position = 0;
 127   my $subtotal_header = 0;
 128   my $subposition = 0;
 129
 130   my @arrays =
 131     qw(runningnumber number description longdescription qty ship unit bin
 132        deliverydate_oe ordnumber_oe transdate_oe licensenumber validuntil
 133        partnotes serialnumber reqdate sellprice listprice netprice
 134        discount p_discount discount_sub nodiscount_sub
 135        linetotal  nodiscount_linetotal tax_rate projectnumber
 136        price_factor price_factor_name);
 137
 138   my @tax_arrays =
 139     qw(taxbase tax taxdescription taxrate taxnumber);
 140
 141   foreach $item (sort { $a->[1] cmp $b->[1] } @partsgroup) {
 142     $i = $item->[0];
 143
 144     if ($item->[1] ne $sameitem) {
 145       push(@{ $form->{description} }, qq|$item->[1]|);
 146       $sameitem = $item->[1];
 147
 148       map({ push(@{ $form->{$_} }, "") } grep({ $_ ne "description" } @arrays));
 149     }
 150
 151     $form->{"qty_$i"} = $form->parse_amount($myconfig, $form->{"qty_$i"});
 152
 153     if ($form->{"id_$i"} != 0) {
 154
 155       # add number, description and qty to $form->{number},
 156       if ($form->{"subtotal_$i"} && !$subtotal_header) {
 157         $subtotal_header = $i;
 158         $position = int($position);
 159         $subposition = 0;
 160         $position++;
 161       } elsif ($subtotal_header) {
 162         $subposition += 1;
 163         $position = int($position);
 164         $position = $position.".".$subposition;
 165       } else {
 166         $position = int($position);
 167         $position++;
 168       }
 169
 170       my $price_factor = $price_factors{$form->{"price_factor_id_$i"}} || { 'factor' => 1 };
 171
 172       push @{ $form->{runningnumber} },     $position;
 173       push @{ $form->{number} },            $form->{"partnumber_$i"};
 174       push @{ $form->{serialnumber} },      $form->{"serialnumber_$i"};
 175       push @{ $form->{bin} },               $form->{"bin_$i"};
 176       push @{ $form->{"partnotes"} },       $form->{"partnotes_$i"};
 177       push @{ $form->{description} },       $form->{"description_$i"};
 178       push @{ $form->{longdescription} },   $form->{"longdescription_$i"};
 179       push @{ $form->{qty} },               $form->format_amount($myconfig, $form->{"qty_$i"});
 180       push @{ $form->{unit} },              $form->{"unit_$i"};
 181       push @{ $form->{deliverydate_oe} },   $form->{"deliverydate_$i"};
 182       push @{ $form->{sellprice} },         $form->{"sellprice_$i"};
 183       push @{ $form->{ordnumber_oe} },      $form->{"ordnumber_$i"};
 184       push @{ $form->{transdate_oe} },      $form->{"transdate_$i"};
 185       push @{ $form->{invnumber} },         $form->{"invnumber"};
 186       push @{ $form->{invdate} },           $form->{"invdate"};
 187       push @{ $form->{price_factor} },      $price_factor->{formatted_factor};
 188       push @{ $form->{price_factor_name} }, $price_factor->{description};
 189
 190       if ($form->{lizenzen}) {
 191         if ($form->{"licensenumber_$i"}) {
 192           $query = qq|SELECT licensenumber, validuntil FROM license WHERE id = ?|;
 193           ($licensenumber, $validuntil) = selectrow_query($form, $dbh, $query, conv_i($form->{"licensenumber_$i"}));
 194           push(@{ $form->{licensenumber} }, $licensenumber);
 195           push(@{ $form->{validuntil} }, $locale->date($myconfig, $validuntil, 0));
 196
 197         } else {
 198           push(@{ $form->{licensenumber} }, "");
 199           push(@{ $form->{validuntil} },    "");
 200         }
 201       }
 202
 203       # listprice
 204       push(@{ $form->{listprice} }, $form->{"listprice_$i"});
 205
 206       my $sellprice     = $form->parse_amount($myconfig, $form->{"sellprice_$i"});
 207       my ($dec)         = ($sellprice =~ /\.(\d+)/);
 208       my $decimalplaces = max 2, length($dec);
 209
 210       my $discount             = $form->round_amount($form->{"qty_$i"} * $sellprice * $form->{"discount_$i"} / 100 / $price_factor->{factor}, $decimalplaces);
 211       my $linetotal            = $form->round_amount($form->{"qty_$i"} * $sellprice * (100 - $form->{"discount_$i"}) / 100 / $price_factor->{factor}, 2);
 212       my $nodiscount_linetotal = $form->round_amount($form->{"qty_$i"} * $sellprice / $price_factor->{factor}, 2);
 213       $form->{"netprice_$i"}   = $form->round_amount($form->{"qty_$i"} ? ($linetotal / $form->{"qty_$i"}) : 0, 2);
 214
 215       push @{ $form->{netprice} }, ($form->{"netprice_$i"} != 0) ? $form->format_amount($myconfig, $form->{"netprice_$i"}, $decimalplaces) : '';
 216
 217       $linetotal = ($linetotal != 0) ? $linetotal : '';
 218
 219       push @{ $form->{discount} },   ($discount  != 0) ? $form->format_amount($myconfig, $discount * -1, $decimalplaces) : '';
 220       push @{ $form->{p_discount} }, $form->{"discount_$i"};
 221
 222       $form->{total}            += $linetotal;
 223       $form->{nodiscount_total} += $nodiscount_linetotal;
 224       $form->{discount_total}   += $discount;
 225
 226       if ($subtotal_header) {
 227         $discount_subtotal   += $linetotal;
 228         $nodiscount_subtotal += $nodiscount_linetotal;
 229       }
 230
 231       if ($form->{"subtotal_$i"} && $subtotal_header && ($subtotal_header != $i)) {
 232         push @{ $form->{discount_sub} },   $form->format_amount($myconfig, $discount_subtotal,   2);
 233         push @{ $form->{nodiscount_sub} }, $form->format_amount($myconfig, $nodiscount_subtotal, 2);
 234
 235         $discount_subtotal   = 0;
 236         $nodiscount_subtotal = 0;
 237         $subtotal_header     = 0;
 238
 239       } else {
 240         push @{ $form->{discount_sub} },   "";
 241         push @{ $form->{nodiscount_sub} }, "";
 242       }
 243
 244       if (!$form->{"discount_$i"}) {
 245         $nodiscount += $linetotal;
 246       }
 247
 248       push @{ $form->{linetotal} }, $form->format_amount($myconfig, $linetotal, 2);
 249       push @{ $form->{nodiscount_linetotal} }, $form->format_amount($myconfig, $nodiscount_linetotal, 2);
 250
 251       push(@{ $form->{projectnumber} }, $projectnumbers{$form->{"project_id_$i"}});
 252
 253       @taxaccounts = split(/ /, $form->{"taxaccounts_$i"});
 254       $taxrate     = 0;
 255       $taxdiff     = 0;
 256
 257       map { $taxrate += $form->{"${_}_rate"} } @taxaccounts;
 258
 259       if ($form->{taxincluded}) {
 260
 261         # calculate tax
 262         $taxamount = $linetotal * $taxrate / (1 + $taxrate);
 263         $taxbase = $linetotal - $taxamount;
 264       } else {
 265         $taxamount = $linetotal * $taxrate;
 266         $taxbase   = $linetotal;
 267       }
 268
 269       if ($form->round_amount($taxrate, 7) == 0) {
 270         if ($form->{taxincluded}) {
 271           foreach $item (@taxaccounts) {
 272             $taxamount =
 273               $form->round_amount($linetotal * $form->{"${item}_rate"} /
 274                                     (1 + abs($form->{"${item}_rate"})),
 275                                   2);
 276
 277             $taxaccounts{$item} += $taxamount;
 278             $taxdiff            += $taxamount;
 279
 280             $taxbase{$item} += $taxbase;
 281           }
 282           $taxaccounts{ $taxaccounts[0] } += $taxdiff;
 283         } else {
 284           foreach $item (@taxaccounts) {
 285             $taxaccounts{$item} += $linetotal * $form->{"${item}_rate"};
 286             $taxbase{$item}     += $taxbase;
 287           }
 288         }
 289       } else {
 290         foreach $item (@taxaccounts) {
 291           $taxaccounts{$item} +=
 292             $taxamount * $form->{"${item}_rate"} / $taxrate;
 293           $taxbase{$item} += $taxbase;
 294         }
 295       }
 296       $tax_rate = $taxrate * 100;
 297       push(@{ $form->{tax_rate} }, qq|$tax_rate|);
 298       if ($form->{"assembly_$i"}) {
 299         $sameitem = "";
 300
 301         # get parts and push them onto the stack
 302         my $sortorder = "";
 303         if ($form->{groupitems}) {
 304           $sortorder =
 305             qq|ORDER BY pg.partsgroup, a.$oid{$myconfig->{dbdriver}}|;
 306         } else {
 307           $sortorder = qq|ORDER BY a.$oid{$myconfig->{dbdriver}}|;
 308         }
 309
 310         $query =
 311           qq|SELECT p.partnumber, p.description, p.unit, a.qty, pg.partsgroup
 312              FROM assembly a
 313              JOIN parts p ON (a.parts_id = p.id)
 314              LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id)
 315              WHERE (a.bom = '1') AND (a.id = ?) $sortorder|;
 316         $sth = prepare_execute_query($form, $dbh, $query, conv_i($form->{"id_$i"}));
 317
 318         while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
 319           if ($form->{groupitems} && $ref->{partsgroup} ne $sameitem) {
 320             map({ push(@{ $form->{$_} }, "") } grep({ $_ ne "description" } @arrays));
 321             $sameitem = ($ref->{partsgroup}) ? $ref->{partsgroup} : "--";
 322             push(@{ $form->{description} }, $sameitem);
 323           }
 324
 325           map { $form->{"a_$_"} = $ref->{$_} } qw(partnumber description);
 326
 327           push(@{ $form->{description} },
 328                $form->format_amount($myconfig, $ref->{qty} * $form->{"qty_$i"}
 329                  )
 330                  . qq| -- $form->{"a_partnumber"}, $form->{"a_description"}|);
 331           map({ push(@{ $form->{$_} }, "") } grep({ $_ ne "description" } @arrays));
 332
 333         }
 334         $sth->finish;
 335       }
 336     }
 337   }
 338
 339   foreach my $item (sort keys %taxaccounts) {
 340     push(@{ $form->{taxbase} },
 341           $form->format_amount($myconfig, $taxbase{$item}, 2));
 342
 343     $tax += $taxamount = $form->round_amount($taxaccounts{$item}, 2);
 344
 345     push(@{ $form->{tax} }, $form->format_amount($myconfig, $taxamount, 2));
 346     push(@{ $form->{taxdescription} }, $form->{"${item}_description"}  . q{ } . 100 * $form->{"${item}_rate"} . q{%});
 347     push(@{ $form->{taxrate} },
 348           $form->format_amount($myconfig, $form->{"${item}_rate"} * 100));
 349     push(@{ $form->{taxnumber} }, $form->{"${item}_taxnumber"});
 350   }
 351
 352   for my $i (1 .. $form->{paidaccounts}) {
 353     if ($form->{"paid_$i"}) {
 354       push(@{ $form->{payment} }, $form->{"paid_$i"});
 355       my ($accno, $description) = split(/--/, $form->{"AR_paid_$i"});
 356       push(@{ $form->{paymentaccount} }, $description);
 357       push(@{ $form->{paymentdate} },    $form->{"datepaid_$i"});
 358       push(@{ $form->{paymentsource} },  $form->{"source_$i"});
 359
 360       $form->{paid} += $form->parse_amount($myconfig, $form->{"paid_$i"});
 361     }
 362   }
 363   if($form->{taxincluded}) {
 364     $form->{subtotal} = $form->format_amount($myconfig, $form->{total} - $tax, 2);
 365   }
 366   else {
 367     $form->{subtotal} = $form->format_amount($myconfig, $form->{total}, 2);
 368   }
 369
 370   $form->{nodiscount_subtotal} = $form->format_amount($myconfig, $form->{nodiscount_total}, 2);
 371   $form->{discount_total}      = $form->format_amount($myconfig, $form->{discount_total}, 2);
 372   $form->{nodiscount}          = $form->format_amount($myconfig, $nodiscount, 2);
 373   $form->{yesdiscount}         = $form->format_amount($myconfig, $form->{nodiscount_total} - $nodiscount, 2);
 374
 375   $form->{invtotal} = ($form->{taxincluded}) ? $form->{total} : $form->{total} + $tax;
 376   $form->{total}    = $form->format_amount($myconfig, $form->{invtotal} - $form->{paid}, 2);
 377
 378   $form->{invtotal} = $form->format_amount($myconfig, $form->{invtotal}, 2);
 379   $form->{paid}     = $form->format_amount($myconfig, $form->{paid}, 2);
 380
 381   $form->set_payment_options($myconfig, $form->{invdate});
 382
 383   $form->{username} = $myconfig->{name};
 384
 385   $dbh->disconnect;
 386
 387   $main::lxdebug->leave_sub();
 388 }
 389
 390 sub project_description {
 391   $main::lxdebug->enter_sub();
 392
 393   my ($self, $dbh, $id) = @_;
 394
 395   my $query = qq|SELECT description FROM project WHERE id = ?|;
 396   my ($description) = selectrow_query($form, $dbh, $query, conv_i($id));
 397
 398   $main::lxdebug->leave_sub();
 399
 400   return $_;
 401 }
 402
 403 sub customer_details {
 404   $main::lxdebug->enter_sub();
 405
 406   my ($self, $myconfig, $form, @wanted_vars) = @_;
 407
 408   # connect to database
 409   my $dbh = $form->dbconnect($myconfig);
 410
 411   # get contact id, set it if nessessary
 412   $form->{cp_id} *= 1;
 413
 414   my @values =  (conv_i($form->{customer_id}));
 415
 416   my $where = "";
 417   if ($form->{cp_id}) {
 418     $where = qq| AND (cp.cp_id = ?) |;
 419     push(@values, conv_i($form->{cp_id}));
 420   }
 421
 422   # get rest for the customer
 423   my $query =
 424     qq|SELECT ct.*, cp.*, ct.notes as customernotes,
 425          ct.phone AS customerphone, ct.fax AS customerfax, ct.email AS customeremail
 426        FROM customer ct
 427        LEFT JOIN contacts cp on ct.id = cp.cp_cv_id
 428        WHERE (ct.id = ?) $where
 429        ORDER BY cp.cp_id
 430        LIMIT 1|;
 431   my $ref = selectfirst_hashref_query($form, $dbh, $query, @values);
 432
 433   # remove id and taxincluded before copy back
 434   delete @$ref{qw(id taxincluded)};
 435
 436   @wanted_vars = grep({ $_ } @wanted_vars);
 437   if (scalar(@wanted_vars) > 0) {
 438     my %h_wanted_vars;
 439     map({ $h_wanted_vars{$_} = 1; } @wanted_vars);
 440     map({ delete($ref->{$_}) unless ($h_wanted_vars{$_}); } keys(%{$ref}));
 441   }
 442
 443   map { $form->{$_} = $ref->{$_} } keys %$ref;
 444
 445   if ($form->{delivery_customer_id}) {
 446     $query =
 447       qq|SELECT *, notes as customernotes
 448          FROM customer
 449          WHERE id = ?
 450          LIMIT 1|;
 451     $ref = selectfirst_hashref_query($form, $dbh, $query, conv_i($form->{delivery_customer_id}));
 452
 453     map { $form->{"dc_$_"} = $ref->{$_} } keys %$ref;
 454   }
 455
 456   if ($form->{delivery_vendor_id}) {
 457     $query =
 458       qq|SELECT *, notes as customernotes
 459          FROM customer
 460          WHERE id = ?
 461          LIMIT 1|;
 462     $ref = selectfirst_hashref_query($form, $dbh, $query, conv_i($form->{delivery_vendor_id}));
 463
 464     map { $form->{"dv_$_"} = $ref->{$_} } keys %$ref;
 465   }
 466   $dbh->disconnect;
 467
 468   $main::lxdebug->leave_sub();
 469 }
 470
 471 sub post_invoice {
 472   $main::lxdebug->enter_sub();
 473
 474   my ($self, $myconfig, $form, $provided_dbh, $payments_only) = @_;
 475
 476   # connect to database, turn off autocommit
 477   my $dbh = $provided_dbh ? $provided_dbh : $form->dbconnect_noauto($myconfig);
 478
 479   my ($query, $sth, $null, $project_id, @values);
 480   my $exchangerate = 0;
 481
 482   if (!$form->{employee_id}) {
 483     $form->get_employee($dbh);
 484   }
 485
 486   $form->{defaultcurrency} = $form->get_default_currency($myconfig);
 487
 488   ($null, $form->{department_id}) = split(/--/, $form->{department});
 489
 490   my $all_units = AM->retrieve_units($myconfig, $form);
 491
 492   if (!$payments_only) {
 493     if ($form->{id}) {
 494       &reverse_invoice($dbh, $form);
 495
 496     } else {
 497       $query = qq|SELECT nextval('glid')|;
 498       ($form->{"id"}) = selectrow_query($form, $dbh, $query);
 499
 500       $query = qq|INSERT INTO ar (id, invnumber) VALUES (?, ?)|;
 501       do_query($form, $dbh, $query, $form->{"id"}, $form->{"id"});
 502
 503       if (!$form->{invnumber}) {
 504         $form->{invnumber} =
 505           $form->update_defaults($myconfig, $form->{type} eq "credit_note" ?
 506                                  "cnnumber" : "invnumber", $dbh);
 507       }
 508     }
 509   }
 510
 511   my ($netamount, $invoicediff) = (0, 0);
 512   my ($amount, $linetotal, $lastincomeaccno);
 513
 514   my ($currencies)    = selectfirst_array_query($form, $dbh, qq|SELECT curr FROM defaults|);
 515   my $defaultcurrency = (split m/:/, $currencies)[0];
 516
 517   if ($form->{currency} eq $defaultcurrency) {
 518     $form->{exchangerate} = 1;
 519   } else {
 520     $exchangerate =
 521       $form->check_exchangerate($myconfig, $form->{currency},
 522                                 $form->{transdate}, 'buy');
 523   }
 524
 525   $form->{exchangerate} =
 526     ($exchangerate)
 527     ? $exchangerate
 528     : $form->parse_amount($myconfig, $form->{exchangerate});
 529
 530   $form->{expense_inventory} = "";
 531
 532   my %baseunits;
 533
 534   $form->get_lists('price_factors' => 'ALL_PRICE_FACTORS');
 535   my %price_factors = map { $_->{id} => $_->{factor} } @{ $form->{ALL_PRICE_FACTORS} };
 536   my $price_factor;
 537
 538   foreach my $i (1 .. $form->{rowcount}) {
 539     if ($form->{type} eq "credit_note") {
 540       $form->{"qty_$i"} = $form->parse_amount($myconfig, $form->{"qty_$i"}) * -1;
 541       $form->{shipped} = 1;
 542     } else {
 543       $form->{"qty_$i"} = $form->parse_amount($myconfig, $form->{"qty_$i"});
 544     }
 545     my $basefactor;
 546     my $basqty;
 547
 548     $form->{"marge_percent_$i"} = $form->parse_amount($myconfig, $form->{"marge_percent_$i"}) * 1;
 549     $form->{"marge_total_$i"} = $form->parse_amount($myconfig, $form->{"marge_total_$i"}) * 1;
 550     $form->{"lastcost_$i"} = $form->{"lastcost_$i"} * 1;
 551
 552     if ($form->{storno}) {
 553       $form->{"qty_$i"} *= -1;
 554     }
 555
 556     if ($form->{"id_$i"}) {
 557       my $item_unit;
 558
 559       if (defined($baseunits{$form->{"id_$i"}})) {
 560         $item_unit = $baseunits{$form->{"id_$i"}};
 561       } else {
 562         # get item baseunit
 563         $query = qq|SELECT unit FROM parts WHERE id = ?|;
 564         ($item_unit) = selectrow_query($form, $dbh, $query, conv_i($form->{"id_$i"}));
 565         $baseunits{$form->{"id_$i"}} = $item_unit;
 566       }
 567
 568       if (defined($all_units->{$item_unit}->{factor})
 569           && ($all_units->{$item_unit}->{factor} ne '')
 570           && ($all_units->{$item_unit}->{factor} != 0)) {
 571         $basefactor = $all_units->{$form->{"unit_$i"}}->{factor} / $all_units->{$item_unit}->{factor};
 572       } else {
 573         $basefactor = 1;
 574       }
 575       $baseqty = $form->{"qty_$i"} * $basefactor;
 576
 577       my ($allocated, $taxrate) = (0, 0);
 578       my $taxamount;
 579
 580       # add tax rates
 581       map { $taxrate += $form->{"${_}_rate"} } split(/ /, $form->{"taxaccounts_$i"});
 582
 583       # keep entered selling price
 584       my $fxsellprice =
 585         $form->parse_amount($myconfig, $form->{"sellprice_$i"});
 586
 587       my ($dec) = ($fxsellprice =~ /\.(\d+)/);
 588       $dec = length $dec;
 589       my $decimalplaces = ($dec > 2) ? $dec : 2;
 590
 591       # undo discount formatting
 592       $form->{"discount_$i"} = $form->parse_amount($myconfig, $form->{"discount_$i"}) / 100;
 593
 594       # deduct discount
 595       $form->{"sellprice_$i"} = $fxsellprice * (1 - $form->{"discount_$i"});
 596
 597       # round linetotal to 2 decimal places
 598       $price_factor = $price_factors{ $form->{"price_factor_id_$i"} } || 1;
 599       $linetotal    = $form->round_amount($form->{"sellprice_$i"} * $form->{"qty_$i"} / $price_factor, 2);
 600
 601       if ($form->{taxincluded}) {
 602         $taxamount = $linetotal * ($taxrate / (1 + $taxrate));
 603         $form->{"sellprice_$i"} =
 604           $form->{"sellprice_$i"} * (1 / (1 + $taxrate));
 605       } else {
 606         $taxamount = $linetotal * $taxrate;
 607       }
 608
 609       $netamount += $linetotal;
 610
 611       if ($taxamount != 0) {
 612         map {
 613           $form->{amount}{ $form->{id} }{$_} +=
 614             $taxamount * $form->{"${_}_rate"} / $taxrate
 615         } split(/ /, $form->{"taxaccounts_$i"});
 616       }
 617
 618       # add amount to income, $form->{amount}{trans_id}{accno}
 619       $amount = $form->{"sellprice_$i"} * $form->{"qty_$i"} * $form->{exchangerate} / $price_factor;
 620
 621       $linetotal = $form->round_amount($form->{"sellprice_$i"} * $form->{"qty_$i"} / $price_factor, 2) * $form->{exchangerate};
 622       $linetotal = $form->round_amount($linetotal, 2);
 623
 624       # this is the difference from the inventory
 625       $invoicediff += ($amount - $linetotal);
 626
 627       $form->{amount}{ $form->{id} }{ $form->{"income_accno_$i"} } +=
 628         $linetotal;
 629
 630       $lastincomeaccno = $form->{"income_accno_$i"};
 631
 632       # adjust and round sellprice
 633       $form->{"sellprice_$i"} =
 634         $form->round_amount($form->{"sellprice_$i"} * $form->{exchangerate},
 635                             $decimalplaces);
 636
 637       next if $payments_only;
 638
 639       if ($form->{"inventory_accno_$i"} || $form->{"assembly_$i"}) {
 640
 641         # adjust parts onhand quantity
 642
 643         if ($form->{"assembly_$i"}) {
 644
 645           # do not update if assembly consists of all services
 646           $query =
 647             qq|SELECT sum(p.inventory_accno_id)
 648                FROM parts p
 649                JOIN assembly a ON (a.parts_id = p.id)
 650                WHERE a.id = ?|;
 651           $sth = prepare_execute_query($form, $dbh, $query, conv_i($form->{"id_$i"}));
 652
 653           if ($sth->fetchrow_array) {
 654             $form->update_balance($dbh, "parts", "onhand", qq|id = ?|,
 655                                   $baseqty * -1, $form->{"id_$i"})
 656               unless $form->{shipped};
 657           }
 658           $sth->finish;
 659
 660           # record assembly item as allocated
 661           &process_assembly($dbh, $form, $form->{"id_$i"}, $baseqty);
 662         } else {
 663           $form->update_balance($dbh, "parts", "onhand", qq|id = ?|,
 664                                 $baseqty * -1, $form->{"id_$i"})
 665             unless $form->{shipped};
 666
 667           $allocated = &cogs($dbh, $form, $form->{"id_$i"}, $baseqty, $basefactor, $i);
 668         }
 669       }
 670
 671       # get pricegroup_id and save it
 672       ($null, my $pricegroup_id) = split(/--/, $form->{"sellprice_pg_$i"});
 673       $pricegroup_id *= 1;
 674
 675       # save detail record in invoice table
 676       $query =
 677         qq|INSERT INTO invoice (trans_id, parts_id, description, longdescription, qty,
 678                                 sellprice, fxsellprice, discount, allocated, assemblyitem,
 679                                 unit, deliverydate, project_id, serialnumber, pricegroup_id,
 680                                 ordnumber, transdate, cusordnumber, base_qty, subtotal,
 681                                 marge_percent, marge_total, lastcost,
 682                                 price_factor_id, price_factor, marge_price_factor)
 683            VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?,
 684                    (SELECT factor FROM price_factors WHERE id = ?), ?)|;
 685
 686       @values = (conv_i($form->{id}), conv_i($form->{"id_$i"}),
 687                  $form->{"description_$i"}, $form->{"longdescription_$i"}, $form->{"qty_$i"},
 688                  $form->{"sellprice_$i"}, $fxsellprice,
 689                  $form->{"discount_$i"}, $allocated, 'f',
 690                  $form->{"unit_$i"}, conv_date($form->{"deliverydate_$i"}), conv_i($form->{"project_id_$i"}),
 691                  $form->{"serialnumber_$i"}, conv_i($pricegroup_id),
 692                  $form->{"ordnumber_$i"}, conv_date($form->{"transdate_$i"}),
 693                  $form->{"cusordnumber_$i"}, $baseqty, $form->{"subtotal_$i"} ? 't' : 'f',
 694                  $form->{"marge_percent_$i"}, $form->{"marge_total_$i"},
 695                  $form->{"lastcost_$i"},
 696                  conv_i($form->{"price_factor_id_$i"}), conv_i($form->{"price_factor_id_$i"}),
 697                  conv_i($form->{"marge_price_factor_$i"}));
 698       do_query($form, $dbh, $query, @values);
 699
 700       if ($form->{lizenzen} && $form->{"licensenumber_$i"}) {
 701         $query =
 702           qq|INSERT INTO licenseinvoice (trans_id, license_id)
 703              VALUES ((SELECT id FROM invoice WHERE trans_id = ? ORDER BY oid DESC LIMIT 1), ?)|;
 704         @values = (conv_i($form->{"id"}), conv_i($form->{"licensenumber_$i"}));
 705         do_query($form, $dbh, $query, @values);
 706       }
 707     }
 708   }
 709
 710   $form->{datepaid} = $form->{invdate};
 711
 712   # total payments, don't move we need it here
 713   for my $i (1 .. $form->{paidaccounts}) {
 714     if ($form->{type} eq "credit_note") {
 715       $form->{"paid_$i"} = $form->parse_amount($myconfig, $form->{"paid_$i"}) * -1;
 716     } else {
 717       $form->{"paid_$i"} = $form->parse_amount($myconfig, $form->{"paid_$i"});
 718     }
 719     $form->{paid} += $form->{"paid_$i"};
 720     $form->{datepaid} = $form->{"datepaid_$i"} if ($form->{"datepaid_$i"});
 721   }
 722
 723   my ($tax, $diff) = (0, 0);
 724
 725   $netamount = $form->round_amount($netamount, 2);
 726
 727   # figure out rounding errors for total amount vs netamount + taxes
 728   if ($form->{taxincluded}) {
 729
 730     $amount = $form->round_amount($netamount * $form->{exchangerate}, 2);
 731     $diff += $amount - $netamount * $form->{exchangerate};
 732     $netamount = $amount;
 733
 734     foreach my $item (split(/ /, $form->{taxaccounts})) {
 735       $amount = $form->{amount}{ $form->{id} }{$item} * $form->{exchangerate};
 736       $form->{amount}{ $form->{id} }{$item} = $form->round_amount($amount, 2);
 737       $tax += $form->{amount}{ $form->{id} }{$item};
 738       $netamount -= $form->{amount}{ $form->{id} }{$item};
 739     }
 740
 741     $invoicediff += $diff;
 742     ######## this only applies to tax included
 743     if ($lastincomeaccno) {
 744       $form->{amount}{ $form->{id} }{$lastincomeaccno} += $invoicediff;
 745     }
 746
 747   } else {
 748     $amount    = $form->round_amount($netamount * $form->{exchangerate}, 2);
 749     $diff      = $amount - $netamount * $form->{exchangerate};
 750     $netamount = $amount;
 751     foreach my $item (split(/ /, $form->{taxaccounts})) {
 752       $form->{amount}{ $form->{id} }{$item} =
 753         $form->round_amount($form->{amount}{ $form->{id} }{$item}, 2);
 754       $amount =
 755         $form->round_amount(
 756                  $form->{amount}{ $form->{id} }{$item} * $form->{exchangerate},
 757                  2);
 758       $diff +=
 759         $amount - $form->{amount}{ $form->{id} }{$item} *
 760         $form->{exchangerate};
 761       $form->{amount}{ $form->{id} }{$item} = $form->round_amount($amount, 2);
 762       $tax += $form->{amount}{ $form->{id} }{$item};
 763     }
 764   }
 765
 766   $form->{amount}{ $form->{id} }{ $form->{AR} } = $netamount + $tax;
 767   $form->{paid} =
 768     $form->round_amount($form->{paid} * $form->{exchangerate} + $diff, 2);
 769
 770   # reverse AR
 771   $form->{amount}{ $form->{id} }{ $form->{AR} } *= -1;
 772
 773   # update exchangerate
 774   if (($form->{currency} ne $defaultcurrency) && !$exchangerate) {
 775     $form->update_exchangerate($dbh, $form->{currency}, $form->{invdate},
 776                                $form->{exchangerate}, 0);
 777   }
 778
 779   $project_id = conv_i($form->{"globalproject_id"});
 780
 781   foreach my $trans_id (keys %{ $form->{amount} }) {
 782     foreach my $accno (keys %{ $form->{amount}{$trans_id} }) {
 783       next unless ($form->{expense_inventory} =~ /\Q$accno\E/);
 784
 785       $form->{amount}{$trans_id}{$accno} = $form->round_amount($form->{amount}{$trans_id}{$accno}, 2);
 786
 787       if (!$payments_only && ($form->{amount}{$trans_id}{$accno} != 0)) {
 788         $query =
 789           qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, taxkey, project_id)
 790              VALUES (?, (SELECT id FROM chart WHERE accno = ?), ?, ?,
 791                      (SELECT taxkey_id  FROM chart WHERE accno = ?), ?)|;
 792         @values = (conv_i($trans_id), $accno, $form->{amount}{$trans_id}{$accno}, conv_date($form->{invdate}), $accno, conv_i($project_id));
 793         do_query($form, $dbh, $query, @values);
 794         $form->{amount}{$trans_id}{$accno} = 0;
 795       }
 796     }
 797
 798     foreach my $accno (keys %{ $form->{amount}{$trans_id} }) {
 799       $form->{amount}{$trans_id}{$accno} = $form->round_amount($form->{amount}{$trans_id}{$accno}, 2);
 800
 801       if (!$payments_only && ($form->{amount}{$trans_id}{$accno} != 0)) {
 802         $query =
 803           qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, taxkey, project_id)
 804              VALUES (?, (SELECT id FROM chart WHERE accno = ?), ?, ?,
 805                      (SELECT taxkey_id FROM chart WHERE accno = ?), ?)|;
 806         @values = (conv_i($trans_id), $accno, $form->{amount}{$trans_id}{$accno}, conv_date($form->{invdate}), $accno, conv_i($project_id));
 807         do_query($form, $dbh, $query, @values);
 808       }
 809     }
 810   }
 811
 812   # deduct payment differences from diff
 813   for my $i (1 .. $form->{paidaccounts}) {
 814     if ($form->{"paid_$i"} != 0) {
 815       $amount =
 816         $form->round_amount($form->{"paid_$i"} * $form->{exchangerate}, 2);
 817       $diff -= $amount - $form->{"paid_$i"} * $form->{exchangerate};
 818     }
 819   }
 820
 821   # record payments and offsetting AR
 822   if (!$form->{storno}) {
 823     for my $i (1 .. $form->{paidaccounts}) {
 824
 825       next if ($form->{"paid_$i"} == 0);
 826
 827       my ($accno) = split(/--/, $form->{"AR_paid_$i"});
 828       $form->{"datepaid_$i"} = $form->{invdate}
 829       unless ($form->{"datepaid_$i"});
 830       $form->{datepaid} = $form->{"datepaid_$i"};
 831
 832       $exchangerate = 0;
 833
 834       if ($form->{currency} eq $defaultcurrency) {
 835         $form->{"exchangerate_$i"} = 1;
 836       } else {
 837         $exchangerate =
 838           $form->check_exchangerate($myconfig, $form->{currency},
 839                                     $form->{"datepaid_$i"}, 'buy');
 840
 841         $form->{"exchangerate_$i"} =
 842           $exchangerate ? $exchangerate
 843             : $form->parse_amount($myconfig, $form->{"exchangerate_$i"});
 844       }
 845
 846       # record AR
 847       $amount = $form->round_amount($form->{"paid_$i"} * $form->{exchangerate} + $diff, 2);
 848
 849       if ($form->{amount}{ $form->{id} }{ $form->{AR} } != 0) {
 850         $query =
 851         qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, taxkey, project_id)
 852            VALUES (?, (SELECT id FROM chart WHERE accno = ?), ?, ?,
 853                    (SELECT taxkey_id FROM chart WHERE accno = ?), ?)|;
 854         @values = (conv_i($form->{"id"}), $form->{AR}, $amount, $form->{"datepaid_$i"}, $form->{AR}, $project_id);
 855         do_query($form, $dbh, $query, @values);
 856       }
 857
 858       # record payment
 859       $form->{"paid_$i"} *= -1;
 860
 861       $query =
 862       qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, source, memo, taxkey, project_id)
 863          VALUES (?, (SELECT id FROM chart WHERE accno = ?), ?, ?, ?, ?,
 864                  (SELECT taxkey_id FROM chart WHERE accno = ?), ?)|;
 865       @values = (conv_i($form->{"id"}), $accno, $form->{"paid_$i"}, $form->{"datepaid_$i"},
 866                  $form->{"source_$i"}, $form->{"memo_$i"}, $accno, $project_id);
 867       do_query($form, $dbh, $query, @values);
 868
 869       # exchangerate difference
 870       $form->{fx}{$accno}{ $form->{"datepaid_$i"} } +=
 871       $form->{"paid_$i"} * ($form->{"exchangerate_$i"} - 1) + $diff;
 872
 873       # gain/loss
 874       $amount =
 875       $form->{"paid_$i"} * $form->{exchangerate} - $form->{"paid_$i"} *
 876       $form->{"exchangerate_$i"};
 877       if ($amount > 0) {
 878         $form->{fx}{ $form->{fxgain_accno} }{ $form->{"datepaid_$i"} } +=
 879         $amount;
 880       } else {
 881         $form->{fx}{ $form->{fxloss_accno} }{ $form->{"datepaid_$i"} } +=
 882         $amount;
 883       }
 884
 885       $diff = 0;
 886
 887       # update exchange rate
 888       if (($form->{currency} ne $defaultcurrency) && !$exchangerate) {
 889         $form->update_exchangerate($dbh, $form->{currency},
 890                                    $form->{"datepaid_$i"},
 891                                    $form->{"exchangerate_$i"}, 0);
 892       }
 893     }
 894
 895   } else {                      # if (!$form->{storno})
 896     $form->{marge_total} *= -1;
 897   }
 898
 899   if ($payments_only) {
 900     $query = qq|UPDATE ar SET paid = ?, datepaid = ? WHERE id = ?|;
 901     do_query($form, $dbh, $query,  $form->{paid}, $form->{paid} ? conv_date($form->{datepaid}) : undef, conv_i($form->{id}));
 902
 903     if (!$provided_dbh) {
 904       $dbh->commit();
 905       $dbh->disconnect();
 906     }
 907
 908     $main::lxdebug->leave_sub();
 909     return;
 910   }
 911
 912   # record exchange rate differences and gains/losses
 913   foreach my $accno (keys %{ $form->{fx} }) {
 914     foreach my $transdate (keys %{ $form->{fx}{$accno} }) {
 915       if (
 916           ($form->{fx}{$accno}{$transdate} =
 917            $form->round_amount($form->{fx}{$accno}{$transdate}, 2)
 918           ) != 0
 919         ) {
 920
 921         $query =
 922           qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, cleared, fx_transaction, taxkey, project_id)
 923              VALUES (?, (SELECT id FROM chart WHERE accno = ?), ?, ?, '0', '1',
 924              (SELECT taxkey_id FROM chart WHERE accno = ?), ?)|;
 925         @values = (conv_i($form->{"id"}), $accno, $form->{fx}{$accno}{$transdate}, conv_date($transdate), $accno, $project_id);
 926         do_query($form, $dbh, $query, @values);
 927       }
 928     }
 929   }
 930
 931   $amount = $netamount + $tax;
 932
 933   # save AR record
 934   $query = qq|UPDATE ar set
 935                 invnumber   = ?, ordnumber     = ?, quonumber     = ?, cusordnumber  = ?,
 936                 transdate   = ?, orddate       = ?, quodate       = ?, customer_id   = ?,
 937                 amount      = ?, netamount     = ?, paid          = ?, datepaid      = ?,
 938                 duedate     = ?, deliverydate  = ?, invoice       = ?, shippingpoint = ?,
 939                 shipvia     = ?, terms         = ?, notes         = ?, intnotes      = ?,
 940                 curr        = ?, department_id = ?, payment_id    = ?, taxincluded   = ?,
 941                 type        = ?, language_id   = ?, taxzone_id    = ?, shipto_id     = ?,
 942                 employee_id = ?, salesman_id   = ?, storno_id     = ?, storno        = ?,
 943                 cp_id       = ?, marge_total   = ?, marge_percent = ?,
 944                 globalproject_id               = ?, delivery_customer_id             = ?,
 945                 transaction_description        = ?, delivery_vendor_id               = ?
 946               WHERE id = ?|;
 947   @values = (          $form->{"invnumber"},           $form->{"ordnumber"},             $form->{"quonumber"},          $form->{"cusordnumber"},
 948              conv_date($form->{"invdate"}),  conv_date($form->{"orddate"}),    conv_date($form->{"quodate"}),    conv_i($form->{"customer_id"}),
 949                        $amount,                        $netamount,                       $form->{"paid"},     conv_date($form->{"datepaid"}),
 950              conv_date($form->{"duedate"}),  conv_date($form->{"deliverydate"}),    '1',                                $form->{"shippingpoint"},
 951                        $form->{"shipvia"},      conv_i($form->{"terms"}),                $form->{"notes"},              $form->{"intnotes"},
 952                        $form->{"currency"},     conv_i($form->{"department_id"}), conv_i($form->{"payment_id"}),        $form->{"taxincluded"} ? 't' : 'f',
 953                        $form->{"type"},         conv_i($form->{"language_id"}),   conv_i($form->{"taxzone_id"}), conv_i($form->{"shipto_id"}),
 954                 conv_i($form->{"employee_id"}), conv_i($form->{"salesman_id"}),   conv_i($form->{storno_id}),           $form->{"storno"} ? 't' : 'f',
 955                 conv_i($form->{"cp_id"}),            1 * $form->{marge_total} ,      1 * $form->{marge_percent},
 956                 conv_i($form->{"globalproject_id"}),                              conv_i($form->{"delivery_customer_id"}),
 957                        $form->{transaction_description},                          conv_i($form->{"delivery_vendor_id"}),
 958                 conv_i($form->{"id"}));
 959   do_query($form, $dbh, $query, @values);
 960
 961   if($form->{"formname"} eq "credit_note") {
 962     for my $i (1 .. $form->{rowcount}) {
 963       $query = qq|UPDATE parts SET onhand = onhand - ? WHERE id = ?|;
 964       @values = (conv_i($form->{"qty_$i"}), conv_i($form->{"id_$i"}));
 965       do_query($form, $dbh, $query, @values);
 966     }
 967   }
 968
 969   if ($form->{storno}) {
 970     $query =
 971       qq!UPDATE ar SET
 972            paid = paid + amount,
 973            storno = 't',
 974            intnotes = ? || intnotes
 975          WHERE id = ?!;
 976     do_query($form, $dbh, $query, "Rechnung storniert am $form->{invdate} ", conv_i($form->{"storno_id"}));
 977     do_query($form, $dbh, qq|UPDATE ar SET paid = amount WHERE id = ?|, conv_i($form->{"id"}));
 978   }
 979
 980   # add shipto
 981   $form->{name} = $form->{customer};
 982   $form->{name} =~ s/--\Q$form->{customer_id}\E//;
 983
 984   if (!$form->{shipto_id}) {
 985     $form->add_shipto($dbh, $form->{id}, "AR");
 986   }
 987
 988   # save printed, emailed and queued
 989   $form->save_status($dbh);
 990
 991   Common::webdav_folder($form) if ($main::webdav);
 992
 993   my $rc = 1;
 994   if (!$provided_dbh) {
 995     $dbh->commit();
 996     $dbh->disconnect();
 997   }
 998
 999   $main::lxdebug->leave_sub();
1000
1001   return $rc;
1002 }
1003
1004 sub _delete_payments {
1005   $main::lxdebug->enter_sub();
1006
1007   my ($self, $form, $dbh) = @_;
1008
1009   my @delete_oids;
1010
1011   # Delete old payment entries from acc_trans.
1012   my $query =
1013     qq|SELECT oid
1014        FROM acc_trans
1015        WHERE (trans_id = ?) AND fx_transaction
1016
1017        UNION
1018
1019        SELECT at.oid
1020        FROM acc_trans at
1021        LEFT JOIN chart c ON (at.chart_id = c.id)
1022        WHERE (trans_id = ?) AND (c.link LIKE '%AR_paid%')|;
1023   push @delete_oids, selectall_array_query($form, $dbh, $query, conv_i($form->{id}), conv_i($form->{id}));
1024
1025   $query =
1026     qq|SELECT at.oid
1027        FROM acc_trans at
1028        LEFT JOIN chart c ON (at.chart_id = c.id)
1029        WHERE (trans_id = ?)
1030          AND ((c.link = 'AR') OR (c.link LIKE '%:AR') OR (c.link LIKE 'AR:%'))
1031        ORDER BY at.oid
1032        OFFSET 1|;
1033   push @delete_oids, selectall_array_query($form, $dbh, $query, conv_i($form->{id}));
1034
1035   if (@delete_oids) {
1036     $query = qq|DELETE FROM acc_trans WHERE oid IN (| . join(", ", @delete_oids) . qq|)|;
1037     do_query($form, $dbh, $query);
1038   }
1039
1040   $main::lxdebug->leave_sub();
1041 }
1042
1043 sub post_payment {
1044   $main::lxdebug->enter_sub();
1045
1046   my ($self, $myconfig, $form, $locale) = @_;
1047
1048   # connect to database, turn off autocommit
1049   my $dbh = $form->dbconnect_noauto($myconfig);
1050
1051   my (%payments, $old_form, $row, $item, $query, %keep_vars);
1052
1053   $old_form = save_form();
1054
1055   # Delete all entries in acc_trans from prior payments.
1056   $self->_delete_payments($form, $dbh);
1057
1058   # Save the new payments the user made before cleaning up $form.
1059   map { $payments{$_} = $form->{$_} } grep m/^datepaid_\d+$|^memo_\d+$|^source_\d+$|^exchangerate_\d+$|^paid_\d+$|^AR_paid_\d+$|^paidaccounts$/, keys %{ $form };
1060
1061   # Clean up $form so that old content won't tamper the results.
1062   %keep_vars = map { $_, 1 } qw(login password id);
1063   map { delete $form->{$_} unless $keep_vars{$_} } keys %{ $form };
1064
1065   # Retrieve the invoice from the database.
1066   $self->retrieve_invoice($myconfig, $form);
1067
1068   # Set up the content of $form in the way that IS::post_invoice() expects.
1069   $form->{exchangerate} = $form->format_amount($myconfig, $form->{exchangerate});
1070
1071   for $row (1 .. scalar @{ $form->{invoice_details} }) {
1072     $item = $form->{invoice_details}->[$row - 1];
1073
1074     map { $item->{$_} = $form->format_amount($myconfig, $item->{$_}) } qw(qty sellprice discount);
1075
1076     map { $form->{"${_}_${row}"} = $item->{$_} } keys %{ $item };
1077   }
1078
1079   $form->{rowcount} = scalar @{ $form->{invoice_details} };
1080
1081   delete @{$form}{qw(invoice_details paidaccounts storno paid)};
1082
1083   # Restore the payment options from the user input.
1084   map { $form->{$_} = $payments{$_} } keys %payments;
1085
1086   # Get the AR accno (which is normally done by Form::create_links()).
1087   $query =
1088     qq|SELECT c.accno
1089        FROM acc_trans at
1090        LEFT JOIN chart c ON (at.chart_id = c.id)
1091        WHERE (trans_id = ?)
1092          AND ((c.link = 'AR') OR (c.link LIKE '%:AR') OR (c.link LIKE 'AR:%'))
1093        ORDER BY at.oid
1094        LIMIT 1|;
1095
1096   ($form->{AR}) = selectfirst_array_query($form, $dbh, $query, conv_i($form->{id}));
1097
1098   # Post the new payments.
1099   $self->post_invoice($myconfig, $form, $dbh, 1);
1100
1101   restore_form($old_form);
1102
1103   my $rc = $dbh->commit();
1104   $dbh->disconnect();
1105
1106   $main::lxdebug->leave_sub();
1107
1108   return $rc;
1109 }
1110
1111 sub process_assembly {
1112   $main::lxdebug->enter_sub();
1113
1114   my ($dbh, $form, $id, $totalqty) = @_;
1115
1116   my $query =
1117     qq|SELECT a.parts_id, a.qty, p.assembly, p.partnumber, p.description, p.unit,
1118          p.inventory_accno_id, p.income_accno_id, p.expense_accno_id
1119        FROM assembly a
1120        JOIN parts p ON (a.parts_id = p.id)
1121        WHERE (a.id = ?)|;
1122   my $sth = prepare_execute_query($form, $dbh, $query, conv_i($id));
1123
1124   while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
1125
1126     my $allocated = 0;
1127
1128     $ref->{inventory_accno_id} *= 1;
1129     $ref->{expense_accno_id}   *= 1;
1130
1131     # multiply by number of assemblies
1132     $ref->{qty} *= $totalqty;
1133
1134     if ($ref->{assembly}) {
1135       &process_assembly($dbh, $form, $ref->{parts_id}, $ref->{qty});
1136       next;
1137     } else {
1138       if ($ref->{inventory_accno_id}) {
1139         $allocated = &cogs($dbh, $form, $ref->{parts_id}, $ref->{qty});
1140       }
1141     }
1142
1143     # save detail record for individual assembly item in invoice table
1144     $query =
1145       qq|INSERT INTO invoice (trans_id, description, parts_id, qty, sellprice, fxsellprice, allocated, assemblyitem, unit)
1146          VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?)|;
1147     @values = (conv_i($form->{id}), $ref->{description}, conv_i($ref->{parts_id}), $ref->{qty}, 0, 0, $allocated, 't', $ref->{unit});
1148     do_query($form, $dbh, $query, @values);
1149
1150   }
1151
1152   $sth->finish;
1153
1154   $main::lxdebug->leave_sub();
1155 }
1156
1157 sub cogs {
1158   $main::lxdebug->enter_sub();
1159
1160   my ($dbh, $form, $id, $totalqty, $basefactor, $row) = @_;
1161   $form->{taxzone_id} *=1;
1162   my $transdate  = $form->{invdate} ? $dbh->quote($form->{invdate}) : "current_date";
1163   my $taxzone_id = $form->{"taxzone_id"} * 1;
1164   my $query =
1165     qq|SELECT i.id, i.trans_id, i.base_qty, i.allocated, i.sellprice,
1166          c1.accno AS inventory_accno, c1.new_chart_id AS inventory_new_chart, date($transdate) - c1.valid_from AS inventory_valid,
1167          c2.accno AS    income_accno, c2.new_chart_id AS    income_new_chart, date($transdate) - c2.valid_from AS    income_valid,
1168          c3.accno AS   expense_accno, c3.new_chart_id AS   expense_new_chart, date($transdate) - c3.valid_from AS   expense_valid
1169        FROM invoice i, parts p
1170        LEFT JOIN chart c1 ON ((SELECT inventory_accno_id FROM buchungsgruppen WHERE id = p.buchungsgruppen_id) = c1.id)
1171        LEFT JOIN chart c2 ON ((SELECT income_accno_id_${taxzone_id} FROM buchungsgruppen WHERE id = p.buchungsgruppen_id) = c2.id)
1172        LEFT JOIN chart c3 ON ((select expense_accno_id_${taxzone_id} FROM buchungsgruppen WHERE id = p.buchungsgruppen_id) = c3.id)
1173        WHERE (i.parts_id = p.id)
1174          AND (i.parts_id = ?)
1175          AND ((i.base_qty + i.allocated) < 0)
1176        ORDER BY trans_id|;
1177   my $sth = prepare_execute_query($form, $dbh, $query, conv_i($id));
1178
1179   my $allocated = 0;
1180   my $qty;
1181
1182   while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
1183     if (($qty = (($ref->{base_qty} * -1) - $ref->{allocated})) > $totalqty) {
1184       $qty = $totalqty;
1185     }
1186
1187     $form->update_balance($dbh, "invoice", "allocated", qq|id = $ref->{id}|, $qty);
1188
1189     # total expenses and inventory
1190     # sellprice is the cost of the item
1191     $linetotal = $form->round_amount(($ref->{sellprice} * $qty) / $basefactor, 2);
1192
1193     if (!$main::eur) {
1194       $ref->{expense_accno} = ($form->{"expense_accno_$row"}) ? $form->{"expense_accno_$row"} : $ref->{expense_accno};
1195       # add to expense
1196       $form->{amount}{ $form->{id} }{ $ref->{expense_accno} } += -$linetotal;
1197       $form->{expense_inventory} .= " " . $ref->{expense_accno};
1198       $ref->{inventory_accno} = ($form->{"inventory_accno_$row"}) ? $form->{"inventory_accno_$row"} : $ref->{inventory_accno};
1199       # deduct inventory
1200       $form->{amount}{ $form->{id} }{ $ref->{inventory_accno} } -= -$linetotal;
1201       $form->{expense_inventory} .= " " . $ref->{inventory_accno};
1202     }
1203
1204     # add allocated
1205     $allocated -= $qty;
1206
1207     last if (($totalqty -= $qty) <= 0);
1208   }
1209
1210   $sth->finish;
1211
1212   $main::lxdebug->leave_sub();
1213
1214   return $allocated;
1215 }
1216
1217 sub reverse_invoice {
1218   $main::lxdebug->enter_sub();
1219
1220   my ($dbh, $form) = @_;
1221
1222   # reverse inventory items
1223   my $query =
1224     qq|SELECT i.id, i.parts_id, i.qty, i.assemblyitem, p.assembly, p.inventory_accno_id
1225        FROM invoice i
1226        JOIN parts p ON (i.parts_id = p.id)
1227        WHERE i.trans_id = ?|;
1228   my $sth = prepare_execute_query($form, $dbh, $query, conv_i($form->{"id"}));
1229
1230   while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
1231
1232     if ($ref->{inventory_accno_id} || $ref->{assembly}) {
1233
1234       # if the invoice item is not an assemblyitem adjust parts onhand
1235       if (!$ref->{assemblyitem}) {
1236
1237         # adjust onhand in parts table
1238         $form->update_balance($dbh, "parts", "onhand", qq|id = $ref->{parts_id}|, $ref->{qty});
1239       }
1240
1241       # loop if it is an assembly
1242       next if ($ref->{assembly});
1243
1244       # de-allocated purchases
1245       $query =
1246         qq|SELECT i.id, i.trans_id, i.allocated
1247            FROM invoice i
1248            WHERE (i.parts_id = ?) AND (i.allocated > 0)
1249            ORDER BY i.trans_id DESC|;
1250       my $sth2 = prepare_execute_query($form, $dbh, $query, conv_i($ref->{"parts_id"}));
1251
1252       while (my $inhref = $sth2->fetchrow_hashref(NAME_lc)) {
1253         $qty = $ref->{qty};
1254         if (($ref->{qty} - $inhref->{allocated}) > 0) {
1255           $qty = $inhref->{allocated};
1256         }
1257
1258         # update invoice
1259         $form->update_balance($dbh, "invoice", "allocated", qq|id = $inhref->{id}|, $qty * -1);
1260
1261         last if (($ref->{qty} -= $qty) <= 0);
1262       }
1263       $sth2->finish;
1264     }
1265   }
1266
1267   $sth->finish;
1268
1269   # delete acc_trans
1270   @values = (conv_i($form->{id}));
1271   do_query($form, $dbh, qq|DELETE FROM acc_trans WHERE trans_id = ?|, @values);
1272   do_query($form, $dbh, qq|DELETE FROM invoice WHERE trans_id = ?|, @values);
1273
1274   if ($form->{lizenzen}) {
1275     $query =
1276       qq|DELETE FROM licenseinvoice
1277          WHERE trans_id in (SELECT id FROM invoice WHERE trans_id = ?)|;
1278     do_query($form, $dbh, $query, @values);
1279   }
1280
1281   do_query($form, $dbh, qq|DELETE FROM shipto WHERE (trans_id = ?) AND (module = 'AR')|, @values);
1282
1283   $main::lxdebug->leave_sub();
1284 }
1285
1286 sub delete_invoice {
1287   $main::lxdebug->enter_sub();
1288
1289   my ($self, $myconfig, $form, $spool) = @_;
1290
1291   # connect to database
1292   my $dbh = $form->dbconnect_noauto($myconfig);
1293
1294   &reverse_invoice($dbh, $form);
1295
1296   my @values = (conv_i($form->{id}));
1297
1298   # delete AR record
1299   do_query($form, $dbh, qq|DELETE FROM ar WHERE id = ?|, @values);
1300
1301   # delete spool files
1302   my @spoolfiles = selectall_array_query($form, $dbh, qq|SELECT spoolfile FROM status WHERE trans_id = ?|, @values);
1303
1304   # delete status entries
1305   do_query($form, $dbh, qq|DELETE FROM status WHERE trans_id = ?|, @values);
1306
1307   my $rc = $dbh->commit;
1308   $dbh->disconnect;
1309
1310   if ($rc) {
1311     map { unlink "$spool/$_" if -f "$spool/$_"; } @{ $spoolfiles };
1312   }
1313
1314   $main::lxdebug->leave_sub();
1315
1316   return $rc;
1317 }
1318
1319 sub retrieve_invoice {
1320   $main::lxdebug->enter_sub();
1321
1322   my ($self, $myconfig, $form) = @_;
1323
1324   # connect to database
1325   my $dbh = $form->dbconnect_noauto($myconfig);
1326
1327   my ($sth, $ref, $query);
1328
1329   my $query_transdate = ", current_date AS invdate" if !$form->{id};
1330
1331   $query =
1332     qq|SELECT
1333          (SELECT c.accno FROM chart c WHERE d.inventory_accno_id = c.id) AS inventory_accno,
1334          (SELECT c.accno FROM chart c WHERE d.income_accno_id = c.id)    AS income_accno,
1335          (SELECT c.accno FROM chart c WHERE d.expense_accno_id = c.id)   AS expense_accno,
1336          (SELECT c.accno FROM chart c WHERE d.fxgain_accno_id = c.id)    AS fxgain_accno,
1337          (SELECT c.accno FROM chart c WHERE d.fxloss_accno_id = c.id)    AS fxloss_accno,
1338          d.curr AS currencies
1339          ${query_transdate}
1340        FROM defaults d|;
1341
1342   $ref = selectfirst_hashref_query($form, $dbh, $query);
1343   map { $form->{$_} = $ref->{$_} } keys %{ $ref };
1344
1345   if ($form->{id}) {
1346     my $id = conv_i($form->{id});
1347
1348     # retrieve invoice
1349     $query =
1350       qq|SELECT
1351            a.invnumber, a.ordnumber, a.quonumber, a.cusordnumber,
1352            a.orddate, a.quodate, a.globalproject_id,
1353            a.transdate AS invdate, a.deliverydate, a.paid, a.storno, a.gldate,
1354            a.shippingpoint, a.shipvia, a.terms, a.notes, a.intnotes, a.taxzone_id,
1355            a.duedate, a.taxincluded, a.curr AS currency, a.shipto_id, a.cp_id,
1356            a.employee_id, a.salesman_id, a.payment_id,
1357            a.language_id, a.delivery_customer_id, a.delivery_vendor_id, a.type,
1358            a.transaction_description,
1359            a.marge_total, a.marge_percent,
1360            e.name AS employee
1361          FROM ar a
1362          LEFT JOIN employee e ON (e.id = a.employee_id)
1363          WHERE a.id = ?|;
1364     $ref = selectfirst_hashref_query($form, $dbh, $query, $id);
1365     map { $form->{$_} = $ref->{$_} } keys %{ $ref };
1366
1367
1368     $form->{exchangerate} = $form->get_exchangerate($dbh, $form->{currency}, $form->{invdate}, "buy");
1369
1370     # get shipto
1371     $query = qq|SELECT * FROM shipto WHERE (trans_id = ?) AND (module = 'AR')|;
1372     $ref = selectfirst_hashref_query($form, $dbh, $query, $id);
1373     delete $ref->{id};
1374     map { $form->{$_} = $ref->{$_} } keys %{ $ref };
1375
1376     foreach my $vc (qw(customer vendor)) {
1377       next if !$form->{"delivery_${vc}_id"};
1378       ($form->{"delivery_${vc}_string"}) = selectrow_query($form, $dbh, qq|SELECT name FROM customer WHERE id = ?|, $id);
1379     }
1380
1381     # get printed, emailed
1382     $query = qq|SELECT printed, emailed, spoolfile, formname FROM status WHERE trans_id = ?|;
1383     $sth = prepare_execute_query($form, $dbh, $query, $id);
1384
1385     while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
1386       $form->{printed} .= "$ref->{formname} " if $ref->{printed};
1387       $form->{emailed} .= "$ref->{formname} " if $ref->{emailed};
1388       $form->{queued} .= "$ref->{formname} $ref->{spoolfile} " if $ref->{spoolfile};
1389     }
1390     $sth->finish;
1391     map { $form->{$_} =~ s/ +$//g } qw(printed emailed queued);
1392
1393     my $transdate = $form->{deliverydate} ? $dbh->quote($form->{deliverydate})
1394                   : $form->{invdate}      ? $dbh->quote($form->{invdate})
1395                   :                         "current_date";
1396
1397
1398     my $taxzone_id = $form->{taxzone_id} *= 1;
1399     $taxzone_id = 0 if (0 > $taxzone_id) || (3 < $taxzone_id);
1400
1401     # retrieve individual items
1402     $query =
1403       qq|SELECT
1404            c1.accno AS inventory_accno, c1.new_chart_id AS inventory_new_chart, date($transdate) - c1.valid_from AS inventory_valid,
1405            c2.accno AS income_accno,    c2.new_chart_id AS income_new_chart,    date($transdate) - c2.valid_from as income_valid,
1406            c3.accno AS expense_accno,   c3.new_chart_id AS expense_new_chart,   date($transdate) - c3.valid_from AS expense_valid,
1407
1408            i.description, i.longdescription, i.qty, i.fxsellprice AS sellprice, i.discount, i.parts_id AS id, i.unit, i.deliverydate,
1409            i.project_id, i.serialnumber, i.id AS invoice_pos, i.pricegroup_id, i.ordnumber, i.transdate, i.cusordnumber, i.subtotal, i.lastcost,
1410            i.price_factor_id, i.price_factor, i.marge_price_factor,
1411            p.partnumber, p.assembly, p.bin, p.notes AS partnotes, p.inventory_accno_id AS part_inventory_accno_id, p.formel,
1412            pr.projectnumber, pg.partsgroup, prg.pricegroup
1413
1414          FROM invoice i
1415          LEFT JOIN parts p ON (i.parts_id = p.id)
1416          LEFT JOIN project pr ON (i.project_id = pr.id)
1417          LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id)
1418          LEFT JOIN pricegroup prg ON (i.pricegroup_id = prg.id)
1419
1420          LEFT JOIN chart c1 ON ((SELECT inventory_accno_id             FROM buchungsgruppen WHERE id = p.buchungsgruppen_id) = c1.id)
1421          LEFT JOIN chart c2 ON ((SELECT income_accno_id_${taxzone_id}  FROM buchungsgruppen WHERE id = p.buchungsgruppen_id) = c2.id)
1422          LEFT JOIN chart c3 ON ((SELECT expense_accno_id_${taxzone_id} FROM buchungsgruppen WHERE id = p.buchungsgruppen_id) = c3.id)
1423
1424          WHERE (i.trans_id = ?) AND NOT (i.assemblyitem = '1') ORDER BY i.id|;
1425
1426     $sth = prepare_execute_query($form, $dbh, $query, $id);
1427
1428     while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
1429       map({ delete($ref->{$_}); } qw(inventory_accno inventory_new_chart inventory_valid)) if !$ref->{"part_inventory_accno_id"};
1430       delete($ref->{"part_inventory_accno_id"});
1431
1432       foreach my $type (qw(inventory income expense)) {
1433         while ($ref->{"${type}_new_chart"} && ($ref->{"${type}_valid"} >=0)) {
1434           my $query = qq|SELECT accno, new_chart_id, date($transdate) - valid_from FROM chart WHERE id = ?|;
1435           @$ref{ map $type.$_, qw(_accno _new_chart _valid) } = selectrow_query($form, $dbh, $query, $ref->{"${type}_new_chart"});
1436         }
1437       }
1438
1439       # get tax rates and description
1440       my $accno_id = ($form->{vc} eq "customer") ? $ref->{income_accno} : $ref->{expense_accno};
1441       $query =
1442         qq|SELECT c.accno, t.taxdescription, t.rate, t.taxnumber FROM tax t
1443            LEFT JOIN chart c ON (c.id = t.chart_id)
1444            WHERE t.id IN
1445              (SELECT tk.tax_id FROM taxkeys tk
1446               WHERE tk.chart_id = (SELECT id FROM chart WHERE accno = ?)
1447                 AND startdate <= date($transdate)
1448               ORDER BY startdate DESC LIMIT 1)
1449            ORDER BY c.accno|;
1450       my $stw = prepare_execute_query($form, $dbh, $query, $accno_id);
1451       $ref->{taxaccounts} = "";
1452       my $i=0;
1453       while ($ptr = $stw->fetchrow_hashref(NAME_lc)) {
1454
1455         if (($ptr->{accno} eq "") && ($ptr->{rate} == 0)) {
1456           $i++;
1457           $ptr->{accno} = $i;
1458         }
1459         $ref->{taxaccounts} .= "$ptr->{accno} ";
1460
1461         if (!($form->{taxaccounts} =~ /\Q$ptr->{accno}\E/)) {
1462           $form->{"$ptr->{accno}_rate"}        = $ptr->{rate};
1463           $form->{"$ptr->{accno}_description"} = $ptr->{taxdescription};
1464           $form->{"$ptr->{accno}_taxnumber"}   = $ptr->{taxnumber};
1465           $form->{taxaccounts} .= "$ptr->{accno} ";
1466         }
1467
1468       }
1469
1470       if ($form->{lizenzen}) {
1471         $query = qq|SELECT l.licensenumber, l.id AS licenseid FROM license l, licenseinvoice li WHERE l.id = li.license_id AND li.trans_id = ?|;
1472         my ($licensenumber, $licenseid) = selectrow_query($form, $dbh, $query, conv_i($ref->{invoice_pos}));
1473         $ref->{lizenzen} = "<option value=\"$licenseid\">$licensenumber</option>";
1474       }
1475
1476       $ref->{qty} *= -1 if $form->{type} eq "credit_note";
1477
1478       chop $ref->{taxaccounts};
1479       push @{ $form->{invoice_details} }, $ref;
1480       $stw->finish;
1481     }
1482     $sth->finish;
1483
1484     Common::webdav_folder($form) if ($main::webdav);
1485   }
1486
1487   my $rc = $dbh->commit;
1488   $dbh->disconnect;
1489
1490   $main::lxdebug->leave_sub();
1491
1492   return $rc;
1493 }
1494
1495 sub get_customer {
1496   $main::lxdebug->enter_sub();
1497
1498   my ($self, $myconfig, $form) = @_;
1499
1500   # connect to database
1501   my $dbh = $form->dbconnect($myconfig);
1502
1503   my $dateformat = $myconfig->{dateformat};
1504   $dateformat .= "yy" if $myconfig->{dateformat} !~ /^y/;
1505
1506   my (@values, $duedate, $ref, $query);
1507
1508   if ($form->{invdate}) {
1509     $duedate = "to_date(?, '$dateformat')";
1510     push @values, $form->{invdate};
1511   } else {
1512     $duedate = "current_date";
1513   }
1514
1515   my $cid = conv_i($form->{customer_id});
1516   my $payment_id = ($form->{payment_id}) ? "($form->{payment_id} = pt.id) OR" : "";
1517   # get customer
1518   $query =
1519     qq|SELECT
1520          c.name AS customer, c.discount, c.creditlimit, c.terms,
1521          c.email, c.cc, c.bcc, c.language_id, c.payment_id,
1522          c.street, c.zipcode, c.city, c.country,
1523          c.notes AS intnotes, c.klass as customer_klass, c.taxzone_id, c.salesman_id,
1524          $duedate + COALESCE(pt.terms_netto, 0) AS duedate,
1525          b.discount AS tradediscount, b.description AS business
1526        FROM customer c
1527        LEFT JOIN business b ON (b.id = c.business_id)
1528        LEFT JOIN payment_terms pt ON ($payment_id (c.payment_id = pt.id))
1529        WHERE c.id = ?|;
1530   push @values, $cid;
1531   $ref = selectfirst_hashref_query($form, $dbh, $query, @values);
1532   map { $form->{$_} = $ref->{$_} } keys %$ref;
1533
1534   $query =
1535     qq|SELECT sum(amount - paid) AS dunning_amount
1536        FROM ar
1537        WHERE (paid < amount)
1538          AND (customer_id = ?)
1539          AND (dunning_config_id IS NOT NULL)|;
1540   $ref = selectfirst_hashref_query($form, $dbh, $query, $cid);
1541   map { $form->{$_} = $ref->{$_} } keys %$ref;
1542
1543   $query =
1544     qq|SELECT dnn.dunning_description AS max_dunning_level
1545        FROM dunning_config dnn
1546        WHERE id IN (SELECT dunning_config_id
1547                     FROM ar
1548                     WHERE (paid < amount) AND (customer_id = ?) AND (dunning_config_id IS NOT NULL))
1549        ORDER BY dunning_level DESC LIMIT 1|;
1550   $ref = selectfirst_hashref_query($form, $dbh, $query, $cid);
1551   map { $form->{$_} = $ref->{$_} } keys %$ref;
1552
1553   $form->{creditremaining} = $form->{creditlimit};
1554   $query = qq|SELECT SUM(amount - paid) FROM ar WHERE customer_id = ?|;
1555   my ($value) = selectrow_query($form, $dbh, $query, $cid);
1556   $form->{creditremaining} -= $value;
1557
1558   $query =
1559     qq|SELECT o.amount,
1560          (SELECT e.buy FROM exchangerate e
1561           WHERE e.curr = o.curr
1562             AND e.transdate = o.transdate)
1563        FROM oe o
1564        WHERE o.customer_id = ?
1565          AND o.quotation = '0'
1566          AND o.closed = '0'|;
1567   $sth = prepare_execute_query($form, $dbh, $query, $cid);
1568
1569   while (my ($amount, $exch) = $sth->fetchrow_array) {
1570     $exch = 1 unless $exch;
1571     $form->{creditremaining} -= $amount * $exch;
1572   }
1573   $sth->finish;
1574
1575   # get shipto if we did not converted an order or invoice
1576   if (!$form->{shipto}) {
1577     map { delete $form->{$_} }
1578       qw(shiptoname shiptodepartment_1 shiptodepartment_2
1579          shiptostreet shiptozipcode shiptocity shiptocountry
1580          shiptocontact shiptophone shiptofax shiptoemail);
1581
1582     $query = qq|SELECT * FROM shipto WHERE trans_id = ? AND module = 'CT'|;
1583     $ref = selectfirst_hashref_query($form, $dbh, $query, $cid);
1584     delete $ref->{id};
1585     map { $form->{$_} = $ref->{$_} } keys %$ref;
1586   }
1587
1588   # setup last accounts used for this customer
1589   if (!$form->{id} && $form->{type} !~ /_(order|quotation)/) {
1590     $query =
1591       qq|SELECT c.id, c.accno, c.description, c.link, c.category
1592          FROM chart c
1593          JOIN acc_trans ac ON (ac.chart_id = c.id)
1594          JOIN ar a ON (a.id = ac.trans_id)
1595          WHERE a.customer_id = ?
1596            AND NOT (c.link LIKE '%_tax%' OR c.link LIKE '%_paid%')
1597            AND a.id IN (SELECT max(a2.id) FROM ar a2 WHERE a2.customer_id = ?)|;
1598     $sth = prepare_execute_query($form, $dbh, $query, $cid, $cid);
1599
1600     my $i = 0;
1601     while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
1602       if ($ref->{category} eq 'I') {
1603         $i++;
1604         $form->{"AR_amount_$i"} = "$ref->{accno}--$ref->{description}";
1605
1606         if ($form->{initial_transdate}) {
1607           my $tax_query =
1608             qq|SELECT tk.tax_id, t.rate
1609                FROM taxkeys tk
1610                LEFT JOIN tax t ON tk.tax_id = t.id
1611                WHERE (tk.chart_id = ?) AND (startdate <= date(?))
1612                ORDER BY tk.startdate DESC
1613                LIMIT 1|;
1614           my ($tax_id, $rate) =
1615             selectrow_query($form, $dbh, $tax_query, $ref->{id},
1616                             $form->{initial_transdate});
1617           $form->{"taxchart_$i"} = "${tax_id}--${rate}";
1618         }
1619       }
1620       if ($ref->{category} eq 'A') {
1621         $form->{ARselected} = $form->{AR_1} = $ref->{accno};
1622       }
1623     }
1624     $sth->finish;
1625     $form->{rowcount} = $i if ($i && !$form->{type});
1626   }
1627
1628   $dbh->disconnect;
1629
1630   $main::lxdebug->leave_sub();
1631 }
1632
1633 sub retrieve_item {
1634   $main::lxdebug->enter_sub();
1635
1636   my ($self, $myconfig, $form) = @_;
1637
1638   # connect to database
1639   my $dbh = $form->dbconnect($myconfig);
1640
1641   my $i = $form->{rowcount};
1642
1643   my $where = qq|NOT p.obsolete = '1'|;
1644   my @values;
1645
1646   foreach my $column (qw(p.partnumber p.description pgpartsgroup)) {
1647     my ($table, $field) = split m/\./, $column;
1648     next if !$form->{"${field}_${i}"};
1649     $where .= qq| AND lower(${column}) ILIKE ?|;
1650     push @values, '%' . $form->{"${field}_${i}"} . '%';
1651   }
1652
1653   if ($form->{"description_$i"}) {
1654     $where .= qq| ORDER BY p.description|;
1655   } else {
1656     $where .= qq| ORDER BY p.partnumber|;
1657   }
1658
1659   my $transdate;
1660   if ($form->{type} eq "invoice") {
1661     $transdate =
1662       $form->{deliverydate} ? $dbh->quote($form->{deliverydate}) :
1663       $form->{invdate}      ? $dbh->quote($form->{invdate}) :
1664                               "current_date";
1665   } else {
1666     $transdate =
1667       $form->{transdate}    ? $dbh->quote($form->{transdate}) :
1668                               "current_date";
1669   }
1670
1671   my $taxzone_id = $form->{taxzone_id} * 1;
1672   $taxzone_id = 0 if (0 > $taxzone_id) || (3 < $taxzone_id);
1673
1674   my $query =
1675     qq|SELECT
1676          p.id, p.partnumber, p.description, p.sellprice,
1677          p.listprice, p.inventory_accno_id, p.lastcost,
1678
1679          c1.accno AS inventory_accno,
1680          c1.new_chart_id AS inventory_new_chart,
1681          date($transdate) - c1.valid_from AS inventory_valid,
1682
1683          c2.accno AS income_accno,
1684          c2.new_chart_id AS income_new_chart,
1685          date($transdate)  - c2.valid_from AS income_valid,
1686
1687          c3.accno AS expense_accno,
1688          c3.new_chart_id AS expense_new_chart,
1689          date($transdate) - c3.valid_from AS expense_valid,
1690
1691          p.unit, p.assembly, p.bin, p.onhand,
1692          p.notes AS partnotes, p.notes AS longdescription,
1693          p.not_discountable, p.formel, p.payment_id AS part_payment_id,
1694          p.price_factor_id,
1695
1696          pfac.factor AS price_factor,
1697
1698          pg.partsgroup
1699
1700        FROM parts p
1701        LEFT JOIN chart c1 ON
1702          ((SELECT inventory_accno_id
1703            FROM buchungsgruppen
1704            WHERE id = p.buchungsgruppen_id) = c1.id)
1705        LEFT JOIN chart c2 ON
1706          ((SELECT income_accno_id_${taxzone_id}
1707            FROM buchungsgruppen
1708            WHERE id = p.buchungsgruppen_id) = c2.id)
1709        LEFT JOIN chart c3 ON
1710          ((SELECT expense_accno_id_${taxzone_id}
1711            FROM buchungsgruppen
1712            WHERE id = p.buchungsgruppen_id) = c3.id)
1713        LEFT JOIN partsgroup pg ON (pg.id = p.partsgroup_id)
1714        LEFT JOIN price_factors pfac ON (pfac.id = p.price_factor_id)
1715        WHERE $where|;
1716   my $sth = prepare_execute_query($form, $dbh, $query, @values);
1717
1718   while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
1719
1720     # In der Buchungsgruppe ist immer ein Bestandskonto verknuepft, auch wenn
1721     # es sich um eine Dienstleistung handelt. Bei Dienstleistungen muss das
1722     # Buchungskonto also aus dem Ergebnis rausgenommen werden.
1723     if (!$ref->{inventory_accno_id}) {
1724       map({ delete($ref->{"inventory_${_}"}); } qw(accno new_chart valid));
1725     }
1726     delete($ref->{inventory_accno_id});
1727
1728     foreach my $type (qw(inventory income expense)) {
1729       while ($ref->{"${type}_new_chart"} && ($ref->{"${type}_valid"} >=0)) {
1730         my $query =
1731           qq|SELECT accno, new_chart_id, date($transdate) - valid_from
1732              FROM chart
1733              WHERE id = ?|;
1734         ($ref->{"${type}_accno"},
1735          $ref->{"${type}_new_chart"},
1736          $ref->{"${type}_valid"})
1737           = selectrow_query($form, $dbh, $query, $ref->{"${type}_new_chart"});
1738       }
1739     }
1740
1741     if ($form->{payment_id} eq "") {
1742       $form->{payment_id} = $form->{part_payment_id};
1743     }
1744
1745     # get tax rates and description
1746     $accno_id = ($form->{vc} eq "customer") ? $ref->{income_accno} : $ref->{expense_accno};
1747     $query =
1748       qq|SELECT c.accno, t.taxdescription, t.rate, t.taxnumber
1749          FROM tax t
1750          LEFT JOIN chart c ON (c.id = t.chart_id)
1751          WHERE t.id in
1752            (SELECT tk.tax_id
1753             FROM taxkeys tk
1754             WHERE tk.chart_id = (SELECT id from chart WHERE accno = ?)
1755               AND startdate <= ?
1756             ORDER BY startdate DESC
1757             LIMIT 1)
1758          ORDER BY c.accno|;
1759     @values = ($accno_id, $transdate eq "current_date" ? "now" : $transdate);
1760     $stw = $dbh->prepare($query);
1761     $stw->execute(@values) || $form->dberror($query);
1762
1763     $ref->{taxaccounts} = "";
1764     my $i = 0;
1765     while ($ptr = $stw->fetchrow_hashref(NAME_lc)) {
1766
1767       #    if ($customertax{$ref->{accno}}) {
1768       if (($ptr->{accno} eq "") && ($ptr->{rate} == 0)) {
1769         $i++;
1770         $ptr->{accno} = $i;
1771       }
1772       $ref->{taxaccounts} .= "$ptr->{accno} ";
1773
1774       if (!($form->{taxaccounts} =~ /\Q$ptr->{accno}\E/)) {
1775         $form->{"$ptr->{accno}_rate"}        = $ptr->{rate};
1776         $form->{"$ptr->{accno}_description"} = $ptr->{taxdescription};
1777         $form->{"$ptr->{accno}_taxnumber"}   = $ptr->{taxnumber};
1778         $form->{taxaccounts} .= "$ptr->{accno} ";
1779       }
1780
1781     }
1782
1783     $stw->finish;
1784     chop $ref->{taxaccounts};
1785     if ($form->{language_id}) {
1786       $query =
1787         qq|SELECT tr.translation, tr.longdescription
1788            FROM translation tr
1789            WHERE tr.language_id = ? AND tr.parts_id = ?|;
1790       @values = (conv_i($form->{language_id}), conv_i($ref->{id}));
1791       my ($translation, $longdescription) = selectrow_query($form, $dbh, $query, @values);
1792       if ($translation ne "") {
1793         $ref->{description} = $translation;
1794         $ref->{longdescription} = $longdescription;
1795
1796       } else {
1797         $query =
1798           qq|SELECT tr.translation, tr.longdescription
1799              FROM translation tr
1800              WHERE tr.language_id IN
1801                (SELECT id
1802                 FROM language
1803                 WHERE article_code = (SELECT article_code FROM language WHERE id = ?))
1804                AND tr.parts_id = ?
1805              LIMIT 1|;
1806         @values = (conv_i($form->{language_id}), conv_i($ref->{id}));
1807         my ($translation, $longdescription) = selectrow_query($form, $dbh, $query, @values);
1808         if ($translation ne "") {
1809           $ref->{description} = $translation;
1810           $ref->{longdescription} = $longdescription;
1811         }
1812       }
1813     }
1814
1815     push @{ $form->{item_list} }, $ref;
1816
1817     if ($form->{lizenzen}) {
1818       if ($ref->{inventory_accno} > 0) {
1819         $query =
1820           qq|SELECT l.*
1821              FROM license l
1822              WHERE l.parts_id = ? AND NOT l.id IN (SELECT li.license_id FROM licenseinvoice li)|;
1823         my $stw = prepare_execute_query($form, $dbh, $query, conv_i($ref->{id}));
1824         while (my $ptr = $stw->fetchrow_hashref(NAME_lc)) {
1825           push @{ $form->{LIZENZEN}{ $ref->{id} } }, $ptr;
1826         }
1827         $stw->finish;
1828       }
1829     }
1830   }
1831   $sth->finish;
1832   $dbh->disconnect;
1833
1834   $main::lxdebug->leave_sub();
1835 }
1836
1837 ##########################
1838 # get pricegroups from database
1839 # build up selected pricegroup
1840 # if an exchange rate - change price
1841 # for each part
1842 #
1843 sub get_pricegroups_for_parts {
1844
1845   $main::lxdebug->enter_sub();
1846
1847   my ($self, $myconfig, $form) = @_;
1848
1849   my $dbh = $form->dbconnect($myconfig);
1850
1851   $form->{"PRICES"} = {};
1852
1853   my $i  = 1;
1854   my $id = 0;
1855   my $dimension_units = AM->retrieve_units($myconfig, $form, "dimension");
1856   my $service_units = AM->retrieve_units($myconfig, $form, "service");
1857   my $all_units = AM->retrieve_units($myconfig, $form);
1858   while (($form->{"id_$i"}) or ($form->{"new_id_$i"})) {
1859     $form->{"PRICES"}{$i} = [];
1860
1861     $id = $form->{"id_$i"};
1862
1863     if (!($form->{"id_$i"}) and $form->{"new_id_$i"}) {
1864
1865       $id = $form->{"new_id_$i"};
1866     }
1867
1868     ($price, $selectedpricegroup_id) = split(/--/,
1869       $form->{"sellprice_pg_$i"});
1870
1871     $pricegroup_old = $form->{"pricegroup_old_$i"};
1872     $form->{"new_pricegroup_$i"} = $selectedpricegroup_id;
1873     $form->{"old_pricegroup_$i"} = $pricegroup_old;
1874
1875     $price_new = $form->{"price_new_$i"};
1876     $price_old = $form->{"price_old_$i"};
1877
1878     if (!$form->{"unit_old_$i"}) {
1879       # Neue Ware aus der Datenbank. In diesem Fall ist unit_$i die
1880       # Einheit, wie sie in den Stammdaten hinterlegt wurde.
1881       # Es sollte also angenommen werden, dass diese ausgewaehlt war.
1882       $form->{"unit_old_$i"} = $form->{"unit_$i"};
1883     }
1884
1885     # Die zuletzt ausgewaehlte mit der aktuell ausgewaehlten Einheit
1886     # vergleichen und bei Unterschied den Preis entsprechend umrechnen.
1887     $form->{"selected_unit_$i"} = $form->{"unit_$i"} unless ($form->{"selected_unit_$i"});
1888
1889     my $check_units = $form->{"inventory_accno_$i"} ? $dimension_units : $service_units;
1890     if (!$check_units->{$form->{"selected_unit_$i"}} ||
1891         ($check_units->{$form->{"selected_unit_$i"}}->{"base_unit"} ne
1892          $all_units->{$form->{"unit_old_$i"}}->{"base_unit"})) {
1893       # Die ausgewaehlte Einheit ist fuer diesen Artikel nicht gueltig
1894       # (z.B. Dimensionseinheit war ausgewaehlt, es handelt sich aber
1895       # um eine Dienstleistung). Dann keinerlei Umrechnung vornehmen.
1896       $form->{"unit_old_$i"} = $form->{"selected_unit_$i"} = $form->{"unit_$i"};
1897     }
1898
1899     my $basefactor = 1;
1900
1901     if ($form->{"unit_old_$i"} ne $form->{"selected_unit_$i"}) {
1902       if (defined($all_units->{$form->{"unit_old_$i"}}->{"factor"}) &&
1903           $all_units->{$form->{"unit_old_$i"}}->{"factor"}) {
1904         $basefactor = $all_units->{$form->{"selected_unit_$i"}}->{"factor"} /
1905           $all_units->{$form->{"unit_old_$i"}}->{"factor"};
1906       }
1907     }
1908
1909     if (!$form->{"basefactor_$i"}) {
1910       $form->{"basefactor_$i"} = 1;
1911     }
1912
1913     $query =
1914       qq|SELECT
1915            pricegroup_id,
1916            (SELECT p.sellprice FROM parts p WHERE p.id = ?) AS default_sellprice,
1917            (SELECT pg.pricegroup FROM pricegroup pg WHERE id = pricegroup_id) AS pricegroup,
1918            price,
1919            '' AS selected
1920           FROM prices
1921           WHERE parts_id = ?
1922
1923           UNION
1924
1925           SELECT
1926             0 as pricegroup_id,
1927             (SELECT sellprice FROM parts WHERE id = ?) AS default_sellprice,
1928             '' AS pricegroup,
1929             (SELECT DISTINCT sellprice FROM parts where id = ?) AS price,
1930             'selected' AS selected
1931           FROM prices
1932
1933           ORDER BY pricegroup|;
1934     @values = (conv_i($id), conv_i($id), conv_i($id), conv_i($id));
1935     my $pkq = prepare_execute_query($form, $dbh, $query, @values);
1936
1937     while ($pkr = $pkq->fetchrow_hashref(NAME_lc)) {
1938       $pkr->{id}       = $id;
1939       $pkr->{selected} = '';
1940
1941       # if there is an exchange rate change price
1942       if (($form->{exchangerate} * 1) != 0) {
1943
1944         $pkr->{price} /= $form->{exchangerate};
1945       }
1946
1947       $pkr->{price} *= $form->{"basefactor_$i"};
1948
1949       $pkr->{price} *= $basefactor;
1950
1951       $pkr->{price} = $form->format_amount($myconfig, $pkr->{price}, 5);
1952
1953       if ($selectedpricegroup_id eq undef) {
1954         if ($pkr->{pricegroup_id} eq $form->{customer_klass}) {
1955
1956           $pkr->{selected}  = ' selected';
1957
1958           # no customer pricesgroup set
1959           if ($pkr->{price} == $pkr->{default_sellprice}) {
1960
1961             $pkr->{price} = $form->{"sellprice_$i"};
1962
1963           } else {
1964
1965             $form->{"sellprice_$i"} = $pkr->{price};
1966           }
1967
1968         } elsif ($pkr->{price} == $pkr->{default_sellprice}) {
1969           $pkr->{price}    = $form->{"sellprice_$i"};
1970           $pkr->{selected} = ' selected';
1971         }
1972       }
1973
1974       if ($selectedpricegroup_id or $selectedpricegroup_id == 0) {
1975         if ($selectedpricegroup_id ne $pricegroup_old) {
1976           if ($pkr->{pricegroup_id} eq $selectedpricegroup_id) {
1977             $pkr->{selected}  = ' selected';
1978           }
1979         } elsif (($price_new != $form->{"sellprice_$i"}) and ($price_new ne 0)) {
1980           if ($pkr->{pricegroup_id} == 0) {
1981             $pkr->{price}     = $form->{"sellprice_$i"};
1982             $pkr->{selected}  = ' selected';
1983           }
1984         } elsif ($pkr->{pricegroup_id} eq $selectedpricegroup_id) {
1985           $pkr->{selected}  = ' selected';
1986           if (    ($pkr->{pricegroup_id} == 0)
1987               and ($pkr->{price} == $form->{"sellprice_$i"})) {
1988             # $pkr->{price}                         = $form->{"sellprice_$i"};
1989           } else {
1990             $pkr->{price} = $form->{"sellprice_$i"};
1991           }
1992         }
1993       }
1994       push @{ $form->{PRICES}{$i} }, $pkr;
1995
1996     }
1997     $form->{"basefactor_$i"} *= $basefactor;
1998
1999     $i++;
2000
2001     $pkq->finish;
2002   }
2003
2004   $dbh->disconnect;
2005
2006   $main::lxdebug->leave_sub();
2007 }
2008
2009 sub has_storno {
2010   $main::lxdebug->enter_sub();
2011
2012   my ($self, $myconfig, $form, $table) = @_;
2013
2014   $main::lxdebug->leave_sub() and return 0 unless ($form->{id});
2015
2016   # make sure there's no funny stuff in $table
2017   # ToDO: die when this happens and throw an error
2018   $main::lxdebug->leave_sub() and return 0 if ($table =~ /\W/);
2019
2020   my $dbh = $form->dbconnect($myconfig);
2021
2022   my $query = qq|SELECT storno FROM $table WHERE storno_id = ?|;
2023   my ($result) = selectrow_query($form, $dbh, $query, $form->{id});
2024
2025   $dbh->disconnect();
2026
2027   $main::lxdebug->leave_sub();
2028
2029   return $result;
2030 }
2031
2032 sub is_storno {
2033   $main::lxdebug->enter_sub();
2034
2035   my ($self, $myconfig, $form, $table, $id) = @_;
2036
2037   $main::lxdebug->leave_sub() and return 0 unless ($id);
2038
2039   # make sure there's no funny stuff in $table
2040   # ToDO: die when this happens and throw an error
2041   $main::lxdebug->leave_sub() and return 0 if ($table =~ /\W/);
2042
2043   my $dbh = $form->dbconnect($myconfig);
2044
2045   my $query = qq|SELECT storno FROM $table WHERE id = ?|;
2046   my ($result) = selectrow_query($form, $dbh, $query, $id);
2047
2048   $dbh->disconnect();
2049
2050   $main::lxdebug->leave_sub();
2051
2052   return $result;
2053 }
2054
2055 1;