X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/d69fdcda39579b4807443f377a7624c8838ff4f2..e7214232350249fdab6da3445442ff85891a0d7c:/SL/IC.pm

diff --git a/SL/IC.pm b/SL/IC.pm
index d486228e6..576340e75 100644
--- a/SL/IC.pm
+++ b/SL/IC.pm
@@ -372,7 +372,6 @@ sub save {
   $form->{ge}       *= 1;
   $form->{alu}       *= 1;
   $form->{buchungsgruppen_id}       *= 1;
-  $form->{adr_id}       *= 1;
   $form->{not_discountable}       *= 1;
   $form->{payment_id}       *= 1;
 
@@ -491,7 +490,6 @@ sub save {
 	      rop = $form->{rop},
 	      bin = '$form->{bin}',
 	      buchungsgruppen_id = '$form->{buchungsgruppen_id}',
-	      adr_id = '$form->{adr_id}',
 	      payment_id = '$form->{payment_id}',
 	      inventory_accno_id = (SELECT c.id FROM chart c
 				    WHERE c.accno = '$form->{inventory_accno}'),
@@ -1511,19 +1509,6 @@ sub create_links {
   }
   $sth->finish;
 
-  # get adr
-  $query = qq|SELECT id, adr_description, adr_code
-              FROM adr|;
-  $sth = $dbh->prepare($query);
-  $sth->execute || $form->dberror($query);
-
-
-  $form->{ADR} = [];
-  while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
-    push @{ $form->{ADR} }, $ref;
-  }
-  $sth->finish;
-
   # get payment terms
   $query = qq|SELECT id, description
               FROM payment_terms