Revision 8470071b
Von G. Richardson vor mehr als 12 Jahren hinzugefügt
| SL/IC.pm | ||
|---|---|---|
|
$form->{parts} = \@assemblies;
|
||
|
}
|
||
|
|
||
|
if ($form->{l_pricegroups} ) {
|
||
|
my $query = <<SQL;
|
||
|
SELECT parts_id, price, pricegroup_id
|
||
|
FROM prices
|
||
|
WHERE parts_id = ?
|
||
|
SQL
|
||
|
|
||
|
my $sth = prepare_query($form, $dbh, $query);
|
||
|
|
||
|
foreach my $part (@{ $form->{parts} }) {
|
||
|
do_statement($form, $sth, $query, conv_i($part->{id}));
|
||
|
|
||
|
while (my $ref = $sth->fetchrow_hashref("NAME_lc")) {
|
||
|
$part->{"pricegroup_$ref->{pricegroup_id}"} = $ref->{price};
|
||
|
}
|
||
|
$sth->finish;
|
||
|
}
|
||
|
};
|
||
|
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
|
|
||
|
return wantarray ? @{ $form->{parts} } : $form->{parts};
|
||
| bin/mozilla/ic.pl | ||
|---|---|---|
|
# bought sold onorder ordered rfq quoted
|
||
|
# l_partnumber l_description l_serialnumber l_unit l_listprice l_sellprice l_lastcost
|
||
|
# l_linetotal l_priceupdate l_bin l_rop l_weight l_image l_drawing l_microfiche
|
||
|
# l_partsgroup l_subtotal l_soldtotal l_deliverydate
|
||
|
# l_partsgroup l_subtotal l_soldtotal l_deliverydate l_pricegroups
|
||
|
#
|
||
|
# hiddens:
|
||
|
# nextsub revers lastsort sort ndxs_counter
|
||
| ... | ... | |
|
transdate name serialnumber deliverydate ean projectnumber projectdescription
|
||
|
);
|
||
|
|
||
|
my $pricegroups = SL::DB::Manager::Pricegroup->get_all(sort => 'id');
|
||
|
my @pricegroup_columns;
|
||
|
my %column_defs_pricegroups;
|
||
|
if ($form->{l_pricegroups}) {
|
||
|
@pricegroup_columns = map { "pricegroup_" . $_->id } @{ $pricegroups };
|
||
|
%column_defs_pricegroups = map {
|
||
|
"pricegroup_" . $_->id => {
|
||
|
text => $::locale->text('Pricegroup') . ' ' . $_->pricegroup,
|
||
|
visible => 1,
|
||
|
},
|
||
|
} @{ $pricegroups };
|
||
|
}
|
||
|
push @columns, @pricegroup_columns;
|
||
|
|
||
|
my @includeable_custom_variables = grep { $_->{includeable} } @{ $cvar_configs };
|
||
|
my @searchable_custom_variables = grep { $_->{searchable} } @{ $cvar_configs };
|
||
|
my %column_defs_cvars = map { +"cvar_$_->{name}" => { 'text' => $_->{description} } } @includeable_custom_variables;
|
||
|
|
||
|
push @columns, map { "cvar_$_->{name}" } @includeable_custom_variables;
|
||
|
|
||
|
%column_defs = (%column_defs,%column_defs_cvars); # nochmal die cvars als überschrift hinzufügen
|
||
|
map { $column_defs{$_}->{visible} = $form->{"l_$_"} ? 1 : 0 } @columns;
|
||
|
map { $column_defs{$_}->{align} = 'right' } qw(onhand sellprice listprice lastcost linetotalsellprice linetotallastcost linetotallistprice rop weight soldtotal);
|
||
|
%column_defs = (%column_defs, %column_defs_cvars, %column_defs_pricegroups);
|
||
|
map { $column_defs{$_}->{visible} ||= $form->{"l_$_"} ? 1 : 0 } @columns;
|
||
|
map { $column_defs{$_}->{align} = 'right' } qw(onhand sellprice listprice lastcost linetotalsellprice linetotallastcost linetotallistprice rop weight soldtotal), @pricegroup_columns;
|
||
|
|
||
|
my @hidden_variables = (qw(l_subtotal l_linetotal searchitems itemstatus bom), @itemstatus_keys, @callback_keys,
|
||
|
my @hidden_variables = (qw(l_subtotal l_linetotal searchitems itemstatus bom l_pricegroups), @itemstatus_keys, @callback_keys,
|
||
|
map({ "cvar_$_->{name}" } @searchable_custom_variables), map { "l_$_" } @columns);
|
||
|
|
||
|
my $callback = build_std_url('action=generate_report', grep { $form->{$_} } @hidden_variables);
|
||
|
|
||
|
my @sort_full = qw(partnumber description onhand soldtotal deliverydate);
|
||
| ... | ... | |
|
$row->{$_}{data} = $form->format_amount(\%myconfig, $ref->{$_}, -2);
|
||
|
$row->{"linetotal$_"}{data} = $form->format_amount(\%myconfig, $ref->{onhand} * $ref->{$_}, 2);
|
||
|
}
|
||
|
foreach ( @pricegroup_columns ) {
|
||
|
$row->{$_}{data} = $form->format_amount(\%myconfig, $ref->{"$_"}, -2);
|
||
|
};
|
||
|
|
||
|
|
||
|
map { $row->{$_}{data} = $form->format_amount(\%myconfig, $ref->{$_}); } qw(onhand rop weight soldtotal);
|
||
|
|
||
| templates/webpages/ic/search.html | ||
|---|---|---|
|
<input name="l_projectdescription" id="l_projectdescription" class="checkbox" type="checkbox" value="Y">
|
||
|
<label for="l_projectdescription">[% 'Project Description' | $T8 %]</label>
|
||
|
</td>
|
||
|
<td>
|
||
|
<input name="l_pricegroups" id="l_pricegroups" class="checkbox" type="checkbox" value="Y" checked>
|
||
|
<label for="l_pricegroups">[% 'Pricegroups' | $T8 %]</label>
|
||
|
</td>
|
||
|
</tr>
|
||
|
|
||
|
[% CUSTOM_VARIABLES_INCLUSION_CODE %]
|
||
Auch abrufbar als: Unified diff
Preisgruppen in all_parts Lieferanten
(Implementierung grösstenteils von Geoffrey, leicht modifiziert von mir)