Beim Speichern bei "Nummernkreise und Standardkonten" auch die Nummern für Liefersche...

[mfinanz.git] / SL / CT.pm

diff --git a/SL/CT.pm b/SL/CT.pm
index 96b6b9cb3866282cabdaf0ca737b5feb9dd85344..0468c379d210001590c5c6f5a0094e65ea5f6605 100644 (file)
--- a/SL/CT.pm
+++ b/SL/CT.pm
@@ -470,11 +470,7 @@ sub save_vendor {
 
   my $query;
 
-  if ( $form->{id} ) {
-    $query = qq|DELETE FROM shipto WHERE (trans_id = ?) AND (module = 'CT')|;
-    do_query($form, $dbh, $query, $form->{id});
-
-  } else {
+  if (!$form->{id}) {
     $query = qq|SELECT nextval('id')|;
     ($form->{id}) = selectrow_query($form, $dbh, $query);
 
@@ -684,13 +680,18 @@ sub search {
   my @values;
 
   my %allowed_sort_columns =
-    map({ $_, 1 } qw(id customernumber name address contact phone fax email
+    map({ $_, 1 } qw(id customernumber vendornumber name address contact phone fax email
                      taxnumber sic_code business invnumber ordnumber quonumber));
   $sortorder =
     $form->{sort} && $allowed_sort_columns{$form->{sort}} ?
     $form->{sort} : "name";
   $form->{sort} = $sortorder;
-  $sortorder = "country,city,street" if ($sortorder eq "address");
+
+  if ($sortorder eq "address") {
+    $sortorder = "lower(country), lower(city), lower(street)";
+  } elsif ($sortorder ne 'id') {
+    $sortorder = "lower($sortorder)";
+  }
 
   if ($form->{"${cv}number"}) {
     $where .= " AND ct.${cv}number ILIKE ?";