Speichen von Preisen >0 und < 1 in Preisgruppen bei ZF 1000,00 nicht moeglich

[wulf@…]

[wulf@held stable]$ svn diff SL/Form.pm
Index: SL/Form.pm
===================================================================
--- SL/Form.pm (revision 2898)
+++ SL/Form.pm (working copy)
@@ -768,6 +768,7 @@

my ($self, $myconfig, $amount) = @_;

if ( ($myconfig->{numberformat} eq '1.000,00')

+ ($myconfig->{numberformat} eq '1000,00')

($myconfig->{numberformat} eq '1000,00')) {

$amount =~ s/\.g;
$amount =~ s/,/\./;

Bugzilla hat meinen Text gefressen, Also nochmal:

Bei eingestelltem Zahlenformat "1000,00"

Programm -> Benutzereinstellungen -> Zahlenformat

Werden Betraege groesser 0 und kleiner 1 in den Preisgruppen als 0.0 gespeichert.

Stammdaten -> Berichte -> <Beliebiger Artikel> -> <Preis beliebiger Preisgruppe>

(Preisgruppen-Preis != Artikelpreis)

Ursache

• im Modul IC.pm im Abschnitt "# insert price records only if different to sellprice" wird bei der if Abfrage der Datentyp String nicht beruecksichtigt.
• im der Funktion parse_amount() im Modul Form.pm wird dieses Format nicht beruecksichtigt

Moegliche Loesung

[wulf@held stable]$ svn diff SL/IC.pm
Index: SL/IC.pm
===================================================================
--- SL/IC.pm (revision 2898)
+++ SL/IC.pm (working copy)
@@ -483,6 +483,7 @@

$form->{"klass_$i"}

$form->{"pricegroup_id_$i"})

and $form->{"price_$i"} != $form->{sellprice}

+

$form->{"price_$i"} ne $form->{sellprice}

) {
#$klass = $form->parse_amount($myconfig, $form->{"klass_$i"});
$price = $form->parse_amount($myconfig, $form->{"price_$i"});

und:

[wulf@held stable]$ svn diff SL/Form.pm
Index: SL/Form.pm
===================================================================
--- SL/Form.pm (revision 2898)
+++ SL/Form.pm (working copy)
@@ -768,6 +768,7 @@

my ($self, $myconfig, $amount) = @_;

if ( ($myconfig->{numberformat} eq '1.000,00')

+

($myconfig->{numberformat} eq '1000,00')

($myconfig->{numberformat} eq '1000,00')) {

$amount =~ s/\.g;
$amount =~ s/,/\./;

Viele Gruesse Wulf++

Sorry, aber den letzten Diff verstehe ich nicht. Genau diese Bedingung wird
doch bereits überpüft!? Oder sehe ich den Unterschied nur nicht?

upps, ich auch nicht, vergiss den Form.pm Patch.

Schlimmer noch, ich hatte diesen Fehler bei Artikeln die zwar einen Listen aber
keinen Verkaufspreis hatten. Bei Verkauspreis != 0 verhalt sich die
Artikelverwaltung wie sie soll.

Bei Verkaufspreis = Null und Listenpreis != 0 laesst er sich von mir wie
beschrieben nachvollziehen und mit dem Patch gegen IC.pm korrigieren.

Bleibt zu entscheiden welches verhalten man bei Verkaufspreis = 0 haben moechte.
Speichern aller Betraege, oder alle Preisgruppenpreise > 1 werden auf 0
gesaetzt. Ich wuerde ein Speichern bevorzugen, da man dann nicht Gefahr lauft
durch Speichern von 0 im Verkaufspreis bereits eingegebene Warengruppenpreise
zuruekzusetzen.

Viele Gruesse Wulf++

Fix in -r4207