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