Revision 5fc3e9ba
Von Sven Schöling vor etwa 15 Jahren hinzugefügt
| bin/mozilla/io.pl | ||
|---|---|---|
| 52 | 52 |
if (-f "bin/mozilla/custom_io.pl") {
|
| 53 | 53 |
eval { require "bin/mozilla/custom_io.pl"; };
|
| 54 | 54 |
} |
| 55 |
if (-f "bin/mozilla/$form->{login}_io.pl") {
|
|
| 56 |
eval { require "bin/mozilla/$form->{login}_io.pl"; };
|
|
| 55 |
if (-f "bin/mozilla/$::form->{login}_io.pl") {
|
|
| 56 |
eval { require "bin/mozilla/$::form->{login}_io.pl"; };
|
|
| 57 | 57 |
} |
| 58 | 58 |
|
| 59 | 59 |
1; |
| ... | ... | |
| 93 | 93 |
use Data::Dumper; |
| 94 | 94 |
|
| 95 | 95 |
sub _check_io_auth {
|
| 96 |
$auth->assert('part_service_assembly_edit | vendor_invoice_edit | sales_order_edit | invoice_edit |' .
|
|
| 96 |
$main::auth->assert('part_service_assembly_edit | vendor_invoice_edit | sales_order_edit | invoice_edit |' .
|
|
| 97 | 97 |
'request_quotation_edit | sales_quotation_edit | purchase_order_edit | ' . |
| 98 | 98 |
'purchase_delivery_order_edit | sales_delivery_order_edit'); |
| 99 | 99 |
} |
| ... | ... | |
| 950 | 950 |
|
| 951 | 951 |
require "bin/mozilla/$form->{script}";
|
| 952 | 952 |
|
| 953 |
map { $form->{"select$_"} = "" } ($form->{vc}, currency);
|
|
| 953 |
map { $form->{"select$_"} = "" } ($form->{vc}, "currency");
|
|
| 954 | 954 |
|
| 955 | 955 |
$currency = $form->{currency};
|
| 956 | 956 |
|
| ... | ... | |
| 1981 | 1981 |
foreach my $cvar (@{ $form->{CVAR_CONFIGS}->{IC} }) {
|
| 1982 | 1982 |
$cvar->{valid} = $params{part_id}
|
| 1983 | 1983 |
? CVar->get_custom_variables_validity(config_id => $cvar->{id}, trans_id => $params{part_id})
|
| 1984 |
: 1;
|
|
| 1984 |
: 0;
|
|
| 1985 | 1985 |
|
| 1986 | 1986 |
$cvar->{value} = $form->{"ic_cvar_" . $cvar->{name} . "_$params{row}"};
|
| 1987 | 1987 |
} |
Auch abrufbar als: Unified diff
Custom VAriables: Bei noch nicht erkannten Waren die Custom Vars erstmal ausblenden (als invalid erkennen), bis das Gegenteil bekannt ist.