Revision b103ea25
Von Bernd Bleßmann vor mehr als 9 Jahren hinzugefügt
| SL/DB/Helper/FlattenToForm.pm | ||
|---|---|---|
| 53 | 53 |
my $format_amounts = $params{format_amounts} ? 1 : 0;
|
| 54 | 54 |
my $format_notnull = $params{format_amounts} ? 2 : 0;
|
| 55 | 55 |
my $format_percent = $params{format_amounts} ? 3 : 0;
|
| 56 |
my $format_noround = $params{format_amounts} ? 4 : 0;
|
|
| 56 | 57 |
foreach my $item (@{ $self->items_sorted }) {
|
| 57 | 58 |
next if _has($item, 'assemblyitem'); |
| 58 | 59 |
|
| ... | ... | |
| 63 | 64 |
_copy($item->part, $form, '', "_${idx}", 0, qw(listprice));
|
| 64 | 65 |
_copy($item, $form, '', "_${idx}", 0, qw(description project_id ship serialnumber pricegroup_id ordnumber donumber cusordnumber unit
|
| 65 | 66 |
subtotal longdescription price_factor_id marge_price_factor approved_sellprice reqdate transdate)); |
| 66 |
_copy($item, $form, '', "_${idx}", $format_amounts, qw(qty sellprice marge_total marge_percent lastcost));
|
|
| 67 |
_copy($item, $form, '', "_${idx}", $format_noround, qw(qty sellprice));
|
|
| 68 |
_copy($item, $form, '', "_${idx}", $format_amounts, qw(marge_total marge_percent lastcost));
|
|
| 67 | 69 |
_copy($item, $form, '', "_${idx}", $format_percent, qw(discount));
|
| 68 | 70 |
_copy($item->project, $form, 'project', "_${idx}", 0, qw(number description)) if _has($item, 'project_id');
|
| 69 | 71 |
|
| ... | ... | |
| 95 | 97 |
map { $form->{"${prefix}${_}${postfix}"} = $::form->format_amount(\%::myconfig, $src->$_ * 1, 2) } @columns if $format_amounts == 1;
|
| 96 | 98 |
map { $form->{"${prefix}${_}${postfix}"} = $src->$_ * 1 ? $::form->format_amount(\%::myconfig, $src->$_ * 1, 2) : 0 } @columns if $format_amounts == 2;
|
| 97 | 99 |
map { $form->{"${prefix}${_}${postfix}"} = $src->$_ * 1 ? $::form->format_amount(\%::myconfig, $src->$_ * 100, 2) : 0 } @columns if $format_amounts == 3;
|
| 100 |
map { $form->{"${prefix}${_}${postfix}"} = $src->$_ * 1 ? $::form->format_amount(\%::myconfig, $src->$_ * 1) : 0 } @columns if $format_amounts == 4;
|
|
| 98 | 101 |
|
| 99 | 102 |
return $src; |
| 100 | 103 |
} |
Auch abrufbar als: Unified diff
FlattenToForm: sellprice und qty beim Formatieren nicht runden …
Hintergrund: In den Belegmasken (z.B.) Auftrag kann man Menge oder Verkaufspreis
mit mehr als zwei Nachkommastellen angeben und es wird auch damit gerechnet.
Funktionen, die FlattenToForm verwenden (autom. Druck wiederkehrender
Rechnungen / Massendruck) zeigten dann aber in bestimmten Fällen andere Summen
als die Maske bzw. als in der Datenbank steht.
Beispiele:
Maske: qty=10; sellprice=5,256 => linetotal=52,56
Flatten: qty=10; sellprice=5,256 (runden 5,26) => linetotal=52,60
Maske: qty=5,256; sellprice=10 => linetotal=52,56
Flatten: qty=5,256 (runden 5,26); sellprice=10 => linetotal=52,60
Dieser commit sorgt dafür, dass qty und sellprice bei flatten_to_form nicht
gerundet werden.