Revision 22a52f84
Von Bernd Bleßmann vor etwa 9 Jahren hinzugefügt
| bin/mozilla/ic.pl | ||
|---|---|---|
| 1045 | 1045 |
'transdate' => { 'text' => $locale->text('Transdate'), },
|
| 1046 | 1046 |
'unit' => { 'text' => $locale->text('Unit'), },
|
| 1047 | 1047 |
'weight' => { 'text' => $locale->text('Weight'), },
|
| 1048 |
'shop' => { 'text' => $locale->text('Shopartikel'), },
|
|
| 1048 | 1049 |
'projectnumber' => { 'text' => $locale->text('Project Number'), },
|
| 1049 | 1050 |
'projectdescription' => { 'text' => $locale->text('Project Description'), },
|
| 1050 | 1051 |
); |
| ... | ... | |
| 1133 | 1134 |
|
| 1134 | 1135 |
my @itemstatus_keys = qw(active obsolete orphaned onhand short); |
| 1135 | 1136 |
my @callback_keys = qw(onorder ordered rfq quoted bought sold partnumber partsgroup partsgroup_id serialnumber description make model |
| 1136 |
drawing microfiche l_soldtotal l_deliverydate transdatefrom transdateto ean); |
|
| 1137 |
drawing microfiche l_soldtotal l_deliverydate transdatefrom transdateto ean shop);
|
|
| 1137 | 1138 |
|
| 1138 | 1139 |
# calculate dependencies |
| 1139 | 1140 |
for (@itemstatus_keys, @callback_keys) {
|
| ... | ... | |
| 1219 | 1220 |
linetotallistprice sellprice linetotalsellprice lastcost linetotallastcost |
| 1220 | 1221 |
priceupdate weight image drawing microfiche invnumber ordnumber quonumber |
| 1221 | 1222 |
transdate name serialnumber deliverydate ean projectnumber projectdescription |
| 1223 |
shop |
|
| 1222 | 1224 |
); |
| 1223 | 1225 |
|
| 1224 | 1226 |
my $pricegroups = SL::DB::Manager::Pricegroup->get_all(sort => 'id'); |
| ... | ... | |
| 1243 | 1245 |
|
| 1244 | 1246 |
%column_defs = (%column_defs, %column_defs_cvars, %column_defs_pricegroups); |
| 1245 | 1247 |
map { $column_defs{$_}->{visible} ||= $form->{"l_$_"} ? 1 : 0 } @columns;
|
| 1246 |
map { $column_defs{$_}->{align} = 'right' } qw(onhand sellprice listprice lastcost linetotalsellprice linetotallastcost linetotallistprice rop weight soldtotal), @pricegroup_columns;
|
|
| 1248 |
map { $column_defs{$_}->{align} = 'right' } qw(onhand sellprice listprice lastcost linetotalsellprice linetotallastcost linetotallistprice rop weight soldtotal shop), @pricegroup_columns;
|
|
| 1247 | 1249 |
|
| 1248 | 1250 |
my @hidden_variables = ( |
| 1249 | 1251 |
qw(l_subtotal l_linetotal searchitems itemstatus bom l_pricegroups), |
| ... | ... | |
| 1256 | 1258 |
|
| 1257 | 1259 |
my $callback = build_std_url('action=generate_report', grep { $form->{$_} } @hidden_variables);
|
| 1258 | 1260 |
|
| 1259 |
my @sort_full = qw(partnumber description onhand soldtotal deliverydate); |
|
| 1261 |
my @sort_full = qw(partnumber description onhand soldtotal deliverydate shop);
|
|
| 1260 | 1262 |
my @sort_no_revers = qw(partsgroup bin priceupdate invnumber ordnumber quonumber name image drawing serialnumber); |
| 1261 | 1263 |
|
| 1262 | 1264 |
foreach my $col (@sort_full) {
|
| ... | ... | |
| 1350 | 1352 |
|
| 1351 | 1353 |
$row->{weight}->{data} .= ' ' . $defaults->{weightunit};
|
| 1352 | 1354 |
|
| 1355 |
# 'yes' and 'no' for boolean value shop |
|
| 1356 |
if ($form->{l_shop}) {
|
|
| 1357 |
$row->{shop}{data} = $row->{shop}{data}? $::locale->text('yes') : $::locale->text('no');
|
|
| 1358 |
} |
|
| 1359 |
|
|
| 1353 | 1360 |
if (!$ref->{assemblyitem}) {
|
| 1354 | 1361 |
foreach my $col (@subtotal_columns) {
|
| 1355 | 1362 |
$totals{$col} += $soldtotal * $ref->{$col};
|
Auch abrufbar als: Unified diff
Stammdaten->Berichte->Waren: Nach Shopartikel filtern und anzeigen können.