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/^ //;