bin/mozilla/ic.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) 2001
  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 # Inventory Control module
  31 #
  32 #======================================================================
  33 #$locale->text('ea');
  34
  35 use SL::IC;
  36
  37 #use SL::PE;
  38
  39 require "$form->{path}/io.pl";
  40
  41 1;
  42
  43 # end of main
  44
  45 sub add {
  46   $lxdebug->enter_sub();
  47
  48   $form->{title} = $locale->text('Add ' . ucfirst $form->{item});
  49
  50   $form->{callback} =
  51     "$form->{script}?action=add&item=$form->{item}&path=$form->{path}&login=$form->{login}&password=$form->{password}"
  52     unless $form->{callback};
  53
  54   $form->{"unit_changeable"} = 1;
  55
  56   IC->get_pricegroups(\%myconfig, \%$form);
  57   &link_part;
  58   &display_form;
  59
  60   $lxdebug->leave_sub();
  61 }
  62
  63 sub search {
  64   $lxdebug->enter_sub();
  65
  66   $form->{title} = (ucfirst $form->{searchitems}) . "s";
  67   $form->{title} = $locale->text($form->{title});
  68
  69   # switch for backward sorting
  70   $form->{revers} = 0;
  71
  72   # memory for which table was sort at last time
  73   $form->{lastsort} = "";
  74
  75   # counter for added entries to top100
  76   $form->{ndxs_counter} = 0;
  77
  78   # $locale->text('Parts')
  79   # $locale->text('Services')
  80
  81   # use JavaScript Calendar or not
  82   $form->{jsscript} = $jscalendar;
  83   $jsscript = "";
  84   if ($form->{jsscript}) {
  85
  86     # with JavaScript Calendar
  87     $button1 = qq|
  88        <td><input name=transdatefrom id=transdatefrom size=11 title="$myconfig{dateformat}"></td>
  89        <td><input type=button name=transdatefrom id="trigger1" value=|
  90       . $locale->text('button') . qq|></td>
  91       |;
  92     $button2 = qq|
  93        <td><input name=transdateto id=transdateto size=11 title="$myconfig{dateformat}"></td>
  94        <td><input type=button name=transdateto name=transdateto id="trigger2" value=|
  95       . $locale->text('button') . qq|></td>
  96      |;
  97
  98     #write Trigger
  99     $jsscript =
 100       Form->write_trigger(\%myconfig, "2", "transdatefrom", "BL", "trigger1",
 101                           "transdateto", "BL", "trigger2");
 102   } else {
 103
 104     # without JavaScript Calendar
 105     $button1 = qq|
 106                               <td><input name=transdatefrom id=transdatefrom size=11 title="$myconfig{dateformat}"></td>|;
 107     $button2 = qq|
 108                               <td><input name=transdateto id=transdateto size=11 title="$myconfig{dateformat}"></td>|;
 109   }
 110
 111   unless ($form->{searchitems} eq 'service') {
 112
 113     $onhand = qq|
 114             <input name=itemstatus class=radio type=radio value=onhand>&nbsp;|
 115       . $locale->text('On Hand') . qq|
 116             <input name=itemstatus class=radio type=radio value=short>&nbsp;|
 117       . $locale->text('Short') . qq|
 118 |;
 119
 120     $makemodel = qq|
 121         <tr>
 122           <th align=right nowrap>| . $locale->text('Make') . qq|</th>
 123           <td><input name=make size=20></td>
 124           <th align=right nowrap>| . $locale->text('Model') . qq|</th>
 125           <td><input name=model size=20></td>
 126         </tr>
 127 |;
 128
 129     $serialnumber = qq|
 130           <th align=right nowrap>| . $locale->text('Serial Number') . qq|</th>
 131           <td><input name=serialnumber size=20></td>
 132 |;
 133
 134     $l_serialnumber = qq|
 135         <td><input name=l_serialnumber class=checkbox type=checkbox value=Y>&nbsp;|
 136       . $locale->text('Serial Number') . qq|</td>
 137 |;
 138
 139   }
 140
 141   if ($form->{searchitems} eq 'assembly') {
 142
 143     $form->{title} = $locale->text('Assemblies');
 144
 145     $toplevel = qq|
 146         <tr>
 147           <td></td>
 148           <td colspan=3>
 149           <input name=null class=radio type=radio value=1 checked>&nbsp;|
 150       . $locale->text('Top Level') . qq|
 151           <input name=bom class=checkbox type=checkbox value=1>&nbsp;|
 152       . $locale->text('Individual Items') . qq|
 153           </td>
 154         </tr>
 155 |;
 156
 157     $bought = qq|
 158         <tr>
 159           <td></td>
 160           <td colspan=3>
 161             <table>
 162               <tr>
 163                 <td>
 164                   <table>
 165                     <tr>
 166                       <td><input name=sold class=checkbox type=checkbox value=1></td>
 167                       <td nowrap>| . $locale->text('Sold') . qq|</td>
 168                     </tr>
 169                     <tr>
 170                       <td colspan=2><hr size=1 noshade></td>
 171                     </tr>
 172                     <tr>
 173                       <td><input name=ordered class=checkbox type=checkbox value=1></td>
 174                       <td nowrap>| . $locale->text('Ordered') . qq|</td>
 175                     </tr>
 176                     <tr>
 177                       <td colspan=4><hr size=1 noshade></td>
 178                     </tr>
 179                     <tr>
 180                       <td><input name=quoted class=checkbox type=checkbox value=1></td>
 181                       <td nowrap>| . $locale->text('Quoted') . qq|</td>
 182                     </tr>
 183                   </table>
 184                 </td>
 185                 <td width=5%>&nbsp;</td>
 186                 <th>| . $locale->text('From') . qq|</th>
 187                 $button1
 188                 <th>| . $locale->text('To (time)') . qq|</th>
 189                 $button2
 190               </tr>
 191             </table>
 192           </td>
 193         </tr>
 194 |;
 195
 196   } else {
 197
 198     $bought = qq|
 199         <tr>
 200           <td></td>
 201           <td colspan=3>
 202             <table>
 203               <tr>
 204                 <td>
 205                   <table>
 206                     <tr>
 207                       <td><input name=bought class=checkbox type=checkbox value=1></td>
 208                       <td nowrap>| . $locale->text('Bought') . qq|</td>
 209                       <td><input name=sold class=checkbox type=checkbox value=1></td>
 210                       <td nowrap>| . $locale->text('Sold') . qq|</td>
 211                     </tr>
 212                     <tr>
 213                       <td colspan=4><hr size=1 noshade></td>
 214                     </tr>
 215                     <tr>
 216                       <td><input name=onorder class=checkbox type=checkbox value=1></td>
 217                       <td nowrap>| . $locale->text('On Order') . qq|</td>
 218                       <td><input name=ordered class=checkbox type=checkbox value=1></td>
 219                       <td nowrap>| . $locale->text('Ordered') . qq|</td>
 220                     </tr>
 221                     <tr>
 222                       <td colspan=4><hr size=1 noshade></td>
 223                     </tr>
 224                     <tr>
 225                       <td><input name=rfq class=checkbox type=checkbox value=1></td>
 226                       <td nowrap>| . $locale->text('RFQ') . qq|</td>
 227                       <td><input name=quoted class=checkbox type=checkbox value=1></td>
 228                       <td nowrap>| . $locale->text('Quoted') . qq|</td>
 229                     </tr>
 230                   </table>
 231                 </td>
 232                 <td width=5%>&nbsp;</td>
 233                 <td>
 234                   <table>
 235                     <tr>
 236                       <th>| . $locale->text('From') . qq|</th>
 237                       $button1
 238                       <th>| . $locale->text('To (time)') . qq|</th>
 239                       $button2
 240                     </tr>
 241                   </table>
 242                 </td>
 243               </tr>
 244             </table>
 245           </td>
 246         </tr>
 247 |;
 248   }
 249
 250   $form->header;
 251
 252   print qq|
 253 <body>
 254
 255 <form method=post action=$form->{script}>
 256
 257 <input type=hidden name=searchitems value=$form->{searchitems}>
 258 <input type=hidden name=title value="$form->{title}">
 259
 260 <input type=hidden name=revers value="$form->{revers}">
 261 <input type=hidden name=lastsort value="$form->{lastsort}">
 262
 263 <table width="100%">
 264   <tr><th class=listtop>$form->{title}</th></tr>
 265   <tr height="5"></tr>
 266   <tr valign=top>
 267     <td>
 268       <table>
 269         <tr>
 270           <th align=right nowrap>| . $locale->text('Part Number') . qq|</th>
 271           <td><input name=partnumber size=20></td>
 272           <th align=right nowrap>| . $locale->text('EAN') . qq|</th>
 273           <td><input name=ean size=20></td>
 274         </tr>
 275         <tr>
 276           <th align=right nowrap>|
 277     . $locale->text('Part Description') . qq|</th>
 278           <td colspan=3><input name=description size=40></td>
 279         </tr>
 280         <tr>
 281           <th align=right nowrap>| . $locale->text('Group') . qq|</th>
 282           <td><input name=partsgroup size=20></td>
 283           $serialnumber
 284         </tr>
 285         $makemodel
 286         <tr>
 287           <th align=right nowrap>| . $locale->text('Drawing') . qq|</th>
 288           <td><input name=drawing size=20></td>
 289           <th align=right nowrap>| . $locale->text('Microfiche') . qq|</th>
 290           <td><input name=microfiche size=20></td>
 291         </tr>
 292         $toplevel
 293         <tr>
 294           <td></td>
 295           <td colspan=3>
 296             <input name=itemstatus class=radio type=radio value=active checked>&nbsp;|
 297     . $locale->text('Active') . qq|
 298             $onhand
 299             <input name=itemstatus class=radio type=radio value=obsolete>&nbsp;|
 300     . $locale->text('Obsolete') . qq|
 301             <input name=itemstatus class=radio type=radio value=orphaned>&nbsp;|
 302     . $locale->text('Orphaned') . qq|
 303           </td>
 304         </tr>
 305         $bought
 306         <tr>
 307           <td></td>
 308           <td colspan=3>
 309             <hr size=1 noshade>
 310           </td>
 311         </tr>
 312         <tr>
 313           <th align=right nowrap>|
 314     . $locale->text('Include in Report') . qq|</th>
 315           <td colspan=3>
 316             <table>
 317               <tr>
 318                 <td><input name=l_partnumber class=checkbox type=checkbox value=Y checked>&nbsp;|
 319     . $locale->text('Part Number') . qq|</td>
 320                 <td><input name=l_description class=checkbox type=checkbox value=Y checked>&nbsp;|
 321     . $locale->text('Part Description') . qq|</td>
 322                 $l_serialnumber
 323                 <td><input name=l_unit class=checkbox type=checkbox value=Y checked>&nbsp;|
 324     . $locale->text('Unit of measure') . qq|</td>
 325               </tr>
 326               <tr>
 327                 <td><input name=l_listprice class=checkbox type=checkbox value=Y>&nbsp;|
 328     . $locale->text('List Price') . qq|</td>
 329                 <td><input name=l_sellprice class=checkbox type=checkbox value=Y checked>&nbsp;|
 330     . $locale->text('Sell Price') . qq|</td>
 331                 <td><input name=l_lastcost class=checkbox type=checkbox value=Y checked>&nbsp;|
 332     . $locale->text('Last Cost') . qq|</td>
 333                 <td><input name=l_linetotal class=checkbox type=checkbox value=Y checked>&nbsp;|
 334     . $locale->text('Line Total') . qq|</td>
 335               </tr>
 336               <tr>
 337                 <td><input name=l_priceupdate class=checkbox type=checkbox value=Y>&nbsp;|
 338     . $locale->text('Updated') . qq|</td>
 339                 <td><input name=l_bin class=checkbox type=checkbox value=Y>&nbsp;|
 340     . $locale->text('Bin') . qq|</td>
 341                 <td><input name=l_rop class=checkbox type=checkbox value=Y>&nbsp;|
 342     . $locale->text('ROP') . qq|</td>
 343                 <td><input name=l_weight class=checkbox type=checkbox value=Y>&nbsp;|
 344     . $locale->text('Weight') . qq|</td>
 345               </tr>
 346               <tr>
 347                 <td><input name=l_image class=checkbox type=checkbox value=Y>&nbsp;|
 348     . $locale->text('Image') . qq|</td>
 349                 <td><input name=l_drawing class=checkbox type=checkbox value=Y>&nbsp;|
 350     . $locale->text('Drawing') . qq|</td>
 351                 <td><input name=l_microfiche class=checkbox type=checkbox value=Y>&nbsp;|
 352     . $locale->text('Microfiche') . qq|</td>
 353                 <td><input name=l_partsgroup class=checkbox type=checkbox value=Y>&nbsp;|
 354     . $locale->text('Group') . qq|</td>
 355               </tr>
 356               <tr>
 357                 <td><input name=l_subtotal class=checkbox type=checkbox value=Y>&nbsp;|
 358     . $locale->text('Subtotal') . qq|</td>
 359                 <td><input name=l_soldtotal class=checkbox type=checkbox value=Y>&nbsp;|
 360     . $locale->text('soldtotal') . qq|</td>
 361                 <td><input name=l_deliverydate class=checkbox type=checkbox value=Y>&nbsp;|
 362     . $locale->text('deliverydate') . qq|</td>
 363               </tr>
 364             </table>
 365           </td>
 366         </tr>
 367       </table>
 368     </td>
 369   </tr>
 370   <tr><td colspan=4><hr size=3 noshade></td></tr>
 371 </table>
 372
 373 $jsscript
 374
 375 <input type=hidden name=nextsub value=generate_report>
 376
 377 <input type=hidden name=path value=$form->{path}>
 378 <input type=hidden name=login value=$form->{login}>
 379 <input type=hidden name=password value=$form->{password}>
 380
 381 <input type=hidden name=revers value="$form->{revers}">
 382 <input type=hidden name=lastsort value="$form->{lastsort}">
 383 <input type=hidden name=sort value="description">
 384
 385 <input type=hidden name=ndxs_counter value="$form->{ndxs_counter}">
 386
 387 <br>
 388 <input class=submit type=submit name=action value="|
 389     . $locale->text('Continue') . qq|">
 390 <input class=submit type=submit name=action value="|
 391     . $locale->text('TOP100') . qq|">
 392 </form>
 393
 394 </body>
 395 </html>
 396 |;
 397   $lxdebug->leave_sub();
 398 }    #end search()
 399
 400 sub search_update_prices {
 401   $lxdebug->enter_sub();
 402
 403   $form->{title} = $locale->text('Update prices');
 404   IC->get_pricegroups(\%myconfig, \%$form);
 405
 406   # use JavaScript Calendar or not
 407 #   $form->{jsscript} = $jscalendar;
 408 #   $jsscript = "";
 409 #   if ($form->{jsscript}) {
 410 #
 411 #     # with JavaScript Calendar
 412 #     $button1 = qq|
 413 #        <td><input name=transdatefrom id=transdatefrom size=11 title="$myconfig{dateformat}"></td>
 414 #        <td><input type=button name=transdatefrom id="trigger1" value=|
 415 #       . $locale->text('button') . qq|></td>
 416 #       |;
 417 #     $button2 = qq|
 418 #        <td><input name=transdateto id=transdateto size=11 title="$myconfig{dateformat}"></td>
 419 #        <td><input type=button name=transdateto name=transdateto id="trigger2" value=|
 420 #       . $locale->text('button') . qq|></td>
 421 #      |;
 422 #
 423 #     #write Trigger
 424 #     $jsscript =
 425 #       Form->write_trigger(\%myconfig, "2", "transdatefrom", "BL", "trigger1",
 426 #                           "transdateto", "BL", "trigger2");
 427 #   } else {
 428 #
 429 #     # without JavaScript Calendar
 430 #     $button1 = qq|
 431 #                               <td><input name=transdatefrom id=transdatefrom size=11 title="$myconfig{dateformat}"></td>|;
 432 #     $button2 = qq|
 433 #                               <td><input name=transdateto id=transdateto size=11 title="$myconfig{dateformat}"></td>|;
 434 #   }
 435
 436     $onhand = qq|
 437             <input name=itemstatus class=radio type=radio value=onhand>&nbsp;|
 438       . $locale->text('On Hand') . qq|
 439             <input name=itemstatus class=radio type=radio value=short>&nbsp;|
 440       . $locale->text('Short') . qq|
 441 |;
 442
 443     $makemodel = qq|
 444         <tr>
 445           <th align=right nowrap>| . $locale->text('Make') . qq|</th>
 446           <td><input name=make size=20></td>
 447           <th align=right nowrap>| . $locale->text('Model') . qq|</th>
 448           <td><input name=model size=20></td>
 449         </tr>
 450 |;
 451
 452     $serialnumber = qq|
 453           <th align=right nowrap>| . $locale->text('Serial Number') . qq|</th>
 454           <td><input name=serialnumber size=20></td>
 455 |;
 456
 457     $l_serialnumber = qq|
 458         <td><input name=l_serialnumber class=checkbox type=checkbox value=Y>&nbsp;|
 459       . $locale->text('Serial Number') . qq|</td>
 460 |;
 461
 462
 463
 464   $form->header;
 465
 466   print qq|
 467 <body>
 468
 469 <form method=post action=$form->{script}>
 470
 471 <input type=hidden name=title value="$form->{title}">
 472
 473 <table width="100%">
 474   <tr><th class=listtop>$form->{title}</th></tr>
 475   <tr height="5"></tr>
 476   <tr valign=top>
 477     <td>
 478       <table>
 479         <tr>
 480           <th align=right nowrap>| . $locale->text('Part Number') . qq|</th>
 481           <td><input name=partnumber size=20></td>
 482         </tr>
 483         <tr>
 484           <th align=right nowrap>|
 485     . $locale->text('Part Description') . qq|</th>
 486           <td colspan=3><input name=description size=40></td>
 487         </tr>
 488         <tr>
 489           <th align=right nowrap>| . $locale->text('Group') . qq|</th>
 490           <td><input name=partsgroup size=20></td>
 491           $serialnumber
 492         </tr>
 493         $makemodel
 494         <tr>
 495           <th align=right nowrap>| . $locale->text('Drawing') . qq|</th>
 496           <td><input name=drawing size=20></td>
 497           <th align=right nowrap>| . $locale->text('Microfiche') . qq|</th>
 498           <td><input name=microfiche size=20></td>
 499         </tr>
 500         $toplevel
 501         <tr>
 502           <td></td>
 503           <td colspan=3>
 504             <input name=itemstatus class=radio type=radio value=active checked>&nbsp;|
 505     . $locale->text('Active') . qq|
 506             $onhand
 507             <input name=itemstatus class=radio type=radio value=obsolete>&nbsp;|
 508     . $locale->text('Obsolete') . qq|
 509             <input name=itemstatus class=radio type=radio value=orphaned>&nbsp;|
 510     . $locale->text('Orphaned') . qq|
 511           </td>
 512         </tr>
 513         $bought
 514         <tr>
 515           <td></td>
 516           <td colspan=3>
 517             <hr size=1 noshade>
 518           </td>
 519         </tr>|;
 520   print qq|
 521   <tr>
 522     <td colspan=4>
 523       <table width=100%>
 524         <tr>
 525           <th class="listheading">| . $locale->text('Preisklasse') . qq|</th>
 526           <th class="listheading">| . $locale->text('Preis') . qq|</th>
 527           <th class="listheading">| . $locale->text('Prozentual/Absolut') . qq|</th>
 528         </tr>
 529         <tr>
 530           <td>| . $locale->text('Sell Price') . qq|</td>
 531           <td><input name="sellprice" size=11 value="$form->{"sellprice"}"></td>
 532           <td><input name="sellprice_type" class=radio type=radio value=percent checked>/<input name="sellprice_type" class=radio type=radio value=absolut></td>
 533         </tr>
 534         <tr>
 535           <td>| . $locale->text('List Price') . qq|</td>
 536           <td><input name="listprice" size=11 value="$form->{"listprice"}"></td>
 537           <td><input name="listprice_type" class=radio type=radio value=percent checked>/<input name="listprice_type" class=radio type=radio value=absolut></td>
 538         </tr>
 539 |;
 540   for $i (1 .. $form->{price_rows}) {
 541     print qq|
 542         <tr>
 543           <td width=50%><input type=hidden name="pricegroup_$i" size=30  value="$form->{"pricegroup_$i"}">$form->{"pricegroup_$i"}</td>
 544           <td width=50%><input name="price_$i" size=11></td>
 545           <input type=hidden name="pricegroup_id_$i" value="$form->{"pricegroup_id_$i"}">
 546           <td><input name="pricegroup_type_$i" class=radio type=radio value=percent checked>/<input name="pricegroup_type_$i" class=radio type=radio value=absolut></td>
 547         </tr>
 548 |;
 549   }
 550
 551   print qq|
 552       </table>
 553     </td>
 554   </tr>
 555
 556   <tr><td colspan=4><hr size=3 noshade></td></tr>
 557 </table>
 558 <input type=hidden name=nextsub value=confirm_price_update>
 559 <input type=hidden name=price_rows value=$form->{price_rows}>
 560
 561 <input type=hidden name=path value=$form->{path}>
 562 <input type=hidden name=login value=$form->{login}>
 563 <input type=hidden name=password value=$form->{password}>
 564
 565 <br>
 566 <input class=submit type=submit name=action value="|
 567     . $locale->text('Continue') . qq|">
 568 </form>
 569
 570 </body>
 571 </html>
 572 |;
 573   $lxdebug->leave_sub();
 574 }    #end search()
 575
 576 sub confirm_price_update {
 577   $lxdebug->enter_sub();
 578
 579
 580   $form->{nextsub} = "update_prices";
 581   $form->header;
 582
 583   print qq|
 584 <body>
 585
 586 <form method=post action=$form->{script}>
 587 |;
 588
 589   # delete action variable
 590   map { delete $form->{$_} } qw(action header);
 591
 592   foreach $key (keys %$form) {
 593     $form->{$key} =~ s/\"/&quot;/g;
 594     print qq|<input type=hidden name=$key value="$form->{$key}">\n|;
 595   }
 596
 597   print qq|
 598 <h2 class=confirm>| . $locale->text('Confirm!') . qq|</h2>
 599
 600 <h4>|
 601     . $locale->text('Are you sure you want to update the prices')
 602 . qq| </h4>
 603
 604 <p>
 605 <input name=action class=submit type=submit value="|
 606     . $locale->text('Continue') . qq|">
 607 </form>
 608 |;
 609
 610   $lxdebug->leave_sub();
 611 }
 612
 613 sub update_prices {
 614   $lxdebug->enter_sub();
 615
 616   if (IC->update_prices(\%myconfig, \%$form)) {
 617     $form->redirect($form->{update_count} . $locale->text('prices updated!'));
 618   } else {
 619     $form->error($locale->text('Could not update prices!'));
 620   }
 621
 622   $lxdebug->leave_sub();
 623 }
 624
 625 sub choice {
 626   $lxdebug->enter_sub();
 627
 628   $form->{title} = $locale->text('Top 100 hinzufuegen');
 629
 630   $form->header;
 631
 632   print qq|
 633   <body>
 634
 635   <form method=post action=$form->{script}>
 636
 637   <input type=hidden name=searchitems value=$form->{searchitems}>
 638   <input type=hidden name=title value="$form->{title}">
 639
 640   <input type=hidden name=revers value="$form->{revers}">
 641   <input type=hidden name=lastsort value="$form->{lastsort}">|;
 642
 643   print qq|
 644       <table>
 645         <tr class=listheading>
 646          <th class=listheading nowrap>|
 647     . $locale->text('Part Number') . qq|</th>
 648          <th class=listheading nowrap>|
 649     . $locale->text('Part Description') . qq|</th>
 650         </tr>
 651         <tr valign=top>
 652          <td><input type=text name=partnumber size=20 value=></td>
 653          <td><input type=text name=description size=30 value=></td>
 654        </tr>
 655       </table>
 656      <br>|;
 657
 658   print qq|
 659
 660 <input type=hidden name=path value=$form->{path}>
 661 <input type=hidden name=login value=$form->{login}>
 662 <input type=hidden name=password value=$form->{password}>
 663
 664 <input type=hidden name=itemstatus value="$form->{itemstatus}">
 665 <input type=hidden name=l_linetotal value="$form->{l_linetotal}">
 666 <input type=hidden name=l_partnumber value="$form->{l_partnumber}">
 667 <input type=hidden name=l_description value="$form->{l_description}">
 668 <input type=hidden name=l_onhand value="$form->{l_onhand}">
 669 <input type=hidden name=l_unit value="$form->{l_unit}">
 670 <input type=hidden name=l_sellprice value="$form->{l_sellprice}">
 671 <input type=hidden name=l_linetotalsellprice value="$form->{l_linetotalsellprice}">
 672 <input type=hidden name=sort value="$form->{sort}">
 673 <input type=hidden name=revers value="$form->{revers}">
 674 <input type=hidden name=lastsort value="$form->{lastsort}">
 675
 676 <input type=hidden name=bom value="$form->{bom}">
 677 <input type=hidden name=titel value="$form->{titel}">
 678 <input type=hidden name=searchitems value="$form->{searchitems}">
 679
 680 <input type=hidden name=row value=$j>
 681
 682 <input type=hidden name=nextsub value=item_selected>
 683
 684 <input type=hidden name=test value=item_selected>
 685
 686 <input name=lastndx type=hidden value=$lastndx>
 687
 688 <input name=ndxs_counter type=hidden value=$form->{ndxs_counter}>
 689
 690 <input name=extras type=hidden value=$form->{extras}>|;
 691
 692   # if choice set data
 693   if ($form->{ndx}) {
 694     for ($i = 0; $i < $form->{ndxs_counter}; $i++) {
 695
 696       # prepeare data
 697       $partnumber  = $form->{"totop100_partnumber_$j"};
 698       $description = $form->{"totop100_description_$j"};
 699       $unit        = $form->{"totop100_unit_$j"};
 700       $sellprice   = $form->{"totop100_sellprice_$j"};
 701       $soldtotal   = $form->{"totop100_soldtotal_$j"};
 702
 703       # insert data into top100
 704       push @{ $form->{parts} },
 705         { number      => "",
 706           partnumber  => "$partnumber",
 707           description => "$description",
 708           unit        => "$unit",
 709           sellprice   => "$sellprice",
 710           soldtotal   => "$soldtotal" };
 711     }    #rof
 712   }    #fi
 713
 714   $totop100 = "";
 715
 716   # set data for next page
 717   if (($form->{ndxs_counter}) > 0) {
 718     for ($i = 1; ($i < $form->{ndxs_counter} + 1); $i++) {
 719       $partnumber  = $form->{"totop100_partnumber_$i"};
 720       $description = $form->{"totop100_description_$i"};
 721       $unit        = $form->{"totop100_unit_$i"};
 722       $sellprice   = $form->{"totop100_sellprice_$i"};
 723       $soldtotal   = $form->{"totop100_soldtotal_$i"};
 724
 725       $totop100 .= qq|
 726 <input type=hidden name=totop100_partnumber_$i value=$form->{"totop100_partnumber_$i"}>
 727 <input type=hidden name=totop100_description_$i value=$form->{"totop100_description_$i"}>
 728 <input type=hidden name=totop100_unit_$i value=$form->{"totop100_unit_$i"}>
 729 <input type=hidden name=totop100_sellprice_$i value=$form->{"totop100_sellprice_$i"}>
 730 <input type=hidden name=totop100_soldtotal_$i value=$form->{"totop100_soldtotal_$i"}>
 731       |;
 732     }    #rof
 733   }    #fi
 734
 735   print $totop100;
 736
 737   print qq|
 738      <input class=submit type=submit name=action value="|
 739     . $locale->text('list') . qq|">
 740     </form>
 741
 742    </body>
 743   </html>|;
 744   $lxdebug->leave_sub();
 745 }    #end choice
 746
 747 sub list {
 748   $lxdebug->enter_sub();
 749
 750   # get parts for
 751   if (($form->{partnumber} eq "") and ($form->{description} eq "")) {
 752     IC->get_parts(\%myconfig, \%$form, "");
 753   } else {
 754     if ((!($form->{partnumber} eq "")) and ($form->{description} eq "")) {
 755       IC->get_parts(\%myconfig, \%$form, "partnumber");
 756     } else {
 757       if (($form->{partnumber} eq "") and (!($form->{description} eq ""))) {
 758         IC->get_parts(\%myconfig, \%$form, "description");
 759       } else {
 760         IC->get_parts(\%myconfig, \%$form, "all");
 761       }    #fi
 762     }    #fi
 763   }    #fi
 764
 765   $form->{title} = $locale->text('Top 100 hinzufuegen');
 766
 767   $form->header;
 768
 769   print qq|
 770 <body>
 771   <form method=post action=ic.pl>
 772     <table width=100%>
 773      <tr>
 774       <th class=listtop colspan=6>| . $locale->text('choice part') . qq|</th>
 775      </tr>
 776         <tr height="5"></tr>
 777         <tr class=listheading>
 778           <th>&nbsp;</th>
 779           <th class=listheading>| . $locale->text('Part Number') . qq|</th>
 780           <th class=listheading>| . $locale->text('Part Description') . qq|</th>
 781           <th class=listheading>| . $locale->text('Unit of measure') . qq|</th>
 782           <th class=listheading>| . $locale->text('Sell Price') . qq|</th>
 783           <th class=listheading>| . $locale->text('soldtotal') . qq|</th>
 784         </tr>|;
 785
 786   my $j = 0;
 787   my $i = $form->{rows};
 788
 789   for ($j = 1; $j <= $i; $j++) {
 790
 791     print qq|
 792         <tr class=listrow1>|;
 793     if ($j == 1) {
 794       print qq|
 795             <td><input name=ndx class=radio type=radio value=$j checked></td>|;
 796     } else {
 797       print qq|
 798           <td><input name=ndx class=radio type=radio value=$j></td>|;
 799     }
 800     print qq|
 801           <td><input name="new_partnumber_$j" type=hidden value="$form->{"partnumber_$j"}">$form->{"partnumber_$j"}</td>
 802           <td><input name="new_description_$j" type=hidden value="$form->{"description_$j"}">$form->{"description_$j"}</td>
 803           <td><input name="new_unit_$j" type=hidden value="$form->{"unit_$j"}">$form->{"unit_$j"}</td>
 804           <td><input name="new_sellprice_$j" type=hidden value="$form->{"sellprice_$j"}">$form->{"sellprice_$j"}</td>
 805           <td><input name="new_soldtotal_$j" type=hidden value="$form->{"soldtotal_$j"}">$form->{"soldtotal_$j"}</td>
 806         </tr>
 807
 808         <input name="new_id_$j" type=hidden value="$form->{"id_$j"}">|;
 809   }
 810
 811   print qq|
 812
 813 </table>
 814
 815 <br>
 816
 817
 818 <input type=hidden name=path value=$form->{path}>
 819 <input type=hidden name=login value=$form->{login}>
 820 <input type=hidden name=password value=$form->{password}>
 821
 822 <input type=hidden name=itemstatus value="$form->{itemstatus}">
 823 <input type=hidden name=l_linetotal value="$form->{l_linetotal}">
 824 <input type=hidden name=l_partnumber value="$form->{l_partnumber}">
 825 <input type=hidden name=l_description value="$form->{l_description}">
 826 <input type=hidden name=l_onhand value="$form->{l_onhand}">
 827 <input type=hidden name=l_unit value="$form->{l_unit}">
 828 <input type=hidden name=l_sellprice value="$form->{l_sellprice}">
 829 <input type=hidden name=l_linetotalsellprice value="$form->{l_linetotalsellprice}">
 830 <input type=hidden name=sort value="$form->{sort}">
 831 <input type=hidden name=revers value="$form->{revers}">
 832 <input type=hidden name=lastsort value="$form->{lastsort}">
 833
 834 <input type=hidden name=bom value="$form->{bom}">
 835 <input type=hidden name=titel value="$form->{titel}">
 836 <input type=hidden name=searchitems value="$form->{searchitems}">
 837
 838 <input type=hidden name=row value=$j>
 839
 840 <input type=hidden name=nextsub value=item_selected>
 841
 842 <input name=lastndx type=hidden value=$lastndx>
 843
 844 <input name=ndxs_counter type=hidden value=$form->{ndxs_counter}>|;
 845
 846   $totop100 = "";
 847
 848   if (($form->{ndxs_counter}) > 0) {
 849     for ($i = 1; ($i < $form->{ndxs_counter} + 1); $i++) {
 850       $j1 = $form->{"totop100_partnumber_$i"};
 851       $j2 = $form->{"totop100_description_$i"};
 852       $j3 = $form->{"totop100_unit_$i"};
 853       $j4 = $form->{"totop100_sellprice_$i"};
 854       $j5 = $form->{"totop100_soldtotal_$i"};
 855
 856       $partnumber  = $j1;
 857       $description = $j2;
 858       $unit        = $j3;
 859       $sellprice   = $j4;
 860       $soldtotal   = $j5;
 861
 862       $totop100 .= qq|
 863 <input type=hidden name=totop100_partnumber_$i value=$form->{"totop100_partnumber_$i"}>
 864 <input type=hidden name=totop100_description_$i value=$form->{"totop100_description_$i"}>
 865 <input type=hidden name=totop100_unit_$i value=$form->{"totop100_unit_$i"}>
 866 <input type=hidden name=totop100_sellprice_$i value=$form->{"totop100_sellprice_$i"}>
 867 <input type=hidden name=totop100_soldtotal_$i value=$form->{"totop100_soldtotal_$i"}>
 868       |;
 869     }    #rof
 870   }    #fi
 871
 872   print $totop100;
 873
 874   print qq|
 875 <input class=submit type=submit name=action value="|
 876     . $locale->text('TOP100') . qq|">
 877
 878 </form>
 879 </body>
 880 </html>
 881 |;
 882   $lxdebug->leave_sub();
 883 }    #end list()
 884
 885 sub top100 {
 886   $lxdebug->enter_sub();
 887
 888   if ($form->{ndx}) {
 889     $form->{ndxs_counter}++;
 890
 891     if ($form->{ndxs_counter} > 0) {
 892
 893       $index = $form->{ndx};
 894
 895       $j1 = $form->{"new_partnumber_$index"};
 896       $form->{"totop100_partnumber_$form->{ndxs_counter}"} = $j1;
 897       $j2 = $form->{"new_description_$index"};
 898       $form->{"totop100_description_$form->{ndxs_counter}"} = $j2;
 899       $j3 = $form->{"new_unit_$index"};
 900       $form->{"totop100_unit_$form->{ndxs_counter}"} = $j3;
 901       $j4 = $form->{"new_sellprice_$index"};
 902       $form->{"totop100_sellprice_$form->{ndxs_counter}"} = $j4;
 903       $j5 = $form->{"new_soldtotal_$index"};
 904       $form->{"totop100_soldtotal_$form->{ndxs_counter}"} = $j5;
 905     }    #fi
 906   }    #fi
 907   &addtop100();
 908   $lxdebug->leave_sub();
 909 }    #end top100
 910
 911 sub addtop100 {
 912   $lxdebug->enter_sub();
 913
 914   $form->{top100}      = "top100";
 915   $form->{l_soldtotal} = "Y";
 916   $form->{soldtotal}   = "soldtotal";
 917   $form->{sort}        = "soldtotal";
 918   $form->{l_qty}       = "N";
 919   $callback .= "&form->{top100}=$form->{top100}";
 920   $form->{l_linetotal} = "";
 921   $form->{revers}      = 1;
 922   $form->{number}      = "position";
 923   $form->{l_number}    = "Y";
 924
 925   my $totop100 = "";
 926
 927   $form->{title} = $locale->text('Top 100');
 928
 929   $revers   = $form->{revers};
 930   $lastsort = $form->{lastsort};
 931
 932   if (($form->{lastsort} eq "") && ($form->{sort} eq undef)) {
 933     $form->{revers}   = 0;
 934     $form->{lastsort} = "partnumber";
 935     $form->{sort}     = "partnumber";
 936   }    #fi
 937
 938   $callback =
 939     "$form->{script}?action=top100&path=$form->{path}&login=$form->{login}&password=$form->{password}&searchitems=$form->{searchitems}&itemstatus=$form->{itemstatus}&bom=$form->{bom}&l_linetotal=$form->{l_linetotal}&title="
 940     . $form->escape($form->{title}, 1);
 941
 942   # if we have a serialnumber limit search
 943   if ($form->{serialnumber} || $form->{l_serialnumber}) {
 944     $form->{l_serialnumber} = "Y";
 945     unless (   $form->{bought}
 946             || $form->{sold}
 947             || $form->{rfq}
 948             || $form->{quoted}) {
 949       $form->{bought} = $form->{sold} = 1;
 950     }
 951   }
 952   IC->all_parts(\%myconfig, \%$form);
 953
 954   if ($form->{itemstatus} eq 'active') {
 955     $option .= $locale->text('Active') . " : ";
 956   }
 957   if ($form->{itemstatus} eq 'obsolete') {
 958     $option .= $locale->text('Obsolete') . " : ";
 959   }
 960   if ($form->{itemstatus} eq 'orphaned') {
 961     $option .= $locale->text('Orphaned') . " : ";
 962   }
 963   if ($form->{itemstatus} eq 'onhand') {
 964     $option .= $locale->text('On Hand') . " : ";
 965     $form->{l_onhand} = "Y";
 966   }
 967   if ($form->{itemstatus} eq 'short') {
 968     $option .= $locale->text('Short') . " : ";
 969     $form->{l_onhand} = "Y";
 970   }
 971   if ($form->{onorder}) {
 972     $form->{l_ordnumber} = "Y";
 973     $callback .= "&onorder=$form->{onorder}";
 974     $option   .= $locale->text('On Order') . " : ";
 975   }
 976   if ($form->{ordered}) {
 977     $form->{l_ordnumber} = "Y";
 978     $callback .= "&ordered=$form->{ordered}";
 979     $option   .= $locale->text('Ordered') . " : ";
 980   }
 981   if ($form->{rfq}) {
 982     $form->{l_quonumber} = "Y";
 983     $callback .= "&rfq=$form->{rfq}";
 984     $option   .= $locale->text('RFQ') . " : ";
 985   }
 986   if ($form->{quoted}) {
 987     $form->{l_quonumber} = "Y";
 988     $callback .= "&quoted=$form->{quoted}";
 989     $option   .= $locale->text('Quoted') . " : ";
 990   }
 991   if ($form->{bought}) {
 992     $form->{l_invnumber} = "Y";
 993     $callback .= "&bought=$form->{bought}";
 994     $option   .= $locale->text('Bought') . " : ";
 995   }
 996   if ($form->{sold}) {
 997     $form->{l_invnumber} = "Y";
 998     $callback .= "&sold=$form->{sold}";
 999     $option   .= $locale->text('Sold') . " : ";
1000   }
1001   if (   $form->{bought}
1002       || $form->{sold}
1003       || $form->{onorder}
1004       || $form->{ordered}
1005       || $form->{rfq}
1006       || $form->{quoted}) {
1007
1008     $form->{l_lastcost} = "";
1009     $form->{l_name}     = "Y";
1010     if ($form->{transdatefrom}) {
1011       $callback .= "&transdatefrom=$form->{transdatefrom}";
1012       $option   .= "\n<br>"
1013         . $locale->text('From')
1014         . "&nbsp;"
1015         . $locale->date(\%myconfig, $form->{transdatefrom}, 1);
1016     }
1017     if ($form->{transdateto}) {
1018       $callback .= "&transdateto=$form->{transdateto}";
1019       $option   .= "\n<br>"
1020         . $locale->text('To')
1021         . "&nbsp;"
1022         . $locale->date(\%myconfig, $form->{transdateto}, 1);
1023     }
1024   }
1025
1026   $option .= "<br>";
1027
1028   if ($form->{partnumber}) {
1029     $callback .= "&partnumber=$form->{partnumber}";
1030     $option   .= $locale->text('Part Number') . qq| : $form->{partnumber}<br>|;
1031   }
1032   if ($form->{ean}) {
1033     $callback .= "&partnumber=$form->{ean}";
1034     $option   .= $locale->text('EAN') . qq| : $form->{ean}<br>|;
1035   }
1036   if ($form->{partsgroup}) {
1037     $callback .= "&partsgroup=$form->{partsgroup}";
1038     $option   .= $locale->text('Group') . qq| : $form->{partsgroup}<br>|;
1039   }
1040   if ($form->{serialnumber}) {
1041     $callback .= "&serialnumber=$form->{serialnumber}";
1042     $option   .=
1043       $locale->text('Serial Number') . qq| : $form->{serialnumber}<br>|;
1044   }
1045   if ($form->{description}) {
1046     $callback .= "&description=$form->{description}";
1047     $description = $form->{description};
1048     $description =~ s/
1049 /<br>/g;
1050     $option .=
1051       $locale->text('Part Description') . qq| : $form->{description}<br>|;
1052   }
1053   if ($form->{make}) {
1054     $callback .= "&make=$form->{make}";
1055     $option   .= $locale->text('Make') . qq| : $form->{make}<br>|;
1056   }
1057   if ($form->{model}) {
1058     $callback .= "&model=$form->{model}";
1059     $option   .= $locale->text('Model') . qq| : $form->{model}<br>|;
1060   }
1061   if ($form->{drawing}) {
1062     $callback .= "&drawing=$form->{drawing}";
1063     $option   .= $locale->text('Drawing') . qq| : $form->{drawing}<br>|;
1064   }
1065   if ($form->{microfiche}) {
1066     $callback .= "&microfiche=$form->{microfiche}";
1067     $option   .= $locale->text('Microfiche') . qq| : $form->{microfiche}<br>|;
1068   }
1069   if ($form->{l_soldtotal}) {
1070     $callback .= "&soldtotal=$form->{soldtotal}";
1071     $option   .= $locale->text('soldtotal') . qq| : $form->{soldtotal}<br>|;
1072   }
1073
1074   @columns = $form->sort_columns(
1075     qw(number partnumber ean description partsgroup bin onhand rop unit listprice linetotallistprice sellprice linetotalsellprice lastcost linetotallastcost priceupdate weight image drawing microfiche invnumber ordnumber quonumber name serialnumber soldtotal)
1076   );
1077
1078   if ($form->{l_linetotal}) {
1079     $form->{l_onhand} = "Y";
1080     $form->{l_linetotalsellprice} = "Y" if $form->{l_sellprice};
1081     if ($form->{l_lastcost}) {
1082       $form->{l_linetotallastcost} = "Y";
1083       if (($form->{searchitems} eq 'assembly') && !$form->{bom}) {
1084         $form->{l_linetotallastcost} = "";
1085       }
1086     }
1087     $form->{l_linetotallistprice} = "Y" if $form->{l_listprice};
1088   }
1089
1090   if ($form->{searchitems} eq 'service') {
1091
1092     # remove bin, weight and rop from list
1093     map { $form->{"l_$_"} = "" } qw(bin weight rop);
1094
1095     $form->{l_onhand} = "";
1096
1097     # qty is irrelevant unless bought or sold
1098     if (   $form->{bought}
1099         || $form->{sold}
1100         || $form->{onorder}
1101         || $form->{ordered}
1102         || $form->{rfq}
1103         || $form->{quoted}) {
1104       $form->{l_onhand} = "Y";
1105     } else {
1106       $form->{l_linetotalsellprice} = "";
1107       $form->{l_linetotallastcost}  = "";
1108     }
1109   }
1110
1111   $form->{l_lastcost} = ""
1112     if ($form->{searchitems} eq 'assembly' && !$form->{bom});
1113
1114   foreach $item (@columns) {
1115     if ($form->{"l_$item"} eq "Y") {
1116       push @column_index, $item;
1117
1118       # add column to callback
1119       $callback .= "&l_$item=Y";
1120     }
1121   }
1122
1123   if ($form->{l_subtotal} eq 'Y') {
1124     $callback .= "&l_subtotal=Y";
1125   }
1126
1127   $column_header{number} =
1128     qq|<th class=listheading nowrap>| . $locale->text('number') . qq|</th>|;
1129   $column_header{partnumber} =
1130     qq|<th nowrap><a class=listheading href=$callback&sort=partnumber&revers=$form->{revers}&lastsort=$form->{lastsort}>|
1131     . $locale->text('Part Number')
1132     . qq|</a></th>|;
1133   $column_header{description} =
1134     qq|<th nowrap><a class=listheading href=$callback&sort=description&revers=$form->{revers}&lastsort=$form->{lastsort}>|
1135     . $locale->text('Part Description')
1136     . qq|</a></th>|;
1137   $column_header{partsgroup} =
1138       qq|<th nowrap><a class=listheading href=$callback&sort=partsgroup>|
1139     . $locale->text('Group')
1140     . qq|</a></th>|;
1141   $column_header{bin} =
1142       qq|<th><a class=listheading href=$callback&sort=bin>|
1143     . $locale->text('Bin')
1144     . qq|</a></th>|;
1145   $column_header{priceupdate} =
1146       qq|<th nowrap><a class=listheading href=$callback&sort=priceupdate>|
1147     . $locale->text('Updated')
1148     . qq|</a></th>|;
1149   $column_header{onhand} =
1150     qq|<th nowrap><a  class=listheading href=$callback&sort=onhand&revers=$form->{revers}&lastsort=$form->{lastsort}>|
1151     . $locale->text('Qty')
1152     . qq|</th>|;
1153   $column_header{unit} =
1154     qq|<th class=listheading nowrap>| . $locale->text('Unit') . qq|</th>|;
1155   $column_header{listprice} =
1156       qq|<th class=listheading nowrap>|
1157     . $locale->text('List Price')
1158     . qq|</th>|;
1159   $column_header{lastcost} =
1160     qq|<th class=listheading nowrap>| . $locale->text('Last Cost') . qq|</th>|;
1161   $column_header{rop} =
1162     qq|<th class=listheading nowrap>| . $locale->text('ROP') . qq|</th>|;
1163   $column_header{weight} =
1164     qq|<th class=listheading nowrap>| . $locale->text('Weight') . qq|</th>|;
1165
1166   $column_header{invnumber} =
1167       qq|<th nowrap><a class=listheading href=$callback&sort=invnumber>|
1168     . $locale->text('Invoice Number')
1169     . qq|</a></th>|;
1170   $column_header{ordnumber} =
1171       qq|<th nowrap><a class=listheading href=$callback&sort=ordnumber>|
1172     . $locale->text('Order Number')
1173     . qq|</a></th>|;
1174   $column_header{quonumber} =
1175       qq|<th nowrap><a class=listheading href=$callback&sort=quonumber>|
1176     . $locale->text('Quotation')
1177     . qq|</a></th>|;
1178
1179   $column_header{name} =
1180       qq|<th nowrap><a class=listheading href=$callback&sort=name>|
1181     . $locale->text('Name')
1182     . qq|</a></th>|;
1183
1184   $column_header{sellprice} =
1185       qq|<th class=listheading nowrap>|
1186     . $locale->text('Sell Price')
1187     . qq|</th>|;
1188   $column_header{linetotalsellprice} =
1189     qq|<th class=listheading nowrap>| . $locale->text('Extended') . qq|</th>|;
1190   $column_header{linetotallastcost} =
1191     qq|<th class=listheading nowrap>| . $locale->text('Extended') . qq|</th>|;
1192   $column_header{linetotallistprice} =
1193     qq|<th class=listheading nowrap>| . $locale->text('Extended') . qq|</th>|;
1194
1195   $column_header{image} =
1196     qq|<th class=listheading nowrap>| . $locale->text('Image') . qq|</a></th>|;
1197   $column_header{drawing} =
1198       qq|<th nowrap><a class=listheading href=$callback&sort=drawing>|
1199     . $locale->text('Drawing')
1200     . qq|</a></th>|;
1201   $column_header{microfiche} =
1202       qq|<th nowrap><a class=listheading href=$callback&sort=microfiche>|
1203     . $locale->text('Microfiche')
1204     . qq|</a></th>|;
1205
1206   $column_header{serialnumber} =
1207       qq|<th nowrap><a class=listheading href=$callback&sort=serialnumber>|
1208     . $locale->text('Serial Number')
1209     . qq|</a></th>|;
1210   $column_header{soldtotal} =
1211     qq|<th nowrap><a class=listheading href=$callback&sort=soldtotal&revers=$form->{revers}&lastsort=$form->{lastsort}>|
1212     . $locale->text('soldtotal')
1213     . qq|</a></th>|;
1214
1215   $form->header;
1216   $colspan = $#column_index + 1;
1217
1218   print qq|
1219 <body>
1220
1221 <table width=100%>
1222   <tr>
1223     <th class=listtop colspan=$colspan>$form->{title}</th>
1224   </tr>
1225   <tr height="5"></tr>
1226
1227   <tr><td colspan=$colspan>$option</td></tr>
1228
1229   <tr class=listheading>
1230 |;
1231
1232   map { print "\n$column_header{$_}" } @column_index;
1233
1234   print qq|
1235   </tr>
1236   |;
1237
1238   # add order to callback
1239   $form->{callback} = $callback .= "&sort=$form->{sort}";
1240
1241   # escape callback for href
1242   $callback = $form->escape($callback);
1243
1244   if (@{ $form->{parts} }) {
1245     $sameitem = $form->{parts}->[0]->{ $form->{sort} };
1246   }
1247
1248   # insert numbers for top100
1249   my $j = 0;
1250   foreach $ref (@{ $form->{parts} }) {
1251     $j++;
1252     $ref->{number} = $j;
1253   }
1254
1255   # if avaible -> insert choice here
1256   if (($form->{ndxs_counter}) > 0) {
1257     for ($i = 1; ($i < $form->{ndxs_counter} + 1); $i++) {
1258       $partnumber  = $form->{"totop100_partnumber_$i"};
1259       $description = $form->{"totop100_description_$i"};
1260       $unit        = $form->{"totop100_unit_$i"};
1261       $sellprice   = $form->{"totop100_sellprice_$i"};
1262       $soldtotal   = $form->{"totop100_soldtotal_$i"};
1263
1264       $totop100 .= qq|
1265 <input type=hidden name=totop100_partnumber_$i value=$form->{"totop100_partnumber_$i"}>
1266 <input type=hidden name=totop100_description_$i value=$form->{"totop100_description_$i"}>
1267 <input type=hidden name=totop100_unit_$i value=$form->{"totop100_unit_$i"}>
1268 <input type=hidden name=totop100_sellprice_$i value=$form->{"totop100_sellprice_$i"}>
1269 <input type=hidden name=totop100_soldtotal_$i value=$form->{"totop100_soldtotal_$i"}>
1270       |;
1271
1272       # insert into list
1273       push @{ $form->{parts} },
1274         { number      => "",
1275           partnumber  => "$partnumber",
1276           description => "$description",
1277           unit        => "$unit",
1278           sellprice   => "$sellprice",
1279           soldtotal   => "$soldtotal" };
1280     }    #rof
1281   }    #fi
1282        # build data for columns
1283   foreach $ref (@{ $form->{parts} }) {
1284
1285     if ($form->{l_subtotal} eq 'Y' && !$ref->{assemblyitem}) {
1286       if ($sameitem ne $ref->{ $form->{sort} }) {
1287         &parts_subtotal;
1288         $sameitem = $ref->{ $form->{sort} };
1289       }
1290     }
1291
1292     $ref->{exchangerate} = 1 unless $ref->{exchangerate};
1293     $ref->{sellprice} *= $ref->{exchangerate};
1294     $ref->{listprice} *= $ref->{exchangerate};
1295     $ref->{lastcost}  *= $ref->{exchangerate};
1296
1297     # use this for assemblies
1298     $onhand = $ref->{onhand};
1299
1300     $align = "left";
1301     if ($ref->{assemblyitem}) {
1302       $align = "right";
1303       $onhand = 0 if ($form->{sold});
1304     }
1305
1306     $ref->{description} =~ s/
1307 /<br>/g;
1308
1309     $column_data{number} =
1310         "<td align=right>"
1311       . $form->format_amount(\%myconfig, $ref->{number})
1312       . "</td>";
1313     $column_data{partnumber} =
1314       "<td align=$align>$ref->{partnumber}&nbsp;</a></td>";
1315     $column_data{description} = "<td>$ref->{description}&nbsp;</td>";
1316     $column_data{partsgroup}  = "<td>$ref->{partsgroup}&nbsp;</td>";
1317
1318     $column_data{onhand} =
1319         "<td align=right>"
1320       . $form->format_amount(\%myconfig, $ref->{onhand})
1321       . "</td>";
1322     $column_data{sellprice} =
1323         "<td align=right>"
1324       . $form->format_amount(\%myconfig, $ref->{sellprice})
1325       . "</td>";
1326     $column_data{listprice} =
1327         "<td align=right>"
1328       . $form->format_amount(\%myconfig, $ref->{listprice})
1329       . "</td>";
1330     $column_data{lastcost} =
1331         "<td align=right>"
1332       . $form->format_amount(\%myconfig, $ref->{lastcost})
1333       . "</td>";
1334
1335     $column_data{linetotalsellprice} = "<td align=right>"
1336       . $form->format_amount(\%myconfig, $ref->{onhand} * $ref->{sellprice}, 2)
1337       . "</td>";
1338     $column_data{linetotallastcost} = "<td align=right>"
1339       . $form->format_amount(\%myconfig, $ref->{onhand} * $ref->{lastcost}, 2)
1340       . "</td>";
1341     $column_data{linetotallistprice} = "<td align=right>"
1342       . $form->format_amount(\%myconfig, $ref->{onhand} * $ref->{listprice}, 2)
1343       . "</td>";
1344
1345     if (!$ref->{assemblyitem}) {
1346       $totalsellprice += $onhand * $ref->{sellprice};
1347       $totallastcost  += $onhand * $ref->{lastcost};
1348       $totallistprice += $onhand * $ref->{listprice};
1349
1350       $subtotalonhand    += $onhand;
1351       $subtotalsellprice += $onhand * $ref->{sellprice};
1352       $subtotallastcost  += $onhand * $ref->{lastcost};
1353       $subtotallistprice += $onhand * $ref->{listprice};
1354     }
1355
1356     $column_data{rop} =
1357       "<td align=right>"
1358       . $form->format_amount(\%myconfig, $ref->{rop}) . "</td>";
1359     $column_data{weight} =
1360         "<td align=right>"
1361       . $form->format_amount(\%myconfig, $ref->{weight})
1362       . "</td>";
1363     $column_data{unit}        = "<td>$ref->{unit}&nbsp;</td>";
1364     $column_data{bin}         = "<td>$ref->{bin}&nbsp;</td>";
1365     $column_data{priceupdate} = "<td>$ref->{priceupdate}&nbsp;</td>";
1366
1367     $column_data{invnumber} =
1368       ($ref->{module} ne 'oe')
1369       ? "<td><a href=$ref->{module}.pl?action=edit&type=invoice&id=$ref->{trans_id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{invnumber}</a></td>"
1370       : "<td>$ref->{invnumber}</td>";
1371     $column_data{ordnumber} =
1372       ($ref->{module} eq 'oe')
1373       ? "<td><a href=$ref->{module}.pl?action=edit&type=$ref->{type}&id=$ref->{trans_id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{ordnumber}</a></td>"
1374       : "<td>$ref->{ordnumber}</td>";
1375     $column_data{quonumber} =
1376       ($ref->{module} eq 'oe' && !$ref->{ordnumber})
1377       ? "<td><a href=$ref->{module}.pl?action=edit&type=$ref->{type}&id=$ref->{trans_id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{quonumber}</a></td>"
1378       : "<td>$ref->{quonumber}</td>";
1379
1380     $column_data{name} = "<td>$ref->{name}</td>";
1381
1382     $column_data{image} =
1383       ($ref->{image})
1384       ? "<td><a href=$ref->{image}><img src=$ref->{image} height=32 border=0></a></td>"
1385       : "<td>&nbsp;</td>";
1386     $column_data{drawing} =
1387       ($ref->{drawing})
1388       ? "<td><a href=$ref->{drawing}>$ref->{drawing}</a></td>"
1389       : "<td>&nbsp;</td>";
1390     $column_data{microfiche} =
1391       ($ref->{microfiche})
1392       ? "<td><a href=$ref->{microfiche}>$ref->{microfiche}</a></td>"
1393       : "<td>&nbsp;</td>";
1394
1395     $column_data{serialnumber} = "<td>$ref->{serialnumber}</td>";
1396
1397     $column_data{soldtotal} = "<td  align=right>$ref->{soldtotal}</td>";
1398
1399     $i++;
1400     $i %= 2;
1401     print "<tr class=listrow$i>";
1402
1403     map { print "\n$column_data{$_}" } @column_index;
1404
1405     print qq|
1406     </tr>
1407 |;
1408   }
1409
1410   if ($form->{l_subtotal} eq 'Y') {
1411     &parts_subtotal;
1412   }    #fi
1413
1414   if ($form->{"l_linetotal"}) {
1415     map { $column_data{$_} = "<td>&nbsp;</td>" } @column_index;
1416     $column_data{linetotalsellprice} =
1417         "<th class=listtotal align=right>"
1418       . $form->format_amount(\%myconfig, $totalsellprice, 2)
1419       . "</th>";
1420     $column_data{linetotallastcost} =
1421         "<th class=listtotal align=right>"
1422       . $form->format_amount(\%myconfig, $totallastcost, 2)
1423       . "</th>";
1424     $column_data{linetotallistprice} =
1425         "<th class=listtotal align=right>"
1426       . $form->format_amount(\%myconfig, $totallistprice, 2)
1427       . "</th>";
1428
1429     print "<tr class=listtotal>";
1430
1431     map { print "\n$column_data{$_}" } @column_index;
1432
1433     print qq|</tr>
1434     |;
1435   }
1436
1437   print qq|
1438   <tr><td colspan=$colspan><hr size=3 noshade></td></tr>
1439 </table>
1440
1441 |;
1442
1443   print qq|
1444
1445 <br>
1446
1447 <form method=post action=$form->{script}>
1448
1449 <input type=hidden name=path value=$form->{path}>
1450 <input type=hidden name=login value=$form->{login}>
1451 <input type=hidden name=password value=$form->{password}>
1452
1453 <input type=hidden name=itemstatus value="$form->{itemstatus}">
1454 <input type=hidden name=l_linetotal value="$form->{l_linetotal}">
1455 <input type=hidden name=l_partnumber value="$form->{l_partnumber}">
1456 <input type=hidden name=l_description value="$form->{l_description}">
1457 <input type=hidden name=l_onhand value="$form->{l_onhand}">
1458 <input type=hidden name=l_unit value="$form->{l_unit}">
1459 <input type=hidden name=l_sellprice value="$form->{l_sellprice}">
1460 <input type=hidden name=l_linetotalsellprice value="$form->{l_linetotalsellprice}">
1461 <input type=hidden name=sort value="$form->{sort}">
1462 <input type=hidden name=revers value="$form->{revers}">
1463 <input type=hidden name=lastsort value="$form->{lastsort}">
1464 <input type=hidden name=parts value="$form->{parts}">
1465
1466 <input type=hidden name=bom value="$form->{bom}">
1467 <input type=hidden name=titel value="$form->{titel}">
1468 <input type=hidden name=searchitems value="$form->{searchitems}">|;
1469
1470   print $totop100;
1471
1472   print qq|
1473     <input type=hidden name=ndxs_counter value="$form->{ndxs_counter}">
1474
1475     <input class=submit type=submit name=action value="|
1476     . $locale->text('choice') . qq|">
1477
1478   </form>
1479
1480 </body>
1481 </html>
1482 |;
1483
1484   $lxdebug->leave_sub();
1485 }    # end addtop100
1486
1487 sub generate_report {
1488   $lxdebug->enter_sub();
1489
1490   $revers   = $form->{revers};
1491   $lastsort = $form->{lastsort};
1492
1493   if (($form->{lastsort} eq "") && ($form->{sort} eq undef)) {
1494     $form->{revers}   = 0;
1495     $form->{lastsort} = "partnumber";
1496     $form->{sort}     = "partnumber";
1497   } else {
1498
1499     # switch between backward sorting of tables
1500     if ($form->{lastsort} eq $form->{sort}) {
1501       if ($form->{revers} == 0) {
1502         $form->{revers} = 1;
1503       } else {
1504         $form->{revers} = 0;
1505       }    #fi
1506     } else {
1507       $form->{revers} == 0;
1508       $form->{lastsort} = $form->{sort};
1509     }    #fi
1510   }    #fi
1511
1512   $callback =
1513     "$form->{script}?action=generate_report&path=$form->{path}&login=$form->{login}&password=$form->{password}&searchitems=$form->{searchitems}&itemstatus=$form->{itemstatus}&bom=$form->{bom}&l_linetotal=$form->{l_linetotal}&title="
1514     . $form->escape($form->{title}, 1);
1515
1516   # if we have a serialnumber limit search
1517   if ($form->{serialnumber} || $form->{l_serialnumber}) {
1518     $form->{l_serialnumber} = "Y";
1519     unless (   $form->{bought}
1520             || $form->{sold}
1521             || $form->{rfq}
1522             || $form->{quoted}) {
1523       $form->{bought} = $form->{sold} = 1;
1524     }
1525   }
1526
1527   IC->all_parts(\%myconfig, \%$form);
1528
1529   if ($form->{itemstatus} eq 'active') {
1530     $option .= $locale->text('Active') . " : ";
1531   }
1532   if ($form->{itemstatus} eq 'obsolete') {
1533     $option .= $locale->text('Obsolete') . " : ";
1534   }
1535   if ($form->{itemstatus} eq 'orphaned') {
1536     $option .= $locale->text('Orphaned') . " : ";
1537   }
1538   if ($form->{itemstatus} eq 'onhand') {
1539     $option .= $locale->text('On Hand') . " : ";
1540     $form->{l_onhand} = "Y";
1541   }
1542   if ($form->{itemstatus} eq 'short') {
1543     $option .= $locale->text('Short') . " : ";
1544     $form->{l_onhand} = "Y";
1545   }
1546   if ($form->{onorder}) {
1547     $form->{l_ordnumber} = "Y";
1548     $callback .= "&onorder=$form->{onorder}";
1549     $option   .= $locale->text('On Order') . " : ";
1550   }
1551   if ($form->{ordered}) {
1552     $form->{l_ordnumber} = "Y";
1553     $callback .= "&ordered=$form->{ordered}";
1554     $option   .= $locale->text('Ordered') . " : ";
1555   }
1556   if ($form->{rfq}) {
1557     $form->{l_quonumber} = "Y";
1558     $callback .= "&rfq=$form->{rfq}";
1559     $option   .= $locale->text('RFQ') . " : ";
1560   }
1561   if ($form->{quoted}) {
1562     $form->{l_quonumber} = "Y";
1563     $callback .= "&quoted=$form->{quoted}";
1564     $option   .= $locale->text('Quoted') . " : ";
1565   }
1566   if ($form->{bought}) {
1567     $form->{l_invnumber} = "Y";
1568     $callback .= "&bought=$form->{bought}";
1569     $option   .= $locale->text('Bought') . " : ";
1570   }
1571   if ($form->{sold}) {
1572     $form->{l_invnumber} = "Y";
1573     $callback .= "&sold=$form->{sold}";
1574     $option   .= $locale->text('Sold') . " : ";
1575   }
1576   if (   $form->{bought}
1577       || $form->{sold}
1578       || $form->{onorder}
1579       || $form->{ordered}
1580       || $form->{rfq}
1581       || $form->{quoted}) {
1582
1583     $form->{l_lastcost} = "";
1584     $form->{l_name}     = "Y";
1585     if ($form->{transdatefrom}) {
1586       $callback .= "&transdatefrom=$form->{transdatefrom}";
1587       $option   .= "\n<br>"
1588         . $locale->text('From')
1589         . "&nbsp;"
1590         . $locale->date(\%myconfig, $form->{transdatefrom}, 1);
1591     }
1592     if ($form->{transdateto}) {
1593       $callback .= "&transdateto=$form->{transdateto}";
1594       $option   .= "\n<br>"
1595         . $locale->text('To (time)')
1596         . "&nbsp;"
1597         . $locale->date(\%myconfig, $form->{transdateto}, 1);
1598     }
1599   }
1600
1601   $option .= "<br>";
1602
1603   if ($form->{partnumber}) {
1604     $callback .= "&partnumber=$form->{partnumber}";
1605     $option   .= $locale->text('Part Number') . qq| : $form->{partnumber}<br>|;
1606   }
1607   if ($form->{partsgroup}) {
1608     $callback .= "&partsgroup=$form->{partsgroup}";
1609     $option   .= $locale->text('Group') . qq| : $form->{partsgroup}<br>|;
1610   }
1611   if ($form->{serialnumber}) {
1612     $callback .= "&serialnumber=$form->{serialnumber}";
1613     $option   .=
1614       $locale->text('Serial Number') . qq| : $form->{serialnumber}<br>|;
1615   }
1616   if ($form->{description}) {
1617     $callback .= "&description=$form->{description}";
1618     $description = $form->{description};
1619     $description =~ s/
1620 /<br>/g;
1621     $option .=
1622       $locale->text('Part Description') . qq| : $form->{description}<br>|;
1623   }
1624   if ($form->{make}) {
1625     $callback .= "&make=$form->{make}";
1626     $option   .= $locale->text('Make') . qq| : $form->{make}<br>|;
1627   }
1628   if ($form->{model}) {
1629     $callback .= "&model=$form->{model}";
1630     $option   .= $locale->text('Model') . qq| : $form->{model}<br>|;
1631   }
1632   if ($form->{drawing}) {
1633     $callback .= "&drawing=$form->{drawing}";
1634     $option   .= $locale->text('Drawing') . qq| : $form->{drawing}<br>|;
1635   }
1636   if ($form->{microfiche}) {
1637     $callback .= "&microfiche=$form->{microfiche}";
1638     $option   .= $locale->text('Microfiche') . qq| : $form->{microfiche}<br>|;
1639   }
1640
1641   # table soldtotal aktive
1642   if ($form->{l_soldtotal}) {
1643     $callback .= "&soldtotal=$form->{soldtotal}";
1644     $option   .= $locale->text('soldtotal') . qq| : $form->{soldtotal}<br>|;
1645   }
1646
1647   if ($form->{l_deliverydate}) {
1648     $callback .= "&deliverydate=$form->{deliverydate}";
1649   }
1650
1651   @columns = $form->sort_columns(
1652     qw(partnumber description partsgroup bin onhand rop unit listprice linetotallistprice sellprice linetotalsellprice lastcost linetotallastcost priceupdate weight image drawing microfiche invnumber ordnumber quonumber name serialnumber soldtotal deliverydate)
1653   );
1654
1655   if ($form->{l_linetotal}) {
1656     $form->{l_onhand} = "Y";
1657     $form->{l_linetotalsellprice} = "Y" if $form->{l_sellprice};
1658     if ($form->{l_lastcost}) {
1659       $form->{l_linetotallastcost} = "Y";
1660       if (($form->{searchitems} eq 'assembly') && !$form->{bom}) {
1661         $form->{l_linetotallastcost} = "";
1662       }
1663     }
1664     $form->{l_linetotallistprice} = "Y" if $form->{l_listprice};
1665   }
1666
1667   if ($form->{searchitems} eq 'service') {
1668
1669     # remove bin, weight and rop from list
1670     map { $form->{"l_$_"} = "" } qw(bin weight rop);
1671
1672     $form->{l_onhand} = "";
1673
1674     # qty is irrelevant unless bought or sold
1675     if (   $form->{bought}
1676         || $form->{sold}
1677         || $form->{onorder}
1678         || $form->{ordered}
1679         || $form->{rfq}
1680         || $form->{quoted}) {
1681       $form->{l_onhand} = "Y";
1682     } else {
1683       $form->{l_linetotalsellprice} = "";
1684       $form->{l_linetotallastcost}  = "";
1685     }
1686   }
1687
1688   $form->{l_lastcost} = ""
1689     if ($form->{searchitems} eq 'assembly' && !$form->{bom});
1690
1691   foreach $item (@columns) {
1692     if ($form->{"l_$item"} eq "Y") {
1693       push @column_index, $item;
1694
1695       # add column to callback
1696       $callback .= "&l_$item=Y";
1697     }
1698   }
1699
1700   if ($form->{l_subtotal} eq 'Y') {
1701     $callback .= "&l_subtotal=Y";
1702   }
1703   $column_header{partnumber} =
1704     qq|<th nowrap><a class=listheading href=$callback&sort=partnumber&revers=$form->{revers}&lastsort=$form->{lastsort}>|
1705     . $locale->text('Part Number')
1706     . qq|</a></th>|;
1707   $column_header{description} =
1708     qq|<th nowrap><a class=listheading href=$callback&sort=description&revers=$form->{revers}&lastsort=$form->{lastsort}>|
1709     . $locale->text('Part Description')
1710     . qq|</a></th>|;
1711   $column_header{partsgroup} =
1712       qq|<th nowrap><a class=listheading href=$callback&sort=partsgroup>|
1713     . $locale->text('Group')
1714     . qq|</a></th>|;
1715   $column_header{bin} =
1716       qq|<th><a class=listheading href=$callback&sort=bin>|
1717     . $locale->text('Bin')
1718     . qq|</a></th>|;
1719   $column_header{priceupdate} =
1720       qq|<th nowrap><a class=listheading href=$callback&sort=priceupdate>|
1721     . $locale->text('Updated')
1722     . qq|</a></th>|;
1723   $column_header{onhand} =
1724     qq|<th nowrap><a  class=listheading href=$callback&sort=onhand&revers=$form->{revers}&lastsort=$form->{lastsort}>|
1725     . $locale->text('Qty')
1726     . qq|</th>|;
1727   $column_header{unit} =
1728     qq|<th class=listheading nowrap>| . $locale->text('Unit') . qq|</th>|;
1729   $column_header{listprice} =
1730       qq|<th class=listheading nowrap>|
1731     . $locale->text('List Price')
1732     . qq|</th>|;
1733   $column_header{lastcost} =
1734     qq|<th class=listheading nowrap>| . $locale->text('Last Cost') . qq|</th>|;
1735   $column_header{rop} =
1736     qq|<th class=listheading nowrap>| . $locale->text('ROP') . qq|</th>|;
1737   $column_header{weight} =
1738     qq|<th class=listheading nowrap>| . $locale->text('Weight') . qq|</th>|;
1739
1740   $column_header{invnumber} =
1741       qq|<th nowrap><a class=listheading href=$callback&sort=invnumber>|
1742     . $locale->text('Invoice Number')
1743     . qq|</a></th>|;
1744   $column_header{ordnumber} =
1745       qq|<th nowrap><a class=listheading href=$callback&sort=ordnumber>|
1746     . $locale->text('Order Number')
1747     . qq|</a></th>|;
1748   $column_header{quonumber} =
1749       qq|<th nowrap><a class=listheading href=$callback&sort=quonumber>|
1750     . $locale->text('Quotation')
1751     . qq|</a></th>|;
1752
1753   $column_header{name} =
1754       qq|<th nowrap><a class=listheading href=$callback&sort=name>|
1755     . $locale->text('Name')
1756     . qq|</a></th>|;
1757
1758   $column_header{sellprice} =
1759       qq|<th class=listheading nowrap>|
1760     . $locale->text('Sell Price')
1761     . qq|</th>|;
1762   $column_header{linetotalsellprice} =
1763     qq|<th class=listheading nowrap>| . $locale->text('Extended') . qq|</th>|;
1764   $column_header{linetotallastcost} =
1765     qq|<th class=listheading nowrap>| . $locale->text('Extended') . qq|</th>|;
1766   $column_header{linetotallistprice} =
1767     qq|<th class=listheading nowrap>| . $locale->text('Extended') . qq|</th>|;
1768
1769   $column_header{image} =
1770     qq|<th class=listheading nowrap>| . $locale->text('Image') . qq|</a></th>|;
1771   $column_header{drawing} =
1772       qq|<th nowrap><a class=listheading href=$callback&sort=drawing>|
1773     . $locale->text('Drawing')
1774     . qq|</a></th>|;
1775   $column_header{microfiche} =
1776       qq|<th nowrap><a class=listheading href=$callback&sort=microfiche>|
1777     . $locale->text('Microfiche')
1778     . qq|</a></th>|;
1779
1780   $column_header{serialnumber} =
1781       qq|<th nowrap><a class=listheading href=$callback&sort=serialnumber>|
1782     . $locale->text('Serial Number')
1783     . qq|</a></th>|;
1784   $column_header{soldtotal} =
1785     qq|<th nowrap><a class=listheading href=$callback&sort=soldtotal&revers=$form->{revers}&lastsort=$form->{lastsort}>|
1786     . $locale->text('soldtotal')
1787     . qq|</a></th>|;
1788
1789   $column_header{deliverydate} =
1790     qq|<th nowrap><a class=listheading href=$callback&sort=deliverydate&revers=$form->{revers}&lastsort=$form->{lastsort}>|
1791     . $locale->text('deliverydate')
1792     . qq|</a></th>|;
1793
1794   $form->header;
1795   $colspan = $#column_index + 1;
1796
1797   print qq|
1798 <body>
1799
1800 <table width=100%>
1801   <tr>
1802     <th class=listtop colspan=$colspan>$form->{title}</th>
1803   </tr>
1804   <tr height="5"></tr>
1805
1806   <tr><td colspan=$colspan>$option</td></tr>
1807
1808   <tr class=listheading>
1809 |;
1810
1811   map { print "\n$column_header{$_}" } @column_index;
1812
1813   print qq|
1814   </tr>
1815   |;
1816
1817   # add order to callback
1818   $form->{callback} = $callback .= "&sort=$form->{sort}";
1819
1820   # escape callback for href
1821   $callback = $form->escape($callback);
1822
1823   if (@{ $form->{parts} }) {
1824     $sameitem = $form->{parts}->[0]->{ $form->{sort} };
1825   }
1826
1827   foreach $ref (@{ $form->{parts} }) {
1828
1829     if ($form->{l_subtotal} eq 'Y' && !$ref->{assemblyitem}) {
1830       if ($sameitem ne $ref->{ $form->{sort} }) {
1831         &parts_subtotal;
1832         $sameitem = $ref->{ $form->{sort} };
1833       }
1834     }
1835
1836     $ref->{exchangerate} = 1 unless $ref->{exchangerate};
1837     $ref->{sellprice} *= $ref->{exchangerate};
1838     $ref->{listprice} *= $ref->{exchangerate};
1839     $ref->{lastcost}  *= $ref->{exchangerate};
1840
1841     # use this for assemblies
1842     $onhand = $ref->{onhand};
1843
1844     $align = "left";
1845     if ($ref->{assemblyitem}) {
1846       $align = "right";
1847       $onhand = 0 if ($form->{sold});
1848     }
1849
1850     $ref->{description} =~ s/
1851 /<br>/g;
1852
1853     $column_data{partnumber} =
1854       "<td align=$align><a href=$form->{script}?action=edit&id=$ref->{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{partnumber}&nbsp;</a></td>";
1855     $column_data{description} = "<td><a href=$form->{script}?action=edit&id=$ref->{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{description}&nbsp;</a></td>";
1856     $column_data{partsgroup}  = "<td>$ref->{partsgroup}&nbsp;</td>";
1857
1858     $column_data{onhand} =
1859         "<td align=right>"
1860       . $form->format_amount(\%myconfig, $ref->{onhand})
1861       . "</td>";
1862     $column_data{sellprice} =
1863         "<td align=right>"
1864       . $form->format_amount(\%myconfig, $ref->{sellprice}, -2)
1865       . "</td>";
1866     $column_data{listprice} =
1867         "<td align=right>"
1868       . $form->format_amount(\%myconfig, $ref->{listprice}, -2)
1869       . "</td>";
1870     $column_data{lastcost} =
1871         "<td align=right>"
1872       . $form->format_amount(\%myconfig, $ref->{lastcost}, -2)
1873       . "</td>";
1874
1875     $column_data{linetotalsellprice} = "<td align=right>"
1876       . $form->format_amount(\%myconfig, $ref->{onhand} * $ref->{sellprice}, 2)
1877       . "</td>";
1878     $column_data{linetotallastcost} = "<td align=right>"
1879       . $form->format_amount(\%myconfig, $ref->{onhand} * $ref->{lastcost}, 2)
1880       . "</td>";
1881     $column_data{linetotallistprice} = "<td align=right>"
1882       . $form->format_amount(\%myconfig, $ref->{onhand} * $ref->{listprice}, 2)
1883       . "</td>";
1884
1885     if (!$ref->{assemblyitem}) {
1886       $totalsellprice += $onhand * $ref->{sellprice};
1887       $totallastcost  += $onhand * $ref->{lastcost};
1888       $totallistprice += $onhand * $ref->{listprice};
1889
1890       $subtotalonhand    += $onhand;
1891       $subtotalsellprice += $onhand * $ref->{sellprice};
1892       $subtotallastcost  += $onhand * $ref->{lastcost};
1893       $subtotallistprice += $onhand * $ref->{listprice};
1894     }
1895
1896     $column_data{rop} =
1897       "<td align=right>"
1898       . $form->format_amount(\%myconfig, $ref->{rop}) . "</td>";
1899     $column_data{weight} =
1900         "<td align=right>"
1901       . $form->format_amount(\%myconfig, $ref->{weight})
1902       . "</td>";
1903     $column_data{unit}        = "<td>$ref->{unit}&nbsp;</td>";
1904     $column_data{bin}         = "<td>$ref->{bin}&nbsp;</td>";
1905     $column_data{priceupdate} = "<td>$ref->{priceupdate}&nbsp;</td>";
1906
1907     $column_data{invnumber} =
1908       ($ref->{module} ne 'oe')
1909       ? "<td><a href=$ref->{module}.pl?action=edit&type=invoice&id=$ref->{trans_id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{invnumber}</a></td>"
1910       : "<td>$ref->{invnumber}</td>";
1911     $column_data{ordnumber} =
1912       ($ref->{module} eq 'oe')
1913       ? "<td><a href=$ref->{module}.pl?action=edit&type=$ref->{type}&id=$ref->{trans_id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{ordnumber}</a></td>"
1914       : "<td>$ref->{ordnumber}</td>";
1915     $column_data{quonumber} =
1916       ($ref->{module} eq 'oe' && !$ref->{ordnumber})
1917       ? "<td><a href=$ref->{module}.pl?action=edit&type=$ref->{type}&id=$ref->{trans_id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{quonumber}</a></td>"
1918       : "<td>$ref->{quonumber}</td>";
1919
1920     $column_data{name} = "<td>$ref->{name}</td>";
1921
1922     $column_data{image} =
1923       ($ref->{image})
1924       ? "<td><a href=$ref->{image}><img src=$ref->{image} height=32 border=0></a></td>"
1925       : "<td>&nbsp;</td>";
1926     $column_data{drawing} =
1927       ($ref->{drawing})
1928       ? "<td><a href=$ref->{drawing}>$ref->{drawing}</a></td>"
1929       : "<td>&nbsp;</td>";
1930     $column_data{microfiche} =
1931       ($ref->{microfiche})
1932       ? "<td><a href=$ref->{microfiche}>$ref->{microfiche}</a></td>"
1933       : "<td>&nbsp;</td>";
1934
1935     $column_data{serialnumber} = "<td>$ref->{serialnumber}</td>";
1936
1937     $column_data{soldtotal} =
1938         "<td align=right>"
1939       . $form->format_amount(\%myconfig, $ref->{soldtotal})
1940       . "</td>";
1941
1942     $column_data{deliverydate} = "<td>$ref->{deliverydate}</td>";
1943
1944     $i++;
1945     $i %= 2;
1946     print "<tr class=listrow$i>";
1947
1948     map { print "\n$column_data{$_}" } @column_index;
1949
1950     print qq|
1951     </tr>
1952 |;
1953
1954   }
1955
1956   if ($form->{l_subtotal} eq 'Y') {
1957     &parts_subtotal;
1958   }
1959
1960   if ($form->{"l_linetotal"}) {
1961     map { $column_data{$_} = "<td>&nbsp;</td>" } @column_index;
1962     $column_data{linetotalsellprice} =
1963         "<th class=listtotal align=right>"
1964       . $form->format_amount(\%myconfig, $totalsellprice, 2)
1965       . "</th>";
1966     $column_data{linetotallastcost} =
1967         "<th class=listtotal align=right>"
1968       . $form->format_amount(\%myconfig, $totallastcost, 2)
1969       . "</th>";
1970     $column_data{linetotallistprice} =
1971         "<th class=listtotal align=right>"
1972       . $form->format_amount(\%myconfig, $totallistprice, 2)
1973       . "</th>";
1974
1975     print "<tr class=listtotal>";
1976
1977     map { print "\n$column_data{$_}" } @column_index;
1978
1979     print qq|</tr>
1980     |;
1981   }
1982
1983   print qq|
1984   <tr><td colspan=$colspan><hr size=3 noshade></td></tr>
1985 </table>
1986
1987 |;
1988
1989   print qq|
1990
1991 <br>
1992
1993 <form method=post action=$form->{script}>
1994
1995 <input name=callback type=hidden value="$form->{callback}">
1996
1997 <input type=hidden name=item value=$form->{searchitems}>
1998
1999 <input type=hidden name=path value=$form->{path}>
2000 <input type=hidden name=login value=$form->{login}>
2001 <input type=hidden name=password value=$form->{password}>|;
2002
2003   print qq|
2004   <input class=submit type=submit name=action value="|
2005     . $locale->text('Add') . qq|">
2006
2007   </form>
2008
2009 </body>
2010 </html>
2011 |;
2012
2013   $lxdebug->leave_sub();
2014 }    #end generate_report
2015
2016 sub parts_subtotal {
2017   $lxdebug->enter_sub();
2018
2019   map { $column_data{$_} = "<td>&nbsp;</td>" } @column_index;
2020   $subtotalonhand = 0 if ($form->{searchitems} eq 'assembly' && $form->{bom});
2021
2022   $column_data{onhand} =
2023       "<th class=listsubtotal align=right>"
2024     . $form->format_amount(\%myconfig, $subtotalonhand)
2025     . "</th>";
2026
2027   $column_data{linetotalsellprice} =
2028       "<th class=listsubtotal align=right>"
2029     . $form->format_amount(\%myconfig, $subtotalsellprice, 2)
2030     . "</th>";
2031   $column_data{linetotallistprice} =
2032       "<th class=listsubtotal align=right>"
2033     . $form->format_amount(\%myconfig, $subtotallistprice, 2)
2034     . "</th>";
2035   $column_data{linetotallastcost} =
2036       "<th class=listsubtotal align=right>"
2037     . $form->format_amount(\%myconfig, $subtotallastcost, 2)
2038     . "</th>";
2039
2040   $subtotalonhand    = 0;
2041   $subtotalsellprice = 0;
2042   $subtotallistprice = 0;
2043   $subtotallastcost  = 0;
2044
2045   print "<tr class=listsubtotal>";
2046
2047   map { print "\n$column_data{$_}" } @column_index;
2048
2049   print qq|
2050   </tr>
2051 |;
2052
2053   $lxdebug->leave_sub();
2054 }
2055
2056 sub edit {
2057   $lxdebug->enter_sub();
2058   # show history button
2059   $form->{javascript} = qq|<script type="text/javascript" src="js/show_history.js"></script>|;
2060   #/show hhistory button
2061   IC->get_part(\%myconfig, \%$form);
2062
2063   $form->{"original_partnumber"} = $form->{"partnumber"};
2064
2065   $form->{title} = $locale->text('Edit ' . ucfirst $form->{item});
2066
2067   &link_part;
2068   &display_form;
2069
2070   $lxdebug->leave_sub();
2071 }
2072
2073 sub link_part {
2074   $lxdebug->enter_sub();
2075
2076   IC->create_links("IC", \%myconfig, \%$form);
2077
2078   # currencies
2079   map({ $form->{selectcurrency} .= "<option>$_\n" }
2080       split(/:/, $form->{currencies}));
2081
2082   # parts and assemblies have the same links
2083   $item = $form->{item};
2084   if ($form->{item} eq 'assembly') {
2085     $item = 'part';
2086   }
2087
2088   # build the popup menus
2089   $form->{taxaccounts} = "";
2090   foreach $key (keys %{ $form->{IC_links} }) {
2091     foreach $ref (@{ $form->{IC_links}{$key} }) {
2092
2093       # if this is a tax field
2094       if ($key =~ /IC_tax/) {
2095         if ($key =~ /$item/) {
2096           $form->{taxaccounts} .= "$ref->{accno} ";
2097           $form->{"IC_tax_$ref->{accno}_description"} =
2098             "$ref->{accno}--$ref->{description}";
2099
2100           if ($form->{id}) {
2101             if ($form->{amount}{ $ref->{accno} }) {
2102               $form->{"IC_tax_$ref->{accno}"} = "checked";
2103             }
2104           } else {
2105             $form->{"IC_tax_$ref->{accno}"} = "checked";
2106           }
2107         }
2108       } else {
2109
2110         $form->{"select$key"} .=
2111           "<option $ref->{selected}>$ref->{accno}--$ref->{description}\n";
2112         if ($form->{amount}{$key} eq $ref->{accno}) {
2113           $form->{$key} = "$ref->{accno}--$ref->{description}";
2114         }
2115
2116       }
2117     }
2118   }
2119   chop $form->{taxaccounts};
2120
2121   if (($form->{item} eq "part") || ($form->{item} eq "assembly")) {
2122     $form->{selectIC_income}  = $form->{selectIC_sale};
2123     $form->{selectIC_expense} = $form->{selectIC_cogs};
2124     $form->{IC_income}        = $form->{IC_sale};
2125     $form->{IC_expense}       = $form->{IC_cogs};
2126   }
2127
2128   delete $form->{IC_links};
2129   delete $form->{amount};
2130
2131   $form->get_partsgroup(\%myconfig, { all => 1 });
2132
2133   $form->{partsgroup} = "$form->{partsgroup}--$form->{partsgroup_id}";
2134
2135   if (@{ $form->{all_partsgroup} }) {
2136     $form->{selectpartsgroup} = qq|<option>\n|;
2137     map {
2138       $form->{selectpartsgroup} .=
2139         qq|<option value="$_->{partsgroup}--$_->{id}">$_->{partsgroup}\n|
2140     } @{ $form->{all_partsgroup} };
2141   }
2142
2143   if ($form->{item} eq 'assembly') {
2144
2145     foreach $i (1 .. $form->{assembly_rows}) {
2146       if ($form->{"partsgroup_id_$i"}) {
2147         $form->{"partsgroup_$i"} =
2148           qq|$form->{"partsgroup_$i"}--$form->{"partsgroup_id_$i"}|;
2149       }
2150     }
2151     $form->get_partsgroup(\%myconfig);
2152
2153     if (@{ $form->{all_partsgroup} }) {
2154       $form->{selectassemblypartsgroup} = qq|<option>\n|;
2155
2156       map {
2157         $form->{selectassemblypartsgroup} .=
2158           qq|<option value="$_->{partsgroup}--$_->{id}">$_->{partsgroup}\n|
2159       } @{ $form->{all_partsgroup} };
2160     }
2161   }
2162   $lxdebug->leave_sub();
2163 }
2164
2165 sub form_header {
2166   $lxdebug->enter_sub();
2167
2168   map({ $form->{$_} = $form->format_amount(\%myconfig, $form->{$_}, -2) }
2169       qw(sellprice listprice lastcost gv));
2170
2171   map { $form->{$_} = $form->format_amount(\%myconfig, $form->{$_}) }
2172     qw(weight rop stock);
2173
2174   foreach $item (qw(partnumber description unit notes)) {
2175     $form->{$item} =~ s/\"/&quot;/g;
2176   }
2177
2178   $payment = qq|<option value=""></option>|;
2179   foreach $item (@{ $form->{payment_terms} }) {
2180     if ($form->{payment_id} eq $item->{id}) {
2181       $payment .= qq|<option value="$item->{id}" selected>$item->{description}</option>|;
2182     } else {
2183       $payment .= qq|<option value="$item->{id}">$item->{description}</option>|;
2184     }
2185   }
2186
2187
2188   if (($rows = $form->numtextrows($form->{notes}, 40)) < 2) {
2189     $rows = 4;
2190   }
2191
2192   $notes =
2193     qq|<textarea name=notes rows=$rows cols=45 wrap=soft>$form->{notes}</textarea>|;
2194   if (($rows = $form->numtextrows($form->{description}, 40)) > 1) {
2195     $description =
2196       qq|<textarea name="description" rows=$rows cols=40 wrap=soft>$form->{description}</textarea>|;
2197   } else {
2198     $description =
2199       qq|<input name=description size=40 value="$form->{description}">|;
2200   }
2201
2202   $ean =  qq|<input name=ean size=40 value="$form->{ean}">|;
2203
2204   foreach $item (split / /, $form->{taxaccounts}) {
2205     $form->{"IC_tax_$item"} = ($form->{"IC_tax_$item"}) ? "checked" : "";
2206   }
2207
2208   IC->retrieve_buchungsgruppen(\%myconfig, $form);
2209   if (@{ $form->{BUCHUNGSGRUPPEN} }) {
2210     foreach $item (@{ $form->{BUCHUNGSGRUPPEN} }) {
2211       if ($item->{id} == $form->{buchungsgruppen_id}) {
2212         $form->{selectbuchungsgruppe} .=
2213           "<option value=$item->{id} selected>$item->{description}\n";
2214       } elsif (($form->{id} && $form->{orphaned}) || (!$form->{id})) {
2215         $form->{selectbuchungsgruppe} .=
2216           "<option value=$item->{id}>$item->{description}\n";
2217       }
2218
2219     }
2220   }
2221
2222   $buchungsgruppe = qq|
2223               <tr>
2224                 <th align=right>| . $locale->text('Buchungsgruppe') . qq|</th>
2225                 <td><select name=buchungsgruppen_id>$form->{selectbuchungsgruppe}</select></td>
2226               </tr>|;
2227
2228
2229   # set option
2230   foreach $item (qw(IC IC_income IC_expense)) {
2231     if ($form->{$item}) {
2232       if ($form->{id} && $form->{orphaned}) {
2233         $form->{"select$item"} =~ s/ selected//;
2234         $form->{"select$item"} =~
2235           s/option>\Q$form->{$item}\E/option selected>$form->{$item}/;
2236       } else {
2237         $form->{"select$item"} = qq|<option selected>$form->{$item}|;
2238       }
2239     }
2240   }
2241
2242   if ($form->{selectpartsgroup}) {
2243     $form->{selectpartsgroup} = $form->unescape($form->{selectpartsgroup});
2244     $partsgroup =
2245       qq|<input type=hidden name=selectpartsgroup value="|
2246       . $form->escape($form->{selectpartsgroup}, 1) . qq|">|;
2247     $form->{selectpartsgroup} =~
2248       s/(<option value="\Q$form->{partsgroup}\E")/$1 selected/;
2249
2250     $partsgroup .=
2251       qq|<select name=partsgroup>$form->{selectpartsgroup}</select>|;
2252     $group = $locale->text('Group');
2253   }
2254
2255   # tax fields
2256   foreach $item (split / /, $form->{taxaccounts}) {
2257     $tax .= qq|
2258       <input class=checkbox type=checkbox name="IC_tax_$item" value=1 $form->{"IC_tax_$item"}>&nbsp;<b>$form->{"IC_tax_${item}_description"}</b>
2259       <br><input type=hidden name=IC_tax_${item}_description value="$form->{"IC_tax_${item}_description"}">
2260 |;
2261   }
2262
2263   $form->{obsolete} = "checked" if $form->{obsolete};
2264
2265   $lastcost = qq|
2266               <tr>
2267                 <th align="right" nowrap="true">|
2268     . $locale->text('Last Cost') . qq|</th>
2269                 <td><input name=lastcost size=11 value=$form->{lastcost}></td>
2270               </tr>
2271 |;
2272   if (!$eur) {
2273     $linkaccounts = qq|
2274                <tr>
2275                 <th align=right>| . $locale->text('Inventory') . qq|</th>
2276                 <td><select name=IC>$form->{selectIC}</select></td>
2277                 <input name=selectIC type=hidden value="$form->{selectIC}">
2278               </tr>|;
2279   }
2280
2281   if ($form->{item} eq "part") {
2282
2283     $linkaccounts .= qq|
2284               <tr>
2285                 <th align=right>| . $locale->text('Revenue') . qq|</th>
2286                 <td><select name=IC_income>$form->{selectIC_income}</select></td>
2287                 <input name=selectIC_income type=hidden value="$form->{selectIC_income}">
2288               </tr>
2289               <tr>
2290                 <th align=right>| . $locale->text('Expense') . qq|</th>
2291                 <td><select name=IC_expense>$form->{selectIC_expense}</select></td>
2292                 <input name=selectIC_expense type=hidden value="$form->{selectIC_expense}">
2293               </tr>
2294 |;
2295
2296     $weight = qq|
2297               <tr>
2298                 <th align="right" nowrap="true">| . $locale->text('Weight') . qq|</th>
2299                 <td>
2300                   <table>
2301                     <tr>
2302                       <td>
2303                         <input name=weight size=10 value=$form->{weight}>
2304                       </td>
2305                     </tr>
2306                   </table>
2307                 </td>
2308               </tr>
2309 |;
2310
2311   }
2312
2313   if ($form->{item} eq "assembly") {
2314
2315     $lastcost = "";
2316
2317     $linkaccounts = qq|
2318               <tr>
2319                 <th align=right>| . $locale->text('Revenue') . qq|</th>
2320                 <td><select name=IC_income>$form->{selectIC_income}</select></td>
2321                 <input name=selectIC_income type=hidden value="$form->{selectIC_income}">
2322               </tr>
2323 |;
2324
2325     $weight = qq|
2326               <tr>
2327                 <th align="right" nowrap="true">| . $locale->text('Weight') . qq|</th>
2328                 <td>
2329                   <table>
2330                     <tr>
2331                       <td>
2332                         &nbsp;$form->{weight}
2333                         <input type=hidden name=weight value=$form->{weight}>
2334                       </td>
2335                     </tr>
2336                   </table>
2337                 </td>
2338               </tr>
2339 |;
2340
2341   }
2342
2343   if ($form->{item} eq "service") {
2344
2345     $linkaccounts = qq|
2346               <tr>
2347                 <th align=right>| . $locale->text('Revenue') . qq|</th>
2348                 <td><select name=IC_income>$form->{selectIC_income}</select></td>
2349                 <input name=selectIC_income type=hidden value="$form->{selectIC_income}">
2350               </tr>
2351               <tr>
2352                 <th align=right>| . $locale->text('Expense') . qq|</th>
2353                 <td><select name=IC_expense>$form->{selectIC_expense}</select></td>
2354                 <input name=selectIC_expense type=hidden value="$form->{selectIC_expense}">
2355               </tr>
2356 |;
2357
2358   }
2359   $linkaccounts = qq|<input type=hidden name=IC_income value="$form->{IC_income_default}">|;
2360
2361   if ($form->{IC_cogs_default}) {
2362     $form->{IC_expense_default} = $form->{IC_cogs_default};
2363   }
2364
2365   if (($form->{item} eq "service") || ($form->{item} eq "part")) {
2366     $linkaccounts .= qq|<input type=hidden name=IC_expense value="$form->{IC_expense_default}">|;
2367   }
2368   if ($form->{item} eq "part") {
2369     $linkaccounts .= qq|<input type=hidden name=IC value="$form->{IC_default}">|;
2370   }
2371
2372   if ($form->{item} ne 'service') {
2373     $n   = ($form->{onhand} > 0) ? "1" : "0";
2374     $rop = qq|
2375               <tr>
2376                 <th align="right" nowrap>| . $locale->text('On Hand') . qq|</th>
2377                 <th align=left nowrap class="plus$n">&nbsp;|
2378       . $form->format_amount(\%myconfig, $form->{onhand}) . qq|</th>
2379               </tr>
2380 |;
2381
2382     if ($form->{item} eq 'assembly') {
2383       $rop .= qq|
2384               <tr>
2385                 <th align="right" nowrap>| . $locale->text('Stock') . qq|</th>
2386                 <td><input name=stock size=10 value=$form->{stock}></td>
2387               </tr>
2388 |;
2389     }
2390
2391     $rop .= qq|
2392               <tr>
2393                 <th align="right" nowrap="true">| . $locale->text('ROP') . qq|</th>
2394                 <td><input name=rop size=10 value=$form->{rop}></td>
2395               </tr>
2396 |;
2397
2398     $bin = qq|
2399               <tr>
2400                 <th align="right" nowrap="true">| . $locale->text('Bin') . qq|</th>
2401                 <td><input name=bin size=10 value=$form->{bin}></td>
2402               </tr>
2403 |;
2404     $vegv = qq|
2405               <tr>
2406                 <th align="right" nowrap="true">|
2407       . $locale->text('Verrechnungseinheit') . qq|</th>
2408                 <td><input name=ve size=10 value=$form->{ve}></td>
2409               </tr>
2410               <tr>
2411                 <th align="right" nowrap="true">|
2412       . $locale->text('Geschäftsvolumen') . qq|</th>
2413                 <td><input name=gv size=10 value=$form->{gv}></td>
2414               </tr>
2415 |;
2416     $notdiscountableok = ($form->{not_discountable}) == 1 ? "checked" : "";
2417     $notdiscountable .= qq|
2418               <tr>
2419                 <th align=right nowrap>|
2420     . $locale->text('Not Discountable') . qq|</th>
2421                 <td><input class=checkbox type=checkbox name=not_discountable value=1 $notdiscountableok></td>
2422              </tr>
2423 |;
2424
2425   $formel =
2426     qq|<ilayer><layer  onmouseover="this.T_STICKY=true;this.T_STATIC=true;return escape('| . $locale->text('The formula needs the following syntax:<br>For regular article:<br>Variablename= Variable Unit;<br>Variablename2= Variable2 Unit2;<br>...<br>###<br>Variable + ( Variable2 / Variable )<br><b>Please be beware of the spaces in the formula</b><br>') . qq|')"><textarea name=formel rows=4 cols=30 wrap=soft>$form->{formel}</textarea></layer><ilayer>|;
2427     $imagelinks = qq|
2428   <tr>
2429     <td>
2430       <table width=100%>
2431         <tr>
2432           <th align=right nowrap>| . $locale->text('Image') . qq|</th>
2433           <td><input name=image size=40 value="$form->{image}"></td>
2434           <th align=right nowrap>| . $locale->text('Microfiche') . qq|</th>
2435           <td><input name=microfiche size=20 value="$form->{microfiche}"></td>
2436         </tr>
2437         <tr>
2438           <th align=right nowrap>| . $locale->text('Drawing') . qq|</th>
2439           <td><input name=drawing size=40 value="$form->{drawing}"></td>
2440         </tr>
2441       </table>
2442     </td>
2443   </tr>
2444 |;
2445
2446   }
2447
2448   if ($form->{id}) {
2449     $obsolete = qq|
2450               <tr>
2451                 <th align="right" nowrap="true">| . $locale->text('Obsolete') . qq|</th>
2452                 <td><input name=obsolete type=checkbox class=checkbox value=1 $form->{obsolete}></td>
2453               </tr>
2454 |;
2455   }
2456   $shopok = $form->{shop} == 1 ? "checked" : "";
2457   $shop .= qq|
2458               <tr>
2459                 <th align=right nowrap>|
2460     . $locale->text('Shopartikel') . qq|</th>
2461                 <td><input class=checkbox type=checkbox name=shop value=1 $shopok></td>
2462              </tr>
2463 |;
2464
2465
2466   # type=submit $locale->text('Add Part')
2467   # type=submit $locale->text('Add Service')
2468   # type=submit $locale->text('Add Assembly')
2469
2470   # type=submit $locale->text('Edit Part')
2471   # type=submit $locale->text('Edit Service')
2472   # type=submit $locale->text('Edit Assembly')
2473   # use JavaScript Calendar or not
2474   $form->{jsscript} = $jscalendar;
2475   $jsscript = "";
2476   if ($form->{jsscript}) {
2477
2478     # with JavaScript Calendar
2479     $button1 = qq|
2480        <td width="13"><input name=priceupdate id=priceupdate size=11  title="$myconfig{dateformat}" value="$form->{priceupdate}"></td>
2481        <td width="4" align="left"><input type=button name=priceupdate id="trigger1" value=|
2482       . $locale->text('button') . qq|></td>
2483       |;
2484
2485     #write Trigger
2486     $jsscript =
2487       Form->write_trigger(\%myconfig, "1", "priceupdate", "BL", "trigger1");
2488   } else {
2489
2490     # without JavaScript Calendar
2491     $button1 = qq|
2492                               <td><input name=transdatefrom id=transdatefrom size=11 title="$myconfig{dateformat}"></td>|;
2493   }
2494
2495   my $unit_select = '<input type="hidden" name="unit_changeable" value="' . $form->{"unit_changeable"} . '">';
2496   if (!$form->{"unit_changeable"}) {
2497     $unit_select .= '<input type="hidden" name="unit" value="' . $form->{"unit"} . '">' . $form->{"unit"};
2498   } else {
2499     my $units = AM->retrieve_units(\%myconfig, $form, $form->{"item"} eq "service" ? "service" : "dimension");
2500     $unit_select .= AM->unit_select_html($units, "unit", $form->{"unit"});
2501   }
2502
2503   $form->{fokus} = "ic.partnumber";
2504   $form->header;
2505
2506   print qq|
2507   <body onLoad="fokus()">
2508  <script type="text/javascript" src="js/common.js"></script>
2509  <script type="text/javascript" src="js/parts_language_selection.js"></script>
2510
2511 <form method=post name="ic" action=$form->{script}>
2512
2513 <input name=id type=hidden value=$form->{id}>
2514 <input name=item type=hidden value=$form->{item}>
2515 <input name=title type=hidden value="$form->{title}">
2516 <input name=makemodel type=hidden value="$form->{makemodel}">
2517 <input name=alternate type=hidden value="$form->{alternate}">
2518 <input name=onhand type=hidden value=$form->{onhand}>
2519 <input name=orphaned type=hidden value=$form->{orphaned}>
2520 <input name=taxaccounts type=hidden value="$form->{taxaccounts}">
2521 <input name=rowcount type=hidden value=$form->{rowcount}>
2522 <input name=eur type=hidden value=$eur>
2523 <input name=language_values type=hidden value="$form->{language_values}">
2524 <input name="original_partnumber" type="hidden" value="| . $form->quote($form->{"original_partnumber"}) . qq|">
2525
2526 <table width="100%">
2527   <tr>
2528     <th class=listtop>$form->{title}</th>
2529   </tr>
2530   <tr height="5"></tr>
2531   <tr>
2532     <td>
2533       <table width="100%">
2534         <tr valign=top>
2535           <th align=left>| . $locale->text('Part Number') . qq|</th>
2536           <th align=left>| . $locale->text('Part Description') . qq|</th>
2537           <th align=left>$group</th>
2538         </tr>
2539         <tr valign=top>
2540           <td><input name=partnumber value="$form->{partnumber}" size=20></td>
2541           <td>$description</td>
2542           <td>$partsgroup</td>
2543           <input type=hidden name=oldpartsgroup value="$form->{oldpartsgroup}">
2544         </tr>
2545       </table>
2546     </td>
2547   </tr>
2548   <tr>
2549     <td>
2550       <table width="100%" height="100%">
2551         <tr valign=top>
2552           <td width=70%>
2553             <table width="100%" height="100%">
2554               <tr class="listheading">
2555                 <th class="listheading" align="center" colspan=2>|
2556     . $locale->text('') . qq|</th>
2557               </tr>
2558               <td colspan=2>
2559                 <table>
2560                   $buchungsgruppe
2561                   $linkaccounts
2562                 </table>
2563               </td>
2564               <tr>
2565                 <th align="left">| . $locale->text('Notes') . qq|</th>
2566                 <th align="left">| . $locale->text('Formula') . qq|</th>
2567               </tr>
2568               <tr>
2569                 <td>
2570                   $notes
2571                 </td>
2572                 <td>
2573                   $formel
2574                 </td>
2575               </tr>
2576               <tr>
2577                 <th align="left"></th>
2578                 <th align="left">| . $locale->text('EAN-Code') . qq|</th>
2579               </tr>
2580               <tr>
2581                 <td>
2582                   <button type="button" onclick="parts_language_selection_window('language_values')">| . $locale->text('Set Language Values') . qq|</button>
2583                 </td>
2584                 <td>
2585                   $ean
2586                 </td>
2587               </tr>
2588               <tr>
2589               <td colspan=2>
2590                 <table>
2591                 <tr>
2592                <th align=right>| . $locale->text('Payment Terms') . qq|</th>
2593                  <td><select name=payment_id>$payment</select></td>
2594                 </tr>
2595                </table>
2596               </td>
2597               </tr>
2598             </table>
2599           </td>
2600           <td width="30%">
2601             <table width="100%">
2602               <tr>
2603                 <th align="right" nowrap="true">|
2604     . $locale->text('Updated') . qq|</th>
2605                 $button1
2606               </tr>
2607               <tr>
2608                 <th align="right" nowrap="true">| . $locale->text('List Price') . qq|</th>
2609                 <td><input name=listprice size=11 value=$form->{listprice}></td>
2610               </tr>
2611               <tr>
2612                 <th align="right" nowrap="true">| . $locale->text('Sell Price') . qq|</th>
2613                 <td><input name=sellprice size=11 value=$form->{sellprice}></td>
2614               </tr>
2615               $lastcost
2616               <tr>
2617                 <th align="right" nowrap="true">| . $locale->text('Unit') . qq|</th>
2618                 <td>$unit_select</td>
2619               </tr>
2620               $weight
2621               $rop
2622               $bin
2623               $notdiscountable
2624               $vegv
2625               $shop
2626               $obsolete
2627             </table>
2628           </td>
2629         </tr>
2630       </table>
2631     </td>
2632   </tr>
2633   $imagelinks
2634
2635 $jsscript
2636 |;
2637   $lxdebug->leave_sub();
2638 }
2639
2640 sub form_footer {
2641   $lxdebug->enter_sub();
2642
2643   if ($form->{item} eq "assembly") {
2644
2645     print qq|
2646         <tr>
2647           <td>
2648             <table width="100%">
2649               <tr>
2650                 <th colspan=2 align=right>|
2651       . $locale->text('Total') . qq|&nbsp;</th>
2652                 <th align=right>|
2653       . $form->format_amount(\%myconfig, $form->{assemblytotal}, 2) . qq|</th>
2654               </tr>
2655             </table>
2656           </td>
2657         </tr>
2658         <input type=hidden name=assembly_rows value=$form->{assembly_rows}>
2659 |;
2660   }
2661
2662   print qq|
2663       <input type=hidden name=path value=$form->{path}>
2664       <input type=hidden name=login value=$form->{login}>
2665       <input type=hidden name=password value=$form->{password}>
2666       <input type=hidden name=callback value="$form->{callback}">
2667       <input type=hidden name=previousform value="$form->{previousform}">
2668       <input type=hidden name=taxaccount2 value="$form->{taxaccount2}">
2669       <input type=hidden name=vc value=$form->{vc}>
2670   <tr>
2671     <td><hr size=3 noshade></td>
2672   </tr>
2673 </table>
2674
2675 <br>
2676 <input class=submit type=submit name=action value="|
2677     . $locale->text('Update') . qq|">
2678   |;
2679
2680   unless ($form->{item} eq "service") {
2681     print qq|
2682       <input type=hidden name=makemodel_rows value=$form->{makemodel_rows}>
2683     |;
2684   }
2685
2686   print qq|
2687      <input type=hidden name=price_rows value=$form->{price_rows}>|;
2688
2689   print qq|
2690       <input class=submit type=submit name=action value="|
2691     . $locale->text('Save') . qq|">|;
2692
2693   if ($form->{id}) {
2694
2695     if (!$form->{previousform}) {
2696       print qq|
2697       <input class=submit type=submit name=action value="|
2698         . $locale->text('Save as new') . qq|">|;
2699     }
2700
2701     if ($form->{orphaned}) {
2702       if (!$form->{previousform}) {
2703         if ($form->{item} eq 'assembly') {
2704           if (!$form->{onhand}) {
2705             print qq|
2706       <input class=submit type=submit name=action value="|
2707               . $locale->text('Delete') . qq|">|;
2708           }
2709         } else {
2710           print qq|
2711       <input class=submit type=submit name=action value="|
2712             . $locale->text('Delete') . qq|">|;
2713         }
2714       }
2715     }
2716   }
2717
2718   if (!$form->{previousform}) {
2719     if ($form->{menubar}) {
2720       require "$form->{path}/menu.pl";
2721       &menubar;
2722     }
2723   }
2724 # button for saving history
2725   if($form->{id} ne "") {
2726         print qq|
2727                 <input type=button class=submit onclick=set_history_window(|
2728                 . $form->{id}
2729                 . qq|); name=history id=history value=|
2730                 . $locale->text('history')
2731                 . qq|>|;
2732   }
2733 # /button for saving history
2734   print qq|
2735
2736 </form>
2737
2738 <script type="text/javascript" src="js/wz_tooltip.js"></script>
2739
2740 </body>
2741 </html>
2742 |;
2743
2744   $lxdebug->leave_sub();
2745 }
2746
2747 sub makemodel_row {
2748   $lxdebug->enter_sub();
2749   my ($numrows) = @_;
2750
2751   $form->{"make_$i"}  =~ s/\"/&quot;/g;
2752   $form->{"model_$i"} =~ s/\"/&quot;/g;
2753
2754   print qq|
2755   <tr>
2756     <td>
2757       <table width=100%>
2758         <tr>
2759           <th class="listheading">| . $locale->text('Make') . qq|</th>
2760           <th class="listheading">| . $locale->text('Model') . qq|</th>
2761         </tr>
2762 |;
2763
2764   for $i (1 .. $numrows) {
2765     print qq|
2766         <tr>
2767           <td width=50%><input name="make_$i" size=30 value="$form->{"make_$i"}"></td>
2768           <td width=50%><input name="model_$i" size=30 value="$form->{"model_$i"}"></td>
2769         </tr>
2770 |;
2771   }
2772
2773   print qq|
2774       </table>
2775     </td>
2776   </tr>
2777 |;
2778
2779   $lxdebug->leave_sub();
2780 }
2781
2782 sub assembly_row {
2783   $lxdebug->enter_sub();
2784   my ($numrows) = @_;
2785
2786   @column_index =
2787     qw(runningnumber qty unit bom partnumber description partsgroup total);
2788
2789   if ($form->{previousform}) {
2790     $nochange     = 1;
2791     @column_index = qw(qty unit bom partnumber description partsgroup total);
2792   } else {
2793
2794     # change callback
2795     $form->{old_callback} = $form->{callback};
2796     $callback             = $form->{callback};
2797     $form->{callback}     = "$form->{script}?action=display_form";
2798
2799     # delete action
2800     map { delete $form->{$_} } qw(action header);
2801
2802     $previousform = "";
2803
2804     # save form variables in a previousform variable
2805     foreach $key (sort keys %$form) {
2806
2807       # escape ampersands
2808       $form->{$key} =~ s/&/%26/g;
2809       $previousform .= qq|$key=$form->{$key}&|;
2810     }
2811     chop $previousform;
2812     $previousform = $form->escape($form->escape($previousform, 1));
2813     $form->{callback} = $callback;
2814
2815     $form->{assemblytotal} = 0;
2816     $form->{weight}        = 0;
2817
2818   }
2819   $column_header{runningnumber} =
2820     qq|<th nowrap width=5%>| . $locale->text('No.') . qq|</th>|;
2821   $column_header{qty} =
2822     qq|<th align=left nowrap width=10%>| . $locale->text('Qty') . qq|</th>|;
2823   $column_header{unit} =
2824     qq|<th align=left nowrap width=5%>| . $locale->text('Unit') . qq|</th>|;
2825   $column_header{partnumber} =
2826       qq|<th align=left nowrap width=20%>|
2827     . $locale->text('Part Number')
2828     . qq|</th>|;
2829   $column_header{description} =
2830     qq|<th nowrap width=50%>| . $locale->text('Part Description') . qq|</th>|;
2831   $column_header{total} =
2832     qq|<th align=right nowrap>| . $locale->text('Extended') . qq|</th>|;
2833   $column_header{bom}        = qq|<th>| . $locale->text('BOM') . qq|</th>|;
2834   $column_header{partsgroup} = qq|<th>| . $locale->text('Group') . qq|</th>|;
2835
2836   print qq|
2837   <tr class=listheading>
2838     <th class=listheading>| . $locale->text('Individual Items') . qq|</th>
2839   </tr>
2840   <tr>
2841     <td>
2842       <table width=100%>
2843         <tr>
2844 |;
2845
2846   map { print "\n$column_header{$_}" } @column_index;
2847
2848   print qq|
2849         </tr>
2850 |;
2851
2852   for $i (1 .. $numrows) {
2853     $form->{"partnumber_$i"} =~ s/\"/&quot;/g;
2854
2855     $linetotal =
2856       $form->round_amount($form->{"sellprice_$i"} * $form->{"qty_$i"}, 2);
2857     $form->{assemblytotal} += $linetotal;
2858
2859     $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"});
2860
2861     $linetotal = $form->format_amount(\%myconfig, $linetotal, 2);
2862
2863     if (($i >= 1) && ($i == $numrows)) {
2864
2865       if ($nochange) {
2866         map { $column_data{$_} = qq|<td></td>| }
2867           qw(qty unit partnumber description bom partsgroup);
2868       } else {
2869
2870         map { $column_data{$_} = qq|<td></td>| } qw(runningnumber unit bom);
2871
2872         $column_data{qty} =
2873           qq|<td><input name="qty_$i" size=5 value="$form->{"qty_$i"}"></td>|;
2874         $column_data{partnumber} =
2875           qq|<td><input name="partnumber_$i" size=15 value="$form->{"partnumber_$i"}"></td>|;
2876         $column_data{description} =
2877           qq|<td><input name="description_$i" size=40 value="$form->{"description_$i"}"></td>|;
2878         $column_data{partsgroup} =
2879           qq|<td><input name="partsgroup_$i" size=10 value="$form->{"partsgroup_$i"}"></td>|;
2880
2881       }
2882
2883     } else {
2884
2885       if ($form->{previousform}) {
2886         $column_data{partnumber} =
2887           qq|<td><input type=hidden name="partnumber_$i" value="$form->{"partnumber_$i"}">$form->{"partnumber_$i"}</td>|;
2888         $column_data{qty} =
2889           qq|<td align=right><input type=hidden name="qty_$i" value="$form->{"qty_$i"}">$form->{"qty_$i"}</td>|;
2890
2891         $column_data{bom} =
2892           qq|<td align=center><input type=hidden name="bom_$i" value=$form->{"bom_$i"}>|;
2893         $column_data{bom} .= ($form->{"bom_$i"}) ? "x" : "&nbsp;";
2894         $column_data{bom} .= qq|</td>|;
2895
2896         $column_data{partsgroup} =
2897           qq|<td><input type=hidden name="partsgroup_$i" value="$form->{"partsgroup_$i"}">$form->{"partsgroup_$i"}</td>|;
2898
2899       } else {
2900         $href =
2901           qq|$form->{script}?action=edit&id=$form->{"id_$i"}&path=$form->{path}&login=$form->{login}&password=$form->{password}&rowcount=$i&previousform=$previousform|;
2902         $column_data{partnumber} =
2903           qq|<td><input type=hidden name="partnumber_$i" value="$form->{"partnumber_$i"}"><a href=$href>$form->{"partnumber_$i"}</a></td>|;
2904         $column_data{runningnumber} =
2905           qq|<td><input name="runningnumber_$i" size=3 value="$i"></td>|;
2906         $column_data{qty} =
2907           qq|<td><input name="qty_$i" size=5 value="$form->{"qty_$i"}"></td>|;
2908
2909         $form->{"bom_$i"} = ($form->{"bom_$i"}) ? "checked" : "";
2910         $column_data{bom} =
2911           qq|<td align=center><input name="bom_$i" type=checkbox class=checkbox value=1 $form->{"bom_$i"}></td>|;
2912
2913         $column_data{partsgroup} =
2914           qq|<td><input type=hidden name="partsgroup_$i" value="$form->{"partsgroup_$i"}">$form->{"partsgroup_$i"}</td>|;
2915       }
2916
2917       $column_data{unit} =
2918         qq|<td><input type=hidden name="unit_$i" value="$form->{"unit_$i"}">$form->{"unit_$i"}</td>|;
2919       $column_data{description} =
2920         qq|<td><input type=hidden name="description_$i" value="$form->{"description_$i"}">$form->{"description_$i"}</td>|;
2921     }
2922
2923     $column_data{total} = qq|<td align=right>$linetotal</td>|;
2924
2925     $column_data{deliverydate} = qq|<td align=right>$deliverydate</td>|;
2926
2927     print qq|
2928         <tr>|;
2929
2930     map { print "\n$column_data{$_}" } @column_index;
2931
2932     print qq|
2933         </tr>
2934   <input type=hidden name="id_$i" value=$form->{"id_$i"}>
2935   <input type=hidden name="sellprice_$i" value=$form->{"sellprice_$i"}>
2936   <input type=hidden name="weight_$i" value=$form->{"weight_$i"}>
2937 |;
2938   }
2939
2940   print qq|
2941       </table>
2942     </td>
2943   </tr>
2944 |;
2945
2946   $lxdebug->leave_sub();
2947 }
2948
2949 sub update {
2950   $lxdebug->enter_sub();
2951
2952   if ($form->{item} eq "assembly") {
2953     $i = $form->{assembly_rows};
2954
2955     # if last row is empty check the form otherwise retrieve item
2956     if (   ($form->{"partnumber_$i"} eq "")
2957         && ($form->{"description_$i"} eq "")
2958         && ($form->{"partsgroup_$i"}  eq "")) {
2959
2960       &check_form;
2961
2962     } else {
2963
2964       IC->assembly_item(\%myconfig, \%$form);
2965
2966       $rows = scalar @{ $form->{item_list} };
2967
2968       if ($rows) {
2969         $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});
2970
2971         if ($rows > 1) {
2972           $form->{makemodel_rows}--;
2973           &select_item;
2974           exit;
2975         } else {
2976           map { $form->{item_list}[$i]{$_} =~ s/\"/&quot;/g }
2977             qw(partnumber description unit partsgroup);
2978           map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} }
2979             keys %{ $form->{item_list}[0] };
2980           $form->{"runningnumber_$i"} = $form->{assembly_rows};
2981           $form->{assembly_rows}++;
2982
2983           &check_form;
2984
2985         }
2986
2987       } else {
2988
2989         $form->{rowcount} = $i;
2990         $form->{assembly_rows}++;
2991
2992         &new_item;
2993
2994       }
2995     }
2996   }
2997
2998   if ($form->{item} eq "part") {
2999     &check_form;
3000   }
3001
3002   if ($form->{item} eq 'service') {
3003     map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) }
3004       qw(sellprice listprice);
3005     &form_header;
3006     &price_row;
3007     &form_footer;
3008   }
3009
3010   $lxdebug->leave_sub();
3011 }
3012
3013 sub save {
3014   $lxdebug->enter_sub();
3015
3016   # check if there is a part number - commented out, cause there is an automatic allocation of numbers
3017   # $form->isblank("partnumber", $locale->text(ucfirst $form->{item}." Part Number missing!"));
3018
3019   # check if there is a description
3020   $form->isblank("description", $locale->text("Part Description missing!"));
3021
3022   if ($form->{obsolete}) {
3023     $form->error(
3024       $locale->text(
3025         "Inventory quantity must be zero before you can set this $form->{item} obsolete!"
3026       ))
3027       if ($form->{onhand} * 1);
3028   }
3029
3030   if (!$form->{buchungsgruppen_id}) {
3031     $form->error($locale->text("Parts must have an entry type.") . " " .
3032      $locale->text("If you see this message, you most likely just setup your LX-Office and haven't added any entry types. If this is the case, the option is accessible for administrators in the System menu.")
3033     );
3034   }
3035
3036   $form->error($locale->text('Description must not be empty!')) unless $form->{description};
3037   $form->error($locale->text('Partnumber must not be set to empty!')) if $form->{id} && !$form->{partnumber};
3038
3039   # expand dynamic strings
3040   # $locale->text('Inventory quantity must be zero before you can set this part obsolete!')
3041   # $locale->text('Inventory quantity must be zero before you can set this assembly obsolete!')
3042   # $locale->text('Part Number missing!')
3043   # $locale->text('Service Number missing!')
3044   # $locale->text('Assembly Number missing!')
3045
3046   # save part
3047   $lxdebug->message(LXDebug::DEBUG1,
3048                     "ic.pl: sellprice in save = $form->{sellprice}\n");
3049   $rc = IC->save(\%myconfig, \%$form);
3050   if ($rc == 3) {
3051     $form->error($locale->text('Partnumber not unique!'));
3052   }
3053   # saving the history
3054   if(!exists $form->{addition}) {
3055         $form->{addition} = "SAVED";
3056         $form->save_history($form->dbconnect(\%myconfig));
3057   }
3058   # /saving the history
3059   $parts_id = $form->{id};
3060
3061   # load previous variables
3062   if ($form->{previousform}) {
3063
3064     # save the new form variables before splitting previousform
3065     map { $newform{$_} = $form->{$_} } keys %$form;
3066
3067     $previousform = $form->unescape($form->{previousform});
3068
3069     # don't trample on previous variables
3070     map { delete $form->{$_} } keys %newform;
3071
3072     # now take it apart and restore original values
3073     foreach $item (split /&/, $previousform) {
3074       ($key, $value) = split /=/, $item, 2;
3075       $value =~ s/%26/&/g;
3076       $form->{$key} = $value;
3077     }
3078     $form->{taxaccounts} = $newform{taxaccount2};
3079
3080     if ($form->{item} eq 'assembly') {
3081
3082       # undo number formatting
3083       map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) }
3084         qw(weight listprice sellprice rop);
3085
3086       $form->{assembly_rows}--;
3087       $i = $newform{rowcount};
3088       $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});
3089
3090       $form->{sellprice} -= $form->{"sellprice_$i"} * $form->{"qty_$i"};
3091       $form->{weight}    -= $form->{"weight_$i"} * $form->{"qty_$i"};
3092
3093       # change/add values for assembly item
3094       map { $form->{"${_}_$i"} = $newform{$_} }
3095         qw(partnumber description bin unit weight listprice sellprice inventory_accno income_accno expense_accno);
3096
3097       $form->{sellprice} += $form->{"sellprice_$i"} * $form->{"qty_$i"};
3098       $form->{weight}    += $form->{"weight_$i"} * $form->{"qty_$i"};
3099
3100     } else {
3101
3102       # set values for last invoice/order item
3103       $i = $form->{rowcount};
3104       $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});
3105
3106       map { $form->{"${_}_$i"} = $newform{$_} }
3107         qw(partnumber description bin unit listprice inventory_accno income_accno expense_accno sellprice);
3108       $form->{"sellprice_$i"} = $newform{lastcost} if ($form->{vendor_id});
3109       if ($form->{exchangerate} != 0) {
3110         $form->{"sellprice_$i"} /= $form->{exchangerate};
3111       }
3112       $lxdebug->message(LXDebug::DEBUG1,
3113                         qq|sellprice_$i in previousform 2 = |
3114                           . $form->{"sellprice_$i"} . qq|\n|);
3115       map { $form->{"taxaccounts_$i"} .= "$_ " } split / /,
3116         $newform{taxaccount};
3117       chop $form->{"taxaccounts_$i"};
3118       foreach $item (qw(description rate taxnumber)) {
3119         $index = $form->{"taxaccounts_$i"} . "_$item";
3120         $form->{$index} = $newform{$index};
3121       }
3122
3123       # credit remaining calculation
3124       $amount =
3125         $form->{"sellprice_$i"} * (1 - $form->{"discount_$i"} / 100) *
3126         $form->{"qty_$i"};
3127       map { $form->{"${_}_base"} += $amount }
3128         (split / /, $form->{"taxaccounts_$i"});
3129       map { $amount += ($form->{"${_}_base"} * $form->{"${_}_rate"}) }
3130         split / /, $form->{"taxaccounts_$i"}
3131         if !$form->{taxincluded};
3132
3133       $form->{creditremaining} -= $amount;
3134
3135       # redo number formatting, because invoice parse them!
3136       $i = $form->{rowcount};
3137       map {
3138         $form->{"${_}_$i"} =
3139           $form->format_amount(\%myconfig, $form->{"${_}_$i"})
3140       } qw(weight listprice sellprice rop);
3141     }
3142
3143     $form->{"id_$i"} = $parts_id;
3144     delete $form->{action};
3145
3146     # restore original callback
3147     $callback = $form->unescape($form->{callback});
3148     $form->{callback} = $form->unescape($form->{old_callback});
3149     delete $form->{old_callback};
3150
3151     $form->{makemodel_rows}--;
3152
3153     # put callback together
3154     foreach $key (keys %$form) {
3155
3156       # do single escape for Apache 2.0
3157       $value = $form->escape($form->{$key}, 1);
3158       $callback .= qq|&$key=$value|;
3159     }
3160     $form->{callback} = $callback;
3161   }
3162   $lxdebug->message(LXDebug::DEBUG1,
3163                     qq|ic.pl: sellprice_$i nach sub save = |
3164                       . $form->{"sellprice_$i"} . qq|\n|);
3165
3166   # redirect
3167   $form->redirect;
3168
3169   $lxdebug->leave_sub();
3170 }
3171
3172 sub save_as_new {
3173   $lxdebug->enter_sub();
3174
3175   # saving the history
3176   if(!exists $form->{addition}) {
3177         $form->{addition} = "SAVED AS NEW";
3178         $form->save_history($form->dbconnect(\%myconfig));
3179   }
3180   # /saving the history
3181   $form->{id} = 0;
3182   if ($form->{"original_partnumber"} &&
3183       ($form->{"partnumber"} eq $form->{"original_partnumber"})) {
3184     $form->{partnumber} = "";
3185   }
3186   &save;
3187   $lxdebug->leave_sub();
3188 }
3189
3190 sub delete {
3191   $lxdebug->enter_sub();
3192   # saving the history
3193   if(!exists $form->{addition}) {
3194         $form->{addition} = "DELETED";
3195         $form->save_history($form->dbconnect(\%myconfig));
3196   }
3197   # /saving the history
3198   $rc = IC->delete(\%myconfig, \%$form);
3199
3200   # redirect
3201   $form->redirect($locale->text('Item deleted!')) if ($rc > 0);
3202   $form->error($locale->text('Cannot delete item!'));
3203
3204   $lxdebug->leave_sub();
3205 }
3206
3207 sub price_row {
3208   $lxdebug->enter_sub();
3209
3210   my ($numrows) = @_;
3211
3212   print qq|
3213   <tr>
3214     <td>
3215       <table width=100%>
3216         <tr>
3217           <th class="listheading">| . $locale->text('Preisklasse') . qq|</th>
3218           <th class="listheading">| . $locale->text('Preis') . qq|</th>
3219         </tr>
3220 |;
3221   for $i (1 .. $numrows) {
3222     print qq|
3223         <tr>
3224           <td width=50%><input type=hidden name="pricegroup_$i" size=30  value="$form->{"pricegroup_$i"}">$form->{"pricegroup_$i"}</td>
3225           <td width=50%><input name="price_$i" size=11 value="$form->{"price_$i"}"></td>
3226           <input type=hidden name="pricegroup_id_$i" value="$form->{"pricegroup_id_$i"}">
3227         </tr>
3228 |;
3229   }
3230
3231   print qq|
3232       </table>
3233     </td>
3234   </tr>
3235 |;
3236
3237   $lxdebug->leave_sub();
3238 }
3239
3240 sub parts_language_selection {
3241   $lxdebug->enter_sub();
3242
3243
3244   my $languages = IC->retrieve_languages(\%myconfig, $form);
3245
3246
3247   my $callback = "$form->{script}?action=parts_language_selection&";
3248   map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
3249       (qw(login path password name input_name), grep({ /^[fl]_/ } keys %$form)));
3250
3251   my @header_sort = qw(name longdescription);
3252   my %header_title = ( "name" => $locale->text("Name"),
3253                        "longdescription" => $locale->text("Long Description"),
3254                        );
3255
3256   my @header =
3257     map(+{ "column_title" => $header_title{$_},
3258            "column" => $_,
3259            "callback" => $callback,
3260          },
3261         @header_sort);
3262
3263   $form->{"title"} = $locale->text("Language Values");
3264   $form->header();
3265   print($form->parse_html_template("ic/parts_language_selection", { "HEADER" => \@header,
3266                                                                    "LANGUAGES" => $languages,
3267                                                                    "onload" => $onload }));
3268
3269   $lxdebug->leave_sub();
3270 }
3271
3272 sub continue { &{ $form->{nextsub} } }