Menüvariante "Oben (mit CSS, neu)" bei Stilvorlage "lx-office" nicht verdeckt lassen

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

index 1eddce3b252d4963cfa4e94069b0570945b9491d..2cbad4f62ce5b38f9a60809d72e8cb771c90c71c 100644 (file)
--- a/bin/mozilla/ic.pl
+++ b/bin/mozilla/ic.pl
@@ -288,7 +288,6 @@ sub update_prices {
  #  $form->header;
  #
  #  print qq|
  #  $form->header;
  #
  #  print qq|
-#<body>
  #  <form method=post action=ic.pl>
  #    <table width=100%>
  #     <tr>
  #  <form method=post action=ic.pl>
  #    <table width=100%>
  #     <tr>
@@ -388,8 +387,6 @@ sub update_prices {
  #    . $locale->text('TOP100') . qq|">
  #
  #</form>
  #    . $locale->text('TOP100') . qq|">
  #
  #</form>
-#</body>
-#</html>
  #|;
  #  $lxdebug->leave_sub();
  #}    #end list()
  #|;
  #  $lxdebug->leave_sub();
  #}    #end list()
@@ -725,8 +722,6 @@ sub addtop100 {
    my $colspan = $#column_index + 1;
  
    print qq|
    my $colspan = $#column_index + 1;
  
    print qq|
-<body>
-
  <table width=100%>
    <tr>
      <th class=listtop colspan=$colspan>$form->{title}</th>
  <table width=100%>
    <tr>
      <th class=listtop colspan=$colspan>$form->{title}</th>
@@ -981,9 +976,6 @@ sub addtop100 {
      . $locale->text('choice') . qq|">
  
    </form>
      . $locale->text('choice') . qq|">
  
    </form>
-
-</body>
-</html>
  |;
  
    $lxdebug->leave_sub();
  |;
  
    $lxdebug->leave_sub();
@@ -1032,6 +1024,7 @@ sub generate_report {
      'bin'                => { 'text' => $locale->text('Bin'), },
      'deliverydate'       => { 'text' => $locale->text('deliverydate'), },
      'description'        => { 'text' => $locale->text('Part Description'), },
      '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'), },
      'drawing'            => { 'text' => $locale->text('Drawing'), },
      'ean'                => { 'text' => $locale->text('EAN'), },
      'image'              => { 'text' => $locale->text('Image'), },
@@ -1214,7 +1207,7 @@ sub generate_report {
    IC->all_parts(\%myconfig, \%$form);
  
    my @columns = qw(
    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
      linetotallistprice sellprice linetotalsellprice lastcost linetotallastcost
      priceupdate weight image drawing microfiche invnumber ordnumber quonumber
      transdate name serialnumber deliverydate ean projectnumber projectdescription
@@ -1331,11 +1324,11 @@ sub generate_report {
      $row->{description}->{link} = $edit_link;
  
      foreach (qw(sellprice listprice lastcost)) {
      $row->{description}->{link} = $edit_link;
  
      foreach (qw(sellprice listprice lastcost)) {
-      $row->{$_}{data}            = $form->format_amount(\%myconfig, $ref->{$_}, -2);
+      $row->{$_}{data}            = $form->format_amount(\%myconfig, $ref->{$_}, 2);
        $row->{"linetotal$_"}{data} = $form->format_amount(\%myconfig, $ref->{onhand} * $ref->{$_}, 2);
      }
      foreach ( @pricegroup_columns ) {
        $row->{"linetotal$_"}{data} = $form->format_amount(\%myconfig, $ref->{onhand} * $ref->{$_}, 2);
      }
      foreach ( @pricegroup_columns ) {
-      $row->{$_}{data}            = $form->format_amount(\%myconfig, $ref->{"$_"}, -2);
+      $row->{$_}{data}            = $form->format_amount(\%myconfig, $ref->{"$_"}, 2);
      };
  
  
      };
  
  
@@ -1841,7 +1834,6 @@ sub save {
    $form->error($locale->text('Partnumber must not be set to empty!')) if $form->{id} && !$form->{partnumber};
  
    # save part
    $form->error($locale->text('Partnumber must not be set to empty!')) if $form->{id} && !$form->{partnumber};
  
    # save part
-  $lxdebug->message($LXDebug::DEBUG1, "ic.pl: sellprice in save = $form->{sellprice}\n");
    if (IC->save(\%myconfig, \%$form) == 3) {
      $form->error($locale->text('Partnumber not unique!'));
    }
    if (IC->save(\%myconfig, \%$form) == 3) {
      $form->error($locale->text('Partnumber not unique!'));
    }
@@ -1909,8 +1901,6 @@ sub save {
          $form->{"sellprice_$i"} /= $form->{exchangerate};
        }
  
          $form->{"sellprice_$i"} /= $form->{exchangerate};
        }
  
-      $lxdebug->message($LXDebug::DEBUG1, qq|sellprice_$i in previousform 2 = | . $form->{"sellprice_$i"} . qq|\n|);
-
        map { $form->{"taxaccounts_$i"} .= "$_ " } split / /, $newform{taxaccount};
        chop $form->{"taxaccounts_$i"};
        foreach my $item (qw(description rate taxnumber)) {
        map { $form->{"taxaccounts_$i"} .= "$_ " } split / /, $newform{taxaccount};
        chop $form->{"taxaccounts_$i"};
        foreach my $item (qw(description rate taxnumber)) {
@@ -1959,7 +1949,6 @@ sub save {
      }
      $form->{callback} = $callback;
    }
      }
      $form->{callback} = $callback;
    }
-  $lxdebug->message($LXDebug::DEBUG1, qq|ic.pl: sellprice_$i nach sub save = | . $form->{"sellprice_$i"} . qq|\n|);
  
    # redirect
    $form->redirect;
  
    # redirect
    $form->redirect;