X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/0495d62b117ad19e83cecaa9ca251dfa31907d98..8688e71eb56abdd9641f07a47135bb02841607fb:/SL/CT.pm

diff --git a/SL/CT.pm b/SL/CT.pm
index e5ee4af82..e0e4084d5 100644
--- a/SL/CT.pm
+++ b/SL/CT.pm
@@ -36,7 +36,10 @@
 #======================================================================
 
 package CT;
+
 use Data::Dumper;
+
+use SL::CVar;
 use SL::DBUtils;
 
 sub get_tuple {
@@ -381,6 +384,11 @@ sub save_customer {
   # add shipto
   $form->add_shipto( $dbh, $form->{id}, "CT" );
 
+  CVar->save_custom_variables('dbh'       => $dbh,
+                              'module'    => 'CT',
+                              'trans_id'  => $form->{id},
+                              'variables' => $form);
+
   $rc = $dbh->commit();
   $dbh->disconnect();
 
@@ -578,6 +586,11 @@ sub save_vendor {
   # add shipto
   $form->add_shipto( $dbh, $form->{id}, "CT" );
 
+  CVar->save_custom_variables('dbh'       => $dbh,
+                              'module'    => 'CT',
+                              'trans_id'  => $form->{id},
+                              'variables' => $form);
+
   $rc = $dbh->commit();
   $dbh->disconnect();
 
@@ -666,6 +679,15 @@ sub search {
     push(@values, conv_i($form->{business_id}));
   }
 
+  my ($cvar_where, @cvar_values) = CVar->build_filter_query('module'         => 'CT',
+                                                            'trans_id_field' => 'ct.id',
+                                                            'filter'         => $form);
+
+  if ($cvar_where) {
+    $where .= qq| AND ($cvar_where)|;
+    push @values, @cvar_values;
+  }
+
   my $query =
     qq|SELECT ct.*, b.description AS business | .
     qq|FROM $cv ct | .