X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=bin%2Fmozilla%2Fio.pl;h=c2f789a0145ee86898a85e558c8569e573f589fc;hb=358f1ed4ec3370dd9ffc7cb9505e7960fa719205;hp=6b1e114c3139b629150491bf5ada996524a272cf;hpb=4091b37c72307f33791bb7dadb922152f70e6760;p=kivitendo-erp.git

diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl
index 6b1e114c3..c2f789a01 100644
--- a/bin/mozilla/io.pl
+++ b/bin/mozilla/io.pl
@@ -92,9 +92,6 @@ use SL::PE;
 use SL::AM;
 use Data::Dumper;
 
-#die variablen sind doch auch noch in anderen unterroutinen interessant:
-
-
 sub _check_io_auth {
   $auth->assert('part_service_assembly_edit   | vendor_invoice_edit       | sales_order_edit    | invoice_edit |' .
                 'request_quotation_edit       | sales_quotation_edit      | purchase_order_edit | ' .
@@ -293,7 +290,12 @@ sub display_row {
     $column_data{bin}         = $form->{"bin_$i"};
 
     if ($is_delivery_order) {
-      $column_data{stock_in_out} = (!$form->{"assembly_$i"} && $form->{"inventory_accno_$i"}) ? calculate_stock_in_out($i) : ' ';
+      # $column_data{stock_in_out} =  $form->{"inventory_accno_$i"} ? calculate_stock_in_out($i) : ' ';
+      # $main::lxdebug->dump(0, "debug", $form->{"inventory_accno_$i"});
+      # meine debug-analyse war negativ (s.o.) - die variable war weder bei dienstleistung, erzeugnis noch ware gefüllt.
+      # bitte korrigieren, falls ich hier falsch liege. jb 19.3.2009
+
+      $column_data{stock_in_out} =  calculate_stock_in_out($i);
     }
 
     my @ROW1 = map { value => $column_data{$_}, align => $align{$_}, nowrap => $nowrap{$_} }, @column_index;
@@ -417,7 +419,7 @@ sub select_item {
     if ($is_purchase){ 
       $column_data{rop} =
       qq|<th class="listheading">| . $locale->text('ROP') . qq|</th>|;
-    }
+    }# ende if $is_purchase -> Überschrift Mindestlagerbestand - ähnliche Prüfung weiter unten
   $column_data{onhand} =
     qq|<th class="listheading">| . $locale->text('Qty') . qq|</th>|;
   $column_data{unit} =
@@ -485,7 +487,7 @@ sub select_item {
       qq|<td align="right"><input name="new_rop$i" type="hidden" value="$ref->{rop}">|
       . $form->format_amount(\%myconfig, $ref->{rop}, '', "&nbsp;")
       . qq|</td>|;
-    } # ende if oe.pl -> Falls der Aufruf über oe.pl kam, handelt es sich um einen Lieferantenauftrag und uns interessiert auch die Mindestbestandsmenge
+    }# ende if $is_purchase -> Falls der Aufruf über eine Einkaufsmaske kam, handelt es sich um einen Lieferantenauftrag und uns interessiert auch die Mindestbestandsmenge
     $column_data{unit} =
       qq|<td>$ref->{unit}</td>|;
     $j++;
@@ -1143,10 +1145,6 @@ sub print_options {
 sub print {
   $lxdebug->enter_sub();
 
-# einfach mal hier die sachen für aufrufen
-
-  IC->prepare_parts_for_printing();
-
   _check_io_auth();
 
   if ($form->{print_nextsub}) {
@@ -1384,9 +1382,6 @@ sub print_form {
   } elsif ($order) {
     OE->order_details(\%myconfig, \%$form);
   } else {
-
-print(STDERR "davor");
-
     IS->invoice_details(\%myconfig, \%$form, $locale);
   }
 
@@ -1510,10 +1505,8 @@ print(STDERR "davor");
   delete $form->{OUT};
 
   if ($form->{media} eq 'printer') {
-    print (STDERR "io--------------------------------------");
-    print (STDERR  $form->{printer_command});
-    #$form->{OUT} = "| $form->{printer_command} ";
-    $form->{OUT} = "| $form->{printer_command} &>/dev/null";
+    #$form->{OUT} = "| $form->{printer_command} &>/dev/null";
+    $form->{OUT} = "| $form->{printer_command} ";
     $form->{printed} .= " $form->{formname}";
     $form->{printed} =~ s/^ //;
   }