Revision df0ca1fe
Von Moritz Bunkus vor mehr als 11 Jahren hinzugefügt
| bin/mozilla/io.pl | ||
|---|---|---|
| 669 | 669 |
my $count = 0; |
| 670 | 670 |
|
| 671 | 671 |
# remove any makes or model rows |
| 672 |
if ($form->{item} eq 'part') {
|
|
| 673 |
map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) }
|
|
| 674 |
qw(listprice sellprice lastcost weight rop); |
|
| 675 |
|
|
| 676 |
} elsif ($form->{item} eq 'assembly') {
|
|
| 672 |
if ($form->{item} eq 'assembly') {
|
|
| 677 | 673 |
|
| 678 | 674 |
# fuer assemblies auskommentiert. seiteneffekte? ;-) wird die woanders benoetigt? |
| 679 | 675 |
#$form->{sellprice} = 0;
|
| ... | ... | |
| 706 | 702 |
$form->redo_rows(\@flds, \@a, $count, $form->{assembly_rows});
|
| 707 | 703 |
$form->{assembly_rows} = $count;
|
| 708 | 704 |
|
| 709 |
} elsif ($form->{item} eq 'service') {
|
|
| 710 |
map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(listprice sellprice lastcost);
|
|
| 711 |
|
|
| 712 |
} else {
|
|
| 705 |
} elsif ($form->{item} !~ m{^(?:part|service)$}) {
|
|
| 713 | 706 |
remove_emptied_rows(1); |
| 714 | 707 |
|
| 715 | 708 |
$form->{creditremaining} -= &invoicetotal;
|
Auch abrufbar als: Unified diff
Artikelstammdatenmaske: bei "Erneuern" Fließkommazahlen exakt einmal parsen
Fixt #2341.