OE->save() parst verschiedene Zahlen. Das ist beim Umwandeln in anderen Formulartypen...
authorMoritz Bunkus <m.bunkus@linet-services.de>
Thu, 11 Jan 2007 14:49:52 +0000 (14:49 +0000)
committerMoritz Bunkus <m.bunkus@linet-services.de>
Thu, 11 Jan 2007 14:49:52 +0000 (14:49 +0000)
SL/OE.pm
bin/mozilla/oe.pl

index c5e3665..460e191 100644 (file)
--- a/SL/OE.pm
+++ b/SL/OE.pm
@@ -35,6 +35,7 @@
 package OE;
 
 use SL::AM;
+use SL::DBUtils;
 
 sub transactions {
   $main::lxdebug->enter_sub();
@@ -560,6 +561,21 @@ sub close_orders {
   $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();
 
index 7209344..e281da7 100644 (file)
@@ -2453,9 +2453,7 @@ sub sales_order {
 
   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;