Revision 7933b6bd
Von Udo Spallek vor etwa 19 Jahren hinzugefügt
| 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
Bugfix: svn 639 - Auch die entsprechenden Buchungen sind falsch gewesen.
Angepasst für Verkauf: Rechnungen, Aufträge, Angebote und
Einkauf: Einkaufsrechnung, Lieferantenauftrag, Preisanfrage.