Spool-Dateien: Handling vom wiederholten Spoolen desselben Beleges gefixt

[kivitendo-erp.git] / bin / mozilla / ic.pl
diff --git a/bin/mozilla/ic.pl b/bin/mozilla/ic.pl

index 8016874..b86623b 100644 (file)
--- a/bin/mozilla/ic.pl
+++ b/bin/mozilla/ic.pl
@@ -38,6 +38,7 @@ use List::MoreUtils qw(any);
  use SL::AM;
  use SL::CVar;
  use SL::IC;
+use SL::Helper::Flash;
  use SL::ReportGenerator;
  
  #use SL::PE;
@@ -288,7 +289,6 @@ sub update_prices {
  #  $form->header;
  #
  #  print qq|
-#<body>
  #  <form method=post action=ic.pl>
  #    <table width=100%>
  #     <tr>
@@ -388,7 +388,6 @@ sub update_prices {
  #    . $locale->text('TOP100') . qq|">
  #
  #</form>
-#</body>
  #|;
  #  $lxdebug->leave_sub();
  #}    #end list()
@@ -724,8 +723,6 @@ sub addtop100 {
    my $colspan = $#column_index + 1;
  
    print qq|
-<body>
-
  <table width=100%>
    <tr>
      <th class=listtop colspan=$colspan>$form->{title}</th>
@@ -980,8 +977,6 @@ sub addtop100 {
      . $locale->text('choice') . qq|">
  
    </form>
-
-</body>
  |;
  
    $lxdebug->leave_sub();
@@ -1030,6 +1025,7 @@ sub generate_report {
      'bin'                => { 'text' => $locale->text('Bin'), },
      'deliverydate'       => { 'text' => $locale->text('deliverydate'), },
      'description'        => { 'text' => $locale->text('Part Description'), },
+    'notes'              => { 'text' => $locale->text('Notes'), },
      'drawing'            => { 'text' => $locale->text('Drawing'), },
      'ean'                => { 'text' => $locale->text('EAN'), },
      'image'              => { 'text' => $locale->text('Image'), },
@@ -1212,7 +1208,7 @@ sub generate_report {
    IC->all_parts(\%myconfig, \%$form);
  
    my @columns = qw(
-    partnumber description partsgroup bin onhand rop soldtotal unit listprice
+    partnumber description notes partsgroup bin onhand rop soldtotal unit listprice
      linetotallistprice sellprice linetotalsellprice lastcost linetotallastcost
      priceupdate weight image drawing microfiche invnumber ordnumber quonumber
      transdate name serialnumber deliverydate ean projectnumber projectdescription
@@ -1590,6 +1586,10 @@ sub form_header {
    IC->retrieve_buchungsgruppen(\%myconfig, $form);
    @{ $form->{BUCHUNGSGRUPPEN} } = grep { $_->{id} eq $form->{buchungsgruppen_id} || ($form->{id} && $form->{orphaned}) || !$form->{id} } @{ $form->{BUCHUNGSGRUPPEN} };
  
+  if (!SL::TransNumber->new(number => $form->{partnumber}, type => $form->{item}, id => $form->{id})->is_unique) {
+    flash('info', $::locale->text('This partnumber is not unique. You should change it.'));
+  }
+
    # use JavaScript Calendar or not (yes!)
    $form->{jsscript} = 1;
  
@@ -1598,7 +1598,7 @@ sub form_header {
  
    $form->{defaults} = AM->get_defaults();
  
-  $form->{fokus} = "ic.partnumber";
+  $::request->{layout}->focus("#partnumber");
  
    $form->{CUSTOM_VARIABLES} = CVar->get_custom_variables('module' => 'IC', 'trans_id' => $form->{id});