Revision e44cbe16
Von Stephan Köhler vor fast 19 Jahren hinzugefügt
| bin/mozilla/io.pl | ||
|---|---|---|
| 254 | 254 |
qq|<td><input name="description_$i" size=30 value="$form->{"description_$i"}"></td>|;
|
| 255 | 255 |
} |
| 256 | 256 |
|
| 257 |
(my $qty_dec) = ($form->{"qty_$i"} =~ /\.(\d+)/);
|
|
| 258 |
$qty_dec = length $qty_dec; |
|
| 259 |
|
|
| 257 | 260 |
$column_data{qty} =
|
| 258 |
qq|<td align=right><input name="qty_$i" size=5 value=| |
|
| 259 |
. $form->format_amount(\%myconfig, $form->{"qty_$i"}, 0)
|
|
| 260 |
. qq|></td>|;
|
|
| 261 |
qq|<td align=right><input name="qty_$i" size=5 value=|.
|
|
| 262 |
$form->format_amount(\%myconfig, $form->{"qty_$i"}, $qty_dec)
|
|
| 263 |
.qq|></td>|;
|
|
| 261 | 264 |
$column_data{ship} =
|
| 262 | 265 |
qq|<td align=right><input name="ship_$i" size=5 value=| |
| 263 | 266 |
. $form->format_amount(\%myconfig, $form->{"ship_$i"})
|
| bin/mozilla/ir.pl | ||
|---|---|---|
| 176 | 176 |
$form->{"sellprice_$i"} =
|
| 177 | 177 |
$form->format_amount(\%myconfig, $form->{"sellprice_$i"},
|
| 178 | 178 |
$decimalplaces); |
| 179 |
|
|
| 180 |
(my $dec_qty) = ($form->{"qty_$i"} =~ /\.(\d+)/);
|
|
| 181 |
$dec_qty = length $dec_qty; |
|
| 182 |
|
|
| 179 | 183 |
$form->{"qty_$i"} =
|
| 180 |
$form->format_amount(\%myconfig, ($form->{"qty_$i"} * -1));
|
|
| 184 |
$form->format_amount(\%myconfig, ($form->{"qty_$i"} * -1), $dec_qty);
|
|
| 181 | 185 |
|
| 182 | 186 |
$form->{rowcount} = $i;
|
| 183 | 187 |
} |
| ... | ... | |
| 823 | 827 |
$form->format_amount(\%myconfig, $form->{"sellprice_$i"},
|
| 824 | 828 |
$decimalplaces); |
| 825 | 829 |
$form->{"qty_$i"} =
|
| 826 |
$form->format_amount(\%myconfig, $form->{"qty_$i"});
|
|
| 830 |
$form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty);
|
|
| 827 | 831 |
} |
| 828 | 832 |
|
| 829 | 833 |
&display_form; |
| bin/mozilla/is.pl | ||
|---|---|---|
| 210 | 210 |
$form->{"sellprice_$i"} =
|
| 211 | 211 |
$form->format_amount(\%myconfig, $form->{"sellprice_$i"},
|
| 212 | 212 |
$decimalplaces); |
| 213 |
$form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"});
|
|
| 213 |
|
|
| 214 |
(my $dec_qty) = ($form->{"qty_$i"} =~ /\.(\d+)/);
|
|
| 215 |
$dec_qty = length $dec_qty; |
|
| 216 |
|
|
| 217 |
$form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"},
|
|
| 218 |
$dec_qty); |
|
| 214 | 219 |
|
| 215 | 220 |
map { $form->{"${_}_$i"} =~ s/\"/"/g }
|
| 216 | 221 |
qw(partnumber description unit partnotes); |
| bin/mozilla/oe.pl | ||
|---|---|---|
| 215 | 215 |
$form->{"sellprice_$i"} =
|
| 216 | 216 |
$form->format_amount(\%myconfig, $form->{"sellprice_$i"},
|
| 217 | 217 |
$decimalplaces); |
| 218 |
$form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"});
|
|
| 218 |
|
|
| 219 |
(my $dec_qty) = ($form->{"qty_$i"} =~ /\.(\d+)/);
|
|
| 220 |
$dec_qty = length $dec_qty; |
|
| 221 |
|
|
| 222 |
$form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty);
|
|
| 219 | 223 |
|
| 220 | 224 |
map { $form->{"${_}_$i"} =~ s/\"/"/g }
|
| 221 | 225 |
qw(partnumber description unit); |
| ... | ... | |
| 233 | 237 |
$form->{"sellprice_$i"} =
|
| 234 | 238 |
$form->format_amount(\%myconfig, $form->{"sellprice_$i"},
|
| 235 | 239 |
$decimalplaces); |
| 236 |
$form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"});
|
|
| 240 |
|
|
| 241 |
(my $dec_qty) = ($form->{"qty_$i"} =~ /\.(\d+)/);
|
|
| 242 |
$dec_qty = length $dec_qty; |
|
| 243 |
$form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty);
|
|
| 237 | 244 |
|
| 238 | 245 |
map { $form->{"${_}_$i"} =~ s/\"/"/g }
|
| 239 | 246 |
qw(partnumber description unit); |
| ... | ... | |
| 973 | 980 |
$form->format_amount(\%myconfig, $form->{"sellprice_$i"},
|
| 974 | 981 |
$decimalplaces); |
| 975 | 982 |
$form->{"qty_$i"} =
|
| 976 |
$form->format_amount(\%myconfig, $form->{"qty_$i"});
|
|
| 983 |
$form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty);
|
|
| 977 | 984 |
|
| 978 | 985 |
# get pricegroups for parts |
| 979 | 986 |
IS->get_pricegroups_for_parts(\%myconfig, \%$form); |
| ... | ... | |
| 1857 | 1864 |
$form->{"sellprice_$i"} =
|
| 1858 | 1865 |
$form->format_amount(\%myconfig, $form->{"sellprice_$i"},
|
| 1859 | 1866 |
$decimalplaces); |
| 1860 |
$form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"});
|
|
| 1867 |
|
|
| 1868 |
(my $dec_qty) = ($form->{"qty_$i"} =~ /\.(\d+)/);
|
|
| 1869 |
$dec_qty = length $dec_qty; |
|
| 1870 |
$form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty);
|
|
| 1861 | 1871 |
|
| 1862 | 1872 |
map { $form->{"${_}_$i"} =~ s/\"/"/g }
|
| 1863 | 1873 |
qw(partnumber description unit); |
| ... | ... | |
| 2356 | 2366 |
qq|<td>$description<input type=hidden name="description_$i" value="$form->{"description_$i"}"></td>|;
|
| 2357 | 2367 |
$column_data{qty} =
|
| 2358 | 2368 |
qq|<td align=right>| |
| 2359 |
. $form->format_amount(\%myconfig, $form->{"qty_$i"})
|
|
| 2369 |
. $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty)
|
|
| 2360 | 2370 |
. qq|<input type=hidden name="qty_$i" value="$form->{"qty_$i"}"></td>|;
|
| 2361 | 2371 |
$column_data{ship} =
|
| 2362 | 2372 |
qq|<td align=right><input name="ship_$i" size=5 value=| |
| ... | ... | |
| 2667 | 2677 |
qq|<td><input type=hidden name="warehouse_id_$i" value=$ref->{warehouse_id}>$ref->{warehouse} </td>|;
|
| 2668 | 2678 |
$column_data{qty} =
|
| 2669 | 2679 |
qq|<td><input type=hidden name="qty_$i" value=$ref->{qty}>|
|
| 2670 |
. $form->format_amount(\%myconfig, $ref->{qty})
|
|
| 2680 |
. $form->format_amount(\%myconfig, $ref->{qty}, $dec_qty)
|
|
| 2671 | 2681 |
. qq|</td>|; |
| 2672 | 2682 |
$column_data{transfer} = qq|<td><input name="transfer_$i" size=4></td>|;
|
| 2673 | 2683 |
|
Auch abrufbar als: Unified diff
Merge von 639,640 aus unstable: Rundungsfehler nach erneuern
-Bugfix: Angebot (Auch bei Rechnung): Menge mit Kommastelle, z.B 6,876, beim
Erneuern wird die Menge gerundet und ohne Nachkommastelle angezeigt. In
der Vorgaengerversion ging das noch. Der Positions-Preis wird korrekt
berechnet, nur die Anzeige der Menge scheint das Problem zu sein
-Bugfix: svn 639 - Auch die entsprechenden Buchungen sind falsch gewesen.
Angepasst für Verkauf: Rechnungen, Aufträge, Angebote und
Einkauf: Einkaufsrechnung, Lieferantenauftrag, Preisanfrage.