Revision 2f6636f6
Von Bernd Bleßmann vor mehr als 9 Jahren hinzugefügt
| bin/mozilla/io.pl | ||
|---|---|---|
| 420 | 420 |
$locale->text('EK'), $form->format_amount(\%myconfig, $form->{"lastcost_$i"}, $decimalplaces) }
|
| 421 | 421 |
if $form->{"id_$i"} && ($form->{type} =~ /^sales_/ || $form->{type} =~ /invoice/ || $form->{type} =~ /^credit_note$/ ) && !$is_delivery_order;
|
| 422 | 422 |
|
| 423 |
$form->{"listprice_$i"} = $form->format_amount(\%myconfig, $form->{"listprice_$i"}, 2)
|
|
| 424 |
if $form->{"id_$i"} && ($form->{type} =~ /^sales_/ || $form->{type} =~ /invoice/) ;
|
|
| 425 | 423 |
# / marge calculations ending |
| 426 | 424 |
|
| 427 | 425 |
# Calculate total weight |
| ... | ... | |
| 557 | 555 |
} |
| 558 | 556 |
|
| 559 | 557 |
map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) }
|
| 560 |
qw(sellprice listprice weight);
|
|
| 558 |
qw(sellprice weight); |
|
| 561 | 559 |
|
| 562 | 560 |
if ( $mode eq 'IC' ) {
|
| 563 | 561 |
# assembly mode: |
| ... | ... | |
| 667 | 665 |
map {
|
| 668 | 666 |
$form->{"${_}_$i"} =
|
| 669 | 667 |
$form->format_amount(\%myconfig, $form->{"${_}_$i"}, $decimalplaces)
|
| 670 |
} qw(sellprice listprice lastcost qty) if $form->{item} ne 'assembly';
|
|
| 668 |
} qw(sellprice lastcost qty) if $form->{item} ne 'assembly';
|
|
| 671 | 669 |
$form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{"discount_$i"} * 100.0) if $form->{item} ne 'assembly';
|
| 672 | 670 |
|
| 673 | 671 |
delete $form->{nextsub};
|
| ... | ... | |
| 728 | 726 |
#$form->{sellprice} = 0;
|
| 729 | 727 |
$form->{weight} = 0;
|
| 730 | 728 |
map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) }
|
| 731 |
qw(listprice sellprice rop stock);
|
|
| 729 |
qw(sellprice rop stock); |
|
| 732 | 730 |
|
| 733 | 731 |
my @flds = qw(id qty unit bom partnumber description sellprice weight runningnumber partsgroup lastcost); |
| 734 | 732 |
|
| ... | ... | |
| 934 | 932 |
for my $i (1 .. $form->{rowcount}) {
|
| 935 | 933 |
map({ $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig, $form->{"${_}_${i}"})
|
| 936 | 934 |
if ($form->{"${_}_${i}"}) }
|
| 937 |
qw(ship qty sellprice listprice basefactor discount));
|
|
| 935 |
qw(ship qty sellprice basefactor discount)); |
|
| 938 | 936 |
$form->{"converted_from_invoice_id_$i"} = delete $form->{"invoice_id_$i"};
|
| 939 | 937 |
} |
| 940 | 938 |
|
| ... | ... | |
| 1002 | 1000 |
map({ $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig,
|
| 1003 | 1001 |
$form->{"${_}_${i}"})
|
| 1004 | 1002 |
if ($form->{"${_}_${i}"}) }
|
| 1005 |
qw(ship qty sellprice listprice basefactor discount lastcost));
|
|
| 1003 |
qw(ship qty sellprice basefactor discount lastcost)); |
|
| 1006 | 1004 |
} |
| 1007 | 1005 |
|
| 1008 | 1006 |
&prepare_order; |
Auch abrufbar als: Unified diff
Listenpreis in Belegen u. Ausdruck richtig formatieren und nicht mehr parsen.
listprice wird in den Belegen nur angezeigt. Man kann ihn nicht eingeben und
auch nicht speichern. Deshalb wird er jetzt nur zur Ausgabe formatiert
(io.pl:display_row, OE.pm:order_details, IS.pm:invoice_details), aber nicht
formatiert gespeichert.
io.pl:display_row schreibt ihn auch unformatiert als hidden in die Form.
Das war wohl so gedacht, aber nicht konsequent eingehalten und auch von mir an
einigen Stellen "verschlimmbessert" worden.
Evtl. sollte der listprice gar nicht als hidden mitgeschliffen werden, sondern
immer aus der DB gelesen werden.
behebt #46 (redmine)