X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fio.pl;h=771b29b6e491234f3e28feb342dcfb533be1bd9d;hb=dd88b40826189b57d3b816320d645f1517b020d2;hp=6b1e114c3139b629150491bf5ada996524a272cf;hpb=4091b37c72307f33791bb7dadb922152f70e6760;p=kivitendo-erp.git
diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl
index 6b1e114c3..771b29b6e 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 | ' .
@@ -417,7 +414,7 @@ sub select_item {
if ($is_purchase){
$column_data{rop} =
qq|
| . $locale->text('ROP') . qq| |;
- }
+ }# ende if $is_purchase -> Ãberschrift Mindestlagerbestand - ähnliche Prüfung weiter unten
$column_data{onhand} =
qq|| . $locale->text('Qty') . qq| |;
$column_data{unit} =
@@ -485,7 +482,7 @@ sub select_item {
qq| |
. $form->format_amount(\%myconfig, $ref->{rop}, '', " ")
. qq| |;
- } # 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|$ref->{unit} |;
$j++;
@@ -1143,10 +1140,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 +1377,6 @@ sub print_form {
} elsif ($order) {
OE->order_details(\%myconfig, \%$form);
} else {
-
-print(STDERR "davor");
-
IS->invoice_details(\%myconfig, \%$form, $locale);
}
@@ -1510,9 +1500,6 @@ 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->{printed} .= " $form->{formname}";
$form->{printed} =~ s/^ //;