Änderbarkeit und Löschbarkeit von Belegen in Mandantenkonfiguration einstellbar.

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

index 3324551f6af643d1353202ef407d039fed730ab2..20c670ca39103f05f76c8c4ca40d357517f7394c 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);
      };
  
  
      };
  
  
@@ -1600,7 +1593,7 @@ sub form_header {
  
    $form->{defaults} = AM->get_defaults();
  
  
    $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});
  
  
    $form->{CUSTOM_VARIABLES} = CVar->get_custom_variables('module' => 'IC', 'trans_id' => $form->{id});