Revision f5b11c75
Von Jan Büren vor mehr als 15 Jahren hinzugefügt
| bin/mozilla/io.pl | ||
|---|---|---|
| 92 | 92 |
use SL::AM; |
| 93 | 93 |
use Data::Dumper; |
| 94 | 94 |
|
| 95 |
#die variablen sind doch auch noch in anderen unterroutinen interessant: |
|
| 96 |
|
|
| 97 |
|
|
| 98 | 95 |
sub _check_io_auth {
|
| 99 | 96 |
$auth->assert('part_service_assembly_edit | vendor_invoice_edit | sales_order_edit | invoice_edit |' .
|
| 100 | 97 |
'request_quotation_edit | sales_quotation_edit | purchase_order_edit | ' . |
| ... | ... | |
| 417 | 414 |
if ($is_purchase){
|
| 418 | 415 |
$column_data{rop} =
|
| 419 | 416 |
qq|<th class="listheading">| . $locale->text('ROP') . qq|</th>|;
|
| 420 |
} |
|
| 417 |
}# ende if $is_purchase -> Überschrift Mindestlagerbestand - ähnliche Prüfung weiter unten
|
|
| 421 | 418 |
$column_data{onhand} =
|
| 422 | 419 |
qq|<th class="listheading">| . $locale->text('Qty') . qq|</th>|;
|
| 423 | 420 |
$column_data{unit} =
|
| ... | ... | |
| 485 | 482 |
qq|<td align="right"><input name="new_rop$i" type="hidden" value="$ref->{rop}">|
|
| 486 | 483 |
. $form->format_amount(\%myconfig, $ref->{rop}, '', " ")
|
| 487 | 484 |
. qq|</td>|; |
| 488 |
} # ende if oe.pl -> Falls der Aufruf über oe.pl kam, handelt es sich um einen Lieferantenauftrag und uns interessiert auch die Mindestbestandsmenge
|
|
| 485 |
}# ende if $is_purchase -> Falls der Aufruf über eine Einkaufsmaske kam, handelt es sich um einen Lieferantenauftrag und uns interessiert auch die Mindestbestandsmenge
|
|
| 489 | 486 |
$column_data{unit} =
|
| 490 | 487 |
qq|<td>$ref->{unit}</td>|;
|
| 491 | 488 |
$j++; |
| ... | ... | |
| 1143 | 1140 |
sub print {
|
| 1144 | 1141 |
$lxdebug->enter_sub(); |
| 1145 | 1142 |
|
| 1146 |
# einfach mal hier die sachen für aufrufen |
|
| 1147 |
|
|
| 1148 |
IC->prepare_parts_for_printing(); |
|
| 1149 |
|
|
| 1150 | 1143 |
_check_io_auth(); |
| 1151 | 1144 |
|
| 1152 | 1145 |
if ($form->{print_nextsub}) {
|
| ... | ... | |
| 1384 | 1377 |
} elsif ($order) {
|
| 1385 | 1378 |
OE->order_details(\%myconfig, \%$form); |
| 1386 | 1379 |
} else {
|
| 1387 |
|
|
| 1388 |
print(STDERR "davor"); |
|
| 1389 |
|
|
| 1390 | 1380 |
IS->invoice_details(\%myconfig, \%$form, $locale); |
| 1391 | 1381 |
} |
| 1392 | 1382 |
|
| ... | ... | |
| 1510 | 1500 |
delete $form->{OUT};
|
| 1511 | 1501 |
|
| 1512 | 1502 |
if ($form->{media} eq 'printer') {
|
| 1513 |
print (STDERR "io--------------------------------------"); |
|
| 1514 |
print (STDERR $form->{printer_command});
|
|
| 1515 |
#$form->{OUT} = "| $form->{printer_command} ";
|
|
| 1516 | 1503 |
$form->{OUT} = "| $form->{printer_command} &>/dev/null";
|
| 1517 | 1504 |
$form->{printed} .= " $form->{formname}";
|
| 1518 | 1505 |
$form->{printed} =~ s/^ //;
|
Auch abrufbar als: Unified diff
Häßlichen Debug-Code von vorhin entfernt.