Revision c364e43e
Von Peter Schulgin vor mehr als 8 Jahren hinzugefügt
| bin/mozilla/ic.pl | ||
|---|---|---|
|
$form->{lastsort} = ""; # memory for which table was sort at last time
|
||
|
$form->{ndxs_counter} = 0; # counter for added entries to top100
|
||
|
|
||
|
# for seach all possibibilities, is_service only used as UNLESS so == 0
|
||
|
my %is_xyz = ("is_part" => 1, "is_service" => 0, "is_assembly" =>1 );
|
||
|
my %is_xyz = map { +"is_$_" => ($form->{searchitems} eq $_) } qw(part service assembly);
|
||
|
|
||
|
$form->{title} = (ucfirst $form->{searchitems}) . "s";
|
||
|
$form->{title} =~ s/ys$/ies/;
|
||
|
$form->{title} = $locale->text($form->{title});
|
||
|
$form->{title} = $locale->text('Assemblies') if ($is_xyz{is_assembly});
|
||
|
|
||
|
$form->{CUSTOM_VARIABLES} = CVar->get_configs('module' => 'IC');
|
||
|
($form->{CUSTOM_VARIABLES_FILTER_CODE},
|
||
| ... | ... | |
|
# searchitems=part revers=0 lastsort=''
|
||
|
#
|
||
|
# filter:
|
||
|
# partnumber ean description partsgroup classification serialnumber make model drawing microfiche
|
||
|
# partnumber ean description partsgroup serialnumber make model drawing microfiche
|
||
|
# transdatefrom transdateto
|
||
|
#
|
||
|
# radio:
|
||
| ... | ... | |
|
'unit' => { 'text' => $locale->text('Unit'), },
|
||
|
'weight' => { 'text' => $locale->text('Weight'), },
|
||
|
'shop' => { 'text' => $locale->text('Shop article'), },
|
||
|
'type_and_classific' => { 'text' => $locale->text('Type'), },
|
||
|
'projectnumber' => { 'text' => $locale->text('Project Number'), },
|
||
|
'projectdescription' => { 'text' => $locale->text('Project Description'), },
|
||
|
);
|
||
| ... | ... | |
|
$form->{l_linetotallastcost} = $form->{searchitems} eq 'assembly' && !$form->{bom} ? "" : 'Y' if $form->{l_lastcost};
|
||
|
$form->{l_linetotallistprice} = "Y" if $form->{l_listprice};
|
||
|
}
|
||
|
$form->{"l_type_and_classific"} = "Y";
|
||
|
|
||
|
if ($form->{l_service} && !$form->{l_assembly} && !$form->{l_part}) {
|
||
|
if ($form->{searchitems} eq 'service') {
|
||
|
|
||
|
# remove bin, weight and rop from list
|
||
|
map { $form->{"l_$_"} = "" } qw(bin weight rop);
|
||
| ... | ... | |
|
IC->all_parts(\%myconfig, \%$form);
|
||
|
|
||
|
my @columns = qw(
|
||
|
partnumber type_and_classific description notes partsgroup bin onhand rop soldtotal unit listprice
|
||
|
partnumber description notes partsgroup bin onhand rop soldtotal unit listprice
|
||
|
linetotallistprice sellprice linetotalsellprice lastcost linetotallastcost
|
||
|
priceupdate weight image drawing microfiche invnumber ordnumber quonumber
|
||
|
transdate name serialnumber deliverydate ean projectnumber projectdescription
|
||
| ... | ... | |
|
|
||
|
my @hidden_variables = (
|
||
|
qw(l_subtotal l_linetotal searchitems itemstatus bom l_pricegroups insertdatefrom insertdateto),
|
||
|
qw(l_type_and_classific classification_id),
|
||
|
@itemstatus_keys,
|
||
|
@callback_keys,
|
||
|
map({ "cvar_$_->{name}" } @searchable_custom_variables),
|
||
| ... | ... | |
|
'part' => $locale->text('part_list'),
|
||
|
'service' => $locale->text('service_list'),
|
||
|
'assembly' => $locale->text('assembly_list'),
|
||
|
'article' => $locale->text('article_list'),
|
||
|
);
|
||
|
|
||
|
$report->set_options('raw_top_info_text' => $form->parse_html_template('ic/generate_report_top', { options => \@options }),
|
||
|
'raw_bottom_info_text' => $form->parse_html_template('ic/generate_report_bottom'),
|
||
|
'output_format' => 'HTML',
|
||
|
'title' => $form->{title},
|
||
|
'attachment_basename' => 'article_list' . strftime('_%Y%m%d', localtime time),
|
||
|
'attachment_basename' => $attachment_basenames{$form->{searchitems}} . strftime('_%Y%m%d', localtime time),
|
||
|
);
|
||
|
$report->set_options_from_form();
|
||
|
$locale->set_numberformat_wo_thousands_separator(\%myconfig) if lc($report->{options}->{output_format}) eq 'csv';
|
||
| ... | ... | |
|
map { $row->{$_}{link} = $ref->{$_} } qw(drawing microfiche);
|
||
|
|
||
|
$row->{notes}{data} = SL::HTML::Util->strip($ref->{notes});
|
||
|
$row->{type_and_classific}{data} = $::request->presenter->type_abbreviation($ref->{part_type}).
|
||
|
$::request->presenter->classification_abbreviation($ref->{classification_id});
|
||
|
|
||
|
$report->add_data($row);
|
||
|
|
||
| ... | ... | |
|
(!$next_ref->{assemblyitem} && ($same_item ne $next_ref->{ $form->{sort} })))) {
|
||
|
my $row = { map { $_ => { 'class' => 'listsubtotal', } } @columns };
|
||
|
|
||
|
if ( !$form->{l_assembly} || !$form->{bom}) {
|
||
|
if (($form->{searchitems} ne 'assembly') || !$form->{bom}) {
|
||
|
$row->{soldtotal}->{data} = $form->format_amount(\%myconfig, $subtotals{soldtotal});
|
||
|
}
|
||
|
|
||
| ... | ... | |
|
my ($column_index, $subtotalonhand, $subtotalsellprice, $subtotallastcost, $subtotallistprice) = @_;
|
||
|
|
||
|
map { $column_data{$_} = "<td> </td>" } @{ $column_index };
|
||
|
$$subtotalonhand = 0 if ($form->{l_assembly} && $form->{bom});
|
||
|
$$subtotalonhand = 0 if ($form->{searchitems} eq 'assembly' && $form->{bom});
|
||
|
|
||
|
$column_data{onhand} =
|
||
|
"<th class=listsubtotal align=right>"
|
||
| ... | ... | |
|
my (@column_index);
|
||
|
my ($nochange, $callback, $previousform, $linetotal, $line_purchase_price, $href);
|
||
|
|
||
|
@column_index = qw(runningnumber qty unit bom partnumber type_and_classific description partsgroup lastcost total);
|
||
|
@column_index = qw(runningnumber qty unit bom partnumber description partsgroup lastcost total);
|
||
|
|
||
|
if ($form->{previousform}) {
|
||
|
$nochange = 1;
|
||
|
@column_index = qw(qty unit bom partnumber type_and_classific description partsgroup total);
|
||
|
@column_index = qw(qty unit bom partnumber description partsgroup total);
|
||
|
} else {
|
||
|
|
||
|
# change callback
|
||
| ... | ... | |
|
}
|
||
|
|
||
|
my %header = (
|
||
|
runningnumber => { text => $locale->text('No.'), nowrap => 1, width => '5%', align => 'left',},
|
||
|
qty => { text => $locale->text('Qty'), nowrap => 1, width => '10%', align => 'left',},
|
||
|
unit => { text => $locale->text('Unit'), nowrap => 1, width => '5%', align => 'left',},
|
||
|
partnumber => { text => $locale->text('Part Number'), nowrap => 1, width => '20%', align => 'left',},
|
||
|
type_and_classific => { text => $locale->text('Typ'), nowrap => 1, width => '5%' , align => 'left',},
|
||
|
description => { text => $locale->text('Part Description'), nowrap => 1, width => '50%', align => 'left',},
|
||
|
lastcost => { text => $locale->text('Purchase Prices'), nowrap => 1, width => '45%', align => 'right',},
|
||
|
total => { text => $locale->text('Sale Prices'), nowrap => 1, align => 'right',},
|
||
|
bom => { text => $locale->text('BOM'), align => 'center',},
|
||
|
partsgroup => { text => $locale->text('Group'), align => 'left',},
|
||
|
runningnumber => { text => $locale->text('No.'), nowrap => 1, width => '5%', align => 'left',},
|
||
|
qty => { text => $locale->text('Qty'), nowrap => 1, width => '10%', align => 'left',},
|
||
|
unit => { text => $locale->text('Unit'), nowrap => 1, width => '5%', align => 'left',},
|
||
|
partnumber => { text => $locale->text('Part Number'), nowrap => 1, width => '20%', align => 'left',},
|
||
|
description => { text => $locale->text('Part Description'), nowrap => 1, width => '50%', align => 'left',},
|
||
|
lastcost => { text => $locale->text('Purchase Prices'), nowrap => 1, width => '50%', align => 'right',},
|
||
|
total => { text => $locale->text('Sale Prices'), nowrap => 1, align => 'right',},
|
||
|
bom => { text => $locale->text('BOM'), align => 'center',},
|
||
|
partsgroup => { text => $locale->text('Group'), align => 'left',},
|
||
|
);
|
||
|
|
||
|
my @ROWS;
|
||
| ... | ... | |
|
$linetotal = $form->format_amount(\%myconfig, $linetotal, 2);
|
||
|
$line_purchase_price = $form->format_amount(\%myconfig, $line_purchase_price, 2);
|
||
|
$href = build_std_url("action=edit", qq|id=$form->{"id_$i"}|, "rowcount=$numrows", "currow=$i", "previousform=$previousform");
|
||
|
map { $row{$_}{data} = "" } qw(qty unit partnumber typ_and_class description bom partsgroup runningnumber);
|
||
|
map { $row{$_}{data} = "" } qw(qty unit partnumber description bom partsgroup runningnumber);
|
||
|
|
||
|
# last row
|
||
|
if (($i >= 1) && ($i == $numrows)) {
|
||
| ... | ... | |
|
$row{qty}{align} = 'right';
|
||
|
} else {
|
||
|
$row{partnumber}{data} = qq|$form->{"partnumber_$i"}|;
|
||
|
$row{partnumber}{link} = $href;
|
||
|
$row{partnumber}{link} = $href;
|
||
|
$row{qty}{data} = qq|<input name="qty_$i" size=5 value="$form->{"qty_$i"}">|;
|
||
|
$row{runningnumber}{data} = qq|<input name="runningnumber_$i" size=3 value="$i">|;
|
||
|
$row{bom}{data} = sprintf qq|<input name="bom_$i" type=checkbox class=checkbox value=1 %s>|,
|
||
|
$form->{"bom_$i"} ? 'checked' : '';
|
||
|
}
|
||
|
# type impl $row{type_and_classific}{data} = $::request->presenter->type_abbreviation($form->{"type_$i"}).
|
||
|
$row{type_and_classific}{data} = $::request->presenter->type_abbreviation($form->{"assembly_$i"},$form->{"inventory_accno_id_$i"}).
|
||
|
$::request->presenter->classification_abbreviation($form->{"classification_id_$i"});
|
||
|
push @row_hiddens, qw(unit description partnumber partsgroup);
|
||
|
$row{unit}{data} = $form->{"unit_$i"};
|
||
|
#Bei der Artikelbeschreibung und Warengruppe können Sonderzeichen verwendet
|
||
Auch abrufbar als: Unified diff
Revert "Artikel-Klassifizierung"
This reverts commit 5067d7bd31514962af9730b33323b831d87164f8.