bin/mozilla/oe.pl

   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-2003
  10 #
  11 #  Author: Dieter Simader
  12 #   Email: dsimader@sql-ledger.org
  13 #     Web: http://www.sql-ledger.org
  14 #
  15 #
  16 # This program is free software; you can redistribute it and/or modify
  17 # it under the terms of the GNU General Public License as published by
  18 # the Free Software Foundation; either version 2 of the License, or
  19 # (at your option) any later version.
  20 #
  21 # This program is distributed in the hope that it will be useful,
  22 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  23 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  24 # GNU General Public License for more details.
  25 # You should have received a copy of the GNU General Public License
  26 # along with this program; if not, write to the Free Software
  27 # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  28 #======================================================================
  29 #
  30 # Order entry module
  31 # Quotation module
  32 #======================================================================
  33
  34 use POSIX qw(strftime);
  35
  36 use SL::OE;
  37 use SL::IR;
  38 use SL::IS;
  39 use SL::PE;
  40 use SL::ReportGenerator;
  41
  42 require "bin/mozilla/io.pl";
  43 require "bin/mozilla/arap.pl";
  44 require "bin/mozilla/reportgenerator.pl";
  45
  46 1;
  47
  48 # end of main
  49
  50 # For locales.pl:
  51 # $locale->text('Edit the purchase_order');
  52 # $locale->text('Edit the sales_order');
  53 # $locale->text('Edit the request_quotation');
  54 # $locale->text('Edit the sales_quotation');
  55
  56 # $locale->text('Workflow purchase_order');
  57 # $locale->text('Workflow sales_order');
  58 # $locale->text('Workflow request_quotation');
  59 # $locale->text('Workflow sales_quotation');
  60
  61 sub set_headings {
  62   $lxdebug->enter_sub();
  63
  64   my ($action) = @_;
  65
  66   if ($form->{type} eq 'purchase_order') {
  67     $form->{title}   = $action eq "edit" ?
  68       $locale->text('Edit Purchase Order') :
  69       $locale->text('Add Purchase Order');
  70     $form->{heading} = $locale->text('Purchase Order');
  71     $form->{vc}      = 'vendor';
  72   }
  73   if ($form->{type} eq 'sales_order') {
  74     $form->{title}   = $action eq "edit" ?
  75       $locale->text('Edit Sales Order') :
  76       $locale->text('Add Sales Order');
  77     $form->{heading} = $locale->text('Sales Order');
  78     $form->{vc}      = 'customer';
  79   }
  80   if ($form->{type} eq 'request_quotation') {
  81     $form->{title}   = $action eq "edit" ?
  82       $locale->text('Edit Request for Quotation') :
  83       $locale->text('Add Request for Quotation');
  84     $form->{heading} = $locale->text('Request for Quotation');
  85     $form->{vc}      = 'vendor';
  86   }
  87   if ($form->{type} eq 'sales_quotation') {
  88     $form->{title}   = $action eq "edit" ?
  89       $locale->text('Edit Quotation') :
  90       $locale->text('Add Quotation');
  91     $form->{heading} = $locale->text('Quotation');
  92     $form->{vc}      = 'customer';
  93   }
  94
  95   $lxdebug->leave_sub();
  96 }
  97
  98 sub add {
  99   $lxdebug->enter_sub();
 100
 101   set_headings("add");
 102
 103   $form->{callback} =
 104     "$form->{script}?action=add&type=$form->{type}&vc=$form->{vc}&login=$form->{login}&password=$form->{password}"
 105     unless $form->{callback};
 106
 107   &order_links;
 108   &prepare_order;
 109   &display_form;
 110
 111   $lxdebug->leave_sub();
 112 }
 113
 114 sub edit {
 115   $lxdebug->enter_sub();
 116   # show history button
 117   $form->{javascript} = qq|<script type="text/javascript" src="js/show_history.js"></script>|;
 118   #/show hhistory button
 119
 120   $form->{simple_save} = 0;
 121
 122   set_headings("edit");
 123
 124   # editing without stuff to edit? try adding it first
 125   if ($form->{rowcount} && !$form->{print_and_save}) {
 126     map { $id++ if $form->{"multi_id_$_"} } (1 .. $form->{rowcount});
 127     if (!$id) {
 128
 129       # reset rowcount
 130       undef $form->{rowcount};
 131       &add;
 132       $lxdebug->leave_sub();
 133       return;
 134     }
 135   } elsif (!$form->{id}) {
 136     &add;
 137     $lxdebug->leave_sub();
 138     return;
 139   }
 140
 141   if ($form->{print_and_save}) {
 142     $form->{action}   = "print";
 143     $form->{resubmit} = 1;
 144     $language_id = $form->{language_id};
 145     $printer_id = $form->{printer_id};
 146   }
 147
 148   set_headings("edit");
 149
 150   &order_links;
 151   &prepare_order;
 152   if ($form->{print_and_save}) {
 153     $form->{language_id} = $language_id;
 154     $form->{printer_id} = $printer_id;
 155   }
 156   &display_form;
 157
 158   $lxdebug->leave_sub();
 159 }
 160
 161 sub order_links {
 162   $lxdebug->enter_sub();
 163   # get customer/vendor
 164   $form->all_vc(\%myconfig, $form->{vc},
 165                 ($form->{vc} eq 'customer') ? "AR" : "AP");
 166
 167   # retrieve order/quotation
 168   $form->{webdav}   = $webdav;
 169   $form->{jsscript} = 1;
 170
 171   my $editing = $form->{id};
 172
 173   OE->retrieve(\%myconfig, \%$form);
 174
 175   if ($form->{payment_id}) {
 176     $payment_id = $form->{payment_id};
 177   }
 178   if ($form->{language_id}) {
 179     $language_id = $form->{language_id};
 180   }
 181   if ($form->{taxzone_id}) {
 182     $taxzone_id = $form->{taxzone_id};
 183   }
 184
 185   $salesman_id = $form->{salesman_id} if ($editing);
 186
 187
 188   # if multiple rowcounts (== collective order) then check if the
 189   # there were more than one customer (in that case OE::retrieve removes
 190   # the content from the field)
 191   if (   $form->{rowcount}
 192       && $form->{type} eq 'sales_order'
 193       && defined $form->{customer}
 194       && $form->{customer} eq '') {
 195
 196     #    $main::lxdebug->message(0, "Detected Edit order with concurrent customers");
 197     $form->error(
 198                  $locale->text(
 199                    'Collective Orders only work for orders from one customer!')
 200     );
 201   }
 202
 203   $taxincluded = $form->{taxincluded};
 204   $form->{shipto} = 1 if $form->{id};
 205
 206   if ($form->{"all_$form->{vc}"}) {
 207     unless ($form->{"$form->{vc}_id"}) {
 208       $form->{"$form->{vc}_id"} = $form->{"all_$form->{vc}"}->[0]->{id};
 209     }
 210   }
 211
 212   $cp_id    = $form->{cp_id};
 213   $intnotes = $form->{intnotes};
 214
 215   # get customer / vendor
 216   if ($form->{type} =~ /(purchase_order|request_quotation)/) {
 217     IR->get_vendor(\%myconfig, \%$form);
 218
 219     #quote all_vendor Bug 133
 220     foreach $ref (@{ $form->{all_vendor} }) {
 221       $ref->{name} = $form->quote($ref->{name});
 222     }
 223
 224   }
 225   if ($form->{type} =~ /sales_(order|quotation)/) {
 226     IS->get_customer(\%myconfig, \%$form);
 227
 228     #quote all_vendor Bug 133
 229     foreach $ref (@{ $form->{all_customer} }) {
 230       $ref->{name} = $form->quote($ref->{name});
 231     }
 232
 233   }
 234   $form->{cp_id} = $cp_id;
 235
 236   if ($payment_id) {
 237     $form->{payment_id} = $payment_id;
 238   }
 239   if ($language_id) {
 240     $form->{language_id} = $language_id;
 241   }
 242   if ($taxzone_id) {
 243     $form->{taxzone_id} = $taxzone_id;
 244   }
 245   $form->{intnotes} = $intnotes if $intnotes;
 246   ($form->{ $form->{vc} }) = split /--/, $form->{ $form->{vc} };
 247   $form->{"old$form->{vc}"} =
 248     qq|$form->{$form->{vc}}--$form->{"$form->{vc}_id"}|;
 249
 250   # build the popup menus
 251   if (@{ $form->{"all_$form->{vc}"} }) {
 252     $form->{ $form->{vc} } =
 253       qq|$form->{$form->{vc}}--$form->{"$form->{vc}_id"}|;
 254     map { $form->{"select$form->{vc}"} .=
 255 "<option>$_->{name}--$_->{id}</option>\n" }
 256       (@{ $form->{"all_$form->{vc}"} });
 257   }
 258
 259   $form->{taxincluded} = $taxincluded if ($form->{id});
 260
 261   # departments
 262   if (@{ $form->{all_departments} }) {
 263     $form->{selectdepartment} = "<option>\n";
 264     $form->{department}       = "$form->{department}--$form->{department_id}";
 265
 266     map {
 267       $form->{selectdepartment} .=
 268         "<option>$_->{description}--$_->{id}</option>\n"
 269     } (@{ $form->{all_departments} });
 270   }
 271
 272   $form->{employee} = "$form->{employee}--$form->{employee_id}";
 273
 274   # forex
 275   $form->{forex} = $form->{exchangerate};
 276
 277   $form->{salesman_id} = $salesman_id if ($editing);
 278
 279   $lxdebug->leave_sub();
 280 }
 281
 282 sub prepare_order {
 283   $lxdebug->enter_sub();
 284   $form->{formname} = $form->{type} unless $form->{formname};
 285
 286   my $i = 0;
 287   foreach $ref (@{ $form->{form_details} }) {
 288     $form->{rowcount} = ++$i;
 289
 290     map { $form->{"${_}_$i"} = $ref->{$_} } keys %{$ref};
 291   }
 292   for my $i (1 .. $form->{rowcount}) {
 293     if ($form->{id}) {
 294       $form->{"discount_$i"} =
 295         $form->format_amount(\%myconfig, $form->{"discount_$i"} * 100);
 296     } else {
 297       $form->{"discount_$i"} =
 298         $form->format_amount(\%myconfig, $form->{"discount_$i"});
 299     }
 300     ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/);
 301     $dec           = length $dec;
 302     $decimalplaces = ($dec > 2) ? $dec : 2;
 303
 304     # copy reqdate from deliverydate for invoice -> order conversion
 305     $form->{"reqdate_$i"} = $form->{"deliverydate_$i"}
 306       unless $form->{"reqdate_$i"};
 307
 308     $form->{"sellprice_$i"} =
 309       $form->format_amount(\%myconfig, $form->{"sellprice_$i"},
 310                            $decimalplaces);
 311
 312     (my $dec_qty) = ($form->{"qty_$i"} =~ /\.(\d+)/);
 313     $dec_qty = length $dec_qty;
 314     $form->{"qty_$i"} =
 315       $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty);
 316
 317     map { $form->{"${_}_$i"} =~ s/\"/&quot;/g }
 318       qw(partnumber description unit);
 319   }
 320
 321   $lxdebug->leave_sub();
 322 }
 323
 324 sub form_header {
 325   $lxdebug->enter_sub();
 326
 327   my $checkedclosed = $form->{"closed"} ? "checked" : "";
 328   my $checkeddelivered = $form->{"delivered"} ? "checked" : "";
 329
 330   if ($form->{old_employee_id}) {
 331     $form->{employee_id} = $form->{old_employee_id};
 332   }
 333   if ($form->{old_salesman_id}) {
 334     $form->{salesman_id} = $form->{old_salesman_id};
 335   }
 336
 337   $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
 338
 339
 340   if ($form->{old_employee_id}) {
 341     $form->{employee_id} = $form->{old_employee_id};
 342   }
 343   if ($form->{old_salesman_id}) {
 344     $form->{salesman_id} = $form->{old_salesman_id};
 345   }
 346
 347   map { $form->{$_} =~ s/\"/&quot;/g }
 348     qw(ordnumber quonumber shippingpoint shipvia notes intnotes shiptoname
 349        shiptostreet shiptozipcode shiptocity shiptocountry shiptocontact
 350        shiptophone shiptofax shiptodepartment_1 shiptodepartment_2);
 351
 352   # use JavaScript Calendar or not
 353   $form->{jsscript} = 1;
 354   $jsscript = "";
 355
 356   $button1 = qq|
 357      <td><input name=transdate id=transdate size=11 title="$myconfig{dateformat}" value="$form->{transdate}" onBlur=\"check_right_date_format(this)\">
 358       <input type=button name=transdate id="trigger1" value=|
 359     . $locale->text('button') . qq|></td>
 360     |;
 361   $button2 = qq|
 362      <td width="13"><input name=reqdate id=reqdate size=11 title="$myconfig{dateformat}" value="$form->{reqdate}" onBlur=\"check_right_date_format(this)\">
 363       <input type=button name=reqdate name=reqdate id="trigger2" value=|
 364     . $locale->text('button') . qq|></td>
 365    |;
 366
 367   #write Trigger
 368   $jsscript =
 369     Form->write_trigger(\%myconfig, "2", "transdate", "BL", "trigger1",
 370                         "reqdate", "BL", "trigger2");
 371
 372   my @tmp;
 373
 374   if (($form->{"type"} eq "sales_order") ||
 375       ($form->{"type"} eq "purchase_order")) {
 376     push(@tmp, qq|
 377           <input name="delivered" id="delivered" type="checkbox" class="checkbox" value="1" $checkeddelivered>
 378           <label for="delivered">| . $locale->text('Delivered') . qq|</label>|);
 379   }
 380
 381   if ($form->{id}) {
 382     push(@tmp, qq|
 383           <input name="closed" id="closed" type="checkbox" class="checkbox" value="1" $checkedclosed>
 384           <label for="closed">| . $locale->text('Closed') . qq|</label>|);
 385   }
 386
 387   if (@tmp) {
 388     $openclosed .= qq|
 389       <tr>
 390         <td colspan=| . (2 * scalar(@tmp)) . qq| align=center>| . join("\n", @tmp) . qq|
 391         </td>
 392       </tr>
 393 |;
 394   }
 395
 396   # set option selected
 397   foreach $item ($form->{vc}, currency, department, ($form->{vc} eq "customer" ? customer : vendor)) {
 398     $form->{"select$item"} =~ s/ selected//;
 399     $form->{"select$item"} =~
 400       s/option>\Q$form->{$item}\E/option selected>$form->{$item}/;
 401   }
 402
 403   #quote select[customer|vendor] Bug 133
 404   $form->{"select$form->{vc}"} = $form->quote($form->{"select$form->{vc}"});
 405
 406   #substitute \n and \r to \s (bug 543)
 407   $form->{"select$form->{vc}"} =~ s/[\n\r]/&nbsp;/g;
 408
 409   my @old_project_ids = ($form->{"globalproject_id"});
 410   map({ push(@old_project_ids, $form->{"project_id_$_"})
 411           if ($form->{"project_id_$_"}); } (1..$form->{"rowcount"}));
 412
 413   my $vc = $form->{vc} eq "customer" ? "customers" : "vendors";
 414   $form->get_lists("contacts" => "ALL_CONTACTS",
 415                    "shipto" => "ALL_SHIPTO",
 416                    "projects" => { "key" => "ALL_PROJECTS",
 417                                    "all" => 0,
 418                                    "old_id" => \@old_project_ids },
 419                    "employees" => "ALL_EMPLOYEES",
 420                    "salesmen" => "ALL_SALESMEN",
 421                    "taxzones" => "ALL_TAXZONES",
 422                    "payments" => "ALL_PAYMENTS",
 423                    "currencies" => "ALL_CURRENCIES",
 424                    $vc => "ALL_" . uc($vc));
 425
 426   my %labels;
 427   my @values = (undef);
 428   foreach my $item (@{ $form->{"ALL_CONTACTS"} }) {
 429     push(@values, $item->{"cp_id"});
 430     $labels{$item->{"cp_id"}} = $item->{"cp_name"} .
 431       ($item->{"cp_abteilung"} ? " ($item->{cp_abteilung})" : "");
 432   }
 433
 434   my $contact;
 435   if (scalar @values > 1) {
 436     $contact = qq|
 437     <tr>
 438       <th align="right">| . $locale->text('Contact Person') . qq|</th>
 439       <td>| .
 440       NTI($cgi->popup_menu('-name' => 'cp_id', '-values' => \@values, '-style' => 'width: 250px',
 441                            '-labels' => \%labels, '-default' => $form->{"cp_id"}))
 442       . qq|
 443       </td>
 444     </tr>|;
 445   }
 446
 447   %labels = ();
 448   @values = ();
 449
 450   foreach my $item (@{ $form->{($form->{vc} eq "customer" ? "ALL_CUSTOMERS" : "ALL_VENDORS")}}) {
 451     push(@values, $item->{"name"}.qq|--|.$item->{"id"});
 452     $labels{$item->{"name"}.qq|--|.$item->{"id"}} = $item->{name};
 453   }
 454
 455   $vc = qq|
 456       <input type="hidden" name="$form->{vc}_id" value="| . H($form->{"$form->{vc}_id"}) . qq|">
 457       <input type="hidden" name="old$form->{vc}" value="| . H($form->{"old$form->{vc}"}) . qq|">
 458       <th align="right">| . $locale->text(ucfirst($form->{vc})) . qq|</th>
 459       <td>| .
 460         (($myconfig{vclimit} <=  scalar(@values))
 461               ? qq|<input type="text" value="| . H(($form->{"old$form->{vc}"} =~ /^(.*)\-\-.*$/)) . qq|" name="$form->{vc}">|
 462               : (NTI($cgi->popup_menu('-name' => "$form->{vc}", '-default' => $form->{"old$form->{vc}"},
 463                              '-onChange' => 'document.getElementById(\'update_button\').click();',
 464                              '-values' => \@values, '-labels' => \%labels, '-style' => 'width: 250px')))) . qq|
 465         <input type="button" value="?" onclick="show_vc_details('$form->{vc}')">
 466       </td><input type=hidden name="select$form->{vc}" value="| .
 467     Q($form->{"select$form->{vc}"}) . qq|">|;
 468
 469   %labels = ();
 470   @values = ("");
 471   foreach my $item (@{ $form->{"ALL_PAYMENTS"} }) {
 472     push(@values, $item->{"id"});
 473     $labels{$item->{"id"}} = $item->{"description"};
 474   }
 475
 476   $payments = qq|
 477     <th align="right">| . $locale->text('Payment Terms') . qq|</th>
 478     <td>| .
 479     NTI($cgi->popup_menu('-name' => 'payment_id', '-values' => \@values, '-style' => 'width: 250px',
 480                          '-labels' => \%labels, '-default' => $form->{payment_id}))
 481     . qq|</td>|;
 482
 483   %labels = ();
 484   @values = ("");
 485   foreach my $item (@{ $form->{"ALL_SHIPTO"} }) {
 486     push(@values, $item->{"shipto_id"});
 487     $labels{$item->{"shipto_id"}} = join "; ", grep { $_ } map { $item->{"shipto${_}" } } qw(name department_1 street city);
 488   }
 489
 490   my $shipto;
 491   if (scalar @values > 1) {
 492     $shipto = qq|
 493     <tr>
 494       <th align="right">| . $locale->text('Shipping Address') . qq|</th>
 495       <td>| .
 496       NTI($cgi->popup_menu('-name' => 'shipto_id', '-values' => \@values, '-style' => 'width: 250px',
 497                            '-labels' => \%labels, '-default' => $form->{"shipto_id"}))
 498     . qq|</td>|;
 499   }
 500
 501   %labels = ();
 502   @values = ("");
 503   foreach my $item (@{ $form->{"ALL_PROJECTS"} }) {
 504     push(@values, $item->{"id"});
 505     $labels{$item->{"id"}} = $item->{"projectnumber"};
 506   }
 507   my $globalprojectnumber =
 508     NTI($cgi->popup_menu('-name' => 'globalproject_id', '-values' => \@values,
 509                          '-labels' => \%labels,
 510                          '-default' => $form->{"globalproject_id"}));
 511
 512   my $salesmen = "";
 513   %labels = ();
 514   @values = ();
 515   if ($form->{type} =~ /^sales_/) {
 516     foreach my $item (@{ $form->{"ALL_SALESMEN"} }) {
 517       push(@values, $item->{"id"});
 518       $labels{$item->{"id"}} = ($item->{"name"} ne "" ? $item->{"name"} : $item->{"login"});
 519     }
 520     $salesmen =
 521       qq|<tr>
 522           <th align="right">| . $locale->text('Salesman') . qq|</th>
 523           <td>| .
 524       NTI($cgi->popup_menu('-name' => 'salesman_id', '-default' => $form->{"salesman_id"} ? $form->{"salesman_id"} : $form->{"employee_id"},
 525                            '-values' => \@values, '-labels' => \%labels))
 526       . qq|</td>
 527          </tr>|;
 528   }
 529
 530   %labels = ();
 531   @values = ();
 532   foreach my $item (@{ $form->{"ALL_EMPLOYEES"} }) {
 533     push(@values, $item->{"id"});
 534     $labels{$item->{"id"}} = $item->{"name"} ne "" ? $item->{"name"} : $item->{"login"};
 535   }
 536
 537   my $employee = qq|
 538     <tr>
 539       <th align="right">| . $locale->text('Employee') . qq|</th>
 540       <td>| .
 541         NTI($cgi->popup_menu('-name' => 'employee_id', '-default' => $form->{"employee_id"},
 542                              '-values' => \@values, '-labels' => \%labels)) . qq|
 543       </td>
 544     </tr>|;
 545
 546   %labels = ();
 547   @values = ();
 548   foreach my $item (@{ $form->{"ALL_TAXZONES"} }) {
 549     push(@values, $item->{"id"});
 550     $labels{$item->{"id"}} = $item->{"description"};
 551   }
 552
 553   $taxzone = qq|
 554     <tr>
 555       <th align="right">| . $locale->text('Steuersatz') . qq|</th>
 556       <td>| .
 557         NTI($cgi->popup_menu('-name' => 'taxzone_id', '-default' => $form->{"taxzone_id"},
 558                              '-values' => \@values, '-labels' => \%labels, '-style' => 'width: 250px')) . qq|
 559       </td>
 560     </tr>|;
 561
 562   %labels = ();
 563   @values = ();
 564   my $i = 0;
 565   foreach my $item (@{ $form->{"ALL_CURRENCIES"} }) {
 566     push(@values, $item);
 567     $labels{$item} = $item;
 568   }
 569
 570   $form->{currency} = $form->{defaultcurrency} unless $form->{currency};
 571   my $currencies;
 572   if (scalar @values) {
 573     $currencies = qq|
 574     <tr>
 575       <th align="right">| . $locale->text('Currency') . qq|</th>
 576       <td>| .
 577         NTI($cgi->popup_menu('-name' => 'currency', '-default' => $form->{"currency"},
 578                              '-values' => \@values, '-labels' => \%labels)) . qq|
 579       </td>
 580     </tr>|;
 581   }
 582
 583   $form->{exchangerate} =
 584     $form->format_amount(\%myconfig, $form->{exchangerate});
 585
 586   if (!$form->{exchangerate}) {
 587     $form->{exchangerate} = "";
 588   }
 589
 590   if (($form->{creditlimit} != 0) && ($form->{creditremaining} < 0) && !$form->{update}) {
 591     $creditwarning = 1;
 592   } else {
 593     $creditwarning = 0;
 594   }
 595
 596   $form->{creditlimit} =
 597     $form->format_amount(\%myconfig, $form->{creditlimit}, 0, "0");
 598   $form->{creditremaining} =
 599     $form->format_amount(\%myconfig, $form->{creditremaining}, 0, "0");
 600
 601   $exchangerate = qq|
 602 <input type=hidden name=forex value=$form->{forex}>
 603 |;
 604
 605   if ($form->{currency} ne $form->{defaultcurrency}) {
 606     if ($form->{forex}) {
 607       $exchangerate .=
 608           qq|<th align=right>|
 609         . $locale->text('Exchangerate')
 610         . qq|</th><td>$form->{exchangerate}</td>
 611       <input type=hidden name=exchangerate value=$form->{exchangerate}>
 612 |;
 613     } else {
 614       $exchangerate .=
 615           qq|<th align=right>|
 616         . $locale->text('Exchangerate')
 617         . qq|</th><td><input name=exchangerate size=10 value=$form->{exchangerate}></td>|;
 618     }
 619   }
 620
 621   if ($form->{business}) {
 622     $business = qq|
 623               <tr>
 624           <th align="right">| . ($form->{vc} eq "customer" ? $locale->text('Customer type') : $locale->text('Vendor type')) . qq|</th>
 625           <td>$form->{business}; | . $locale->text('Trade Discount') . qq| |
 626       . $form->format_amount(\%myconfig, $form->{tradediscount} * 100)
 627       . qq| %</td>
 628         </tr>
 629 |;
 630   }
 631
 632   if ($form->{max_dunning_level}) {
 633     $dunning = qq|
 634       <tr>
 635         <th align="right">| . $locale->text('Max. Dunning Level') . qq|:</th>
 636         <td>
 637           <b>$form->{max_dunning_level}</b>;
 638           | . $locale->text('Dunning Amount') . qq|: <b>|
 639         . $form->format_amount(\%myconfig, $form->{dunning_amount},2)
 640         . qq|</b>
 641         </td>
 642       </tr>
 643 |;
 644   }
 645
 646   if ($form->{type} !~ /_quotation$/) {
 647     $ordnumber = qq|
 648               <tr>
 649                 <th width=70% align=right nowrap>| . $locale->text('Order Number') . qq|</th>
 650                 <td><input name=ordnumber size=11 value="$form->{ordnumber}"></td>
 651               </tr>
 652               <tr>
 653                 <th width=70% align=right nowrap>|
 654       . $locale->text('Quotation Number') . qq|</th>
 655                 <td><input name=quonumber size=11 value="$form->{quonumber}"></td>
 656               </tr>
 657               <tr>
 658                 <th width=70% align=right nowrap>|
 659       . $locale->text('Customer Order Number') . qq|</th>
 660                 <td><input name=cusordnumber size=11 value="$form->{cusordnumber}"></td>
 661               </tr>
 662               <tr>
 663                 <th align=right nowrap>| . $locale->text('Order Date') . qq|</th>
 664                 $button1
 665
 666               </tr>
 667               <tr>
 668                 <th align=right nowrap=true>| . $locale->text('Required by') . qq|</th>
 669                 $button2
 670               </tr>
 671 |;
 672
 673     $n = ($form->{creditremaining} =~ /-/) ? "0" : "1";
 674
 675     $creditremaining = qq|
 676         $shipto
 677         <tr>
 678           <td align="right">| . $locale->text('Credit Limit') . qq|</td>
 679           <td>$form->{creditlimit}; | . $locale->text('Remaining') . qq| <span class="plus$n">$form->{creditremaining}</span></td>
 680         </tr>
 681               </tr>
 682 |;
 683   } else {
 684     $reqlabel =
 685       ($form->{type} eq 'sales_quotation')
 686       ? $locale->text('Valid until')
 687       : $locale->text('Required by');
 688     if ($form->{type} eq 'sales_quotation') {
 689       $ordnumber = qq|
 690               <tr>
 691                 <th width=70% align=right nowrap>|
 692         . $locale->text('Quotation Number') . qq|</th>
 693                 <td><input name=quonumber size=11 value="$form->{quonumber}"></td>
 694                 <input type=hidden name=ordnumber value="$form->{ordnumber}">
 695               </tr>
 696 |;
 697     } else {
 698       $ordnumber = qq|
 699               <tr>
 700                 <th width=70% align=right nowrap>| . $locale->text('RFQ Number') . qq|</th>
 701                 <td><input name=quonumber size=11 value="$form->{quonumber}"></td>
 702                 <input type=hidden name=ordnumber value="$form->{ordnumber}">
 703               </tr>
 704 |;
 705
 706     }
 707
 708     $ordnumber .= qq|
 709               <tr>
 710                 <th align=right nowrap>| . $locale->text('Quotation Date') . qq|</th>
 711                 $button1
 712               </tr>
 713               <tr>
 714                 <th align=right nowrap=true>$reqlabel</th>
 715                 $button2
 716               </tr>
 717 |;
 718     $creditremaining = qq| <tr>
 719                             <td colspan=4></td>
 720                             $shipto
 721                           </tr>|;
 722   }
 723
 724   $department = qq|
 725               <tr>
 726                 <th align="right" nowrap>| . $locale->text('Department') . qq|</th>
 727                 <td colspan=3><select name=department style="width: 250px">$form->{selectdepartment}</select>
 728                 <input type=hidden name=selectdepartment value="$form->{selectdepartment}">
 729                 </td>
 730               </tr> | if $form->{selectdepartment};
 731
 732   if ($form->{type} eq 'sales_order') {
 733     if ($form->{selectemployee}) {
 734       $employee .= qq|
 735         <input type="hidden" name="customer_klass" value="$form->{customer_klass}">|;
 736     }
 737   } else {
 738     $employee .= qq|
 739       <input type="hidden" name="customer_klass" value="$form->{customer_klass}">|;
 740   }
 741   if ($form->{resubmit} && ($form->{format} eq "html")) {
 742     $onload =
 743       qq|window.open('about:blank','Beleg'); document.oe.target = 'Beleg';document.oe.submit()|;
 744   } elsif ($form->{resubmit}) {
 745     $onload = qq|document.oe.submit()|;
 746   } else {
 747     $onload = "focus()";
 748   }
 749
 750   $credittext = $locale->text('Credit Limit exceeded!!!');
 751   if ($creditwarning) {
 752     $onload = qq|alert('$credittext')|;
 753   }
 754
 755   $onload .= qq|;setupDateFormat('|. $myconfig{dateformat} .qq|', '|. $locale->text("Falsches Datumsformat!") .qq|')|;
 756   $onload .= qq|;setupPoints('|. $myconfig{numberformat} .qq|', '|. $locale->text("wrongformat") .qq|')|;
 757
 758   $form->{"javascript"} .= qq|<script type="text/javascript" src="js/show_form_details.js"></script>|;
 759   # show history button js
 760   $form->{javascript} .= qq|<script type="text/javascript" src="js/show_history.js"></script>|;
 761   #/show history button js
 762   $form->{javascript} .= qq|<script type="text/javascript" src="js/show_vc_details.js"></script>|;
 763
 764   $form->header;
 765
 766   print qq|
 767 <body onLoad="$onload">
 768
 769 <form method=post name=oe action=$form->{script}>
 770
 771  <script type="text/javascript" src="js/common.js"></script>
 772  <script type="text/javascript" src="js/delivery_customer_selection.js"></script>
 773  <script type="text/javascript" src="js/vendor_selection.js"></script>
 774  <script type="text/javascript" src="js/calculate_qty.js"></script>
 775 |;
 776
 777   $form->hide_form(qw(id action type vc formname media format proforma queued printed emailed
 778                       title discount creditlimit creditremaining tradediscount business
 779                       max_dunning_level dunning_amount));
 780
 781   print qq|
 782
 783 <table width=100%>
 784   <tr class=listtop>
 785     <th class=listtop>$form->{title}</th>
 786   </tr>
 787   <tr height="5"></tr>
 788   <tr>
 789     <td>
 790       <table width="100%">
 791         <tr valign=top>
 792           <td>
 793             <table width=100%>
 794               <tr>
 795         $vc
 796         $contact
 797               $creditremaining
 798               $business
 799               $dunning
 800               $taxzone
 801               $department
 802               <tr>
 803                 $currencies
 804                 $exchangerate
 805               </tr>
 806               <tr>
 807                 <th align=right>| . $locale->text('Shipping Point') . qq|</th>
 808                 <td colspan=3><input name=shippingpoint size=35 value="$form->{shippingpoint}"></td>
 809               </tr>
 810               <tr>
 811                 <th align=right>| . $locale->text('Ship via') . qq|</th>
 812                 <td colspan=3><input name=shipvia size=35 value="$form->{shipvia}"></td>
 813               </tr>
 814               <tr>
 815                 <th align="right">| . $locale->text('Transaction description') . qq|</th>
 816                 <td colspan="3"><input name="transaction_description" size="35" value="| . H($form->{transaction_description}) . qq|"></td>
 817               </tr>|;
 818 #              <tr>
 819 #                 <td colspan=4>
 820 #                   <table>
 821 #                     <tr>
 822 #                       <td colspan=2>
 823 #                         <button type="button" onclick="delivery_customer_selection_window('delivery_customer_string','delivery_customer_id')">| . $locale->text('Choose Customer') . qq|</button>
 824 #                       </td>
 825 #                       <td colspan=2><input type=hidden name=delivery_customer_id value="$form->{delivery_customer_id}">
 826 #                       <input size=45 id=delivery_customer_string name=delivery_customer_string value="$form->{delivery_customer_string}"></td>
 827 #                     </tr>
 828 #                     <tr>
 829 #                       <td colspan=2>
 830 #                         <button type="button" onclick="vendor_selection_window('delivery_vendor_string','delivery_vendor_id')">| . $locale->text('Choose Vendor') . qq|</button>
 831 #                       </td>
 832 #                       <td colspan=2><input type=hidden name=delivery_vendor_id value="$form->{delivery_vendor_id}">
 833 #                       <input size=45 id=vendor_string name=delivery_vendor_string value="$form->{delivery_vendor_string}"></td>
 834 #                     </tr>
 835 #                   </table>
 836 #                 </td>
 837 #               </tr>
 838 print qq|           </table>
 839           </td>
 840           <td align=right>
 841             <table>
 842               $openclosed
 843               $employee
 844         $salesmen
 845               $ordnumber
 846               <tr>
 847           <th width="70%" align="right" nowrap>| . $locale->text('Project Number') . qq|</th>
 848           <td>$globalprojectnumber</td>
 849               </tr>
 850             </table>
 851           </td>
 852         </tr>
 853       </table>
 854     </td>
 855   </tr>
 856
 857 $jsscript
 858
 859 <!-- shipto are in hidden variables -->
 860
 861 <input type=hidden name=shiptoname value="$form->{shiptoname}">
 862 <input type=hidden name=shiptostreet value="$form->{shiptostreet}">
 863 <input type=hidden name=shiptozipcode value="$form->{shiptozipcode}">
 864 <input type=hidden name=shiptocity value="$form->{shiptocity}">
 865 <input type=hidden name=shiptocountry value="$form->{shiptocountry}">
 866 <input type=hidden name=shiptocontact value="$form->{shiptocontact}">
 867 <input type=hidden name=shiptophone value="$form->{shiptophone}">
 868 <input type=hidden name=shiptofax value="$form->{shiptofax}">
 869 <input type=hidden name=shiptodepartment_1 value="$form->{shiptodepartment_1}">
 870 <input type=hidden name=shiptodepartment_2 value="$form->{shiptodepartment_2}">
 871 <input type=hidden name=shiptoemail value="$form->{shiptoemail}">
 872
 873 <!-- email variables -->
 874 <input type=hidden name=message value="$form->{message}">
 875 <input type=hidden name=email value="$form->{email}">
 876 <input type=hidden name=subject value="$form->{subject}">
 877 <input type=hidden name=cc value="$form->{cc}">
 878 <input type=hidden name=bcc value="$form->{bcc}">
 879
 880 <input type=hidden name=taxpart value="$form->{taxpart}">
 881 <input type=hidden name=taxservice value="$form->{taxservice}">
 882
 883 <input type=hidden name=taxaccounts value="$form->{taxaccounts}">
 884 |;
 885
 886   foreach $item (split / /, $form->{taxaccounts}) {
 887     print qq|
 888 <input type=hidden name="${item}_rate" value=$form->{"${item}_rate"}>
 889 <input type=hidden name="${item}_description" value="$form->{"${item}_description"}">
 890 |;
 891   }
 892   $lxdebug->leave_sub();
 893 }
 894
 895 sub form_footer {
 896   $lxdebug->enter_sub();
 897
 898   $form->{invtotal} = $form->{invsubtotal};
 899
 900   if (($rows = $form->numtextrows($form->{notes}, 25, 8)) < 2) {
 901     $rows = 2;
 902   }
 903   if (($introws = $form->numtextrows($form->{intnotes}, 35, 8)) < 2) {
 904     $introws = 2;
 905   }
 906   $rows = ($rows > $introws) ? $rows : $introws;
 907   $notes =
 908     qq|<textarea name=notes rows=$rows cols=25 wrap=soft>$form->{notes}</textarea>|;
 909   $intnotes =
 910     qq|<textarea name=intnotes rows=$rows cols=35 wrap=soft>$form->{intnotes}</textarea>|;
 911
 912   $form->{taxincluded} = ($form->{taxincluded}) ? "checked" : "";
 913
 914   $taxincluded = "";
 915   if ($form->{taxaccounts}) {
 916     $taxincluded = qq|
 917               <input name=taxincluded class=checkbox type=checkbox value=1 $form->{taxincluded}> <b>|
 918       . $locale->text('Tax Included') . qq|</b><br><br>
 919 |;
 920   }
 921
 922   if (!$form->{taxincluded}) {
 923
 924     foreach $item (split / /, $form->{taxaccounts}) {
 925       if ($form->{"${item}_base"}) {
 926         $form->{invtotal} += $form->{"${item}_total"} =
 927           $form->round_amount(
 928                              $form->{"${item}_base"} * $form->{"${item}_rate"},
 929                              2);
 930         $form->{"${item}_total"} =
 931           $form->format_amount(\%myconfig, $form->{"${item}_total"}, 2);
 932
 933         $tax .= qq|
 934               <tr>
 935                 <th align=right>$form->{"${item}_description"}&nbsp;|
 936                                     . $form->{"${item}_rate"} * 100 .qq|%</th>
 937                 <td align=right>$form->{"${item}_total"}</td>
 938               </tr>
 939 |;
 940       }
 941     }
 942
 943     $form->{invsubtotal} =
 944       $form->format_amount(\%myconfig, $form->{invsubtotal}, 2, 0);
 945
 946     $subtotal = qq|
 947               <tr>
 948                 <th align=right>| . $locale->text('Subtotal') . qq|</th>
 949                 <td align=right>$form->{invsubtotal}</td>
 950               </tr>
 951 |;
 952
 953   }
 954
 955   if ($form->{taxincluded}) {
 956     foreach $item (split / /, $form->{taxaccounts}) {
 957       if ($form->{"${item}_base"}) {
 958         $form->{"${item}_total"} =
 959           $form->round_amount(
 960                            ($form->{"${item}_base"} * $form->{"${item}_rate"} /
 961                               (1 + $form->{"${item}_rate"})
 962                            ),
 963                            2);
 964         $form->{"${item}_netto"} =
 965           $form->round_amount(
 966                           ($form->{"${item}_base"} - $form->{"${item}_total"}),
 967                           2);
 968         $form->{"${item}_total"} =
 969           $form->format_amount(\%myconfig, $form->{"${item}_total"}, 2);
 970         $form->{"${item}_netto"} =
 971           $form->format_amount(\%myconfig, $form->{"${item}_netto"}, 2);
 972
 973         $tax .= qq|
 974               <tr>
 975                 <th align=right>Enthaltene $form->{"${item}_description"}&nbsp;|
 976                                     . $form->{"${item}_rate"} * 100 .qq|%</th>
 977                 <td align=right>$form->{"${item}_total"}</td>
 978               </tr>
 979               <tr>
 980                 <th align=right>Nettobetrag</th>
 981                 <td align=right>$form->{"${item}_netto"}</td>
 982               </tr>
 983 |;
 984       }
 985     }
 986
 987   }
 988
 989   $form->{oldinvtotal} = $form->{invtotal};
 990   $form->{invtotal}    =
 991     $form->format_amount(\%myconfig, $form->{invtotal}, 2, 0);
 992
 993   print qq|
 994   <tr>
 995     <td>
 996       <table width=100%>
 997         <tr valign=bottom>
 998           <td>
 999             <table>
1000               <tr>
1001                 <th align=left>| . $locale->text('Notes') . qq|</th>
1002                 <th align=left>| . $locale->text('Internal Notes') . qq|</th>
1003               </tr>
1004               <tr valign=top>
1005                 <td>$notes</td>
1006                 <td>$intnotes</td>
1007               </tr>
1008           <tr>
1009     $payments
1010             </tr>
1011       </table>
1012           </td>
1013           <td>
1014             <table>
1015 |;
1016
1017   if ($form->{type} =~ /^sales_/) {
1018     print qq|
1019             <tr>
1020               <th  align=left>| . $locale->text('Ertrag') . qq|</th>
1021               <td>| .  $form->format_amount(\%myconfig, $form->{marge_total}, 2, 0) . qq|</td>
1022             </tr>
1023             <tr>
1024               <th  align=left>| . $locale->text('Ertrag prozentual') . qq|</th>
1025               <td>| .  $form->format_amount(\%myconfig, $form->{marge_percent}, 2, 0) . qq| %</td>
1026             </tr>
1027 |;
1028   }
1029
1030   print qq|
1031             <input type=hidden name="marge_total" value="$form->{"marge_total"}">
1032             <input type=hidden name="marge_percent" value="$form->{"marge_percent"}">
1033             </table>
1034           </td>
1035           <td align=right>
1036             $taxincluded
1037             <table>
1038               $subtotal
1039               $tax
1040               <tr>
1041                 <th align=right>| . $locale->text('Total') . qq|</th>
1042                 <td align=right>$form->{invtotal}</td>
1043               </tr>
1044             </table>
1045           </td>
1046         </tr>
1047       </table>
1048     </td>
1049   </tr>
1050 <input type=hidden name=oldinvtotal value=$form->{oldinvtotal}>
1051 <input type=hidden name=oldtotalpaid value=$totalpaid>
1052   <tr>
1053     <td><hr size=3 noshade></td>
1054   </tr>
1055 |;
1056
1057   if ($webdav) {
1058     $webdav_list = qq|
1059
1060   <tr>
1061     <th class=listtop align=left>Dokumente im Webdav-Repository</th>
1062   </tr>
1063     <table width=100%>
1064       <td align=left width=30%><b>Dateiname</b></td>
1065       <td align=left width=70%><b>Webdavlink</b></td>
1066 |;
1067     foreach $file (@{ $form->{WEBDAV} }) {
1068       $webdav_list .= qq|
1069       <tr>
1070         <td align="left">$file->{name}</td>
1071         <td align="left"><a href="$file->{link}">$file->{type}</a></td>
1072       </tr>
1073 |;
1074     }
1075     $webdav_list .= qq|
1076     </table>
1077   </tr>
1078   <tr>
1079     <td><hr size=3 noshade></td>
1080   </tr>
1081 |;
1082
1083     print $webdav_list;
1084   }
1085
1086   print qq|
1087   <tr>
1088     <td>
1089 |;
1090   print_options();
1091
1092   print qq|
1093     </td>
1094   </tr>
1095 </table>
1096
1097 | . $locale->text("Edit the $form->{type}") . qq|<br>
1098 <input class=submit type=submit name=action id=update_button value="|
1099     . $locale->text('Update') . qq|">
1100 <input class=submit type=submit name=action value="|
1101     . $locale->text('Ship to') . qq|">
1102 <input class=submit type=submit name=action value="|
1103     . $locale->text('Print') . qq|">
1104 <input class=submit type=submit name=action value="|
1105     . $locale->text('E-mail') . qq|">
1106 <input class=submit type=submit name=action value="|
1107     . $locale->text('Save') . qq|">
1108 <input class=submit type=submit name=action value="|
1109     . $locale->text('Save and Close') . qq|">
1110 |;
1111
1112   if (($form->{id})) {
1113     print qq|
1114         <input type="button" class="submit" onclick="set_history_window(|
1115         . Q($form->{id})
1116         . qq|);" name="history" id="history" value="|
1117         . $locale->text('history')
1118         . qq|">
1119
1120 <br>| . $locale->text("Workflow $form->{type}") . qq|<br>
1121 <input class=submit type=submit name=action value="|
1122       . $locale->text('Save as new') . qq|">
1123 <input class=submit type=submit name=action value="|
1124       . $locale->text('Delete') . qq|">|;
1125     if (($form->{type} =~ /sales_quotation$/)) {
1126       print qq|
1127 <input class=submit type=submit name=action value="|
1128         . $locale->text('Sales Order') . qq|">|;
1129     }
1130     if ($form->{type} =~ /request_quotation$/) {
1131       print qq|
1132 <input class=submit type=submit name=action value="|
1133         . $locale->text('Purchase Order') . qq|">|;
1134     }
1135     print qq|
1136 <input class=submit type=submit name=action value="|
1137       . $locale->text('Invoice') . qq|">
1138 |;
1139
1140     if ($form->{type} =~ /sales_order$/) {
1141       print qq|
1142 <br>$form->{heading} als neue Vorlage verwenden f&uuml;r<br>
1143 <input class=submit type=submit name=action value="|
1144         . $locale->text('Purchase Order') . qq|">
1145 <input class=submit type=submit name=action value="|
1146         . $locale->text('Quotation') . qq|">
1147 |;
1148
1149     } elsif ($form->{type} =~ /purchase_order$/) {
1150       print qq|
1151 <br>$form->{heading} als neue Vorlage verwenden f&uuml;r<br>
1152 <input class=submit type=submit name=action value="|
1153         . $locale->text('Sales Order') . qq|">
1154 <input class=submit type=submit name=action value="|
1155         . $locale->text('Request for Quotation') . qq|">
1156 |;
1157
1158     } else {
1159       print qq|
1160 <br>$form->{heading} als neue Vorlage verwenden f&uuml;r<br>
1161 <input class=submit type=submit name=action value="|
1162         . $locale->text('Order') . qq|">
1163 |;
1164     }
1165   }
1166
1167   $form->hide_form("saved_xyznumber");
1168
1169   print qq|
1170
1171 <input type=hidden name=rowcount value=$form->{rowcount}>
1172
1173 <input name=callback type=hidden value="$form->{callback}">
1174
1175 <input type=hidden name=login value=$form->{login}>
1176 <input type=hidden name=password value=$form->{password}>
1177
1178 </form>
1179
1180 </body>
1181 </html>
1182 |;
1183   $lxdebug->leave_sub();
1184 }
1185
1186 sub update {
1187   $lxdebug->enter_sub();
1188
1189   set_headings($form->{"id"} ? "edit" : "add");
1190
1191   map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) }
1192     qw(exchangerate creditlimit creditremaining);
1193   $form->{update} = 1;
1194
1195   if($form->{payment_id}) {
1196     $payment_id = $form->{payment_id};
1197   }
1198
1199   &check_name($form->{vc});
1200
1201   if($form->{payment_id} eq "") {
1202     $form->{payment_id} = $payment_id;
1203   }
1204
1205   $buysell              = 'buy';
1206   $buysell              = 'sell' if ($form->{vc} eq 'vendor');
1207   $form->{exchangerate} = $exchangerate
1208     if (
1209         $form->{forex} = (
1210                   $exchangerate =
1211                     $form->check_exchangerate(
1212                     \%myconfig, $form->{currency}, $form->{transdate}, $buysell
1213                     )));
1214
1215   # for pricegroups
1216   $i = $form->{rowcount};
1217
1218   $exchangerate = ($form->{exchangerate}) ? $form->{exchangerate} : 1;
1219
1220   if (   ($form->{"partnumber_$i"} eq "")
1221       && ($form->{"description_$i"} eq "")
1222       && ($form->{"partsgroup_$i"}  eq "")) {
1223
1224     $form->{creditremaining} += ($form->{oldinvtotal} - $form->{oldtotalpaid});
1225     &check_form;
1226
1227   } else {
1228
1229     if (   $form->{type} eq 'purchase_order'
1230         || $form->{type} eq 'request_quotation') {
1231       IR->retrieve_item(\%myconfig, \%$form);
1232     }
1233     if ($form->{type} eq 'sales_order' || $form->{type} eq 'sales_quotation') {
1234       IS->retrieve_item(\%myconfig, \%$form);
1235     }
1236
1237     my $rows = scalar @{ $form->{item_list} };
1238
1239     $form->{"discount_$i"} =
1240       $form->format_amount(\%myconfig, $form->{discount} * 100);
1241
1242     if ($rows) {
1243       $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});
1244
1245       if ($rows > 1) {
1246
1247         &select_item;
1248         exit;
1249
1250       } else {
1251
1252         $sellprice = $form->parse_amount(\%myconfig, $form->{"sellprice_$i"});
1253         if ($form->{"not_discountable_$i"}) {
1254           $form->{"discount_$i"} = 0;
1255         }
1256         map { $form->{item_list}[$i]{$_} =~ s/\"/&quot;/g }
1257           qw(partnumber description unit);
1258         map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} }
1259           keys %{ $form->{item_list}[0] };
1260         if ($form->{"part_payment_id_$i"} ne "") {
1261           $form->{payment_id} = $form->{"part_payment_id_$i"};
1262         }
1263
1264         $s = ($sellprice) ? $sellprice : $form->{"sellprice_$i"};
1265
1266         ($dec) = ($s =~ /\.(\d+)/);
1267         $dec           = length $dec;
1268         $decimalplaces = ($dec > 2) ? $dec : 2;
1269
1270         if ($sellprice) {
1271           $form->{"sellprice_$i"} = $sellprice;
1272         } else {
1273
1274           $form->{"sellprice_$i"} *= (1 - $form->{tradediscount});
1275
1276           # if there is an exchange rate adjust sellprice
1277           $form->{"sellprice_$i"} /= $exchangerate;
1278         }
1279
1280         $amount =
1281           $form->{"sellprice_$i"} * $form->{"qty_$i"} *
1282           (1 - $form->{"discount_$i"} / 100);
1283         map { $form->{"${_}_base"} = 0 } (split / /, $form->{taxaccounts});
1284         map { $form->{"${_}_base"} += $amount }
1285           (split / /, $form->{"taxaccounts_$i"});
1286         map { $amount += ($form->{"${_}_base"} * $form->{"${_}_rate"}) }
1287           split / /, $form->{taxaccounts}
1288           if !$form->{taxincluded};
1289
1290         $form->{creditremaining} -= $amount;
1291
1292         $form->{"sellprice_$i"} =
1293           $form->format_amount(\%myconfig, $form->{"sellprice_$i"},
1294                                $decimalplaces);
1295         $form->{"qty_$i"} =
1296           $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty);
1297
1298         # get pricegroups for parts
1299         IS->get_pricegroups_for_parts(\%myconfig, \%$form);
1300
1301         # build up html code for prices_$i
1302         &set_pricegroup($i);
1303       }
1304
1305       &display_form;
1306
1307     } else {
1308
1309       # ok, so this is a new part
1310       # ask if it is a part or service item
1311
1312       if (   $form->{"partsgroup_$i"}
1313           && ($form->{"partsnumber_$i"} eq "")
1314           && ($form->{"description_$i"} eq "")) {
1315         $form->{rowcount}--;
1316         $form->{"discount_$i"} = "";
1317         &display_form;
1318       } else {
1319
1320         $form->{"id_$i"}   = 0;
1321         $form->{"unit_$i"} = $locale->text('ea');
1322
1323         &new_item;
1324
1325       }
1326     }
1327   }
1328
1329   $lxdebug->leave_sub();
1330 }
1331
1332 sub search {
1333   $lxdebug->enter_sub();
1334
1335   if ($form->{type} eq 'purchase_order') {
1336     $form->{title} = $locale->text('Purchase Orders');
1337     $form->{vc}    = 'vendor';
1338     $ordlabel      = $locale->text('Order Number');
1339     $ordnumber     = 'ordnumber';
1340     $employee      = $locale->text('Employee');
1341   }
1342
1343   if ($form->{type} eq 'request_quotation') {
1344     $form->{title} = $locale->text('Request for Quotations');
1345     $form->{vc}    = 'vendor';
1346     $ordlabel      = $locale->text('RFQ Number');
1347     $ordnumber     = 'quonumber';
1348     $employee      = $locale->text('Employee');
1349   }
1350
1351   if ($form->{type} eq 'sales_order') {
1352     $form->{title} = $locale->text('Sales Orders');
1353     $form->{vc}    = 'customer';
1354     $ordlabel      = $locale->text('Order Number');
1355     $ordnumber     = 'ordnumber';
1356     $employee      = $locale->text('Employee');
1357   }
1358
1359   if ($form->{type} eq 'sales_quotation') {
1360     $form->{title} = $locale->text('Quotations');
1361     $form->{vc}    = 'customer';
1362     $ordlabel      = $locale->text('Quotation Number');
1363     $ordnumber     = 'quonumber';
1364     $employee      = $locale->text('Employee');
1365   }
1366
1367   # setup vendor / customer selection
1368   $form->all_vc(\%myconfig, $form->{vc},
1369                 ($form->{vc} eq 'customer') ? "AR" : "AP");
1370
1371   # departments
1372   if (@{ $form->{all_departments} }) {
1373     $form->{selectdepartment} = "<option>\n";
1374
1375     map {
1376       $form->{selectdepartment} .=
1377         "<option>$_->{description}--$_->{id}</option>\n"
1378     } (@{ $form->{all_departments} });
1379   }
1380
1381   $department = qq|
1382         <tr>
1383           <th align=right nowrap>| . $locale->text('Department') . qq|</th>
1384           <td colspan=3><select name=department>$form->{selectdepartment}</select></td>
1385         </tr>
1386 | if $form->{selectdepartment};
1387
1388   my $delivered;
1389   if (($form->{"type"} eq "sales_order") ||
1390       ($form->{"type"} eq "purchase_order")) {
1391     $delivered = qq|
1392         <tr>
1393           <td><input name="notdelivered" id="notdelivered" class="checkbox" type="checkbox" value="1" checked>
1394             <label for="notdelivered">|. $locale->text('Not delivered') . qq|</label></td>
1395           <td><input name="delivered" id="delivered" class="checkbox" type="checkbox" value="1" checked>
1396             <label for="delivered">| . $locale->text('Delivered') . qq|</label></td>
1397         </tr>
1398 |;
1399   }
1400
1401   # use JavaScript Calendar or not
1402   $form->{jsscript} = 1;
1403   $jsscript = "";
1404
1405   $button1 = qq|
1406      <td><input name=transdatefrom id=transdatefrom size=11 title="$myconfig{dateformat}" onBlur=\"check_right_date_format(this)\">
1407      <input type=button name=transdatefrom id="trigger3" value=|
1408     . $locale->text('button') . qq|></td>
1409     |;
1410   $button2 = qq|
1411      <td><input name=transdateto id=transdateto size=11 title="$myconfig{dateformat}" onBlur=\"check_right_date_format(this)\">
1412      <input type=button name=transdateto name=transdateto id="trigger4" value=|
1413     . $locale->text('button') . qq|></td>
1414    |;
1415
1416   #write Trigger
1417   $jsscript =
1418     Form->write_trigger(\%myconfig, "2", "transdatefrom", "BR", "trigger3",
1419                         "transdateto", "BL", "trigger4");
1420
1421   my $vc = $form->{vc} eq "customer" ? "customers" : "vendors";
1422
1423   $form->get_lists("projects" => { "key" => "ALL_PROJECTS",
1424                                    "all" => 1 },
1425                    "employees" => "ALL_EMPLOYEES",
1426                    $vc => "ALL_" . uc($vc));
1427
1428   my %labels = ();
1429   my @values = ("");
1430   foreach my $item (@{ $form->{"ALL_PROJECTS"} }) {
1431     push(@values, $item->{"id"});
1432     $labels{$item->{"id"}} = $item->{"projectnumber"};
1433   }
1434   my $projectnumber =
1435     NTI($cgi->popup_menu('-name' => 'project_id', '-values' => \@values,
1436                          '-labels' => \%labels));
1437
1438   #employees
1439   %labels = ();
1440   @values = ("");
1441   foreach my $item (@{ $form->{"ALL_EMPLOYEES"} }) {
1442     push(@values, $item->{"id"});
1443     $labels{$item->{"id"}} = $item->{"name"} ne "" ? $item->{"name"} : $item->{"login"};
1444   }
1445
1446   my $employee_block = qq|
1447     <tr>
1448       <th align="right">| . $locale->text('Employee') . qq|</th>
1449       <td>| .
1450         NTI($cgi->popup_menu('-name'   => 'employee_id',
1451                              '-values' => \@values,
1452                              '-labels' => \%labels)) . qq|
1453       </td>
1454     </tr>|;
1455
1456   %labels = ();
1457   @values = ("");
1458
1459   foreach my $item (@{ $form->{($form->{vc} eq "customer" ? "ALL_CUSTOMERS" : "ALL_VENDORS")}}) {
1460     push(@values, $item->{name}.qq|--|.$item->{"id"});
1461     $labels{$item->{name}.qq|--|.$item->{"id"}} = $item->{"name"};
1462   }
1463
1464   my $vc_label = $form->{vc} eq "customer" ? $locale->text('Customer') : $locale->text('Vendor');
1465   $vc =
1466     $myconfig{vclimit} <=  scalar(@values)
1467     ? qq|<input type="text" value="| . H(($form->{"old$form->{vc}"} =~ /^(.*)\-\-.*$/)) . qq|" name="$form->{vc}">|
1468     : NTI($cgi->popup_menu('-name' => "$form->{vc}",
1469                            '-default' => $form->{"old$form->{vc}"},
1470                            '-onChange' => 'document.getElementById(\'update_button\').click();',
1471                            '-values' => \@values,
1472                            '-labels' => \%labels));
1473   $form->header;
1474
1475   print qq|
1476 <body>
1477
1478 <form method=post action=$form->{script}>
1479
1480 <table width=100%>
1481   <tr>
1482     <th class=listtop>$form->{title}</th>
1483   </tr>
1484   <tr height="5"></tr>
1485   <tr>
1486     <td>
1487       <table>
1488         <tr>
1489           <th align=right>$vc_label</th>
1490           <td colspan=3>$vc</td>
1491         </tr>
1492         $department
1493         <tr>
1494           <th align=right>$ordlabel</th>
1495           <td colspan=3><input name="$ordnumber" size=20></td>
1496         </tr>
1497   $employee_block
1498         <tr>
1499           <th align="right">| . $locale->text('Transaction description') . qq|</th>
1500           <td colspan="3"><input name="transaction_description" size=20></td>
1501         </tr>
1502         <tr>
1503           <th align="right">| . $locale->text("Project Number") . qq|</th>
1504           <td colspan="3">$projectnumber</td>
1505         </tr>
1506         <tr>
1507           <th align=right>| . $locale->text('From') . qq|</th>
1508           $button1
1509           <th align=right>| . $locale->text('Bis') . qq|</th>
1510           $button2
1511         </tr>
1512         <input type=hidden name=sort value=transdate>
1513         <tr>
1514           <th align=right>| . $locale->text('Include in Report') . qq|</th>
1515           <td colspan=5>
1516             <table>
1517         <tr>
1518           <td><input type="checkbox" name="open" value="1" id="open" checked>
1519             <label for="open">| . $locale->text("Open") . qq|</td>
1520           <td><input type="checkbox" name="closed" value="1" id="closed">
1521             <label for="closed">| . $locale->text("Closed") . qq|</td>
1522         </tr>
1523         $delivered
1524               <tr>
1525                 <td><input name="l_id" class=checkbox type=checkbox value=Y>
1526                 | . $locale->text('ID') . qq|</td>
1527                 <td><input name="l_$ordnumber" class=checkbox type=checkbox value=Y checked> $ordlabel</td>
1528                 <td><input name="l_transdate" class=checkbox type=checkbox value=Y checked> |
1529     . $locale->text('Date') . qq|</td>
1530                 <td><input name="l_reqdate" class=checkbox type=checkbox value=Y checked> |
1531     . $locale->text('Required by') . qq|</td>
1532               </tr>
1533               <tr>
1534                 <td><input name="l_name" class=checkbox type=checkbox value=Y checked> $vc_label</td>
1535                 <td><input name="l_employee" class=checkbox type=checkbox value=Y checked> $employee</td>
1536                 <td><input name="l_shipvia" class=checkbox type=checkbox value=Y> |
1537     . $locale->text('Ship via') . qq|</td>
1538               </tr>
1539               <tr>
1540                 <td><input name="l_netamount" class=checkbox type=checkbox value=Y> |
1541     . $locale->text('Amount') . qq|</td>
1542                 <td><input name="l_tax" class=checkbox type=checkbox value=Y> |
1543     . $locale->text('Tax') . qq|</td>
1544                 <td><input name="l_amount" class=checkbox type=checkbox value=Y checked> |
1545     . $locale->text('Total') . qq|</td>
1546               </tr>
1547               <tr>
1548                 <td><input name="l_marge_total" class=checkbox type=checkbox value=Y> |
1549     .             $locale->text('Ertrag') . qq|</td>
1550                 <td><input name="l_marge_percent" class=checkbox type=checkbox value=Y> |
1551     .             $locale->text('Ertrag prozentual') . qq|</td>
1552               </tr>
1553               <tr>
1554           <td><input name="l_globalprojectnumber" class=checkbox type=checkbox value=Y> |
1555           . $locale->text('Project Number') . qq|</td>
1556           <td><input name="l_transaction_description" class=checkbox type=checkbox value=Y> |
1557           . $locale->text('Transaction description') . qq|</td>
1558               </tr>
1559               <tr>
1560                 <td><input name="l_subtotal" class=checkbox type=checkbox value=Y> |
1561     . $locale->text('Subtotal') . qq|</td>
1562               </tr>
1563             </table>
1564           </td>
1565         </tr>
1566       </table>
1567     </td>
1568   </tr>
1569   <tr><td colspan=4><hr size=3 noshade></td></tr>
1570 </table>
1571
1572 $jsscript
1573
1574 <br>
1575 <input type=hidden name=nextsub value=orders>
1576 <input type=hidden name=login value=$form->{login}>
1577 <input type=hidden name=password value=$form->{password}>
1578 <input type=hidden name=vc value=$form->{vc}>
1579 <input type=hidden name=type value=$form->{type}>
1580
1581 <input class=submit type=submit name=action value="|
1582     . $locale->text('Continue') . qq|">
1583 </form>
1584
1585 </body>
1586 </html>
1587 |;
1588
1589   $lxdebug->leave_sub();
1590 }
1591
1592 sub create_subtotal_row {
1593   $lxdebug->enter_sub();
1594
1595   my ($totals, $columns, $column_alignment, $subtotal_columns, $class) = @_;
1596
1597   my $row = { map { $_ => { 'data' => '', 'class' => $class, 'align' => $column_alignment->{$_}, } } @{ $columns } };
1598
1599   map { $row->{$_}->{data} = $form->format_amount(\%myconfig, $totals->{$_}, 2) } @{ $subtotal_columns };
1600
1601   $row->{tax}->{data} = $form->format_amount(\%myconfig, $totals->{amount} - $totals->{netamount}, 2);
1602
1603   map { $totals->{$_} = 0 } @{ $subtotal_columns };
1604
1605   $lxdebug->leave_sub();
1606
1607   return $row;
1608 }
1609
1610 sub orders {
1611   $lxdebug->enter_sub();
1612
1613   $ordnumber = ($form->{type} =~ /_order$/) ? "ordnumber" : "quonumber";
1614
1615   ($form->{ $form->{vc} }, $form->{"${form->{vc}}_id"}) = split(/--/, $form->{ $form->{vc} });
1616
1617   $form->{sort} ||= 'transdate';
1618
1619   OE->transactions(\%myconfig, \%$form);
1620
1621   $form->{rowcount} = scalar @{ $form->{OE} };
1622
1623   my @columns = (
1624     "transdate",               "reqdate",
1625     "id",                      $ordnumber,
1626     "name",                    "netamount",
1627     "tax",                     "amount",
1628     "curr",                    "employee",
1629     "shipvia",                 "globalprojectnumber",
1630     "transaction_description", "open",
1631     "delivered", "marge_total", "marge_percent"
1632   );
1633
1634   # only show checkboxes if gotten here via sales_order form.
1635   my $allow_multiple_orders = $form->{type} eq 'sales_order';
1636   if ($allow_multiple_orders) {
1637     unshift @columns, "ids";
1638   }
1639
1640   $form->{l_open}      = $form->{l_closed} = "Y" if ($form->{open}      && $form->{closed});
1641   $form->{l_delivered} = "Y"                     if ($form->{delivered} && $form->{notdelivered});
1642
1643   my $attachment_basename;
1644   if ($form->{vc} eq 'vendor') {
1645     if ($form->{type} eq 'purchase_order') {
1646       $form->{title}       = $locale->text('Purchase Orders');
1647       $attachment_basename = $locale->text('purchase_order_list');
1648     } else {
1649       $form->{title}       = $locale->text('Request for Quotations');
1650       $attachment_basename = $locale->text('rfq_list');
1651     }
1652
1653   } else {
1654     if ($form->{type} eq 'sales_order') {
1655       $form->{title}       = $locale->text('Sales Orders');
1656       $attachment_basename = $locale->text('sales_order_list');
1657     } else {
1658       $form->{title}       = $locale->text('Quotations');
1659       $attachment_basename = $locale->text('quotation_list');
1660     }
1661   }
1662
1663   my $report = SL::ReportGenerator->new(\%myconfig, $form);
1664
1665   my @hidden_variables = map { "l_${_}" } @columns;
1666   push @hidden_variables, "l_subtotal", $form->{vc}, qw(l_closed l_notdelivered open closed delivered notdelivered ordnumber quonumber
1667                                                         transaction_description transdatefrom transdateto type vc employee_id);
1668
1669   my $href = build_std_url('action=orders', grep { $form->{$_} } @hidden_variables);
1670
1671   my %column_defs = (
1672     'ids'                     => { 'text' => '', },
1673     'transdate'               => { 'text' => $locale->text('Date'), },
1674     'reqdate'                 => { 'text' => $locale->text('Required by'), },
1675     'id'                      => { 'text' => $locale->text('ID'), },
1676     'ordnumber'               => { 'text' => $locale->text('Order'), },
1677     'quonumber'               => { 'text' => $form->{type} eq "request_quotation" ? $locale->text('RFQ') : $locale->text('Quotation'), },
1678     'name'                    => { 'text' => $form->{vc} eq 'customer' ? $locale->text('Customer') : $locale->text('Vendor'), },
1679     'netamount'               => { 'text' => $locale->text('Amount'), },
1680     'tax'                     => { 'text' => $locale->text('Tax'), },
1681     'amount'                  => { 'text' => $locale->text('Total'), },
1682     'curr'                    => { 'text' => $locale->text('Curr'), },
1683     'employee'                => { 'text' => $locale->text('Salesperson'), },
1684     'shipvia'                 => { 'text' => $locale->text('Ship via'), },
1685     'globalprojectnumber'     => { 'text' => $locale->text('Project Number'), },
1686     'transaction_description' => { 'text' => $locale->text('Transaction description'), },
1687     'open'                    => { 'text' => $locale->text('Open'), },
1688     'delivered'               => { 'text' => $locale->text('Delivered'), },
1689     'marge_total'                   => { 'text' => $locale->text('Ertrag'), },
1690     'marge_percent'           => { 'text' => $locale->text('Ertrag prozentual'), }
1691   );
1692
1693   foreach my $name (qw(id transdate reqdate quonumber ordnumber name employee shipvia)) {
1694     $column_defs{$name}->{link} = $href . "&sort=$name";
1695   }
1696
1697   my %column_alignment = map { $_ => 'right' } qw(netamount tax amount curr);
1698
1699   $form->{"l_type"} = "Y";
1700   map { $column_defs{$_}->{visible} = $form->{"l_${_}"} ? 1 : 0 } @columns;
1701   $column_defs{ids}->{visible} = $allow_multiple_orders ? 'HTML' : 0;
1702
1703   $report->set_columns(%column_defs);
1704   $report->set_column_order(@columns);
1705
1706   $report->set_export_options('orders', @hidden_variables);
1707
1708   $report->set_sort_indicator($form->{sort}, 1);
1709
1710   my @options;
1711   if ($form->{customer}) {
1712     push @options, $locale->text('Customer') . " : $form->{customer}";
1713   }
1714   if ($form->{vendor}) {
1715     push @options, $locale->text('Vendor') . " : $form->{vendor}";
1716   }
1717   if ($form->{department}) {
1718     ($department) = split /--/, $form->{department};
1719     push @options, $locale->text('Department') . " : $department";
1720   }
1721   if ($form->{ordnumber}) {
1722     push @options, $locale->text('Order Number') . " : $form->{ordnumber}";
1723   }
1724   if ($form->{notes}) {
1725     push @options, $locale->text('Notes') . " : $form->{notes}";
1726   }
1727   if ($form->{transaction_description}) {
1728     push @options, $locale->text('Transaction description') . " : $form->{transaction_description}";
1729   }
1730   if ($form->{transdatefrom}) {
1731     push @options, $locale->text('From') . "&nbsp;" . $locale->date(\%myconfig, $form->{transdatefrom}, 1);
1732   }
1733   if ($form->{transdateto}) {
1734     push @options, $locale->text('Bis') . "&nbsp;" . $locale->date(\%myconfig, $form->{transdateto}, 1);
1735   }
1736   if ($form->{open}) {
1737     push @options, $locale->text('Open');
1738   }
1739   if ($form->{closed}) {
1740     push @options, $locale->text('Closed');
1741   }
1742   if ($form->{delivered}) {
1743     push @options, $locale->text('Delivered');
1744   }
1745   if ($form->{notdelivered}) {
1746     push @options, $locale->text('Not delivered');
1747   }
1748
1749   $report->set_options('top_info_text'        => join("\n", @options),
1750                        'raw_top_info_text'    => $form->parse_html_template('oe/orders_top'),
1751                        'raw_bottom_info_text' => $form->parse_html_template('oe/orders_bottom', { 'SHOW_CONTINUE_BUTTON' => $allow_multiple_orders }),
1752                        'output_format'        => 'HTML',
1753                        'title'                => $form->{title},
1754                        'attachment_basename'  => $attachment_basename . strftime('_%Y%m%d', localtime time),
1755     );
1756   $report->set_options_from_form();
1757
1758   # add sort and escape callback, this one we use for the add sub
1759   $form->{callback} = $href .= "&sort=$form->{sort}";
1760
1761   # escape callback for href
1762   $callback = $form->escape($href);
1763
1764   my @subtotal_columns = qw(netamount amount marge_total);
1765
1766   my %totals    = map { $_ => 0 } @subtotal_columns;
1767   my %subtotals = map { $_ => 0 } @subtotal_columns;
1768
1769   my $idx = 0;
1770
1771   my $edit_url = build_std_url('action=edit', 'type', 'vc');
1772
1773   foreach $oe (@{ $form->{OE} }) {
1774     map { $oe->{$_} *= $oe->{exchangerate} } @subtotal_columns;
1775
1776     $oe->{tax}       = $oe->{amount} - $oe->{netamount};
1777     $oe->{open}      = $oe->{closed}    ? $locale->text('No')  : $locale->text('Yes');
1778     $oe->{delivered} = $oe->{delivered} ? $locale->text('Yes') : $locale->text('No');
1779
1780     map { $subtotals{$_} += $oe->{$_};
1781           $totals{$_}    += $oe->{$_} } @subtotal_columns;
1782
1783     map { $oe->{$_} = $form->format_amount(\%myconfig, $oe->{$_}, 2) } qw(netamount tax amount marge_total marge_percent);
1784
1785     my $row = { };
1786
1787     foreach my $column (@columns) {
1788       next if ($column eq 'ids');
1789       $row->{$column} = {
1790         'data'  => $oe->{$column},
1791         'align' => $column_alignment{$column},
1792       };
1793     }
1794
1795     $row->{ids} = {
1796       'raw_data' =>   $cgi->hidden('-name' => "trans_id_${idx}", '-value' => $oe->{id})
1797                     . $cgi->checkbox('-name' => "multi_id_${idx}", '-value' => 1, '-label' => ''),
1798       'valign'   => 'center',
1799       'align'    => 'center',
1800     };
1801
1802     $row->{$ordnumber}->{link} = $edit_url . "&id=" . E($oe->{id}) . "&callback=${callback}";
1803
1804     my $row_set = [ $row ];
1805
1806     if (($form->{l_subtotal} eq 'Y')
1807         && (($idx == (scalar @{ $form->{OE} } - 1))
1808             || ($oe->{ $form->{sort} } ne $form->{OE}->[$idx + 1]->{ $form->{sort} }))) {
1809       push @{ $row_set }, create_subtotal_row(\%subtotals, \@columns, \%column_alignment, \@subtotal_columns, 'listsubtotal');
1810     }
1811
1812     $report->add_data($row_set);
1813
1814     $idx++;
1815   }
1816
1817   $report->add_separator();
1818   $report->add_data(create_subtotal_row(\%totals, \@columns, \%column_alignment, \@subtotal_columns, 'listtotal'));
1819
1820   $report->generate_with_headers();
1821
1822   $lxdebug->leave_sub();
1823 }
1824
1825 sub check_delivered_flag {
1826   $lxdebug->enter_sub();
1827
1828   if (($form->{type} ne 'sales_order') && ($form->{type} ne 'purchase_order')) {
1829     return $lxdebug->leave_sub();
1830   }
1831
1832   my $all_delivered = 0;
1833
1834   foreach my $i (1 .. $form->{rowcount}) {
1835     next if (!$form->{"id_$i"});
1836
1837     if ($form->parse_amount(\%myconfig, $form->{"qty_$i"}) == $form->parse_amount(\%myconfig, $form->{"ship_$i"})) {
1838       $all_delivered = 1;
1839       next;
1840     }
1841
1842     $all_delivered = 0;
1843     last;
1844   }
1845
1846   $form->{delivered} = 1 if $all_delivered;
1847
1848   $lxdebug->leave_sub();
1849 }
1850
1851 sub save_and_close {
1852   $lxdebug->enter_sub();
1853
1854   $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
1855
1856   if ($form->{type} =~ /_order$/) {
1857     $form->isblank("transdate", $locale->text('Order Date missing!'));
1858   } else {
1859     $form->isblank("transdate", $locale->text('Quotation Date missing!'));
1860   }
1861
1862   my $idx = $form->{type} =~ /_quotation$/ ? "quonumber" : "ordnumber";
1863   $form->{$idx} =~ s/^\s*//g;
1864   $form->{$idx} =~ s/\s*$//g;
1865
1866   $msg = ucfirst $form->{vc};
1867   $form->isblank($form->{vc}, $locale->text($msg . " missing!"));
1868
1869   # $locale->text('Customer missing!');
1870   # $locale->text('Vendor missing!');
1871
1872   $form->isblank("exchangerate", $locale->text('Exchangerate missing!'))
1873     if ($form->{currency} ne $form->{defaultcurrency});
1874
1875   &validate_items;
1876
1877   if($form->{payment_id}) {
1878     $payment_id = $form->{payment_id};
1879   }
1880
1881   # if the name changed get new values
1882   if (&check_name($form->{vc})) {
1883     if($form->{payment_id} eq "") {
1884       $form->{payment_id} = $payment_id;
1885     }
1886     &update;
1887     exit;
1888   }
1889
1890   $form->{id} = 0 if $form->{saveasnew};
1891
1892   # this is for the internal notes section for the [email] Subject
1893   if ($form->{type} =~ /_order$/) {
1894     if ($form->{type} eq 'sales_order') {
1895       $form->{label} = $locale->text('Sales Order');
1896
1897       $numberfld = "sonumber";
1898       $ordnumber = "ordnumber";
1899     } else {
1900       $form->{label} = $locale->text('Purchase Order');
1901
1902       $numberfld = "ponumber";
1903       $ordnumber = "ordnumber";
1904     }
1905
1906     $err = $locale->text('Cannot save order!');
1907
1908     check_delivered_flag();
1909
1910   } else {
1911     if ($form->{type} eq 'sales_quotation') {
1912       $form->{label} = $locale->text('Quotation');
1913
1914       $numberfld = "sqnumber";
1915       $ordnumber = "quonumber";
1916     } else {
1917       $form->{label} = $locale->text('Request for Quotation');
1918
1919       $numberfld = "rfqnumber";
1920       $ordnumber = "quonumber";
1921     }
1922
1923     $err = $locale->text('Cannot save quotation!');
1924
1925   }
1926
1927   # get new number in sequence if no number is given or if saveasnew was requested
1928   if (!$form->{$ordnumber} || $form->{saveasnew}) {
1929     $form->{$ordnumber} = $form->update_defaults(\%myconfig, $numberfld);
1930   }
1931
1932   relink_accounts();
1933
1934   $form->error($err) if (!OE->save(\%myconfig, \%$form));
1935
1936   # saving the history
1937   if(!exists $form->{addition}) {
1938     $form->{snumbers} = qq|ordnumber_| . $form->{ordnumber};
1939         $form->{addition} = "SAVED";
1940         $form->save_history($form->dbconnect(\%myconfig));
1941   }
1942   # /saving the history
1943
1944   $form->redirect($form->{label} . " $form->{$ordnumber} " .
1945                   $locale->text('saved!'));
1946
1947   $lxdebug->leave_sub();
1948 }
1949
1950 sub save {
1951   $lxdebug->enter_sub();
1952
1953   $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
1954
1955
1956   if ($form->{type} =~ /_order$/) {
1957     $form->isblank("transdate", $locale->text('Order Date missing!'));
1958   } else {
1959     $form->isblank("transdate", $locale->text('Quotation Date missing!'));
1960   }
1961
1962   my $idx = $form->{type} =~ /_quotation$/ ? "quonumber" : "ordnumber";
1963   $form->{$idx} =~ s/^\s*//g;
1964   $form->{$idx} =~ s/\s*$//g;
1965
1966   $msg = ucfirst $form->{vc};
1967   $form->isblank($form->{vc}, $locale->text($msg . " missing!"));
1968
1969   # $locale->text('Customer missing!');
1970   # $locale->text('Vendor missing!');
1971
1972   $form->isblank("exchangerate", $locale->text('Exchangerate missing!'))
1973     if ($form->{currency} ne $form->{defaultcurrency});
1974
1975   &validate_items;
1976
1977   if($form->{payment_id}) {
1978     $payment_id = $form->{payment_id};
1979   }
1980
1981   # if the name changed get new values
1982   if (&check_name($form->{vc})) {
1983     if($form->{payment_id} eq "") {
1984       $form->{payment_id} = $payment_id;
1985     }
1986     &update;
1987     exit;
1988   }
1989
1990   $form->{id} = 0 if $form->{saveasnew};
1991
1992   # this is for the internal notes section for the [email] Subject
1993   if ($form->{type} =~ /_order$/) {
1994     if ($form->{type} eq 'sales_order') {
1995       $form->{label} = $locale->text('Sales Order');
1996
1997       $numberfld = "sonumber";
1998       $ordnumber = "ordnumber";
1999     } else {
2000       $form->{label} = $locale->text('Purchase Order');
2001
2002       $numberfld = "ponumber";
2003       $ordnumber = "ordnumber";
2004     }
2005
2006     $err = $locale->text('Cannot save order!');
2007
2008     check_delivered_flag();
2009
2010   } else {
2011     if ($form->{type} eq 'sales_quotation') {
2012       $form->{label} = $locale->text('Quotation');
2013
2014       $numberfld = "sqnumber";
2015       $ordnumber = "quonumber";
2016     } else {
2017       $form->{label} = $locale->text('Request for Quotation');
2018
2019       $numberfld = "rfqnumber";
2020       $ordnumber = "quonumber";
2021     }
2022
2023     $err = $locale->text('Cannot save quotation!');
2024
2025   }
2026
2027   $form->{$ordnumber} = $form->update_defaults(\%myconfig, $numberfld)
2028     unless $form->{$ordnumber};
2029
2030   relink_accounts();
2031
2032   OE->save(\%myconfig, \%$form);
2033
2034   # saving the history
2035   if(!exists $form->{addition}) {
2036     $form->{snumbers} = qq|ordnumber_| . $form->{ordnumber};
2037         $form->{addition} = "SAVED";
2038         $form->save_history($form->dbconnect(\%myconfig));
2039   }
2040   # /saving the history
2041
2042   $form->{simple_save} = 1;
2043   if(!$form->{print_and_save}) {
2044     set_headings("edit");
2045     &update;
2046     exit;
2047   }
2048   $lxdebug->leave_sub();
2049 }
2050
2051 sub delete {
2052   $lxdebug->enter_sub();
2053
2054   $form->header;
2055
2056   if ($form->{type} =~ /_order$/) {
2057     $msg       = $locale->text('Are you sure you want to delete Order Number');
2058     $ordnumber = 'ordnumber';
2059   } else {
2060     $msg = $locale->text('Are you sure you want to delete Quotation Number');
2061     $ordnumber = 'quonumber';
2062   }
2063
2064   print qq|
2065 <body>
2066
2067 <form method=post action=$form->{script}>
2068 |;
2069
2070   # delete action variable
2071   map { delete $form->{$_} } qw(action header);
2072
2073   foreach $key (keys %$form) {
2074     $form->{$key} =~ s/\"/&quot;/g;
2075     print qq|<input type=hidden name=$key value="$form->{$key}">\n|;
2076   }
2077
2078   print qq|
2079 <h2 class=confirm>| . $locale->text('Confirm!') . qq|</h2>
2080
2081 <h4>$msg $form->{$ordnumber}</h4>
2082 <p>
2083 <input type="hidden" name="yes_nextsub" value="delete_order_quotation">
2084 <input name=action class=submit type=submit value="|
2085     . $locale->text('Yes') . qq|">
2086 <button class=submit type=button onclick="history.back()">|
2087     . $locale->text('No') . qq|</button>
2088 </form>
2089
2090 </body>
2091 </html>
2092 |;
2093
2094   $lxdebug->leave_sub();
2095 }
2096
2097 sub delete_order_quotation {
2098   $lxdebug->enter_sub();
2099
2100   if ($form->{type} =~ /_order$/) {
2101     $msg = $locale->text('Order deleted!');
2102     $err = $locale->text('Cannot delete order!');
2103   } else {
2104     $msg = $locale->text('Quotation deleted!');
2105     $err = $locale->text('Cannot delete quotation!');
2106   }
2107   if (OE->delete(\%myconfig, \%$form, $spool)){
2108     # saving the history
2109     if(!exists $form->{addition}) {
2110       $form->{snumbers} = qq|ordnumber_| . $form->{ordnumber};
2111           $form->{addition} = "DELETED";
2112           $form->save_history($form->dbconnect(\%myconfig));
2113     }
2114     # /saving the history
2115     $form->info($msg);
2116     exit();
2117   }
2118   $form->error($err);
2119
2120   $lxdebug->leave_sub();
2121 }
2122
2123 sub invoice {
2124   $lxdebug->enter_sub();
2125
2126   $form->{old_employee_id} = $form->{employee_id};
2127   $form->{old_salesman_id} = $form->{salesman_id};
2128
2129   if ($form->{type} =~ /_order$/) {
2130
2131     # these checks only apply if the items don't bring their own ordnumbers/transdates.
2132     # The if clause ensures that by searching for empty ordnumber_#/transdate_# fields.
2133     $form->isblank("ordnumber", $locale->text('Order Number missing!'))
2134       if (+{ map { $form->{"ordnumber_$_"}, 1 } (1 .. $form->{rowcount} - 1) }->{''});
2135     $form->isblank("transdate", $locale->text('Order Date missing!'))
2136       if (+{ map { $form->{"transdate_$_"}, 1 } (1 .. $form->{rowcount} - 1) }->{''});
2137
2138     # also copy deliverydate from the order
2139     $form->{deliverydate} = $form->{reqdate} if $form->{reqdate};
2140     $form->{orddate} = $form->{transdate};
2141   } else {
2142     $form->isblank("quonumber", $locale->text('Quotation Number missing!'));
2143     $form->isblank("transdate", $locale->text('Quotation Date missing!'));
2144     $form->{ordnumber} = "";
2145     $form->{quodate} = $form->{transdate};
2146   }
2147
2148   if($form->{payment_id}) {
2149     $payment_id = $form->{payment_id};
2150   }
2151
2152   # if the name changed get new values
2153   if (&check_name($form->{vc})) {
2154     if($form->{payment_id} eq "") {
2155       $form->{payment_id} = $payment_id;
2156     }
2157     &update;
2158     exit;
2159   }
2160
2161   $form->{cp_id} *= 1;
2162
2163   for $i (1 .. $form->{rowcount}) {
2164     map({ $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig,
2165                                                      $form->{"${_}_${i}"})
2166             if ($form->{"${_}_${i}"}) }
2167         qw(ship qty sellprice listprice basefactor));
2168   }
2169
2170   if (   $form->{type} =~ /_order/
2171       && $form->{currency} ne $form->{defaultcurrency}) {
2172
2173     # check if we need a new exchangerate
2174     $buysell = ($form->{type} eq 'sales_order') ? "buy" : "sell";
2175
2176     $orddate      = $form->current_date(\%myconfig);
2177     $exchangerate =
2178       $form->check_exchangerate(\%myconfig, $form->{currency}, $orddate,
2179                                 $buysell);
2180
2181     if (!$exchangerate) {
2182       &backorder_exchangerate($orddate, $buysell);
2183       exit;
2184     }
2185   }
2186
2187   # close orders/quotations
2188   $form->{closed} = 1;
2189
2190   # save order if one ordnumber has been given
2191   # if not it's most likely a collective order, which can't be saved back
2192   # so they just have to be closed
2193   if (($form->{ordnumber} ne '') || ($form->{quonumber} ne '')) {
2194     OE->close_order(\%myconfig, \%$form) if ($form->{id});
2195   } else {
2196     OE->close_orders(\%myconfig, \%$form);
2197   }
2198
2199   $form->{transdate} = $form->{invdate} = $form->current_date(\%myconfig);
2200   $form->{duedate} =
2201     $form->current_date(\%myconfig, $form->{invdate}, $form->{terms} * 1);
2202
2203   $form->{id}     = '';
2204   $form->{closed} = 0;
2205   $form->{rowcount}--;
2206   $form->{shipto} = 1;
2207
2208   $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
2209
2210   if ($form->{type} =~ /_order$/) {
2211     $form->{exchangerate} = $exchangerate;
2212     &create_backorder;
2213   }
2214
2215   if (   $form->{type} eq 'purchase_order'
2216       || $form->{type} eq 'request_quotation') {
2217     $form->{title}  = $locale->text('Add Vendor Invoice');
2218     $form->{script} = 'ir.pl';
2219     $script         = "ir";
2220     $buysell        = 'sell';
2221   }
2222   if ($form->{type} eq 'sales_order' || $form->{type} eq 'sales_quotation') {
2223     $form->{title}  = $locale->text('Add Sales Invoice');
2224     $form->{script} = 'is.pl';
2225     $script         = "is";
2226     $buysell        = 'buy';
2227   }
2228
2229   # bo creates the id, reset it
2230   map { delete $form->{$_} }
2231     qw(id subject message cc bcc printed emailed queued);
2232   $form->{ $form->{vc} } =~ s/--.*//g;
2233   $form->{type} = "invoice";
2234
2235   # locale messages
2236   $locale = new Locale "$myconfig{countrycode}", "$script";
2237
2238   require "bin/mozilla/$form->{script}";
2239
2240   map { $form->{"select$_"} = "" } ($form->{vc}, currency);
2241
2242   map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) }
2243     qw(creditlimit creditremaining);
2244
2245   $currency = $form->{currency};
2246   &invoice_links;
2247
2248   $form->{currency}     = $currency;
2249   $form->{exchangerate} = "";
2250   $form->{forex}        = "";
2251   $form->{exchangerate} = $exchangerate
2252     if (
2253         $form->{forex} = (
2254                     $exchangerate =
2255                       $form->check_exchangerate(
2256                       \%myconfig, $form->{currency}, $form->{invdate}, $buysell
2257                       )));
2258
2259   $form->{creditremaining} -= ($form->{oldinvtotal} - $form->{ordtotal});
2260
2261   &prepare_invoice;
2262
2263   # format amounts
2264   for $i (1 .. $form->{rowcount}) {
2265     $form->{"discount_$i"} =
2266       $form->format_amount(\%myconfig, $form->{"discount_$i"});
2267
2268     ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/);
2269     $dec           = length $dec;
2270     $decimalplaces = ($dec > 2) ? $dec : 2;
2271
2272     # copy delivery date from reqdate for order -> invoice conversion
2273     $form->{"deliverydate_$i"} = $form->{"reqdate_$i"}
2274       unless $form->{"deliverydate_$i"};
2275
2276     $form->{"sellprice_$i"} =
2277       $form->format_amount(\%myconfig, $form->{"sellprice_$i"},
2278                            $decimalplaces);
2279
2280     (my $dec_qty) = ($form->{"qty_$i"} =~ /\.(\d+)/);
2281     $dec_qty = length $dec_qty;
2282     $form->{"qty_$i"} =
2283       $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty);
2284
2285     map { $form->{"${_}_$i"} =~ s/\"/&quot;/g }
2286       qw(partnumber description unit);
2287
2288   }
2289
2290   &display_form;
2291
2292   $lxdebug->leave_sub();
2293 }
2294
2295 sub backorder_exchangerate {
2296   $lxdebug->enter_sub();
2297   my ($orddate, $buysell) = @_;
2298
2299   $form->header;
2300
2301   print qq|
2302 <body>
2303
2304 <form method=post action=$form->{script}>
2305 |;
2306
2307   # delete action variable
2308   map { delete $form->{$_} } qw(action header exchangerate);
2309
2310   foreach $key (keys %$form) {
2311     $form->{$key} =~ s/\"/&quot;/g;
2312     print qq|<input type=hidden name=$key value="$form->{$key}">\n|;
2313   }
2314
2315   $form->{title} = $locale->text('Add Exchangerate');
2316
2317   print qq|
2318
2319 <input type=hidden name=login value=$form->{login}>
2320 <input type=hidden name=password value=$form->{password}>
2321
2322 <input type=hidden name=exchangeratedate value=$orddate>
2323 <input type=hidden name=buysell value=$buysell>
2324
2325 <table width=100%>
2326   <tr><th class=listtop>$form->{title}</th></tr>
2327   <tr height="5"></tr>
2328   <tr>
2329     <td>
2330       <table>
2331         <tr>
2332           <th align=right>| . $locale->text('Currency') . qq|</th>
2333           <td>$form->{currency}</td>
2334         </tr>
2335         <tr>
2336           <th align=right>| . $locale->text('Date') . qq|</th>
2337           <td>$orddate</td>
2338         </tr>
2339         <tr>
2340           <th align=right>| . $locale->text('Exchangerate') . qq|</th>
2341           <td><input name=exchangerate size=11></td>
2342         </tr>
2343       </table>
2344     </td>
2345   </tr>
2346 </table>
2347
2348 <hr size=3 noshade>
2349
2350 <br>
2351 <input type=hidden name=nextsub value=save_exchangerate>
2352
2353 <input name=action class=submit type=submit value="|
2354     . $locale->text('Continue') . qq|">
2355
2356 </form>
2357
2358 </body>
2359 </html>
2360 |;
2361
2362   $lxdebug->leave_sub();
2363 }
2364
2365 sub save_exchangerate {
2366   $lxdebug->enter_sub();
2367
2368   $form->isblank("exchangerate", $locale->text('Exchangerate missing!'));
2369   $form->{exchangerate} =
2370     $form->parse_amount(\%myconfig, $form->{exchangerate});
2371   $form->save_exchangerate(\%myconfig, $form->{currency},
2372                            $form->{exchangeratedate},
2373                            $form->{exchangerate}, $form->{buysell});
2374
2375   &invoice;
2376
2377   $lxdebug->leave_sub();
2378 }
2379
2380 sub create_backorder {
2381   $lxdebug->enter_sub();
2382
2383   $form->{shipped} = 1;
2384
2385   # figure out if we need to create a backorder
2386   # items aren't saved if qty != 0
2387
2388   for $i (1 .. $form->{rowcount}) {
2389     $totalqty  += $qty  = $form->{"qty_$i"};
2390     $totalship += $ship = $form->{"ship_$i"};
2391
2392     $form->{"qty_$i"} = $qty - $ship;
2393   }
2394
2395   if ($totalship == 0) {
2396     map { $form->{"ship_$_"} = $form->{"qty_$_"} } (1 .. $form->{rowcount});
2397     $form->{ordtotal} = 0;
2398     $form->{shipped}  = 0;
2399     return;
2400   }
2401
2402   if ($totalqty == $totalship) {
2403     map { $form->{"qty_$_"} = $form->{"ship_$_"} } (1 .. $form->{rowcount});
2404     $form->{ordtotal} = 0;
2405     return;
2406   }
2407
2408   @flds = (
2409     qw(partnumber description qty ship unit sellprice discount id inventory_accno bin income_accno expense_accno listprice assembly taxaccounts partsgroup)
2410   );
2411
2412   for $i (1 .. $form->{rowcount}) {
2413     map {
2414       $form->{"${_}_$i"} =
2415         $form->format_amount(\%myconfig, $form->{"${_}_$i"})
2416     } qw(sellprice discount);
2417   }
2418
2419   relink_accounts();
2420
2421   OE->save(\%myconfig, \%$form);
2422
2423   # rebuild rows for invoice
2424   @a     = ();
2425   $count = 0;
2426
2427   for $i (1 .. $form->{rowcount}) {
2428     $form->{"qty_$i"} = $form->{"ship_$i"};
2429
2430     if ($form->{"qty_$i"}) {
2431       push @a, {};
2432       $j = $#a;
2433       map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds;
2434       $count++;
2435     }
2436   }
2437
2438   $form->redo_rows(\@flds, \@a, $count, $form->{rowcount});
2439   $form->{rowcount} = $count;
2440
2441   $lxdebug->leave_sub();
2442 }
2443
2444 sub save_as_new {
2445   $lxdebug->enter_sub();
2446
2447   $form->{saveasnew} = 1;
2448   $form->{closed}    = 0;
2449   map { delete $form->{$_} } qw(printed emailed queued);
2450
2451   # Let Lx-Office assign a new order number if the user hasn't changed the
2452   # previous one. If it has been changed manually then use it as-is.
2453   my $idx = $form->{type} =~ /_quotation$/ ? "quonumber" : "ordnumber";
2454   $form->{$idx} =~ s/^\s*//g;
2455   $form->{$idx} =~ s/\s*$//g;
2456   if ($form->{saved_xyznumber} &&
2457       ($form->{saved_xyznumber} eq $form->{$idx})) {
2458     delete($form->{$idx});
2459   }
2460
2461   &save;
2462
2463   $lxdebug->leave_sub();
2464 }
2465
2466 sub check_for_direct_delivery_yes {
2467   $lxdebug->enter_sub();
2468
2469   $form->{direct_delivery_checked} = 1;
2470   delete @{$form}{grep /^shipto/, keys %{ $form }};
2471   map { s/^CFDD_//; $form->{$_} = $form->{"CFDD_${_}"} } grep /^CFDD_/, keys %{ $form };
2472   $form->{shipto} = 1;
2473   purchase_order();
2474   $lxdebug->leave_sub();
2475 }
2476
2477 sub check_for_direct_delivery_no {
2478   $lxdebug->enter_sub();
2479
2480   $form->{direct_delivery_checked} = 1;
2481   delete @{$form}{grep /^shipto/, keys %{ $form }};
2482   purchase_order();
2483
2484   $lxdebug->leave_sub();
2485 }
2486
2487 sub check_for_direct_delivery {
2488   $lxdebug->enter_sub();
2489
2490   if ($form->{direct_delivery_checked}
2491       || (!$form->{shiptoname} && !$form->{shiptostreet} && !$form->{shipto_id})) {
2492     $lxdebug->leave_sub();
2493     return;
2494   }
2495
2496   if ($form->{shipto_id}) {
2497     Common->get_shipto_by_id(\%myconfig, $form, $form->{shipto_id}, "CFDD_");
2498
2499   } else {
2500     map { $form->{"CFDD_${_}"} = $form->{$_ } } grep /^shipto/, keys %{ $form };
2501   }
2502
2503   delete $form->{action};
2504   $form->{VARIABLES} = [ map { { "key" => $_, "value" => $form->{$_} } } grep { ref $_ eq "" } keys %{ $form } ];
2505
2506   $form->header();
2507   print $form->parse_html_template("oe/check_for_direct_delivery");
2508
2509   $lxdebug->leave_sub();
2510
2511   exit 0;
2512 }
2513
2514 sub purchase_order {
2515   $lxdebug->enter_sub();
2516
2517   if ($form->{type} eq 'sales_order') {
2518     check_for_direct_delivery();
2519   }
2520
2521   if (   $form->{type} eq 'sales_quotation'
2522       || $form->{type} eq 'request_quotation') {
2523     OE->close_order(\%myconfig, \%$form);
2524   }
2525
2526   if ($form->{type} =~ /^sales_/) {
2527     delete($form->{ordnumber});
2528   }
2529
2530   $form->{cp_id} *= 1;
2531
2532   $form->{title} = $locale->text('Add Purchase Order');
2533   $form->{vc}    = "vendor";
2534   $form->{type}  = "purchase_order";
2535
2536   &poso;
2537
2538   $lxdebug->leave_sub();
2539 }
2540
2541 sub sales_order {
2542   $lxdebug->enter_sub();
2543
2544   if (   $form->{type} eq 'sales_quotation'
2545       || $form->{type} eq 'request_quotation') {
2546     OE->close_order(\%myconfig, $form);
2547   }
2548
2549   if ($form->{type} eq "purchase_order") {
2550     delete($form->{ordnumber});
2551   }
2552
2553   $form->{cp_id} *= 1;
2554
2555   $form->{title} = $locale->text('Add Sales Order');
2556   $form->{vc}    = "customer";
2557   $form->{type}  = "sales_order";
2558
2559   &poso;
2560
2561   $lxdebug->leave_sub();
2562 }
2563
2564 sub poso {
2565   $lxdebug->enter_sub();
2566
2567   $form->{transdate} = $form->current_date(\%myconfig);
2568   delete $form->{duedate};
2569
2570   $form->{closed} = 0;
2571
2572   $form->{old_employee_id} = $form->{employee_id};
2573   $form->{old_salesman_id} = $form->{salesman_id};
2574
2575   # reset
2576   map { delete $form->{$_} }
2577     qw(id subject message cc bcc printed emailed queued customer vendor creditlimit creditremaining discount tradediscount oldinvtotal);
2578
2579   for $i (1 .. $form->{rowcount}) {
2580     map({ $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig,
2581                                                      $form->{"${_}_${i}"})
2582             if ($form->{"${_}_${i}"}) }
2583         qw(ship qty sellprice listprice basefactor));
2584   }
2585
2586   &order_links;
2587
2588   &prepare_order;
2589
2590   # format amounts
2591   for $i (1 .. $form->{rowcount} - 1) {
2592     map { $form->{"${_}_$i"} =~ s/\"/&quot;/g }
2593       qw(partnumber description unit);
2594   }
2595
2596   map { $form->{$_} = $form->format_amount(\%myconfig, $form->{$_}, 0, "0") }
2597     qw(creditlimit creditremaining);
2598
2599   &update;
2600
2601   $lxdebug->leave_sub();
2602 }
2603
2604 sub e_mail {
2605   $lxdebug->enter_sub();
2606
2607   $form->{print_and_save} = 1;
2608
2609   if (!$form->{id}) {
2610     $print_post = 1;
2611
2612     my $saved_form = save_form();
2613
2614     save();
2615
2616     my %saved_vars;
2617     map({ $saved_vars{$_} = $form->{$_}; } qw(id ordnumber quonumber));
2618     restore_form($saved_form);
2619     map({ $form->{$_} = $saved_vars{$_}; } qw(id ordnumber quonumber));
2620   }
2621
2622   edit_e_mail();
2623
2624   $lxdebug->leave_sub();
2625 }
2626
2627 sub yes {
2628   call_sub($form->{yes_nextsub});
2629 }
2630
2631 sub no {
2632   call_sub($form->{no_nextsub});
2633 }