Revision ca48cabb
Von Jan Büren vor mehr als 15 Jahren hinzugefügt
| bin/mozilla/io.pl | ||
|---|---|---|
| 689 | 689 |
|
| 690 | 690 |
} elsif ($form->{item} eq 'assembly') {
|
| 691 | 691 |
|
| 692 |
$form->{sellprice} = 0;
|
|
| 692 |
# fuer assemblies auskommentiert. seiteneffekte? ;-) wird die woanders benoetigt? |
|
| 693 |
#$form->{sellprice} = 0;
|
|
| 693 | 694 |
$form->{weight} = 0;
|
| 694 | 695 |
map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) }
|
| 695 | 696 |
qw(listprice rop stock); |
| ... | ... | |
| 708 | 709 |
|
| 709 | 710 |
#($form->{"sellprice_$i"},$form->{"$pricegroup_old_$i"}) = split /--/, $form->{"sellprice_$i"};
|
| 710 | 711 |
|
| 711 |
$form->{sellprice} += ($form->{"qty_$i"} * $form->{"sellprice_$i"} / ($form->{"price_factor_$i"} || 1));
|
|
| 712 |
# fuer assemblies auskommentiert. siehe oben |
|
| 713 |
# $form->{sellprice} += ($form->{"qty_$i"} * $form->{"sellprice_$i"} / ($form->{"price_factor_$i"} || 1));
|
|
| 712 | 714 |
$form->{weight} += ($form->{"qty_$i"} * $form->{"weight_$i"} / ($form->{"price_factor_$i"} || 1));
|
| 713 | 715 |
$count++; |
| 714 | 716 |
} |
| 715 | 717 |
} |
| 716 |
|
|
| 718 |
# kann das hier auch weg? s.o. jb |
|
| 717 | 719 |
$form->{sellprice} = $form->round_amount($form->{sellprice}, 2);
|
| 718 | 720 |
|
| 719 | 721 |
$form->redo_rows(\@flds, \@a, $count, $form->{assembly_rows});
|
Auch abrufbar als: Unified diff
Der Verkaufspreis bei Erzeugnissen wird automatisch berechnet. Das macht kaum Sinn, deswegen werfen wir die entsprechenden Zeilen aus check_form und save in io.pl und ic.pl weg