OE->save() parst verschiedene Zahlen. Das ist beim Umwandeln in anderen Formulartypen...

diff --git a/SL/OE.pm b/SL/OE.pm
index c5e36654dc57fe0c37243e4475a674694ee1f56c..460e191a069d7675e0641eff1880c5f36fd749bd 100644 (file)
--- a/SL/OE.pm
+++ b/SL/OE.pm
@@ -35,6 +35,7 @@
 package OE;
 
 use SL::AM;
 package OE;
 
 use SL::AM;

+use SL::DBUtils;

 
 sub transactions {
   $main::lxdebug->enter_sub();
 
 sub transactions {
   $main::lxdebug->enter_sub();


@@ -560,6 +561,21 @@ sub close_orders {
   $main::lxdebug->leave_sub();
 }
 
   $main::lxdebug->leave_sub();
 }
 

+sub close_order {
+  $main::lxdebug->enter_sub();
+
+  my ($self, $myconfig, $form) = @_;
+
+  $main::lxdebug->leave_sub() unless ($form->{"id"});
+
+  my $dbh = $form->dbconnect($myconfig);
+  do_query($form, $dbh, qq|UPDATE oe SET closed = TRUE where ordnumber = ?|,
+           $form->{"id"});
+  $dbh->disconnect;
+
+  $main::lxdebug->leave_sub();
+}
+

 sub delete {
   $main::lxdebug->enter_sub();
 
 sub delete {
   $main::lxdebug->enter_sub();
 

diff --git a/bin/mozilla/oe.pl b/bin/mozilla/oe.pl
index 72093443d461219ce2ad7a5342b9d13794bff631..e281da720d20e01c7513affc42337971e9cefbd0 100644 (file)
--- a/bin/mozilla/oe.pl
+++ b/bin/mozilla/oe.pl
@@ -2453,9 +2453,7 @@ sub sales_order {
 
   if (   $form->{type} eq 'sales_quotation'
       || $form->{type} eq 'request_quotation') {
 
   if (   $form->{type} eq 'sales_quotation'
       || $form->{type} eq 'request_quotation') {

-    $form->{closed} = 1;
-    relink_accounts();
-    OE->save(\%myconfig, \%$form);
+    OE->close_order(\%myconfig, $form);

   }
 
   $form->{cp_id} *= 1;
   }
 
   $form->{cp_id} *= 1;