Revision c14aab2d
Von Moritz Bunkus vor mehr als 15 Jahren hinzugefügt
| bin/mozilla/ic.pl | ||
|---|---|---|
| 34 | 34 |
use POSIX qw(strftime); |
| 35 | 35 |
use List::Util qw(max); |
| 36 | 36 |
|
| 37 |
use SL::AM; |
|
| 37 | 38 |
use SL::IC; |
| 38 | 39 |
use SL::ReportGenerator; |
| 39 | 40 |
|
| ... | ... | |
| 1191 | 1192 |
my $idx = 0; |
| 1192 | 1193 |
my $same_item = $form->{parts}[0]{ $form->{sort} } if (scalar @{ $form->{parts} });
|
| 1193 | 1194 |
|
| 1195 |
my $defaults = AM->get_defaults(); |
|
| 1196 |
|
|
| 1194 | 1197 |
# postprocess parts |
| 1195 | 1198 |
foreach my $ref (@{ $form->{parts} }) {
|
| 1196 | 1199 |
|
| ... | ... | |
| 1223 | 1226 |
|
| 1224 | 1227 |
map { $row->{$_}{data} = $form->format_amount(\%myconfig, $ref->{$_}); } qw(onhand rop weight soldtotal);
|
| 1225 | 1228 |
|
| 1229 |
$row->{weight}->{data} .= ' ' . $defaults->{weightunit};
|
|
| 1230 |
|
|
| 1226 | 1231 |
if (!$ref->{assemblyitem}) {
|
| 1227 | 1232 |
foreach my $col (@subtotal_columns) {
|
| 1228 | 1233 |
$totals{$col} += $onhand * $ref->{$col};
|
| ... | ... | |
| 1460 | 1465 |
|
| 1461 | 1466 |
$form->get_lists('price_factors' => 'ALL_PRICE_FACTORS',
|
| 1462 | 1467 |
'partsgroup' => 'all_partsgroup', |
| 1463 |
'vendors' => 'ALL_VENDORS',);
|
|
| 1468 |
'vendors' => 'ALL_VENDORS',);
|
|
| 1464 | 1469 |
|
| 1465 | 1470 |
|
| 1466 | 1471 |
IC->retrieve_buchungsgruppen(\%myconfig, $form); |
| ... | ... | |
| 1472 | 1477 |
$units = AM->retrieve_units(\%myconfig, $form); |
| 1473 | 1478 |
$form->{ALL_UNITS} = [ map +{ name => $_ }, sort { $units->{$a}{sortkey} <=> $units->{$b}{sortkey} } keys %$units ];
|
| 1474 | 1479 |
|
| 1480 |
$form->{defaults} = AM->get_defaults();
|
|
| 1481 |
|
|
| 1475 | 1482 |
$form->{fokus} = "ic.partnumber";
|
| 1476 | 1483 |
|
| 1477 | 1484 |
$form->header; |
Auch abrufbar als: Unified diff
Das Feld "Gewichtseinheit" in den Einstellungen wieder eingeführt und in den Warenstammdaten- und -berichtsmasken angezeigt.
Fix für Bug 963.