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
  34 use POSIX qw(strftime);
  35 use List::Util qw(max);
  36 use List::MoreUtils qw(any);
  37
  38 use SL::AM;
  39 use SL::CVar;
  40 use SL::IC;
  41 use SL::ReportGenerator;
  42
  43 #use SL::PE;
  44
  45 use strict;
  46 #use warnings;
  47
  48 # global imports
  49 our ($form, $locale, %myconfig, $lxdebug, $auth);
  50
  51 require "bin/mozilla/io.pl";
  52 require "bin/mozilla/invoice_io.pl";
  53 require "bin/mozilla/common.pl";
  54 require "bin/mozilla/reportgenerator.pl";
  55
  56 1;
  57
  58 # Parserhappy(R):
  59 # type=submit $locale->text('Add Part')
  60 # type=submit $locale->text('Add Service')
  61 # type=submit $locale->text('Add Assembly')
  62 # type=submit $locale->text('Edit Part')
  63 # type=submit $locale->text('Edit Service')
  64 # type=submit $locale->text('Edit Assembly')
  65 # $locale->text('Parts')
  66 # $locale->text('Services')
  67 # $locale->text('Inventory quantity must be zero before you can set this part obsolete!')
  68 # $locale->text('Inventory quantity must be zero before you can set this assembly obsolete!')
  69 # $locale->text('Part Number missing!')
  70 # $locale->text('Service Number missing!')
  71 # $locale->text('Assembly Number missing!')
  72 # $locale->text('ea');
  73
  74 # end of main
  75
  76 sub add {
  77   $lxdebug->enter_sub();
  78
  79   $auth->assert('part_service_assembly_edit');
  80
  81   $form->{title}           = $locale->text('Add ' . ucfirst $form->{item});
  82   $form->{callback}        = "$form->{script}?action=add&item=$form->{item}" unless $form->{callback};
  83   $form->{unit_changeable} = 1;
  84
  85   IC->get_pricegroups(\%myconfig, \%$form);
  86   &link_part;
  87   &display_form;
  88
  89   $lxdebug->leave_sub();
  90 }
  91
  92 sub search {
  93   $lxdebug->enter_sub();
  94
  95   $auth->assert('part_service_assembly_edit');
  96
  97   $form->{revers}       = 0;  # switch for backward sorting
  98   $form->{lastsort}     = ""; # memory for which table was sort at last time
  99   $form->{ndxs_counter} = 0;  # counter for added entries to top100
 100
 101   my %is_xyz     = map { +"is_$_" => ($form->{searchitems} eq $_) } qw(part service assembly);
 102
 103   $form->{title} = (ucfirst $form->{searchitems}) . "s";
 104   $form->{title} = $locale->text($form->{title});
 105   $form->{title} = $locale->text('Assemblies') if ($is_xyz{is_assembly});
 106
 107   $form->{jsscript} = 1;
 108
 109   $form->{CUSTOM_VARIABLES}                  = CVar->get_configs('module' => 'IC');
 110   ($form->{CUSTOM_VARIABLES_FILTER_CODE},
 111    $form->{CUSTOM_VARIABLES_INCLUSION_CODE}) = CVar->render_search_options('variables'      => $form->{CUSTOM_VARIABLES},
 112                                                                            'include_prefix' => 'l_',
 113                                                                            'include_value'  => 'Y');
 114
 115   $form->header;
 116
 117   print $form->parse_html_template('ic/search', { %is_xyz,
 118                                                   dateformat => $myconfig{dateformat}, });
 119
 120   $lxdebug->leave_sub();
 121 }    #end search()
 122
 123 sub search_update_prices {
 124   $lxdebug->enter_sub();
 125
 126   $auth->assert('part_service_assembly_edit');
 127
 128   my $pricegroups = IC->get_pricegroups(\%myconfig, \%$form);
 129
 130   $form->header;
 131
 132   print $form->parse_html_template('ic/search_update_prices', { PRICE_ROWS => $pricegroups });
 133
 134   $lxdebug->leave_sub();
 135 }    #end search()
 136
 137 sub confirm_price_update {
 138   $lxdebug->enter_sub();
 139
 140   $auth->assert('part_service_assembly_edit');
 141
 142   my @errors      = ();
 143   my $value_found = undef;
 144
 145   foreach my $idx (qw(sellprice listprice), (1..$form->{price_rows})) {
 146     my $name      = $idx =~ m/\d/ ? $form->{"pricegroup_${idx}"}      : $idx eq 'sellprice' ? $locale->text('Sell Price') : $locale->text('List Price');
 147     my $type      = $idx =~ m/\d/ ? $form->{"pricegroup_type_${idx}"} : $form->{"${idx}_type"};
 148     my $value_idx = $idx =~ m/\d/ ? "price_${idx}" : $idx;
 149     my $value     = $form->parse_amount(\%myconfig, $form->{$value_idx});
 150
 151     if ((0 > $value) && ($type eq 'percent')) {
 152       push @errors, $locale->text('You cannot adjust the price for pricegroup "#1" by a negative percentage.', $name);
 153
 154     } elsif (!$value && ($form->{$value_idx} ne '')) {
 155       push @errors, $locale->text('No valid number entered for pricegroup "#1".', $name);
 156
 157     } elsif (0 < $value) {
 158       $value_found = 1;
 159     }
 160   }
 161
 162   push @errors, $locale->text('No prices will be updated because no prices have been entered.') if (!$value_found);
 163
 164   my $num_matches = IC->get_num_matches_for_priceupdate();
 165
 166   $form->header();
 167
 168   if (@errors) {
 169     $form->show_generic_error(join('<br>', @errors), 'back_button' => 1);
 170   }
 171
 172   $form->{nextsub} = "update_prices";
 173
 174   map { delete $form->{$_} } qw(action header);
 175
 176   print $form->parse_html_template('ic/confirm_price_update', { HIDDENS     => [ map { name => $_, value => $form->{$_} }, keys %$form ],
 177                                                                 num_matches => $num_matches });
 178
 179   $lxdebug->leave_sub();
 180 }
 181
 182 sub update_prices {
 183   $lxdebug->enter_sub();
 184
 185   $auth->assert('part_service_assembly_edit');
 186
 187   my $num_updated = IC->update_prices(\%myconfig, \%$form);
 188
 189   if (-1 != $num_updated) {
 190     $form->redirect($locale->text('#1 prices were updated.', $num_updated));
 191   } else {
 192     $form->error($locale->text('Could not update prices!'));
 193   }
 194
 195   $lxdebug->leave_sub();
 196 }
 197
 198 #sub choice {
 199 #  $lxdebug->enter_sub();
 200 #
 201 #  $auth->assert('part_service_assembly_edit');
 202 #
 203 #  our ($j, $lastndx);
 204 #  my ($totop100);
 205 #
 206 #  $form->{title} = $locale->text('Top 100 hinzufuegen');
 207 #
 208 #  $form->header;
 209 #
 210 #  push @custom_hiddens, qw(searchitems title bom titel revers lastsort sort ndxs_counter extras);
 211 #  push @custom_hiddens, qw(itemstatus l_linetotal l_partnumber l_description l_onhand l_unit l_sellprice l_linetotalsellprice);
 212 #  my @HIDDENS = (
 213 #        +{ name => 'row',     value => $j              },
 214 #        +{ name => 'nextsub', value => 'item_selected' },
 215 #        +{ name => 'test',    value => 'item_selected' },
 216 #        +{ name => 'lastndx', value => $lastndx        },
 217 #    map(+{ name => $_,        value => $form->{$_}     }, @custom_hiddens),
 218 #  );
 219 #
 220 #  my ($partnumber, $description, $unit, $sellprice, $soldtotal);
 221 #  # if choice set data
 222 ##  if ($form->{ndx}) {
 223 ##    for my $i (0 .. $form->{ndxs_counter}) {
 224 ##
 225 ##      # insert data into top100
 226 ##      push @{ $form->{parts} },
 227 ##        { number      => "",
 228 ##          partnumber  => $form->{"totop100_partnumber_$j"},
 229 ##          description => $form->{"totop100_description_$j"},
 230 ##          unit        => $form->{"totop100_unit_$j"},
 231 ##          sellprice   => $form->{"totop100_sellprice_$j"},
 232 ##          soldtotal   => $form->{"totop100_soldtotal_$j"},
 233 ##        };
 234 ##    }    #rof
 235 ##  }    #fi
 236 #
 237 #  $totop100 = "";
 238 #
 239 #  # set data for next page
 240 #  for my $i (1 .. $form->{ndxs_counter}) {
 241 #    $partnumber  = $form->{"totop100_partnumber_$i"};
 242 #    $description = $form->{"totop100_description_$i"};
 243 #    $unit        = $form->{"totop100_unit_$i"};
 244 #    $sellprice   = $form->{"totop100_sellprice_$i"};
 245 #    $soldtotal   = $form->{"totop100_soldtotal_$i"};
 246 #
 247 #  push @PARTS, {
 248 #    totop100_partnumber  => $form->{"totop100_partnumber_$i"},
 249 #    totop100_description => $form->{"totop100_description_$i"},
 250 #    totop100_unit        => $form->{"totop100_unit_$i"},
 251 #    totop100_sellprice   => $form->{"totop100_sellprice_$i"},
 252 #    totop100_soldtotal   => $form->{"totop100_soldtotal_$i"},
 253 #  }
 254 #
 255 ##    $totop100 .= qq|
 256 ##<input type=hidden name=totop100_partnumber_$i value=$form->{"totop100_partnumber_$i"}>
 257 ##<input type=hidden name=totop100_description_$i value=$form->{"totop100_description_$i"}>
 258 ##<input type=hidden name=totop100_unit_$i value=$form->{"totop100_unit_$i"}>
 259 ##<input type=hidden name=totop100_sellprice_$i value=$form->{"totop100_sellprice_$i"}>
 260 ##<input type=hidden name=totop100_soldtotal_$i value=$form->{"totop100_soldtotal_$i"}>
 261 ##    |;
 262 #  }    #rof
 263 #
 264 #  print $form->parse_html_template('ic/choice', +{ HIDDENS => \@HIDDENS, PARTS => \@PARTS });
 265 #
 266 #  $lxdebug->leave_sub();
 267 #}    #end choice
 268
 269 #sub list {
 270 #  $lxdebug->enter_sub();
 271 #
 272 #  $auth->assert('part_service_assembly_edit');
 273 #
 274 #  our ($lastndx);
 275 #  our ($partnumber, $description, $unit, $sellprice, $soldtotal);
 276 #
 277 #  my @sortorders = ("", "partnumber", "description", "all");
 278 #  my $sortorder = $sortorders[($form->{description} ? 2 : 0) + ($form->{partnumber} ? 1 : 0)];
 279 #  IC->get_parts(\%myconfig, \%$form, $sortorder);
 280 #
 281 #  $form->{title} = $locale->text('Top 100 hinzufuegen');
 282 #
 283 #  $form->header;
 284 #
 285 #  print qq|
 286 #<body>
 287 #  <form method=post action=ic.pl>
 288 #    <table width=100%>
 289 #     <tr>
 290 #      <th class=listtop colspan=6>| . $locale->text('choice part') . qq|</th>
 291 #     </tr>
 292 #        <tr height="5"></tr>
 293 #        <tr class=listheading>
 294 #          <th>&nbsp;</th>
 295 #          <th class=listheading>| . $locale->text('Part Number') . qq|</th>
 296 #          <th class=listheading>| . $locale->text('Part Description') . qq|</th>
 297 #          <th class=listheading>| . $locale->text('Unit of measure') . qq|</th>
 298 #          <th class=listheading>| . $locale->text('Sell Price') . qq|</th>
 299 #          <th class=listheading>| . $locale->text('soldtotal') . qq|</th>
 300 #        </tr>|;
 301 #
 302 #  my $j = 0;
 303 #  my $i = $form->{rows};
 304 #
 305 #  for ($j = 1; $j <= $i; $j++) {
 306 #
 307 #    print qq|
 308 #        <tr class=listrow| . ($j % 2) . qq|>|;
 309 #    if ($j == 1) {
 310 #      print qq|
 311 #            <td><input name=ndx class=radio type=radio value=$j checked></td>|;
 312 #    } else {
 313 #      print qq|
 314 #          <td><input name=ndx class=radio type=radio value=$j></td>|;
 315 #    }
 316 #    print qq|
 317 #          <td><input name="new_partnumber_$j" type=hidden value="$form->{"partnumber_$j"}">$form->{"partnumber_$j"}</td>
 318 #          <td><input name="new_description_$j" type=hidden value="$form->{"description_$j"}">$form->{"description_$j"}</td>
 319 #          <td><input name="new_unit_$j" type=hidden value="$form->{"unit_$j"}">$form->{"unit_$j"}</td>
 320 #          <td><input name="new_sellprice_$j" type=hidden value="$form->{"sellprice_$j"}">$form->{"sellprice_$j"}</td>
 321 #          <td><input name="new_soldtotal_$j" type=hidden value="$form->{"soldtotal_$j"}">$form->{"soldtotal_$j"}</td>
 322 #        </tr>
 323 #
 324 #        <input name="new_id_$j" type=hidden value="$form->{"id_$j"}">|;
 325 #  }
 326 #
 327 #  print qq|
 328 #
 329 #</table>
 330 #
 331 #<br>
 332 #
 333 #
 334 #<input type=hidden name=itemstatus value="$form->{itemstatus}">
 335 #<input type=hidden name=l_linetotal value="$form->{l_linetotal}">
 336 #<input type=hidden name=l_partnumber value="$form->{l_partnumber}">
 337 #<input type=hidden name=l_description value="$form->{l_description}">
 338 #<input type=hidden name=l_onhand value="$form->{l_onhand}">
 339 #<input type=hidden name=l_unit value="$form->{l_unit}">
 340 #<input type=hidden name=l_sellprice value="$form->{l_sellprice}">
 341 #<input type=hidden name=l_linetotalsellprice value="$form->{l_linetotalsellprice}">
 342 #<input type=hidden name=sort value="$form->{sort}">
 343 #<input type=hidden name=revers value="$form->{revers}">
 344 #<input type=hidden name=lastsort value="$form->{lastsort}">
 345 #
 346 #<input type=hidden name=bom value="$form->{bom}">
 347 #<input type=hidden name=titel value="$form->{titel}">
 348 #<input type=hidden name=searchitems value="$form->{searchitems}">
 349 #
 350 #<input type=hidden name=row value=$j>
 351 #
 352 #<input type=hidden name=nextsub value=item_selected>
 353 #
 354 #<input name=lastndx type=hidden value=$lastndx>
 355 #
 356 #<input name=ndxs_counter type=hidden value=$form->{ndxs_counter}>|;
 357 #
 358 #  my $totop100 = "";
 359 #
 360 #  if (($form->{ndxs_counter}) > 0) {
 361 #    for ($i = 1; ($i < $form->{ndxs_counter} + 1); $i++) {
 362 #
 363 #      $partnumber  = $form->{"totop100_partnumber_$i"};
 364 #      $description = $form->{"totop100_description_$i"};
 365 #      $unit        = $form->{"totop100_unit_$i"};
 366 #      $sellprice   = $form->{"totop100_sellprice_$i"};
 367 #      $soldtotal   = $form->{"totop100_soldtotal_$i"};
 368 #
 369 #      $totop100 .= qq|
 370 #<input type=hidden name=totop100_partnumber_$i value=$form->{"totop100_partnumber_$i"}>
 371 #<input type=hidden name=totop100_description_$i value=$form->{"totop100_description_$i"}>
 372 #<input type=hidden name=totop100_unit_$i value=$form->{"totop100_unit_$i"}>
 373 #<input type=hidden name=totop100_sellprice_$i value=$form->{"totop100_sellprice_$i"}>
 374 #<input type=hidden name=totop100_soldtotal_$i value=$form->{"totop100_soldtotal_$i"}>
 375 #      |;
 376 #    }    #rof
 377 #  }    #fi
 378 #
 379 #  print $totop100;
 380 #
 381 #  print qq|
 382 #<input class=submit type=submit name=action value="|
 383 #    . $locale->text('TOP100') . qq|">
 384 #
 385 #</form>
 386 #</body>
 387 #</html>
 388 #|;
 389 #  $lxdebug->leave_sub();
 390 #}    #end list()
 391
 392 sub top100 {
 393   $lxdebug->enter_sub();
 394
 395   $auth->assert('part_service_assembly_edit');
 396
 397   if ($form->{ndx}) {
 398     $form->{ndxs_counter}++;
 399
 400     if ($form->{ndxs_counter} > 0) {
 401
 402       my $index = $form->{ndx};
 403
 404       $form->{"totop100_partnumber_$form->{ndxs_counter}"} = $form->{"new_partnumber_$index"};
 405       $form->{"totop100_description_$form->{ndxs_counter}"} = $form->{"new_description_$index"};
 406       $form->{"totop100_unit_$form->{ndxs_counter}"} = $form->{"new_unit_$index"};
 407       $form->{"totop100_sellprice_$form->{ndxs_counter}"} = $form->{"new_sellprice_$index"};
 408       $form->{"totop100_soldtotal_$form->{ndxs_counter}"} = $form->{"new_soldtotal_$index"};
 409     }    #fi
 410   }    #fi
 411   &addtop100();
 412   $lxdebug->leave_sub();
 413 }    #end top100
 414
 415 sub addtop100 {
 416   $lxdebug->enter_sub();
 417
 418   $auth->assert('part_service_assembly_edit');
 419
 420   my ($revers, $lastsort, $callback, $option, $description, $sameitem,
 421       $partnumber, $unit, $sellprice, $soldtotal, $totop100, $onhand, $align);
 422   my (@column_index, %column_header, %column_data);
 423   my ($totalsellprice, $totallastcost, $totallistprice, $subtotalonhand, $subtotalsellprice, $subtotallastcost, $subtotallistprice);
 424
 425   $form->{top100}      = "top100";
 426   $form->{l_soldtotal} = "Y";
 427   $form->{soldtotal}   = "soldtotal";
 428   $form->{sort}        = "soldtotal";
 429   $form->{l_qty}       = "N";
 430   $form->{l_linetotal} = "";
 431   $form->{revers}      = 1;
 432   $form->{number}      = "position";
 433   $form->{l_number}    = "Y";
 434
 435   $totop100 = "";
 436
 437   $form->{title} = $locale->text('Top 100');
 438
 439   $revers   = $form->{revers};
 440   $lastsort = $form->{lastsort};
 441
 442   if (($form->{lastsort} eq "") && ($form->{sort} eq undef)) {
 443     $form->{revers}   = 0;
 444     $form->{lastsort} = "partnumber";
 445     $form->{sort}     = "partnumber";
 446   }    #fi
 447
 448   $callback =
 449     "$form->{script}?action=top100&searchitems=$form->{searchitems}&itemstatus=$form->{itemstatus}&bom=$form->{bom}&l_linetotal=$form->{l_linetotal}&title="
 450     . $form->escape($form->{title}, 1);
 451
 452   # if we have a serialnumber limit search
 453   if ($form->{serialnumber} || $form->{l_serialnumber}) {
 454     $form->{l_serialnumber} = "Y";
 455     unless (   $form->{bought}
 456             || $form->{sold}
 457             || $form->{rfq}
 458             || $form->{quoted}) {
 459       $form->{bought} = $form->{sold} = 1;
 460     }
 461   }
 462   IC->all_parts(\%myconfig, \%$form);
 463
 464   if ($form->{itemstatus} eq 'active') {
 465     $option .= $locale->text('Active') . " : ";
 466   }
 467   if ($form->{itemstatus} eq 'obsolete') {
 468     $option .= $locale->text('Obsolete') . " : ";
 469   }
 470   if ($form->{itemstatus} eq 'orphaned') {
 471     $option .= $locale->text('Orphaned') . " : ";
 472   }
 473   if ($form->{itemstatus} eq 'onhand') {
 474     $option .= $locale->text('On Hand') . " : ";
 475     $form->{l_onhand} = "Y";
 476   }
 477   if ($form->{itemstatus} eq 'short') {
 478     $option .= $locale->text('Short') . " : ";
 479     $form->{l_onhand} = "Y";
 480   }
 481   if ($form->{onorder}) {
 482     $form->{l_ordnumber} = "Y";
 483     $callback .= "&onorder=$form->{onorder}";
 484     $option   .= $locale->text('On Order') . " : ";
 485   }
 486   if ($form->{ordered}) {
 487     $form->{l_ordnumber} = "Y";
 488     $callback .= "&ordered=$form->{ordered}";
 489     $option   .= $locale->text('Ordered') . " : ";
 490   }
 491   if ($form->{rfq}) {
 492     $form->{l_quonumber} = "Y";
 493     $callback .= "&rfq=$form->{rfq}";
 494     $option   .= $locale->text('RFQ') . " : ";
 495   }
 496   if ($form->{quoted}) {
 497     $form->{l_quonumber} = "Y";
 498     $callback .= "&quoted=$form->{quoted}";
 499     $option   .= $locale->text('Quoted') . " : ";
 500   }
 501   if ($form->{bought}) {
 502     $form->{l_invnumber} = "Y";
 503     $callback .= "&bought=$form->{bought}";
 504     $option   .= $locale->text('Bought') . " : ";
 505   }
 506   if ($form->{sold}) {
 507     $form->{l_invnumber} = "Y";
 508     $callback .= "&sold=$form->{sold}";
 509     $option   .= $locale->text('Sold') . " : ";
 510   }
 511   if (   $form->{bought}
 512       || $form->{sold}
 513       || $form->{onorder}
 514       || $form->{ordered}
 515       || $form->{rfq}
 516       || $form->{quoted}) {
 517
 518     $form->{l_lastcost} = "";
 519     $form->{l_name}     = "Y";
 520     if ($form->{transdatefrom}) {
 521       $callback .= "&transdatefrom=$form->{transdatefrom}";
 522       $option   .= "\n<br>"
 523         . $locale->text('From')
 524         . "&nbsp;"
 525         . $locale->date(\%myconfig, $form->{transdatefrom}, 1);
 526     }
 527     if ($form->{transdateto}) {
 528       $callback .= "&transdateto=$form->{transdateto}";
 529       $option   .= "\n<br>"
 530         . $locale->text('To')
 531         . "&nbsp;"
 532         . $locale->date(\%myconfig, $form->{transdateto}, 1);
 533     }
 534   }
 535
 536   $option .= "<br>";
 537
 538   if ($form->{partnumber}) {
 539     $callback .= "&partnumber=$form->{partnumber}";
 540     $option   .= $locale->text('Part Number') . qq| : $form->{partnumber}<br>|;
 541   }
 542   if ($form->{ean}) {
 543     $callback .= "&partnumber=$form->{ean}";
 544     $option   .= $locale->text('EAN') . qq| : $form->{ean}<br>|;
 545   }
 546   if ($form->{partsgroup}) {
 547     $callback .= "&partsgroup=$form->{partsgroup}";
 548     $option   .= $locale->text('Group') . qq| : $form->{partsgroup}<br>|;
 549   }
 550   if ($form->{serialnumber}) {
 551     $callback .= "&serialnumber=$form->{serialnumber}";
 552     $option   .= $locale->text('Serial Number') . qq| : $form->{serialnumber}<br>|;
 553   }
 554   if ($form->{description}) {
 555     $callback   .= "&description=$form->{description}";
 556     $description = $form->{description};
 557     $description =~ s/\n/<br>/g;
 558     $option     .= $locale->text('Part Description') . qq| : $form->{description}<br>|;
 559   }
 560   if ($form->{make}) {
 561     $callback .= "&make=$form->{make}";
 562     $option   .= $locale->text('Make') . qq| : $form->{make}<br>|;
 563   }
 564   if ($form->{model}) {
 565     $callback .= "&model=$form->{model}";
 566     $option   .= $locale->text('Model') . qq| : $form->{model}<br>|;
 567   }
 568   if ($form->{drawing}) {
 569     $callback .= "&drawing=$form->{drawing}";
 570     $option   .= $locale->text('Drawing') . qq| : $form->{drawing}<br>|;
 571   }
 572   if ($form->{microfiche}) {
 573     $callback .= "&microfiche=$form->{microfiche}";
 574     $option   .= $locale->text('Microfiche') . qq| : $form->{microfiche}<br>|;
 575   }
 576   if ($form->{l_soldtotal}) {
 577     $callback .= "&soldtotal=$form->{soldtotal}";
 578     $option   .= $locale->text('soldtotal') . qq| : $form->{soldtotal}<br>|;
 579   }
 580
 581   my @columns = $form->sort_columns(
 582     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)
 583   );
 584
 585   if ($form->{l_linetotal}) {
 586     $form->{l_onhand} = "Y";
 587     $form->{l_linetotalsellprice} = "Y" if $form->{l_sellprice};
 588     if ($form->{l_lastcost}) {
 589       $form->{l_linetotallastcost} = "Y";
 590       if (($form->{searchitems} eq 'assembly') && !$form->{bom}) {
 591         $form->{l_linetotallastcost} = "";
 592       }
 593     }
 594     $form->{l_linetotallistprice} = "Y" if $form->{l_listprice};
 595   }
 596
 597   if ($form->{searchitems} eq 'service') {
 598
 599     # remove bin, weight and rop from list
 600     map { $form->{"l_$_"} = "" } qw(bin weight rop);
 601
 602     $form->{l_onhand} = "";
 603
 604     # qty is irrelevant unless bought or sold
 605     if (   $form->{bought}
 606         || $form->{sold}
 607         || $form->{onorder}
 608         || $form->{ordered}
 609         || $form->{rfq}
 610         || $form->{quoted}) {
 611       $form->{l_onhand} = "Y";
 612     } else {
 613       $form->{l_linetotalsellprice} = "";
 614       $form->{l_linetotallastcost}  = "";
 615     }
 616   }
 617
 618   foreach my $item (@columns) {
 619     if ($form->{"l_$item"} eq "Y") {
 620       push @column_index, $item;
 621
 622       # add column to callback
 623       $callback .= "&l_$item=Y";
 624     }
 625   }
 626
 627   if ($form->{l_subtotal} eq 'Y') {
 628     $callback .= "&l_subtotal=Y";
 629   }
 630
 631   $column_header{number} =
 632     qq|<th class=listheading nowrap>| . $locale->text('number') . qq|</th>|;
 633   $column_header{partnumber} =
 634     qq|<th nowrap><a class=listheading href=$callback&sort=partnumber&revers=$form->{revers}&lastsort=$form->{lastsort}>|
 635     . $locale->text('Part Number')
 636     . qq|</a></th>|;
 637   $column_header{description} =
 638     qq|<th nowrap><a class=listheading href=$callback&sort=description&revers=$form->{revers}&lastsort=$form->{lastsort}>|
 639     . $locale->text('Part Description')
 640     . qq|</a></th>|;
 641   $column_header{partsgroup} =
 642       qq|<th nowrap><a class=listheading href=$callback&sort=partsgroup>|
 643     . $locale->text('Group')
 644     . qq|</a></th>|;
 645   $column_header{bin} =
 646       qq|<th><a class=listheading href=$callback&sort=bin>|
 647     . $locale->text('Bin')
 648     . qq|</a></th>|;
 649   $column_header{priceupdate} =
 650       qq|<th nowrap><a class=listheading href=$callback&sort=priceupdate>|
 651     . $locale->text('Updated')
 652     . qq|</a></th>|;
 653   $column_header{onhand} =
 654     qq|<th nowrap><a  class=listheading href=$callback&sort=onhand&revers=$form->{revers}&lastsort=$form->{lastsort}>|
 655     . $locale->text('Qty')
 656     . qq|</th>|;
 657   $column_header{unit} =
 658     qq|<th class=listheading nowrap>| . $locale->text('Unit') . qq|</th>|;
 659   $column_header{listprice} =
 660       qq|<th class=listheading nowrap>|
 661     . $locale->text('List Price')
 662     . qq|</th>|;
 663   $column_header{lastcost} =
 664     qq|<th class=listheading nowrap>| . $locale->text('Last Cost') . qq|</th>|;
 665   $column_header{rop} =
 666     qq|<th class=listheading nowrap>| . $locale->text('ROP') . qq|</th>|;
 667   $column_header{weight} =
 668     qq|<th class=listheading nowrap>| . $locale->text('Weight') . qq|</th>|;
 669
 670   $column_header{invnumber} =
 671       qq|<th nowrap><a class=listheading href=$callback&sort=invnumber>|
 672     . $locale->text('Invoice Number')
 673     . qq|</a></th>|;
 674   $column_header{ordnumber} =
 675       qq|<th nowrap><a class=listheading href=$callback&sort=ordnumber>|
 676     . $locale->text('Order Number')
 677     . qq|</a></th>|;
 678   $column_header{quonumber} =
 679       qq|<th nowrap><a class=listheading href=$callback&sort=quonumber>|
 680     . $locale->text('Quotation')
 681     . qq|</a></th>|;
 682
 683   $column_header{name} =
 684       qq|<th nowrap><a class=listheading href=$callback&sort=name>|
 685     . $locale->text('Name')
 686     . qq|</a></th>|;
 687
 688   $column_header{sellprice} =
 689       qq|<th class=listheading nowrap>|
 690     . $locale->text('Sell Price')
 691     . qq|</th>|;
 692   $column_header{linetotalsellprice} =
 693     qq|<th class=listheading nowrap>| . $locale->text('Extended') . qq|</th>|;
 694   $column_header{linetotallastcost} =
 695     qq|<th class=listheading nowrap>| . $locale->text('Extended') . qq|</th>|;
 696   $column_header{linetotallistprice} =
 697     qq|<th class=listheading nowrap>| . $locale->text('Extended') . qq|</th>|;
 698
 699   $column_header{image} =
 700     qq|<th class=listheading nowrap>| . $locale->text('Image') . qq|</a></th>|;
 701   $column_header{drawing} =
 702       qq|<th nowrap><a class=listheading href=$callback&sort=drawing>|
 703     . $locale->text('Drawing')
 704     . qq|</a></th>|;
 705   $column_header{microfiche} =
 706       qq|<th nowrap><a class=listheading href=$callback&sort=microfiche>|
 707     . $locale->text('Microfiche')
 708     . qq|</a></th>|;
 709
 710   $column_header{serialnumber} =
 711       qq|<th nowrap><a class=listheading href=$callback&sort=serialnumber>|
 712     . $locale->text('Serial Number')
 713     . qq|</a></th>|;
 714   $column_header{soldtotal} =
 715     qq|<th nowrap><a class=listheading href=$callback&sort=soldtotal&revers=$form->{revers}&lastsort=$form->{lastsort}>|
 716     . $locale->text('soldtotal')
 717     . qq|</a></th>|;
 718
 719   $form->header;
 720   my $colspan = $#column_index + 1;
 721
 722   print qq|
 723 <body>
 724
 725 <table width=100%>
 726   <tr>
 727     <th class=listtop colspan=$colspan>$form->{title}</th>
 728   </tr>
 729   <tr height="5"></tr>
 730
 731   <tr><td colspan=$colspan>$option</td></tr>
 732
 733   <tr class=listheading>
 734 |;
 735
 736   map { print "\n$column_header{$_}" } @column_index;
 737
 738   print qq|
 739   </tr>
 740   |;
 741
 742   # add order to callback
 743   $form->{callback} = $callback .= "&sort=$form->{sort}";
 744
 745   # escape callback for href
 746   $callback = $form->escape($callback);
 747
 748   if (@{ $form->{parts} }) {
 749     $sameitem = $form->{parts}->[0]->{ $form->{sort} };
 750   }
 751
 752   # insert numbers for top100
 753   my $j = 0;
 754   foreach my $ref (@{ $form->{parts} }) {
 755     $j++;
 756     $ref->{number} = $j;
 757   }
 758
 759   # if avaible -> insert choice here
 760   if (($form->{ndxs_counter}) > 0) {
 761     for (my $i = 1; ($i < $form->{ndxs_counter} + 1); $i++) {
 762       $partnumber  = $form->{"totop100_partnumber_$i"};
 763       $description = $form->{"totop100_description_$i"};
 764       $unit        = $form->{"totop100_unit_$i"};
 765       $sellprice   = $form->{"totop100_sellprice_$i"};
 766       $soldtotal   = $form->{"totop100_soldtotal_$i"};
 767
 768       $totop100 .= qq|
 769 <input type=hidden name=totop100_partnumber_$i value=$form->{"totop100_partnumber_$i"}>
 770 <input type=hidden name=totop100_description_$i value=$form->{"totop100_description_$i"}>
 771 <input type=hidden name=totop100_unit_$i value=$form->{"totop100_unit_$i"}>
 772 <input type=hidden name=totop100_sellprice_$i value=$form->{"totop100_sellprice_$i"}>
 773 <input type=hidden name=totop100_soldtotal_$i value=$form->{"totop100_soldtotal_$i"}>
 774       |;
 775
 776       # insert into list
 777       push @{ $form->{parts} },
 778         { number      => "",
 779           partnumber  => "$partnumber",
 780           description => "$description",
 781           unit        => "$unit",
 782           sellprice   => "$sellprice",
 783           soldtotal   => "$soldtotal" };
 784     }    #rof
 785   }    #fi
 786        # build data for columns
 787   my $i = 0;
 788   foreach my $ref (@{ $form->{parts} }) {
 789
 790     if ($form->{l_subtotal} eq 'Y' && !$ref->{assemblyitem}) {
 791       if ($sameitem ne $ref->{ $form->{sort} }) {
 792         &parts_subtotal;
 793         $sameitem = $ref->{ $form->{sort} };
 794       }
 795     }
 796
 797     $ref->{exchangerate} = 1 unless $ref->{exchangerate};
 798     $ref->{sellprice} *= $ref->{exchangerate};
 799     $ref->{listprice} *= $ref->{exchangerate};
 800     $ref->{lastcost}  *= $ref->{exchangerate};
 801
 802     # use this for assemblies
 803     $onhand = $ref->{onhand};
 804
 805     $align = "left";
 806     if ($ref->{assemblyitem}) {
 807       $align = "right";
 808       $onhand = 0 if ($form->{sold});
 809     }
 810
 811     $ref->{description} =~ s/\n/<br>/g;
 812
 813     $column_data{number} =
 814         "<td align=right>"
 815       . $form->format_amount(\%myconfig, $ref->{number})
 816       . "</td>";
 817     $column_data{partnumber} =
 818       "<td align=$align>$ref->{partnumber}&nbsp;</a></td>";
 819     $column_data{description} = "<td>$ref->{description}&nbsp;</td>";
 820     $column_data{partsgroup}  = "<td>$ref->{partsgroup}&nbsp;</td>";
 821
 822     $column_data{onhand} =
 823         "<td align=right>"
 824       . $form->format_amount(\%myconfig, $ref->{onhand})
 825       . "</td>";
 826     $column_data{sellprice} =
 827         "<td align=right>"
 828       . $form->format_amount(\%myconfig, $ref->{sellprice})
 829       . "</td>";
 830     $column_data{listprice} =
 831         "<td align=right>"
 832       . $form->format_amount(\%myconfig, $ref->{listprice})
 833       . "</td>";
 834     $column_data{lastcost} =
 835         "<td align=right>"
 836       . $form->format_amount(\%myconfig, $ref->{lastcost})
 837       . "</td>";
 838
 839     $column_data{linetotalsellprice} = "<td align=right>"
 840       . $form->format_amount(\%myconfig, $ref->{onhand} * $ref->{sellprice}, 2)
 841       . "</td>";
 842     $column_data{linetotallastcost} = "<td align=right>"
 843       . $form->format_amount(\%myconfig, $ref->{onhand} * $ref->{lastcost}, 2)
 844       . "</td>";
 845     $column_data{linetotallistprice} = "<td align=right>"
 846       . $form->format_amount(\%myconfig, $ref->{onhand} * $ref->{listprice}, 2)
 847       . "</td>";
 848
 849     if (!$ref->{assemblyitem}) {
 850       $totalsellprice += $onhand * $ref->{sellprice};
 851       $totallastcost  += $onhand * $ref->{lastcost};
 852       $totallistprice += $onhand * $ref->{listprice};
 853
 854       $subtotalonhand    += $onhand;
 855       $subtotalsellprice += $onhand * $ref->{sellprice};
 856       $subtotallastcost  += $onhand * $ref->{lastcost};
 857       $subtotallistprice += $onhand * $ref->{listprice};
 858     }
 859
 860     $column_data{rop} =
 861       "<td align=right>"
 862       . $form->format_amount(\%myconfig, $ref->{rop}) . "</td>";
 863     $column_data{weight} =
 864         "<td align=right>"
 865       . $form->format_amount(\%myconfig, $ref->{weight})
 866       . "</td>";
 867     $column_data{unit}        = "<td>$ref->{unit}&nbsp;</td>";
 868     $column_data{bin}         = "<td>$ref->{bin}&nbsp;</td>";
 869     $column_data{priceupdate} = "<td>$ref->{priceupdate}&nbsp;</td>";
 870
 871     $column_data{invnumber} =
 872       ($ref->{module} ne 'oe')
 873       ? "<td><a href=$ref->{module}.pl?action=edit&type=invoice&id=$ref->{trans_id}&callback=$callback>$ref->{invnumber}</a></td>"
 874       : "<td>$ref->{invnumber}</td>";
 875     $column_data{ordnumber} =
 876       ($ref->{module} eq 'oe')
 877       ? "<td><a href=$ref->{module}.pl?action=edit&type=$ref->{type}&id=$ref->{trans_id}&callback=$callback>$ref->{ordnumber}</a></td>"
 878       : "<td>$ref->{ordnumber}</td>";
 879     $column_data{quonumber} =
 880       ($ref->{module} eq 'oe' && !$ref->{ordnumber})
 881       ? "<td><a href=$ref->{module}.pl?action=edit&type=$ref->{type}&id=$ref->{trans_id}&callback=$callback>$ref->{quonumber}</a></td>"
 882       : "<td>$ref->{quonumber}</td>";
 883
 884     $column_data{name} = "<td>$ref->{name}</td>";
 885
 886     $column_data{image} =
 887       ($ref->{image})
 888       ? "<td><a href=$ref->{image}><img src=$ref->{image} height=32 border=0></a></td>"
 889       : "<td>&nbsp;</td>";
 890     $column_data{drawing} =
 891       ($ref->{drawing})
 892       ? "<td><a href=$ref->{drawing}>$ref->{drawing}</a></td>"
 893       : "<td>&nbsp;</td>";
 894     $column_data{microfiche} =
 895       ($ref->{microfiche})
 896       ? "<td><a href=$ref->{microfiche}>$ref->{microfiche}</a></td>"
 897       : "<td>&nbsp;</td>";
 898
 899     $column_data{serialnumber} = "<td>$ref->{serialnumber}</td>";
 900
 901     $column_data{soldtotal} = "<td  align=right>$ref->{soldtotal}</td>";
 902
 903     $i++;
 904     $i %= 2;
 905     print "<tr class=listrow$i>";
 906
 907     map { print "\n$column_data{$_}" } @column_index;
 908
 909     print qq|
 910     </tr>
 911 |;
 912   }
 913
 914   if ($form->{l_subtotal} eq 'Y') {
 915     &parts_subtotal;
 916   }    #fi
 917
 918   if ($form->{"l_linetotal"}) {
 919     map { $column_data{$_} = "<td>&nbsp;</td>" } @column_index;
 920     $column_data{linetotalsellprice} =
 921         "<th class=listtotal align=right>"
 922       . $form->format_amount(\%myconfig, $totalsellprice, 2)
 923       . "</th>";
 924     $column_data{linetotallastcost} =
 925         "<th class=listtotal align=right>"
 926       . $form->format_amount(\%myconfig, $totallastcost, 2)
 927       . "</th>";
 928     $column_data{linetotallistprice} =
 929         "<th class=listtotal align=right>"
 930       . $form->format_amount(\%myconfig, $totallistprice, 2)
 931       . "</th>";
 932
 933     print "<tr class=listtotal>";
 934
 935     map { print "\n$column_data{$_}" } @column_index;
 936
 937     print qq|</tr>
 938     |;
 939   }
 940
 941   print qq|
 942   <tr><td colspan=$colspan><hr size=3 noshade></td></tr>
 943 </table>
 944
 945 |;
 946
 947   print qq|
 948
 949 <br>
 950
 951 <form method=post action=$form->{script}>
 952
 953 <input type=hidden name=itemstatus value="$form->{itemstatus}">
 954 <input type=hidden name=l_linetotal value="$form->{l_linetotal}">
 955 <input type=hidden name=l_partnumber value="$form->{l_partnumber}">
 956 <input type=hidden name=l_description value="$form->{l_description}">
 957 <input type=hidden name=l_onhand value="$form->{l_onhand}">
 958 <input type=hidden name=l_unit value="$form->{l_unit}">
 959 <input type=hidden name=l_sellprice value="$form->{l_sellprice}">
 960 <input type=hidden name=l_linetotalsellprice value="$form->{l_linetotalsellprice}">
 961 <input type=hidden name=sort value="$form->{sort}">
 962 <input type=hidden name=revers value="$form->{revers}">
 963 <input type=hidden name=lastsort value="$form->{lastsort}">
 964 <input type=hidden name=parts value="$form->{parts}">
 965
 966 <input type=hidden name=bom value="$form->{bom}">
 967 <input type=hidden name=titel value="$form->{titel}">
 968 <input type=hidden name=searchitems value="$form->{searchitems}">|;
 969
 970   print $totop100;
 971
 972   print qq|
 973 <!--    <input type=hidden name=ndxs_counter value="$form->{ndxs_counter}">-->
 974
 975     <input class=submit type=submit name=action value="|
 976     . $locale->text('choice') . qq|">
 977
 978   </form>
 979
 980 </body>
 981 </html>
 982 |;
 983
 984   $lxdebug->leave_sub();
 985 }    # end addtop100
 986
 987 #
 988 # Report for Wares.
 989 # Warning, deep magic ahead.
 990 # This function parses the requested details, sanity checks them, and converts them into a format thats usable for IC->all_parts
 991 #
 992 # flags coming from the form:
 993 # hardcoded:
 994 #  searchitems=part revers=0 lastsort=''
 995 #
 996 # filter:
 997 # partnumber ean description partsgroup serialnumber make model drawing microfiche
 998 # transdatefrom transdateto
 999 #
1000 # radio:
1001 #  itemstatus = active | onhand | short | obsolete | orphaned
1002 #  action     = continue | top100
1003 #
1004 # checkboxes:
1005 #  bought sold onorder ordered rfq quoted
1006 #  l_partnumber l_description l_serialnumber l_unit l_listprice l_sellprice l_lastcost
1007 #  l_linetotal l_priceupdate l_bin l_rop l_weight l_image l_drawing l_microfiche
1008 #  l_partsgroup l_subtotal l_soldtotal l_deliverydate
1009 #
1010 # hiddens:
1011 #  nextsub revers lastsort sort ndxs_counter
1012 #
1013 sub generate_report {
1014   $lxdebug->enter_sub();
1015
1016   $auth->assert('part_service_assembly_edit');
1017
1018   my ($revers, $lastsort, $description);
1019
1020   my $cvar_configs = CVar->get_configs('module' => 'IC');
1021
1022   $form->{title} = (ucfirst $form->{searchitems}) . "s";
1023   $form->{title} =~ s/ys$/ies/;
1024   $form->{title} = $locale->text($form->{title});
1025
1026   $revers     = $form->{revers};
1027   $lastsort   = $form->{lastsort};
1028
1029   # sorting and direction of sorting
1030   # ToDO: change this to the simpler field+direction method
1031   if (($form->{lastsort} eq "") && ($form->{sort} eq undef)) {
1032     $form->{revers}   = 0;
1033     $form->{lastsort} = "partnumber";
1034     $form->{sort}     = "partnumber";
1035   } else {
1036     if ($form->{lastsort} eq $form->{sort}) {
1037       $form->{revers} = 1 - $form->{revers};
1038     } else {
1039       $form->{revers} = 0;
1040       $form->{lastsort} = $form->{sort};
1041     }    #fi
1042   }    #fi
1043
1044   # special case if we have a serialnumber limit search
1045   # serialnumbers are only given in invoices and orders,
1046   # so they can only pop up in bought, sold, rfq, and quoted stuff
1047   $form->{no_sn_joins} = 'Y' if (   !$form->{bought} && !$form->{sold}
1048                                  && !$form->{rfq}    && !$form->{quoted}
1049                                  && ($form->{l_serialnumber} || $form->{serialnumber}));
1050
1051   # special case for any checkbox of bought | sold | onorder | ordered | rfq | quoted.
1052   # if any of these are ticked the behavior changes slightly for lastcost
1053   # since all those are aggregation checks for the legder tables this is an internal switch
1054   # refered to as ledgerchecks
1055   $form->{ledgerchecks} = 'Y' if (   $form->{bought} || $form->{sold} || $form->{onorder}
1056                                   || $form->{ordered} || $form->{rfq} || $form->{quoted});
1057
1058   # if something should be activated if something else is active, enter it here
1059   my %dependencies = (
1060     onhand       => [ qw(l_onhand) ],
1061     short        => [ qw(l_onhand) ],
1062     onorder      => [ qw(l_ordnumber) ],
1063     ordered      => [ qw(l_ordnumber) ],
1064     rfq          => [ qw(l_quonumber) ],
1065     quoted       => [ qw(l_quonumber) ],
1066     bought       => [ qw(l_invnumber) ],
1067     sold         => [ qw(l_invnumber) ],
1068     ledgerchecks => [ qw(l_name) ],
1069     serialnumber => [ qw(l_serialnumber) ],
1070     no_sn_joins  => [ qw(bought sold) ],
1071   );
1072
1073   # these strings get displayed at the top of the results to indicate the user which switches were used
1074   my %optiontexts = (
1075     active        => $locale->text('Active'),
1076     obsolete      => $locale->text('Obsolete'),
1077     orphaned      => $locale->text('Orphaned'),
1078     onhand        => $locale->text('On Hand'),
1079     short         => $locale->text('Short'),
1080     onorder       => $locale->text('On Order'),
1081     ordered       => $locale->text('Ordered'),
1082     rfq           => $locale->text('RFQ'),
1083     quoted        => $locale->text('Quoted'),
1084     bought        => $locale->text('Bought'),
1085     sold          => $locale->text('Sold'),
1086     transdatefrom => $locale->text('From')       . " " . $locale->date(\%myconfig, $form->{transdatefrom}, 1),
1087     transdateto   => $locale->text('To (time)')  . " " . $locale->date(\%myconfig, $form->{transdateto}, 1),
1088     partnumber    => $locale->text('Part Number')      . ": '$form->{partnumber}'",
1089     partsgroup    => $locale->text('Group')            . ": '$form->{partsgroup}'",
1090     serialnumber  => $locale->text('Serial Number')    . ": '$form->{serialnumber}'",
1091     description   => $locale->text('Part Description') . ": '$form->{description}'",
1092     make          => $locale->text('Make')             . ": '$form->{make}'",
1093     model         => $locale->text('Model')            . ": '$form->{model}'",
1094     drawing       => $locale->text('Drawing')          . ": '$form->{drawing}'",
1095     microfiche    => $locale->text('Microfiche')       . ": '$form->{microfiche}'",
1096     l_soldtotal   => $locale->text('soldtotal'),
1097     ean           => $locale->text('EAN')              . ": '$form->{ean}'",
1098   );
1099
1100   my @itemstatus_keys = qw(active obsolete orphaned onhand short);
1101   my @callback_keys   = qw(onorder ordered rfq quoted bought sold partnumber partsgroup serialnumber description make model
1102                            drawing microfiche l_soldtotal l_deliverydate transdatefrom transdateto ean);
1103
1104   # calculate dependencies
1105   for (@itemstatus_keys, @callback_keys) {
1106     next if ($form->{itemstatus} ne $_ && !$form->{$_});
1107     map { $form->{$_} = 'Y' } @{ $dependencies{$_} } if $dependencies{$_};
1108   }
1109
1110   # generate callback and optionstrings
1111   my @options;
1112   for my  $key (@itemstatus_keys, @callback_keys) {
1113     next if ($form->{itemstatus} ne $key && !$form->{$key});
1114     push @options, $optiontexts{$key};
1115   }
1116
1117   # special case for lastcost
1118   $form->{l_lastcost} = "" if $form->{ledgerchecks};
1119
1120   if ($form->{description}) {
1121     $description = $form->{description};
1122     $description =~ s/\n/<br>/g;
1123   }
1124
1125   if ($form->{l_linetotal}) {
1126     $form->{l_onhand} = "Y";
1127     $form->{l_linetotalsellprice} = "Y" if $form->{l_sellprice};
1128     $form->{l_linetotallastcost}  = $form->{searchitems} eq 'assembly' && !$form->{bom} ? "" : 'Y' if  $form->{l_lastcost};
1129     $form->{l_linetotallistprice} = "Y" if $form->{l_listprice};
1130   }
1131
1132   if ($form->{searchitems} eq 'service') {
1133
1134     # remove bin, weight and rop from list
1135     map { $form->{"l_$_"} = "" } qw(bin weight rop);
1136
1137     $form->{l_onhand} = "";
1138
1139     # qty is irrelevant unless bought or sold
1140     if (   $form->{bought}
1141         || $form->{sold}
1142         || $form->{onorder}
1143         || $form->{ordered}
1144         || $form->{rfq}
1145         || $form->{quoted}) {
1146       $form->{l_onhand} = "Y";
1147     } else {
1148       $form->{l_linetotalsellprice} = "";
1149       $form->{l_linetotallastcost}  = "";
1150     }
1151   }
1152
1153   IC->all_parts(\%myconfig, \%$form);
1154
1155   my @columns = qw(
1156     partnumber description partsgroup bin onhand rop unit listprice
1157     linetotallistprice sellprice linetotalsellprice lastcost linetotallastcost
1158     priceupdate weight image drawing microfiche invnumber ordnumber quonumber
1159     transdate name serialnumber soldtotal deliverydate ean
1160   );
1161
1162   my @includeable_custom_variables = grep { $_->{includeable} } @{ $cvar_configs };
1163   my @searchable_custom_variables  = grep { $_->{searchable} }  @{ $cvar_configs };
1164   my %column_defs_cvars            = map { +"cvar_$_->{name}" => { 'text' => $_->{description} } } @includeable_custom_variables;
1165
1166   push @columns, map { "cvar_$_->{name}" } @includeable_custom_variables;
1167
1168   my %column_defs = (
1169     'bin'                => { 'text' => $locale->text('Bin'), },
1170     'deliverydate'       => { 'text' => $locale->text('deliverydate'), },
1171     'description'        => { 'text' => $locale->text('Part Description'), },
1172     'drawing'            => { 'text' => $locale->text('Drawing'), },
1173     'image'              => { 'text' => $locale->text('Image'), },
1174     'invnumber'          => { 'text' => $locale->text('Invoice Number'), },
1175     'lastcost'           => { 'text' => $locale->text('Last Cost'), },
1176     'linetotallastcost'  => { 'text' => $locale->text('Extended'), },
1177     'linetotallistprice' => { 'text' => $locale->text('Extended'), },
1178     'linetotalsellprice' => { 'text' => $locale->text('Extended'), },
1179     'listprice'          => { 'text' => $locale->text('List Price'), },
1180     'microfiche'         => { 'text' => $locale->text('Microfiche'), },
1181     'name'               => { 'text' => $locale->text('Name'), },
1182     'onhand'             => { 'text' => $locale->text('Qty'), },
1183     'ordnumber'          => { 'text' => $locale->text('Order Number'), },
1184     'partnumber'         => { 'text' => $locale->text('Part Number'), },
1185     'partsgroup'         => { 'text' => $locale->text('Group'), },
1186     'priceupdate'        => { 'text' => $locale->text('Updated'), },
1187     'quonumber'          => { 'text' => $locale->text('Quotation'), },
1188     'rop'                => { 'text' => $locale->text('ROP'), },
1189     'sellprice'          => { 'text' => $locale->text('Sell Price'), },
1190     'serialnumber'       => { 'text' => $locale->text('Serial Number'), },
1191     'soldtotal'          => { 'text' => $locale->text('soldtotal'), },
1192     'transdate'          => { 'text' => $locale->text('Transdate'), },
1193     'unit'               => { 'text' => $locale->text('Unit'), },
1194     'weight'             => { 'text' => $locale->text('Weight'), },
1195     'ean'                => { 'text' => $locale->text('EAN'), },
1196     %column_defs_cvars,
1197   );
1198
1199   map { $column_defs{$_}->{visible} = $form->{"l_$_"} ? 1 : 0 } @columns;
1200   map { $column_defs{$_}->{align}   = 'right' } qw(onhand sellprice listprice lastcost linetotalsellprice linetotallastcost linetotallistprice rop weight soldtotal);
1201
1202   my @hidden_variables = (qw(l_subtotal l_linetotal searchitems itemstatus bom), @itemstatus_keys, @callback_keys, @searchable_custom_variables, map { "l_$_" } @columns);
1203   my $callback         = build_std_url('action=generate_report', grep { $form->{$_} } @hidden_variables);
1204
1205   my @sort_full        = qw(partnumber description onhand soldtotal deliverydate);
1206   my @sort_no_revers   = qw(partsgroup bin priceupdate invnumber ordnumber quonumber name image drawing serialnumber);
1207
1208   foreach my $col (@sort_full) {
1209     $column_defs{$col}->{link} = join '&', $callback, "sort=$col", map { "$_=" . E($form->{$_}) } qw(revers lastsort);
1210   }
1211   map { $column_defs{$_}->{link} = "${callback}&sort=$_" } @sort_no_revers;
1212
1213   # add order to callback
1214   $form->{callback} = join '&', ($callback, map { "${_}=" . E($form->{$_}) } qw(sort revers));
1215
1216   my $report = SL::ReportGenerator->new(\%myconfig, $form);
1217
1218   my %attachment_basenames = (
1219     'part'     => $locale->text('part_list'),
1220     'service'  => $locale->text('service_list'),
1221     'assembly' => $locale->text('assembly_list'),
1222   );
1223
1224   $report->set_options('top_info_text'         => $locale->text('Options') . ': ' . join(', ', grep $_, @options),
1225                        'raw_bottom_info_text'  => $form->parse_html_template('ic/generate_report_bottom'),
1226                        'output_format'         => 'HTML',
1227                        'title'                 => $form->{title},
1228                        'attachment_basename'   => $attachment_basenames{$form->{searchitems}} . strftime('_%Y%m%d', localtime time),
1229   );
1230   $report->set_options_from_form();
1231
1232   $report->set_columns(%column_defs);
1233   $report->set_column_order(@columns);
1234
1235   $report->set_export_options('generate_report', @hidden_variables, qw(sort revers));
1236
1237   $report->set_sort_indicator($form->{sort}, $form->{revers} ? 0 : 1);
1238
1239   CVar->add_custom_variables_to_report('module'         => 'IC',
1240                                        'trans_id_field' => 'id',
1241                                        'configs'        => $cvar_configs,
1242                                        'column_defs'    => \%column_defs,
1243                                        'data'           => $form->{parts});
1244
1245   CVar->add_custom_variables_to_report('module'         => 'IC',
1246                                        'sub_module'     => sub { $_[0]->{ioi} },
1247                                        'trans_id_field' => 'ioi_id',
1248                                        'configs'        => $cvar_configs,
1249                                        'column_defs'    => \%column_defs,
1250                                        'data'           => $form->{parts});
1251
1252   my @subtotal_columns = qw(sellprice listprice lastcost);
1253   my %subtotals = map { $_ => 0 } ('onhand', @subtotal_columns);
1254   my %totals    = map { $_ => 0 } @subtotal_columns;
1255   my $idx       = 0;
1256   my $same_item = $form->{parts}[0]{ $form->{sort} } if (scalar @{ $form->{parts} });
1257
1258   my $defaults  = AM->get_defaults();
1259
1260   # postprocess parts
1261   foreach my $ref (@{ $form->{parts} }) {
1262
1263     # fresh row, for inserting later
1264     my $row = { map { $_ => { 'data' => $ref->{$_} } } @columns };
1265
1266     $ref->{exchangerate} ||= 1;
1267     $ref->{price_factor} ||= 1;
1268     $ref->{sellprice}     *= $ref->{exchangerate} / $ref->{price_factor};
1269     $ref->{listprice}     *= $ref->{exchangerate} / $ref->{price_factor};
1270     $ref->{lastcost}      *= $ref->{exchangerate} / $ref->{price_factor};
1271
1272     # use this for assemblies
1273     my $onhand = $ref->{onhand};
1274
1275     if ($ref->{assemblyitem}) {
1276       $row->{partnumber}{align}   = 'right';
1277       $row->{onhand}{data}        = 0;
1278       $onhand                     = 0 if ($form->{sold});
1279     }
1280
1281     my $edit_link               = build_std_url('action=edit', 'id=' . E($ref->{id}), 'callback');
1282     $row->{partnumber}->{link}  = $edit_link;
1283     $row->{description}->{link} = $edit_link;
1284
1285     foreach (qw(sellprice listprice lastcost)) {
1286       $row->{$_}{data}            = $form->format_amount(\%myconfig, $ref->{$_}, -2);
1287       $row->{"linetotal$_"}{data} = $form->format_amount(\%myconfig, $ref->{onhand} * $ref->{$_}, 2);
1288     }
1289
1290     map { $row->{$_}{data} = $form->format_amount(\%myconfig, $ref->{$_}); } qw(onhand rop weight soldtotal);
1291
1292     $row->{weight}->{data} .= ' ' . $defaults->{weightunit};
1293
1294     if (!$ref->{assemblyitem}) {
1295       foreach my $col (@subtotal_columns) {
1296         $totals{$col}    += $onhand * $ref->{$col};
1297         $subtotals{$col} += $onhand * $ref->{$col};
1298       }
1299
1300       $subtotals{onhand} += $onhand;
1301     }
1302
1303     # set module stuff
1304     if ($ref->{module} eq 'oe') {
1305       my $edit_oe_link = build_std_url("script=oe.pl", 'action=edit', 'type=' . E($ref->{cv} eq 'vendor' ? 'purchase_order' : 'sales_order'), 'id=' . E($ref->{trans_id}), 'callback');
1306       $row->{ordnumber}{link} = $edit_oe_link;
1307       $row->{quonumber}{link} = $edit_oe_link if (!$ref->{ordnumber});
1308
1309     } else {
1310       $row->{invnumber}{link} = build_std_url("script=$ref->{module}.pl", 'action=edit', 'type=invoice', 'id=' . E($ref->{trans_id}), 'callback');
1311     }
1312
1313     # set properties of images
1314     if ($ref->{image} && (lc $report->{options}->{output_format} eq 'html')) {
1315       $row->{image}{data}     = '';
1316       $row->{image}{raw_data} = '<a href="' . H($ref->{image}) . '"><img src="' . H($ref->{image}) . '" height="32" border="0"></a>';
1317     }
1318     map { $row->{$_}{link} = $ref->{$_} } qw(drawing microfiche);
1319
1320     $report->add_data($row);
1321
1322     my $next_ref = $form->{parts}[$idx + 1];
1323
1324     # insert subtotal rows
1325     if (($form->{l_subtotal} eq 'Y') &&
1326         (!$next_ref ||
1327          (!$next_ref->{assemblyitem} && ($same_item ne $next_ref->{ $form->{sort} })))) {
1328       my $row = { map { $_ => { 'class' => 'listsubtotal', } } @columns };
1329
1330       if (($form->{searchitems} ne 'assembly') || !$form->{bom}) {
1331         $row->{onhand}->{data} = $form->format_amount(\%myconfig, $subtotals{onhand});
1332       }
1333
1334       map { $row->{"linetotal$_"}->{data} = $form->format_amount(\%myconfig, $subtotals{$_}, 2) } @subtotal_columns;
1335       map { $subtotals{$_} = 0 } ('onhand', @subtotal_columns);
1336
1337       $report->add_data($row);
1338
1339       $same_item = $next_ref->{ $form->{sort} };
1340     }
1341
1342     $idx++;
1343   }
1344
1345   if ($form->{"l_linetotal"}) {
1346     my $row = { map { $_ => { 'class' => 'listtotal', } } @columns };
1347
1348     map { $row->{"linetotal$_"}->{data} = $form->format_amount(\%myconfig, $totals{$_}, 2) } @subtotal_columns;
1349
1350     $report->add_separator();
1351     $report->add_data($row);
1352   }
1353
1354   $report->generate_with_headers();
1355
1356   $lxdebug->leave_sub();
1357 }    #end generate_report
1358
1359 sub parts_subtotal {
1360   $lxdebug->enter_sub();
1361
1362   $auth->assert('part_service_assembly_edit');
1363
1364   # imports
1365   our (%column_data, @column_index);
1366   our ($subtotalonhand, $totalsellprice, $totallastcost, $totallistprice, $subtotalsellprice, $subtotallastcost, $subtotallistprice);
1367
1368   map { $column_data{$_} = "<td>&nbsp;</td>" } @column_index;
1369   $subtotalonhand = 0 if ($form->{searchitems} eq 'assembly' && $form->{bom});
1370
1371   $column_data{onhand} =
1372       "<th class=listsubtotal align=right>"
1373     . $form->format_amount(\%myconfig, $subtotalonhand)
1374     . "</th>";
1375
1376   $column_data{linetotalsellprice} =
1377       "<th class=listsubtotal align=right>"
1378     . $form->format_amount(\%myconfig, $subtotalsellprice, 2)
1379     . "</th>";
1380   $column_data{linetotallistprice} =
1381       "<th class=listsubtotal align=right>"
1382     . $form->format_amount(\%myconfig, $subtotallistprice, 2)
1383     . "</th>";
1384   $column_data{linetotallastcost} =
1385       "<th class=listsubtotal align=right>"
1386     . $form->format_amount(\%myconfig, $subtotallastcost, 2)
1387     . "</th>";
1388
1389   $subtotalonhand    = 0;
1390   $subtotalsellprice = 0;
1391   $subtotallistprice = 0;
1392   $subtotallastcost  = 0;
1393
1394   print "<tr class=listsubtotal>";
1395
1396   map { print "\n$column_data{$_}" } @column_index;
1397
1398   print qq|
1399   </tr>
1400 |;
1401
1402   $lxdebug->leave_sub();
1403 }
1404
1405 sub edit {
1406   $lxdebug->enter_sub();
1407
1408   $auth->assert('part_service_assembly_edit');
1409
1410   # show history button
1411   $form->{javascript} = qq|<script type="text/javascript" src="js/show_history.js"></script>|;
1412   #/show hhistory button
1413   IC->get_part(\%myconfig, \%$form);
1414
1415   $form->{"original_partnumber"} = $form->{"partnumber"};
1416
1417   $form->{title} = $locale->text('Edit ' . ucfirst $form->{item});
1418
1419   &link_part;
1420   &display_form;
1421
1422   $lxdebug->leave_sub();
1423 }
1424
1425 sub link_part {
1426   $lxdebug->enter_sub();
1427
1428   $auth->assert('part_service_assembly_edit');
1429
1430   IC->create_links("IC", \%myconfig, \%$form);
1431
1432   # currencies
1433   map({ $form->{selectcurrency} .= "<option>$_\n" }
1434       split(/:/, $form->{currencies}));
1435
1436   # parts and assemblies have the same links
1437   my $item = $form->{item};
1438   if ($form->{item} eq 'assembly') {
1439     $item = 'part';
1440   }
1441
1442   # build the popup menus
1443   $form->{taxaccounts} = "";
1444   foreach my $key (keys %{ $form->{IC_links} }) {
1445     foreach my $ref (@{ $form->{IC_links}{$key} }) {
1446
1447       # if this is a tax field
1448       if ($key =~ /IC_tax/) {
1449         if ($key =~ /\Q$item\E/) {
1450           $form->{taxaccounts} .= "$ref->{accno} ";
1451           $form->{"IC_tax_$ref->{accno}_description"} =
1452             "$ref->{accno}--$ref->{description}";
1453
1454           if ($form->{id}) {
1455             if ($form->{amount}{ $ref->{accno} }) {
1456               $form->{"IC_tax_$ref->{accno}"} = "checked";
1457             }
1458           } else {
1459             $form->{"IC_tax_$ref->{accno}"} = "checked";
1460           }
1461         }
1462       } else {
1463
1464         $form->{"select$key"} .=
1465           "<option $ref->{selected}>$ref->{accno}--$ref->{description}\n";
1466         if ($form->{amount}{$key} eq $ref->{accno}) {
1467           $form->{$key} = "$ref->{accno}--$ref->{description}";
1468         }
1469
1470       }
1471     }
1472   }
1473   chop $form->{taxaccounts};
1474
1475   if (($form->{item} eq "part") || ($form->{item} eq "assembly")) {
1476     $form->{selectIC_income}  = $form->{selectIC_sale};
1477     $form->{selectIC_expense} = $form->{selectIC_cogs};
1478     $form->{IC_income}        = $form->{IC_sale};
1479     $form->{IC_expense}       = $form->{IC_cogs};
1480   }
1481
1482   delete $form->{IC_links};
1483   delete $form->{amount};
1484
1485   $form->get_partsgroup(\%myconfig, { all => 1 });
1486
1487   $form->{partsgroup} = "$form->{partsgroup}--$form->{partsgroup_id}";
1488
1489   if (@{ $form->{all_partsgroup} }) {
1490     $form->{selectpartsgroup} = qq|<option>\n|;
1491     map { $form->{selectpartsgroup} .= qq|<option value="$_->{partsgroup}--$_->{id}">$_->{partsgroup}\n| } @{ $form->{all_partsgroup} };
1492   }
1493
1494   if ($form->{item} eq 'assembly') {
1495
1496     foreach my $i (1 .. $form->{assembly_rows}) {
1497       if ($form->{"partsgroup_id_$i"}) {
1498         $form->{"partsgroup_$i"} =
1499           qq|$form->{"partsgroup_$i"}--$form->{"partsgroup_id_$i"}|;
1500       }
1501     }
1502     $form->get_partsgroup(\%myconfig);
1503
1504     if (@{ $form->{all_partsgroup} }) {
1505       $form->{selectassemblypartsgroup} = qq|<option>\n|;
1506
1507       map {
1508         $form->{selectassemblypartsgroup} .=
1509           qq|<option value="$_->{partsgroup}--$_->{id}">$_->{partsgroup}\n|
1510       } @{ $form->{all_partsgroup} };
1511     }
1512   }
1513   $lxdebug->leave_sub();
1514 }
1515
1516 sub form_header {
1517   $lxdebug->enter_sub();
1518
1519   $auth->assert('part_service_assembly_edit');
1520
1521   $form->{eur}              = $main::eur; # config dumps into namespace - yuck
1522   $form->{pg_keys}          = sub { "$_[0]->{partsgroup}--$_[0]->{id}" };
1523   $form->{description_area} = ($form->{rows} = $form->numtextrows($form->{description}, 40)) > 1;
1524   $form->{notes_rows}       =  max 4, $form->numtextrows($form->{notes}, 40), $form->numtextrows($form->{formel}, 40);
1525
1526   map { $form->{"is_$_"}  = ($form->{item} eq $_) } qw(part service assembly);
1527   map { $form->{$_}       =~ s/"/&quot;/g;        } qw(unit);
1528
1529   $form->get_lists('price_factors' => 'ALL_PRICE_FACTORS',
1530                    'partsgroup'    => 'all_partsgroup',
1531                    'vendors'       => 'ALL_VENDORS',);
1532
1533
1534   IC->retrieve_buchungsgruppen(\%myconfig, $form);
1535   @{ $form->{BUCHUNGSGRUPPEN} } = grep { $_->{id} eq $form->{buchungsgruppen_id} || ($form->{id} && $form->{orphaned}) || !$form->{id} } @{ $form->{BUCHUNGSGRUPPEN} };
1536
1537   # use JavaScript Calendar or not (yes!)
1538   $form->{jsscript} = 1;
1539
1540   my $units = AM->retrieve_units(\%myconfig, $form);
1541   $form->{ALL_UNITS} = [ map +{ name => $_ }, sort { $units->{$a}{sortkey} <=> $units->{$b}{sortkey} } keys %$units ];
1542
1543   $form->{defaults} = AM->get_defaults();
1544
1545   $form->{fokus} = "ic.partnumber";
1546
1547   $form->{CUSTOM_VARIABLES} = CVar->get_custom_variables('module' => 'IC', 'trans_id' => $form->{id});
1548
1549   CVar->render_inputs('variables' => $form->{CUSTOM_VARIABLES}, show_disabled_message => 1)
1550     if (scalar @{ $form->{CUSTOM_VARIABLES} });
1551
1552   $form->header;
1553   #print $form->parse_html_template('ic/form_header', { ALL_PRICE_FACTORS => $form->{ALL_PRICE_FACTORS},
1554   #                                                     ALL_UNITS         => $form->{ALL_UNITS},
1555   #                                                     BUCHUNGSGRUPPEN   => $form->{BUCHUNGSGRUPPEN},
1556   #                                                     payment_terms     => $form->{payment_terms},
1557   #                                                     all_partsgroup    => $form->{all_partsgroup}});
1558   print $form->parse_html_template('ic/form_header');
1559   $lxdebug->leave_sub();
1560 }
1561
1562 sub form_footer {
1563   $lxdebug->enter_sub();
1564
1565   $auth->assert('part_service_assembly_edit');
1566
1567   print $form->parse_html_template('ic/form_footer');
1568
1569   $lxdebug->leave_sub();
1570 }
1571
1572 sub makemodel_row {
1573   $lxdebug->enter_sub();
1574   my ($numrows) = @_;
1575
1576   my @mm_data = grep { any { $_ ne '' } @$_{qw(make model)} } map +{ make => $form->{"make_$_"}, model => $form->{"model_$_"} }, 1 .. $numrows;
1577   delete @{$form}{grep { m/^make_\d+/ || m/^model_\d+/ } keys %{ $form }};
1578   print $form->parse_html_template('ic/makemodel', { MM_DATA => [ @mm_data, {} ], mm_rows => scalar @mm_data + 1 });
1579
1580   $lxdebug->leave_sub();
1581 }
1582
1583 sub assembly_row {
1584   $lxdebug->enter_sub();
1585   my ($numrows) = @_;
1586   my (@column_index);
1587   my ($nochange, $callback, $previousform, $linetotal, $line_purchase_price, $href);
1588
1589   our ($deliverydate); # ToDO: check if this indeed comes from global context
1590
1591   @column_index = qw(runningnumber qty unit bom partnumber description partsgroup lastcost total);
1592
1593   if ($form->{previousform}) {
1594     $nochange     = 1;
1595     @column_index = qw(qty unit bom partnumber description partsgroup total);
1596   } else {
1597
1598     # change callback
1599     $form->{old_callback} = $form->{callback};
1600     $callback             = $form->{callback};
1601     $form->{callback}     = "$form->{script}?action=display_form";
1602
1603     # delete action
1604     map { delete $form->{$_} } qw(action header);
1605
1606     # save form variables in a previousform variable
1607     $previousform = $form->escape($form->escape(join '&', map {
1608       sprintf "%s=%s", Q($_), /^listprice|lastcost|sellprice$/ ? $form->format_amount(\%myconfig, $form->{$_}) : $form->{$_}
1609     } grep { ref $form->{$_} eq '' && $form->{$_} } grep { !/^select/ } sort keys %$form ));
1610
1611     $form->{callback} = $callback;
1612     $form->{assemblytotal} = 0;
1613     $form->{assembly_purchase_price_total} = 0;
1614     $form->{weight}        = 0;
1615   }
1616
1617   my %header = (
1618    runningnumber => { text =>  $locale->text('No.'),              nowrap => 1, width => '5%'  },
1619    qty           => { text =>  $locale->text('Qty'),              nowrap => 1, width => '10%' },
1620    unit          => { text =>  $locale->text('Unit'),             nowrap => 1, width => '5%'  },
1621    partnumber    => { text =>  $locale->text('Part Number'),      nowrap => 1, width => '20%' },
1622    description   => { text =>  $locale->text('Part Description'), nowrap => 1, width => '50%' },
1623    lastcost      => { text =>  $locale->text('Purchase Prices'),  nowrap => 1, width => '50%' },
1624    total         => { text =>  $locale->text('Sale Prices'),      nowrap => 1,                },
1625    bom           => { text =>  $locale->text('BOM'),                                          },
1626    partsgroup    => { text =>  $locale->text('Group'),                                        },
1627   );
1628
1629   my @ROWS;
1630
1631   for my $i (1 .. $numrows) {
1632     my (%row, @row_hiddens);
1633
1634     $form->{"partnumber_$i"} =~ s/\"/&quot;/g;
1635
1636     $linetotal           = $form->round_amount($form->{"sellprice_$i"} * $form->{"qty_$i"} / ($form->{"price_factor_$i"} || 1), 4);
1637     $line_purchase_price = $form->round_amount($form->{"lastcost_$i"} *  $form->{"qty_$i"} / ($form->{"price_factor_$i"} || 1), 4);
1638     $form->{assemblytotal}                  += $linetotal;
1639     $form->{assembly_purchase_price_total}  += $line_purchase_price;
1640     $form->{"qty_$i"}    = $form->format_amount(\%myconfig, $form->{"qty_$i"});
1641     $linetotal           = $form->format_amount(\%myconfig, $linetotal, 2);
1642     $line_purchase_price = $form->format_amount(\%myconfig, $line_purchase_price, 2);
1643     $href                = qq|$form->{script}?action=edit&id=$form->{"id_$i"}&rowcount=$i&previousform=$previousform|;
1644     map { $row{$_}{data} = "" } qw(qty unit partnumber description bom partsgroup runningnumber);
1645
1646     # last row
1647     if (($i >= 1) && ($i == $numrows)) {
1648       if (!$form->{previousform}) {
1649         $row{partnumber}{data}  = qq|<input name="partnumber_$i" size=15 value="$form->{"partnumber_$i"}">|;
1650         $row{qty}{data}         = qq|<input name="qty_$i" size=5 value="$form->{"qty_$i"}">|;
1651         $row{description}{data} = qq|<input name="description_$i" size=40 value="$form->{"description_$i"}">|;
1652         $row{partsgroup}{data}  = qq|<input name="partsgroup_$i" size=10 value="$form->{"partsgroup_$i"}">|;
1653       }
1654     # other rows
1655     } else {
1656       if ($form->{previousform}) {
1657         push @row_hiddens,          qw(qty bom);
1658         $row{partnumber}{data}    = $form->{"partnumber_$i"};
1659         $row{qty}{data}           = $form->{"qty_$i"};
1660         $row{bom}{data}           = $form->{"bom_$i"} ? "x" : "&nbsp;";
1661         $row{qty}{align}          = 'right';
1662       } else {
1663         $row{partnumber}{data}    = qq|<a href=$href>$form->{"partnumber_$i"}</a>|;
1664         $row{qty}{data}           = qq|<input name="qty_$i" size=5 value="$form->{"qty_$i"}">|;
1665         $row{runningnumber}{data} = qq|<input name="runningnumber_$i" size=3 value="$i">|;
1666         $row{bom}{data}   = sprintf qq|<input name="bom_$i" type=checkbox class=checkbox value=1 %s>|,
1667                                        $form->{"bom_$i"} ? 'checked' : '';
1668       }
1669       push @row_hiddens,        qw(unit description partnumber partsgroup);
1670       $row{unit}{data}        = $form->{"unit_$i"};
1671       $row{description}{data} = $form->{"description_$i"};
1672       $row{partsgroup}{data}  = $form->{"partsgroup_$i"};
1673       $row{bom}{align}        = 'center';
1674     }
1675
1676     $row{lastcost}{data}      = $line_purchase_price;
1677     $row{total}{data}         = $linetotal;
1678     $row{deliverydate}{data}  = $deliverydate;
1679     $row{lastcost}{align}     = 'right';
1680     $row{total}{align}        = 'right';
1681     $row{deliverydate}{align} = 'right';
1682
1683     push @row_hiddens, qw(id sellprice lastcost weight price_factor_id price_factor);
1684     $row{hiddens} = [ map +{ name => "${_}_$i", value => $form->{"${_}_$i"} }, @row_hiddens ];
1685
1686     push @ROWS, \%row;
1687   }
1688
1689   print $form->parse_html_template('ic/assembly_row', { COLUMNS => \@column_index, ROWS => \@ROWS, HEADER => \%header });
1690
1691   $lxdebug->leave_sub();
1692 }
1693
1694 sub update {
1695   $lxdebug->enter_sub();
1696
1697   # parse pricegroups. and no, don't rely on check_form for this...
1698   map { $form->{"price_$_"} = $form->parse_amount(\%myconfig, $form->{"price_$_"}) } 1 .. $form->{price_rows};
1699
1700   if ($form->{item} eq "assembly") {
1701     my $i = $form->{assembly_rows};
1702
1703     # if last row is empty check the form otherwise retrieve item
1704     if (   ($form->{"partnumber_$i"} eq "")
1705         && ($form->{"description_$i"} eq "")
1706         && ($form->{"partsgroup_$i"}  eq "")) {
1707
1708       &check_form;
1709
1710     } else {
1711
1712       IC->assembly_item(\%myconfig, \%$form);
1713
1714       my $rows = scalar @{ $form->{item_list} };
1715
1716       if ($rows) {
1717         $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});
1718
1719         if ($rows > 1) {
1720           $form->{makemodel_rows}--;
1721           &select_item;
1722           exit;
1723         } else {
1724           map { $form->{item_list}[$i]{$_} =~ s/\"/&quot;/g }
1725             qw(partnumber description unit partsgroup);
1726           map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} }
1727             keys %{ $form->{item_list}[0] };
1728           $form->{"runningnumber_$i"} = $form->{assembly_rows};
1729           $form->{assembly_rows}++;
1730
1731           &check_form;
1732
1733         }
1734
1735       } else {
1736
1737         $form->{rowcount} = $i;
1738         $form->{assembly_rows}++;
1739
1740         &new_item;
1741
1742       }
1743     }
1744
1745   } elsif (($form->{item} eq 'part') || ($form->{item} eq 'service')) {
1746     &check_form;
1747   }
1748
1749   $lxdebug->leave_sub();
1750 }
1751
1752 sub save {
1753   $lxdebug->enter_sub();
1754
1755   $auth->assert('part_service_assembly_edit');
1756
1757   my ($parts_id, %newform, $previousform, $amount, $callback);
1758
1759   # check if there is a part number - commented out, cause there is an automatic allocation of numbers
1760   # $form->isblank("partnumber", $locale->text(ucfirst $form->{item}." Part Number missing!"));
1761
1762   # check if there is a description
1763   $form->isblank("description", $locale->text("Part Description missing!"));
1764
1765   $form->error($locale->text("Inventory quantity must be zero before you can set this $form->{item} obsolete!"))
1766     if $form->{obsolete} && $form->{onhand} * 1 && $form->{item} ne 'service';
1767
1768   if (!$form->{buchungsgruppen_id}) {
1769     $form->error($locale->text("Parts must have an entry type.") . " " .
1770      $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.")
1771     );
1772   }
1773
1774   $form->error($locale->text('Description must not be empty!')) unless $form->{description};
1775   $form->error($locale->text('Partnumber must not be set to empty!')) if $form->{id} && !$form->{partnumber};
1776
1777   # save part
1778   $lxdebug->message($LXDebug::DEBUG1, "ic.pl: sellprice in save = $form->{sellprice}\n");
1779   if (IC->save(\%myconfig, \%$form) == 3) {
1780     $form->error($locale->text('Partnumber not unique!'));
1781   }
1782   # saving the history
1783   if(!exists $form->{addition}) {
1784     $form->{snumbers} = qq|partnumber_| . $form->{partnumber};
1785     $form->{addition} = "SAVED";
1786     $form->save_history($form->dbconnect(\%myconfig));
1787   }
1788   # /saving the history
1789   $parts_id = $form->{id};
1790
1791   my $i;
1792   # load previous variables
1793   if ($form->{previousform}) {
1794
1795     # save the new form variables before splitting previousform
1796     map { $newform{$_} = $form->{$_} } keys %$form;
1797
1798     $previousform = $form->unescape($form->{previousform});
1799
1800     # don't trample on previous variables
1801     map { delete $form->{$_} } keys %newform;
1802
1803     my $ic_cvar_configs = CVar->get_configs(module => 'IC');
1804     my @ic_cvar_fields  = map { "cvar_$_->{name}" } @{ $ic_cvar_configs };
1805
1806     # now take it apart and restore original values
1807     foreach my $item (split /&/, $previousform) {
1808       my ($key, $value) = split m/=/, $item, 2;
1809       $value =~ s/%26/&/g;
1810       $form->{$key} = $value;
1811     }
1812     $form->{taxaccounts} = $newform{taxaccount2};
1813
1814     if ($form->{item} eq 'assembly') {
1815
1816       # undo number formatting
1817       map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) }
1818         qw(weight listprice sellprice rop);
1819
1820       $form->{assembly_rows}--;
1821       $i = $newform{rowcount};
1822       $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});
1823
1824       $form->{sellprice} -= $form->{"sellprice_$i"} * $form->{"qty_$i"};
1825       $form->{weight}    -= $form->{"weight_$i"} * $form->{"qty_$i"};
1826
1827       # change/add values for assembly item
1828       map { $form->{"${_}_$i"} = $newform{$_} } qw(partnumber description bin unit weight listprice sellprice inventory_accno income_accno expense_accno price_factor_id);
1829       map { $form->{"ic_${_}_$i"} = $newform{$_} } @ic_cvar_fields;
1830
1831       # das ist __voll__ bekloppt, dass so auszurechnen jb 22.5.09
1832       #$form->{sellprice} += $form->{"sellprice_$i"} * $form->{"qty_$i"};
1833       $form->{weight}    += $form->{"weight_$i"} * $form->{"qty_$i"};
1834
1835     } else {
1836
1837       # set values for last invoice/order item
1838       $i = $form->{rowcount};
1839       $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});
1840
1841       map { $form->{"${_}_$i"} = $newform{$_} } qw(partnumber description bin unit listprice inventory_accno income_accno expense_accno sellprice lastcost price_factor_id);
1842       map { $form->{"ic_${_}_$i"} = $newform{$_} } @ic_cvar_fields;
1843
1844       $form->{"longdescription_$i"} = $newform{notes};
1845
1846       $form->{"sellprice_$i"} = $newform{lastcost} if ($form->{vendor_id});
1847
1848       if ($form->{exchangerate} != 0) {
1849         $form->{"sellprice_$i"} /= $form->{exchangerate};
1850       }
1851
1852       $lxdebug->message($LXDebug::DEBUG1, qq|sellprice_$i in previousform 2 = | . $form->{"sellprice_$i"} . qq|\n|);
1853
1854       map { $form->{"taxaccounts_$i"} .= "$_ " } split / /, $newform{taxaccount};
1855       chop $form->{"taxaccounts_$i"};
1856       foreach my $item (qw(description rate taxnumber)) {
1857         my $index = $form->{"taxaccounts_$i"} . "_$item";
1858         $form->{$index} = $newform{$index};
1859       }
1860
1861       # credit remaining calculation
1862       $amount = $form->{"sellprice_$i"} * (1 - $form->{"discount_$i"} / 100) * $form->{"qty_$i"};
1863
1864       map { $form->{"${_}_base"} += $amount } (split / /, $form->{"taxaccounts_$i"});
1865       map { $amount += ($form->{"${_}_base"} * $form->{"${_}_rate"}) } split / /, $form->{"taxaccounts_$i"} if !$form->{taxincluded};
1866
1867       $form->{creditremaining} -= $amount;
1868
1869       # redo number formatting, because invoice parse them!
1870       map { $form->{"${_}_$i"} = $form->format_amount(\%myconfig, $form->{"${_}_$i"}) } qw(weight listprice sellprice rop);
1871     }
1872
1873     $form->{"id_$i"} = $parts_id;
1874
1875     # Get the actual price factor (not just the ID) for the marge calculation.
1876     $form->get_lists('price_factors' => 'ALL_PRICE_FACTORS');
1877     foreach my $pfac (@{ $form->{ALL_PRICE_FACTORS} }) {
1878       next if ($pfac->{id} != $newform{price_factor_id});
1879       $form->{"marge_price_factor_$i"} = $pfac->{factor};
1880       last;
1881     }
1882     delete $form->{ALL_PRICE_FACTORS};
1883
1884     delete $form->{action};
1885
1886     # restore original callback
1887     $callback = $form->unescape($form->{callback});
1888     $form->{callback} = $form->unescape($form->{old_callback});
1889     delete $form->{old_callback};
1890
1891     $form->{makemodel_rows}--;
1892
1893     # put callback together
1894     foreach my $key (keys %$form) {
1895
1896       # do single escape for Apache 2.0
1897       my $value = $form->escape($form->{$key}, 1);
1898       $callback .= qq|&$key=$value|;
1899     }
1900     $form->{callback} = $callback;
1901   }
1902   $lxdebug->message($LXDebug::DEBUG1, qq|ic.pl: sellprice_$i nach sub save = | . $form->{"sellprice_$i"} . qq|\n|);
1903
1904   # redirect
1905   $form->redirect;
1906
1907   $lxdebug->leave_sub();
1908 }
1909
1910 sub save_as_new {
1911   $lxdebug->enter_sub();
1912
1913   $auth->assert('part_service_assembly_edit');
1914
1915   # saving the history
1916   if(!exists $form->{addition}) {
1917     $form->{snumbers} = qq|partnumber_| . $form->{partnumber};
1918     $form->{addition} = "SAVED AS NEW";
1919     $form->save_history($form->dbconnect(\%myconfig));
1920   }
1921   # /saving the history
1922   $form->{id} = 0;
1923   if ($form->{"original_partnumber"} &&
1924       ($form->{"partnumber"} eq $form->{"original_partnumber"})) {
1925     $form->{partnumber} = "";
1926   }
1927   &save;
1928   $lxdebug->leave_sub();
1929 }
1930
1931 sub delete {
1932   $lxdebug->enter_sub();
1933
1934   $auth->assert('part_service_assembly_edit');
1935
1936   # saving the history
1937   if(!exists $form->{addition}) {
1938     $form->{snumbers} = qq|partnumber_| . $form->{partnumber};
1939     $form->{addition} = "DELETED";
1940     $form->save_history($form->dbconnect(\%myconfig));
1941   }
1942   # /saving the history
1943   my $rc = IC->delete(\%myconfig, \%$form);
1944
1945   # redirect
1946   $form->redirect($locale->text('Item deleted!')) if ($rc > 0);
1947   $form->error($locale->text('Cannot delete item!'));
1948
1949   $lxdebug->leave_sub();
1950 }
1951
1952 sub price_row {
1953   $lxdebug->enter_sub();
1954
1955   $auth->assert('part_service_assembly_edit');
1956
1957   my ($numrows) = @_;
1958
1959   my @PRICES = map +{
1960     pricegroup    => $form->{"pricegroup_$_"},
1961     pricegroup_id => $form->{"pricegroup_id_$_"},
1962     price         => $form->{"price_$_"},
1963   }, 1 .. $numrows;
1964
1965   print $form->parse_html_template('ic/price_row', { PRICES => \@PRICES });
1966
1967   $lxdebug->leave_sub();
1968 }
1969
1970 sub parts_language_selection {
1971   $lxdebug->enter_sub();
1972
1973   $auth->assert('part_service_assembly_edit');
1974
1975   our ($onload, $callback);
1976
1977   my $languages = IC->retrieve_languages(\%myconfig, $form);
1978
1979   if ($form->{language_values} ne "") {
1980     foreach my $item (split(/---\+\+\+---/, $form->{language_values})) {
1981       my ($language_id, $translation, $longdescription) = split(/--\+\+--/, $item);
1982
1983       foreach my $language (@{ $languages }) {
1984         next unless ($language->{id} == $language_id);
1985
1986         $language->{translation}     = $translation;
1987         $language->{longdescription} = $longdescription;
1988         last;
1989       }
1990     }
1991   }
1992
1993   my @header_sort = qw(name longdescription);
1994   my %header_title = ( "name" => $locale->text("Name"),
1995                        "longdescription" => $locale->text("Long Description"),
1996                        );
1997
1998   my @header =
1999     map(+{ "column_title" => $header_title{$_},
2000            "column" => $_,
2001            "callback" => $callback,
2002          },
2003         @header_sort);
2004
2005   $form->{"title"} = $locale->text("Language Values");
2006   $form->header();
2007   print $form->parse_html_template("ic/parts_language_selection", { "HEADER"    => \@header,
2008                                                                     "LANGUAGES" => $languages,
2009                                                                     "onload"    => $onload });
2010
2011   $lxdebug->leave_sub();
2012 }
2013
2014 sub ajax_autocomplete {
2015   $main::lxdebug->enter_sub();
2016
2017   my $form     = $main::form;
2018   my %myconfig = %main::myconfig;
2019
2020   $form->{column}          = 'description'     unless $form->{column} =~ /^partnumber|description$/;
2021   $form->{$form->{column}} = $form->{q}           || '';
2022   $form->{limit}           = ($form->{limit} * 1) || 10;
2023   $form->{searchitems}   ||= '';
2024
2025   my @results = IC->all_parts(\%myconfig, $form);
2026
2027   print $form->ajax_response_header(),
2028         $form->parse_html_template('ic/ajax_autocomplete');
2029
2030   $main::lxdebug->leave_sub();
2031 }
2032
2033 sub continue { call_sub($form->{"nextsub"}); }