Revision 957896de
Von Moritz Bunkus vor etwa 17 Jahren hinzugefügt
| bin/mozilla/ic.pl | ||
|---|---|---|
| 1736 | 1736 |
# fresh row, for inserting later |
| 1737 | 1737 |
my $row = { map { $_ => { 'data' => $ref->{$_} } } @columns };
|
| 1738 | 1738 |
|
| 1739 |
$ref->{exchangerate} = 1 unless $ref->{exchangerate};
|
|
| 1740 |
$ref->{sellprice} *= $ref->{exchangerate};
|
|
| 1741 |
$ref->{listprice} *= $ref->{exchangerate};
|
|
| 1742 |
$ref->{lastcost} *= $ref->{exchangerate};
|
|
| 1739 |
$ref->{exchangerate} ||= 1;
|
|
| 1740 |
$ref->{price_factor} ||= 1;
|
|
| 1741 |
$ref->{sellprice} *= $ref->{exchangerate} / $ref->{price_factor};
|
|
| 1742 |
$ref->{listprice} *= $ref->{exchangerate} / $ref->{price_factor};
|
|
| 1743 |
$ref->{lastcost} *= $ref->{exchangerate} / $ref->{price_factor};
|
|
| 1743 | 1744 |
|
| 1744 | 1745 |
# use this for assemblies |
| 1745 | 1746 |
my $onhand = $ref->{onhand};
|
| ... | ... | |
| 1986 | 1987 |
my ($notdiscountableok, $notdiscountable); |
| 1987 | 1988 |
my ($formula, $formula_label, $imagelinks, $obsolete, $shopok, $shop); |
| 1988 | 1989 |
|
| 1990 |
$form->get_lists('price_factors' => 'ALL_PRICE_FACTORS');
|
|
| 1989 | 1991 |
|
| 1990 | 1992 |
map({ $form->{$_} = $form->format_amount(\%myconfig, $form->{$_}, -2) }
|
| 1991 | 1993 |
qw(sellprice listprice lastcost gv)); |
| ... | ... | |
| 2326 | 2328 |
$unit_select .= AM->unit_select_html($units, "unit", $form->{"unit"});
|
| 2327 | 2329 |
} |
| 2328 | 2330 |
|
| 2331 |
my $price_factor; |
|
| 2332 |
if (0 < scalar @{ $form->{ALL_PRICE_FACTORS} }) {
|
|
| 2333 |
my @values = ('', map { $_->{id} } @{ $form->{ALL_PRICE_FACTORS} });
|
|
| 2334 |
my %labels = map { $_->{id} => $_->{description} } @{ $form->{ALL_PRICE_FACTORS} };
|
|
| 2335 |
|
|
| 2336 |
$price_factor = |
|
| 2337 |
qq|<tr><th align="right">| |
|
| 2338 |
. $locale->text('Price Factor')
|
|
| 2339 |
. qq|</th><td>| |
|
| 2340 |
. NTI($cgi->popup_menu('-name' => 'price_factor_id',
|
|
| 2341 |
'-default' => $form->{price_factor_id},
|
|
| 2342 |
'-values' => \@values, |
|
| 2343 |
'-labels' => \%labels)) |
|
| 2344 |
. qq|</td></tr>|; |
|
| 2345 |
} |
|
| 2346 |
|
|
| 2329 | 2347 |
$form->{fokus} = "ic.partnumber";
|
| 2330 | 2348 |
$form->header; |
| 2331 | 2349 |
|
| ... | ... | |
| 2439 | 2457 |
<td><input name=sellprice size=11 value=$form->{sellprice}></td>
|
| 2440 | 2458 |
</tr> |
| 2441 | 2459 |
$lastcost |
| 2460 |
$price_factor |
|
| 2442 | 2461 |
<tr> |
| 2443 | 2462 |
<th align="right" nowrap="true">| . $locale->text('Unit') . qq|</th>
|
| 2444 | 2463 |
<td>$unit_select</td> |
| ... | ... | |
| 2892 | 2911 |
|
| 2893 | 2912 |
# now take it apart and restore original values |
| 2894 | 2913 |
foreach my $item (split /&/, $previousform) {
|
| 2895 |
my ($key, $value) = split /=/, $item, 2; |
|
| 2914 |
my ($key, $value) = split m/=/, $item, 2;
|
|
| 2896 | 2915 |
$value =~ s/%26/&/g; |
| 2897 | 2916 |
$form->{$key} = $value;
|
| 2898 | 2917 |
} |
Auch abrufbar als: Unified diff
Syntaxhighlightingerleichterung für Emacs