Revision ca6d3683
Von Sven Schöling vor mehr als 9 Jahren hinzugefügt
| bin/mozilla/do.pl | ||
|---|---|---|
| 424 | 424 |
|
| 425 | 425 |
} else {
|
| 426 | 426 |
|
| 427 |
my $sellprice = $form->parse_amount(\%myconfig, $form->{"sellprice_$i"});
|
|
| 428 |
|
|
| 427 | 429 |
map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} } keys %{ $form->{item_list}[0] };
|
| 428 | 430 |
|
| 429 | 431 |
$form->{"marge_price_factor_$i"} = $form->{item_list}->[0]->{price_factor};
|
| 432 |
|
|
| 433 |
if ($sellprice) {
|
|
| 434 |
$form->{"sellprice_$i"} = $sellprice;
|
|
| 435 |
} else {
|
|
| 436 |
my $record = _make_record(); |
|
| 437 |
my $price_source = SL::PriceSource->new(record_item => $record->items->[$i-1], record => $record); |
|
| 438 |
my $best_price = $price_source->best_price; |
|
| 439 |
my $best_discount = $price_source->best_discount; |
|
| 440 |
|
|
| 441 |
if ($best_price) {
|
|
| 442 |
$::form->{"sellprice_$i"} = $best_price->price;
|
|
| 443 |
$::form->{"active_price_source_$i"} = $best_price->source;
|
|
| 444 |
} |
|
| 445 |
if ($best_discount) {
|
|
| 446 |
$::form->{"discount_$i"} = $best_discount->discount;
|
|
| 447 |
$::form->{"active_discount_source_$i"} = $best_discount->source;
|
|
| 448 |
} |
|
| 449 |
} |
|
| 450 |
|
|
| 430 | 451 |
$form->{"sellprice_$i"} = $form->format_amount(\%myconfig, $form->{"sellprice_$i"});
|
| 431 |
$form->{"lastcost_$i"} = $form->format_amount(\%myconfig, $form->{"lastcost_$i"});
|
|
| 452 |
$form->{"lastcost_$i"} = $form->format_amount(\%myconfig, $form->{"lastcost_$i"});
|
|
| 432 | 453 |
$form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"});
|
| 433 | 454 |
} |
| 434 | 455 |
|
Auch abrufbar als: Unified diff
PriceSource: versteckte Preise in Lieferscheinen
Beim Anlegen von Lieferscheinen wird jetzt auch der Preis kurz versteckt
ermittelt und mitgespeichert, damit beim Umwandeln in Rechnungen keine
Überraschungen passieren.