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