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 | ' .
$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;
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} =
qq|<td align="right"><input name="new_rop$i" type="hidden" value="$ref->{rop}">|
. $form->format_amount(\%myconfig, $ref->{rop}, '', " ")
. 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++;
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}) {
} elsif ($order) {
OE->order_details(\%myconfig, \%$form);
} else {
-
-print(STDERR "davor");
-
IS->invoice_details(\%myconfig, \%$form, $locale);
}
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/^ //;
}