Fehler beim Speichern von Rechnungen und Angeboten/Auftraegen wenn keine Preisgruppen...

diff --git a/SL/IS.pm b/SL/IS.pm
index a547fa94527ec54bafed7cad1a5973504a8cd284..540c874e5a7f2f77d908ed6afe120de7485e73b8 100644 (file)
--- a/SL/IS.pm
+++ b/SL/IS.pm
@@ -554,6 +554,7 @@ print STDERR "IS.pm-post_invoice\n";
 
       # get pricegroup_id and save ist
       ($null, my $pricegroup_id) = split /--/, $form->{"sellprice_drag_$i"};
+      $pricegroup_id *= 1;
 
       # save detail record in invoice table
       $query = qq|INSERT INTO invoice (trans_id, parts_id, description, qty,

diff --git a/SL/OE.pm b/SL/OE.pm
index 334355d281503a3e3bbbfb309ad5468cc39d542e..d5d1aa7ba6f82d9eff518927ee0d614106571a34 100644 (file)
--- a/SL/OE.pm
+++ b/SL/OE.pm
@@ -313,6 +313,7 @@ sub save {
 
       # get pricegroup_id and save ist
       ($null, my $pricegroup_id) = split /--/, $form->{"sellprice_drag_$i"};
+      $pricegroup_id *= 1;
 
       # save detail record in orderitems table
       $query = qq|INSERT INTO orderitems (|;