Revision e44cbe16
Von Stephan Köhler vor etwa 19 Jahren hinzugefügt
| bin/mozilla/io.pl | ||
|---|---|---|
|
qq|<td><input name="description_$i" size=30 value="$form->{"description_$i"}"></td>|;
|
||
|
}
|
||
|
|
||
|
(my $qty_dec) = ($form->{"qty_$i"} =~ /\.(\d+)/);
|
||
|
$qty_dec = length $qty_dec;
|
||
|
|
||
|
$column_data{qty} =
|
||
|
qq|<td align=right><input name="qty_$i" size=5 value=|
|
||
|
. $form->format_amount(\%myconfig, $form->{"qty_$i"}, 0)
|
||
|
. qq|></td>|;
|
||
|
qq|<td align=right><input name="qty_$i" size=5 value=|.
|
||
|
$form->format_amount(\%myconfig, $form->{"qty_$i"}, $qty_dec)
|
||
|
.qq|></td>|;
|
||
|
$column_data{ship} =
|
||
|
qq|<td align=right><input name="ship_$i" size=5 value=|
|
||
|
. $form->format_amount(\%myconfig, $form->{"ship_$i"})
|
||
| bin/mozilla/ir.pl | ||
|---|---|---|
|
$form->{"sellprice_$i"} =
|
||
|
$form->format_amount(\%myconfig, $form->{"sellprice_$i"},
|
||
|
$decimalplaces);
|
||
|
|
||
|
(my $dec_qty) = ($form->{"qty_$i"} =~ /\.(\d+)/);
|
||
|
$dec_qty = length $dec_qty;
|
||
|
|
||
|
$form->{"qty_$i"} =
|
||
|
$form->format_amount(\%myconfig, ($form->{"qty_$i"} * -1));
|
||
|
$form->format_amount(\%myconfig, ($form->{"qty_$i"} * -1), $dec_qty);
|
||
|
|
||
|
$form->{rowcount} = $i;
|
||
|
}
|
||
| ... | ... | |
|
$form->format_amount(\%myconfig, $form->{"sellprice_$i"},
|
||
|
$decimalplaces);
|
||
|
$form->{"qty_$i"} =
|
||
|
$form->format_amount(\%myconfig, $form->{"qty_$i"});
|
||
|
$form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty);
|
||
|
}
|
||
|
|
||
|
&display_form;
|
||
| bin/mozilla/is.pl | ||
|---|---|---|
|
$form->{"sellprice_$i"} =
|
||
|
$form->format_amount(\%myconfig, $form->{"sellprice_$i"},
|
||
|
$decimalplaces);
|
||
|
$form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"});
|
||
|
|
||
|
(my $dec_qty) = ($form->{"qty_$i"} =~ /\.(\d+)/);
|
||
|
$dec_qty = length $dec_qty;
|
||
|
|
||
|
$form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"},
|
||
|
$dec_qty);
|
||
|
|
||
|
map { $form->{"${_}_$i"} =~ s/\"/"/g }
|
||
|
qw(partnumber description unit partnotes);
|
||
| bin/mozilla/oe.pl | ||
|---|---|---|
|
$form->{"sellprice_$i"} =
|
||
|
$form->format_amount(\%myconfig, $form->{"sellprice_$i"},
|
||
|
$decimalplaces);
|
||
|
$form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"});
|
||
|
|
||
|
(my $dec_qty) = ($form->{"qty_$i"} =~ /\.(\d+)/);
|
||
|
$dec_qty = length $dec_qty;
|
||
|
|
||
|
$form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty);
|
||
|
|
||
|
map { $form->{"${_}_$i"} =~ s/\"/"/g }
|
||
|
qw(partnumber description unit);
|
||
| ... | ... | |
|
$form->{"sellprice_$i"} =
|
||
|
$form->format_amount(\%myconfig, $form->{"sellprice_$i"},
|
||
|
$decimalplaces);
|
||
|
$form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"});
|
||
|
|
||
|
(my $dec_qty) = ($form->{"qty_$i"} =~ /\.(\d+)/);
|
||
|
$dec_qty = length $dec_qty;
|
||
|
$form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty);
|
||
|
|
||
|
map { $form->{"${_}_$i"} =~ s/\"/"/g }
|
||
|
qw(partnumber description unit);
|
||
| ... | ... | |
|
$form->format_amount(\%myconfig, $form->{"sellprice_$i"},
|
||
|
$decimalplaces);
|
||
|
$form->{"qty_$i"} =
|
||
|
$form->format_amount(\%myconfig, $form->{"qty_$i"});
|
||
|
$form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty);
|
||
|
|
||
|
# get pricegroups for parts
|
||
|
IS->get_pricegroups_for_parts(\%myconfig, \%$form);
|
||
| ... | ... | |
|
$form->{"sellprice_$i"} =
|
||
|
$form->format_amount(\%myconfig, $form->{"sellprice_$i"},
|
||
|
$decimalplaces);
|
||
|
$form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"});
|
||
|
|
||
|
(my $dec_qty) = ($form->{"qty_$i"} =~ /\.(\d+)/);
|
||
|
$dec_qty = length $dec_qty;
|
||
|
$form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty);
|
||
|
|
||
|
map { $form->{"${_}_$i"} =~ s/\"/"/g }
|
||
|
qw(partnumber description unit);
|
||
| ... | ... | |
|
qq|<td>$description<input type=hidden name="description_$i" value="$form->{"description_$i"}"></td>|;
|
||
|
$column_data{qty} =
|
||
|
qq|<td align=right>|
|
||
|
. $form->format_amount(\%myconfig, $form->{"qty_$i"})
|
||
|
. $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty)
|
||
|
. qq|<input type=hidden name="qty_$i" value="$form->{"qty_$i"}"></td>|;
|
||
|
$column_data{ship} =
|
||
|
qq|<td align=right><input name="ship_$i" size=5 value=|
|
||
| ... | ... | |
|
qq|<td><input type=hidden name="warehouse_id_$i" value=$ref->{warehouse_id}>$ref->{warehouse} </td>|;
|
||
|
$column_data{qty} =
|
||
|
qq|<td><input type=hidden name="qty_$i" value=$ref->{qty}>|
|
||
|
. $form->format_amount(\%myconfig, $ref->{qty})
|
||
|
. $form->format_amount(\%myconfig, $ref->{qty}, $dec_qty)
|
||
|
. qq|</td>|;
|
||
|
$column_data{transfer} = qq|<td><input name="transfer_$i" size=4></td>|;
|
||
|
|
||
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.