Revision da804bf2
Von G. Richardson vor mehr als 14 Jahren hinzugefügt
| bin/mozilla/do.pl | ||
|---|---|---|
| 235 | 235 |
$form->{"reqdate_$i"} = $form->{"deliverydate_$i"} unless $form->{"reqdate_$i"};
|
| 236 | 236 |
|
| 237 | 237 |
$form->{"sellprice_$i"} = $form->format_amount(\%myconfig, $form->{"sellprice_$i"}, $decimalplaces);
|
| 238 |
$form->{"lastcost_$i"} = $form->format_amount(\%myconfig, $form->{"lastcost_$i"}, $decimalplaces);
|
|
| 238 | 239 |
|
| 239 | 240 |
(my $dec_qty) = ($form->{"qty_$i"} =~ /\.(\d+)/);
|
| 240 | 241 |
$dec_qty = length $dec_qty; |
| ... | ... | |
| 374 | 375 |
|
| 375 | 376 |
$form->{"marge_price_factor_$i"} = $form->{item_list}->[0]->{price_factor};
|
| 376 | 377 |
$form->{"sellprice_$i"} = $form->format_amount(\%myconfig, $form->{"sellprice_$i"});
|
| 378 |
$form->{"lastcost_$i"} = $form->format_amount(\%myconfig, $form->{"lastcost_$i"});
|
|
| 377 | 379 |
$form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"});
|
| 378 | 380 |
} |
| 379 | 381 |
|
| ... | ... | |
| 736 | 738 |
# und keinen anderen discount wert an $i ... |
| 737 | 739 |
$form->{"discount_$i"} ||= $form->{discount}*100; # ... nehmen wir den kundenrabatt
|
| 738 | 740 |
} |
| 739 |
map { $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig, $form->{"${_}_${i}"}) if $form->{"${_}_${i}"} } qw(ship qty sellprice listprice basefactor);
|
|
| 741 |
map { $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig, $form->{"${_}_${i}"}) if $form->{"${_}_${i}"} } qw(ship qty sellprice listprice lastcost basefactor);
|
|
| 740 | 742 |
} |
| 741 | 743 |
|
| 742 | 744 |
$form->{type} = "invoice";
|
| ... | ... | |
| 769 | 771 |
$form->{"deliverydate_$i"} = $form->{"reqdate_$i"}
|
| 770 | 772 |
unless $form->{"deliverydate_$i"};
|
| 771 | 773 |
|
| 774 |
|
|
| 772 | 775 |
$form->{"sellprice_$i"} =
|
| 773 | 776 |
$form->format_amount(\%myconfig, $form->{"sellprice_$i"},
|
| 774 | 777 |
$decimalplaces); |
| 775 | 778 |
|
| 779 |
$form->{"lastcost_$i"} =
|
|
| 780 |
$form->format_amount(\%myconfig, $form->{"lastcost_$i"},
|
|
| 781 |
$decimalplaces); |
|
| 782 |
|
|
| 776 | 783 |
(my $dec_qty) = ($form->{"qty_$i"} =~ /\.(\d+)/);
|
| 777 | 784 |
$dec_qty = length $dec_qty; |
| 778 | 785 |
$form->{"qty_$i"} =
|
Auch abrufbar als: Unified diff
EK-Preis editierbar gemacht und marge_total repariert
Der EK-Preis ist jetzt in Angebot/Auftrag/Rechnung editierbar.
Dies ist praktisch für Händler/Wiederverkäufer, bei denen sich der EK-Preis
häufig ändert, und es sich nicht lohnt, diesen in den Stammdaten zu pflegen.
Der EK-Preis wird (als lastcost) zusammen mit marge_total und marge_percent für
jeden Artikel in orderitems/invoice in der DB gespeichert. (Bei marge_total gab
es hier einen Bug, der falsche Variablenname wurde benutzt und marge_total war
immer leer.)
Der Stammdaten-EK-Preis wird nicht verändert, wenn man einen abweichenden
EK-Preis eingibt.