ADR entfernt (kam aus Kundenprojekt und ist nicht fuer die allgemeine Lx-Office-Varia...
authorMoritz Bunkus <m.bunkus@linet-services.de>
Tue, 28 Nov 2006 09:35:30 +0000 (09:35 +0000)
committerMoritz Bunkus <m.bunkus@linet-services.de>
Tue, 28 Nov 2006 09:35:30 +0000 (09:35 +0000)
SL/AM.pm
SL/CT.pm
SL/Form.pm
SL/IC.pm
SL/IS.pm
bin/mozilla/am.pl
bin/mozilla/ct.pl
bin/mozilla/ic.pl
bin/mozilla/io.pl
sql/Pg-upgrade/Pg-upgrade-2.2.0.23-2.2.0.24.sql [new file with mode: 0644]

index a2e201f..d738dc2 100644 (file)
--- a/SL/AM.pm
+++ b/SL/AM.pm
@@ -1191,104 +1191,6 @@ sub delete_printer {
   $main::lxdebug->leave_sub();
 }
 
-sub adr {
-  $main::lxdebug->enter_sub();
-
-  my ($self, $myconfig, $form) = @_;
-
-  # connect to database
-  my $dbh = $form->dbconnect($myconfig);
-
-  my $query = qq|SELECT id, adr_description, adr_code
-                 FROM adr
-                ORDER BY adr_code|;
-
-  $sth = $dbh->prepare($query);
-  $sth->execute || $form->dberror($query);
-
-  while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
-    push @{ $form->{ALL} }, $ref;
-  }
-
-  $sth->finish;
-  $dbh->disconnect;
-
-  $main::lxdebug->leave_sub();
-}
-
-sub get_adr {
-  $main::lxdebug->enter_sub();
-
-  my ($self, $myconfig, $form) = @_;
-
-  # connect to database
-  my $dbh = $form->dbconnect($myconfig);
-
-  my $query =
-    qq|SELECT a.adr_description, a.adr_code
-                 FROM adr a
-                WHERE a.id = $form->{id}|;
-  my $sth = $dbh->prepare($query);
-  $sth->execute || $form->dberror($query);
-
-  my $ref = $sth->fetchrow_hashref(NAME_lc);
-
-  map { $form->{$_} = $ref->{$_} } keys %$ref;
-
-  $sth->finish;
-
-  $dbh->disconnect;
-
-  $main::lxdebug->leave_sub();
-}
-
-sub save_adr {
-  $main::lxdebug->enter_sub();
-
-  my ($self, $myconfig, $form) = @_;
-
-  # connect to database
-  my $dbh = $form->dbconnect($myconfig);
-
-  $form->{adr_description} =~ s/\'/\'\'/g;
-  $form->{adr_code} =~ s/\'/\'\'/g;
-
-
-  # id is the old record
-  if ($form->{id}) {
-    $query = qq|UPDATE adr SET
-               adr_description = '$form->{adr_description}',
-               adr_code = '$form->{adr_code}'
-               WHERE id = $form->{id}|;
-  } else {
-    $query = qq|INSERT INTO adr
-                (adr_description, adr_code)
-                VALUES ('$form->{adr_description}', '$form->{adr_code}')|;
-  }
-  $dbh->do($query) || $form->dberror($query);
-
-  $dbh->disconnect;
-
-  $main::lxdebug->leave_sub();
-}
-
-sub delete_adr {
-  $main::lxdebug->enter_sub();
-
-  my ($self, $myconfig, $form) = @_;
-
-  # connect to database
-  my $dbh = $form->dbconnect($myconfig);
-
-  $query = qq|DELETE FROM adr
-             WHERE id = $form->{id}|;
-  $dbh->do($query) || $form->dberror($query);
-
-  $dbh->disconnect;
-
-  $main::lxdebug->leave_sub();
-}
-
 sub payment {
   $main::lxdebug->enter_sub();
 
index cfd1c23..f572992 100644 (file)
--- a/SL/CT.pm
+++ b/SL/CT.pm
@@ -875,9 +875,9 @@ sub get_delivery {
   if ($form->{to}) {
     $where .= "AND $tabelle.transdate <= '$form->{to}' ";
   }
-  my $query = qq|select shiptoname, adr_code, $tabelle.transdate, $tabelle.invnumber, $tabelle.ordnumber, invoice.description, qty, invoice.unit FROM $tabelle LEFT JOIN shipto ON |;
+  my $query = qq|select shiptoname, $tabelle.transdate, $tabelle.invnumber, $tabelle.ordnumber, invoice.description, qty, invoice.unit FROM $tabelle LEFT JOIN shipto ON |;
   $query .= ($tabelle eq "ar") ? qq|($tabelle.shipto_id=shipto.shipto_id) |:qq|($tabelle.id=shipto.trans_id) |;
-  $query .=qq|LEFT join invoice on ($tabelle.id=invoice.trans_id) LEFT join parts ON (parts.id=invoice.parts_id) LEFT join adr ON (parts.adr_id=adr.id) $where ORDER BY $tabelle.transdate DESC LIMIT 15|;
+  $query .=qq|LEFT join invoice on ($tabelle.id=invoice.trans_id) LEFT join parts ON (parts.id=invoice.parts_id) $where ORDER BY $tabelle.transdate DESC LIMIT 15|;
   my $sth = $dbh->prepare($query);
   $sth->execute || $form->dberror($query);
 
@@ -891,35 +891,5 @@ sub get_delivery {
   $main::lxdebug->leave_sub();
 }
 
-sub adr {
-  $main::lxdebug->enter_sub();
-
-  my ($self, $myconfig, $form) = @_;
-  my $dbh   = $form->dbconnect($myconfig);
-  $where = " WHERE 1=1 ";
-  if ($form->{from}) {
-    $where .= "AND ar.transdate >= '$form->{from}' ";
-  }
-  if ($form->{to}) {
-    $where .= "AND ar.transdate <= '$form->{to}' ";
-  }
-  if ($form->{year}) {
-    $where = " WHERE ar.transdate >= '$form->{year}-01-01' AND ar.transdate <= '$form->{year}-12-31' ";
-  }
-
-  my $query = qq|select adr_code, adr_description, sum(base_qty), parts.unit from ar LEFT join invoice on (ar.id=invoice.trans_id) LEFT join parts ON (invoice.parts_id=parts.id) LEFT join adr ON (adr.id=parts.adr_id) $where GROUP BY adr_code,adr_description,parts.unit|;
-  my $sth = $dbh->prepare($query);
-  $sth->execute || $form->dberror($query);
-
-
-  while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
-    push @{ $form->{ADR} }, $ref;
-  }
-  $sth->finish;
-  $dbh->disconnect;
-
-  $main::lxdebug->leave_sub();
-}
-
 1;
 
index 96d0adc..3354a2f 100644 (file)
@@ -1563,18 +1563,6 @@ sub language_payment {
   }
   $sth->finish;
 
-  # get adr
-  $query = qq|SELECT id, adr_description, adr_code
-              FROM adr|;
-  $sth = $dbh->prepare($query);
-  $sth->execute || $form->dberror($query);
-
-
-  $self->{ADR} = [];
-  while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
-    push @{ $self->{ADR} }, $ref;
-  }
-  $sth->finish;
   $dbh->disconnect;
   $main::lxdebug->leave_sub();
 }
index d486228..576340e 100644 (file)
--- 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
index 7c9d218..8e8b478 100644 (file)
--- a/SL/IS.pm
+++ b/SL/IS.pm
@@ -1902,13 +1902,12 @@ sub retrieve_item {
                        c2.accno AS income_accno, c2.new_chart_id AS income_new_chart, date($transdate)  - c2.valid_from as income_valid,
                        c3.accno AS expense_accno, c3.new_chart_id AS expense_new_chart, date($transdate) - c3.valid_from as expense_valid,
                 p.unit, p.assembly, p.bin, p.onhand, p.notes AS partnotes, p.notes AS longdescription, p.not_discountable,
-                pg.partsgroup, p.formel, p.alu, p.payment_id AS part_payment_id, adr.adr_description
+                pg.partsgroup, p.formel, p.alu, p.payment_id AS part_payment_id
                  FROM parts p
                 LEFT JOIN chart c1 ON ((select inventory_accno_id from buchungsgruppen where id=p.buchungsgruppen_id) = c1.id)
                 LEFT JOIN chart c2 ON ((select income_accno_id_$form->{taxzone_id} from buchungsgruppen where id=p.buchungsgruppen_id) = c2.id)
                 LEFT JOIN chart c3 ON ((select expense_accno_id_$form->{taxzone_id} from buchungsgruppen where id=p.buchungsgruppen_id) = c3.id)
                 LEFT JOIN partsgroup pg ON (pg.id = p.partsgroup_id)
-                 LEFT JOIN adr adr ON (adr.id = p.adr_id)
                 WHERE $where|;
   my $sth = $dbh->prepare($query);
   $sth->execute || $form->dberror($query);
index d7373d7..7426ca0 100644 (file)
@@ -2267,207 +2267,6 @@ sub delete_printer {
 }
 
 
-sub add_adr {
-  $lxdebug->enter_sub();
-
-  $form->{title} = "Add";
-
-  $form->{callback} =
-    "$form->{script}?action=add_adr&path=$form->{path}&login=$form->{login}&password=$form->{password}"
-    unless $form->{callback};
-
-  &adr_header;
-  &form_footer;
-
-  $lxdebug->leave_sub();
-}
-
-sub edit_adr {
-  $lxdebug->enter_sub();
-
-  $form->{title} = "Edit";
-
-  AM->get_adr(\%myconfig, \%$form);
-
-  &adr_header;
-
-  $form->{orphaned} = 1;
-  &form_footer;
-
-  $lxdebug->leave_sub();
-}
-
-sub list_adr {
-  $lxdebug->enter_sub();
-
-  AM->adr(\%myconfig, \%$form);
-
-  $form->{callback} =
-    "$form->{script}?action=list_adr&path=$form->{path}&login=$form->{login}&password=$form->{password}";
-
-  $callback = $form->escape($form->{callback});
-
-  $form->{title} = $locale->text('ADR');
-
-  @column_index = qw(adr_code adr_description);
-
-  $column_header{adr_description} =
-      qq|<th class=listheading width=60%>|
-    . $locale->text('ADR Description')
-    . qq|</th>|;
-  $column_header{adr_code} =
-      qq|<th class=listheading width=10%>|
-    . $locale->text('ADR Code')
-    . qq|</th>|;
-
-  $form->header;
-
-  print qq|
-<body>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>
-      <table width=100%>
-        <tr class=listheading>
-|;
-
-  map { print "$column_header{$_}\n" } @column_index;
-
-  print qq|
-        </tr>
-|;
-
-  foreach $ref (@{ $form->{ALL} }) {
-
-    $i++;
-    $i %= 2;
-
-    print qq|
-        <tr valign=top class=listrow$i>
-|;
-
-
-    $column_data{adr_code} =
-      qq|<td><a href=$form->{script}?action=edit_adr&id=$ref->{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{adr_code}</td>|;
-    $column_data{adr_description}           = qq|<td align=left>$ref->{adr_description}</td>|;
-
-
-    map { print "$column_data{$_}\n" } @column_index;
-
-    print qq|
-       </tr>
-|;
-  }
-
-  print qq|
-      </table>
-    </td>
-  </tr>
-  <tr>
-  <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<br>
-<form method=post action=$form->{script}>
-
-<input name=callback type=hidden value="$form->{callback}">
-
-<input type=hidden name=type value=adr>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=password value=$form->{password}>
-
-<input class=submit type=submit name=action value="|
-    . $locale->text('Add') . qq|">|;
-
-  if ($form->{menubar}) {
-    require "$form->{path}/menu.pl";
-    &menubar;
-  }
-
-  print qq|
-
-  </form>
-
-  </body>
-  </html>
-|;
-
-  $lxdebug->leave_sub();
-}
-
-sub adr_header {
-  $lxdebug->enter_sub();
-
-  $form->{title}    = $locale->text("$form->{title} ADR");
-
-  # $locale->text('Add ADR')
-  # $locale->text('Edit ADR')
-
-  $form->{adr_description} =~ s/\"/&quot;/g;
-  $form->{adr_code} =~ s/\"/&quot;/g;
-
-
-  $form->header;
-
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=id value=$form->{id}>
-<input type=hidden name=type value=adr>
-
-<table width=100%>
-  <tr>
-    <th class=listtop colspan=2>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <th align=right>| . $locale->text('ADR Code') . qq|</th>
-    <td><input name=adr_code size=30 value="$form->{adr_code}"></td>
-  <tr>
-  <tr>
-    <th align=right>| . $locale->text('ADR Description') . qq|</th>
-    <td><input name=adr_description size=60 value="$form->{adr_description}"></td>
-  </tr>
-  <td colspan=2><hr size=3 noshade></td>
-  </tr>
-</table>
-|;
-
-  $lxdebug->leave_sub();
-}
-
-sub save_adr {
-  $lxdebug->enter_sub();
-
-  $form->isblank("adr_description", $locale->text('ADR Description missing!'));
-  $form->isblank("adr_code", $locale->text('ADR Code missing!'));
-  AM->save_adr(\%myconfig, \%$form);
-  $form->redirect($locale->text('ADR saved!'));
-
-  $lxdebug->leave_sub();
-}
-
-
-sub delete_adr {
-  $lxdebug->enter_sub();
-
-  AM->delete_adr(\%myconfig, \%$form);
-  $form->redirect($locale->text('ADR deleted!'));
-
-  $lxdebug->leave_sub();
-}
-
-
 sub add_payment {
   $lxdebug->enter_sub();
 
index cb1d591..923a18a 100644 (file)
@@ -307,224 +307,6 @@ sub search_delivery {
   $lxdebug->leave_sub();
 }
 
-sub search_adr {
-  $lxdebug->enter_sub();
-
-  $form->{title} = $locale->text('ADR Report');
-
-  # use JavaScript Calendar or not
-  $form->{jsscript} = $jscalendar;
-  $jsscript = "";
-
-  if ($form->{jsscript}) {
-
-    # with JavaScript Calendar
-    $button1 = qq|
-       <td><input name=from id=from size=11 title="$myconfig{dateformat}" value=$form->{from}></td>
-       <td><input type=button name=from id="trigger1" value=|
-      . $locale->text('button') . qq|></td>
-       |;
-    $button2 = qq|
-       <td width="13"><input name=to id=to size=11 title="$myconfig{dateformat}" value=$form->{to}></td>
-       <td width="4"><input type=button name=to id="trigger2" value=|
-      . $locale->text('button') . qq|></td></td>
-     |;
-
-
-    #write Trigger
-    $jsscript =
-      Form->write_trigger(\%myconfig,     "2",
-                          "from",      "BL",
-                          "trigger1",     "to",
-                          "BL",           "trigger2");
-  } else {
-
-    # without JavaScript Calendar
-    $button1 =
-      qq|<td><input name=from size=11 title="$myconfig{dateformat}" value=$form->{from}></td>|;
-    $button2 =
-      qq|<td width="13"><input name=to size=11 title="$myconfig{dateformat}" value=$form->{to}></td>|;
-  }
-
-  $form->header;
-
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr valign=top>
-    <td>
-      <table>
-        <tr>
-          <th align=right nowrap>| . $locale->text('Year') . qq|</th>
-          <td><input name=year type=input value=$form->{year}></td>
-       <tr>
-         <th align=right nowrap>| . $locale->text('From') . qq|</th>
-          $button1
-       </tr>
-       <tr>
-         <th align=right nowrap>| . $locale->text('Bis') . qq|</th>
-         $button2
-       </tr>
-       <tr>
-         <td></td>
-         <td><input name=format class=radio type=radio value=html checked>&nbsp;|
-    . $locale->text('HTML') . qq|
-         <input name=format class=radio type=radio value=csv>&nbsp;|
-    . $locale->text('CSV') . qq|</td>
-       </tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-$jsscript
-<input type=hidden name=nextsub value=adr_report>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=password value=$form->{password}>
-
-<br>
-<input type=submit class=submit name=action value="|
-    . $locale->text('Continue') . qq|">
-</form>
-
-</body>
-</html>
-|;
-  $lxdebug->leave_sub();
-}
-sub adr_report {
-  $lxdebug->enter_sub();
-
-  CT->adr(\%myconfig, \%$form);
-
-  $form->{title} =  $locale->text('ADR Report');
-  if ($form->{from} || $form->{to}) {
-    $option = "Für den Zeitraum $form->{from} bis $form->{to}";
-  } elsif ($form->{year}) {
-    $option = "Für das Jahr $form->{year}";
-  }
-
-  if ($form->{format} eq "html") {
-      $form->header();
-      print qq|
-<body>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>$option</td>
-  </tr>
-</table>|;
-
-
-  @column_index =
-    $form->sort_columns(adr_code,
-                        adr_description,
-                        sum,
-                        unit);
-
-
-
-  $column_header{adr_code} =
-    qq|<th class=listheading>| . $locale->text('ADR Code') . qq|</th>|;
-  $column_header{adr_description} =
-      qq|<th class=listheading>|. $locale->text('ADR Description'). qq|</th>|;
-  $column_header{sum} =
-      qq|<th class=listheading>|. $locale->text('Quantity'). qq|</th>|;
-  $column_header{unit} =
-    qq|<th class=listheading>| . $locale->text('Unit') . qq|</th>|;
-
-  print qq|
-
-<table width=100%>
-  <tr>
-    <td>
-      <table width=100%>
-       <tr class=listheading>
-|;
-
-  map { print "$column_header{$_}\n" } @column_index;
-
-  print qq|
-        </tr>
-|;
-
-
-  foreach $ref (@{ $form->{ADR} }) {
-
-    map { $column_data{$_} = "<td>$ref->{$_}&nbsp;</td>" } @column_index;
-
-
-    $i++;
-    $i %= 2;
-    print "
-        <tr class=listrow$i>
-";
-
-    map { print "$column_data{$_}\n" } @column_index;
-
-    print qq|
-        </tr>
-|;
-
-
-  }
-
-  print qq|
-</table>
-</body>
-</html>
-|;
-  } else {
-  my $filename = "adr-report-$form->{from}-$form->{to}.csv";
-  if ($form->{year}) {
-    $filename = "adr-report-$form->{year}.csv";
-  }
-  @column_index =
-  $form->sort_columns(adr_code,
-                      adr_description,
-                      sum,
-                      unit);
-
-  $tmpfile = qq|ADR Code;ADR Beschreibung;Menge;Einheit\n|;
-    foreach $ref (@{ $form->{ADR} }) {
-  
-      map { $column_data{$_} = qq|"$ref->{$_}"| } @column_index;
-
-      $line = "";
-      map { $line .= "$column_data{$_};" } @column_index;
-      chomp($line);
-      $tmpfile .= qq|$line\n|;;
-    }
-  
-  my $size = length($tmpfile);
-  # launch application
-  print qq|Content-Type: application/csv
-Content-Disposition: attachment; filename="$filename"
-Content-Length: $size
-
-$tmpfile
-|;
-  }
-
-  $lxdebug->leave_sub();
-}
-
 sub list_names {
   $lxdebug->enter_sub();
 
@@ -1851,7 +1633,6 @@ sub get_delivery {
                         ordnumber,
                         transdate,
                         description,
-                        adr_code,
                         qty,
                         unit);
 
@@ -1867,8 +1648,6 @@ sub get_delivery {
     qq|<th class=listheading>| . $locale->text('Invdate') . qq|</th>|;
   $column_header{description} =
     qq|<th class=listheading>| . $locale->text('Description') . qq|</th>|;
-  $column_header{adr_code} =
-    qq|<th class=listheading>| . $locale->text('ADR') . qq|</th>|;
   $column_header{qty} =
     qq|<th class=listheading>| . $locale->text('Qty') . qq|</th>|;
   $column_header{unit} =
index db5a84c..80e0bbc 100644 (file)
@@ -2256,27 +2256,6 @@ sub form_header {
              </tr>|;
 
 
-  $form->{selectadr} = "<option></option>";
-  if (@{ $form->{ADR} }) {
-    foreach $item (@{ $form->{ADR} }) {
-      if ($item->{id} == $form->{adr_id}) {
-        $form->{selectadr} .=
-          "<option value=$item->{id} selected>$item->{adr_code}\n";
-      } else {
-        $form->{selectadr} .=
-          "<option value=$item->{id}>$item->{adr_code}\n";
-      }
-
-    }
-  }
-
-  $adr = qq|
-             <tr>
-               <th align=right>| . $locale->text('ADR') . qq|</th>
-               <td><select name=adr_id>$form->{selectadr}</select></td>
-             </tr>|;
-
-
   # set option
   foreach $item (qw(IC IC_income IC_expense)) {
     if ($form->{$item}) {
@@ -2628,7 +2607,6 @@ sub form_header {
                 <table>
                   $buchungsgruppe
                   $linkaccounts
-                  $adr
                 </table>
               </td>
               <tr>
index c7d7b69..e8084f1 100644 (file)
@@ -424,7 +424,6 @@ sub display_row {
 <input type=hidden name="cusordnumber_$i" value="$form->{"cusordnumber_$i"}">
 <input type=hidden name="longdescription_$i" value="$form->{"longdescription_$i"}">
 <input type=hidden name="basefactor_$i" value="$form->{"basefactor_$i"}">
-<input type=hidden name="adr_description_$i" value="$form->{"adr_description_$i"}">
 
 |;
 
@@ -640,7 +639,6 @@ sub select_item {
 <input name="new_longdescription_$i" type=hidden value="$ref->{longdescription}">
 <input name="new_not_discountable_$i" type=hidden value="$ref->{not_discountable}">
 <input name="new_part_payment_id_$i" type=hidden value="$ref->{part_payment_id}">
-<input name="new_adr_description_$i" type=hidden value="$ref->{adr_description}">
 
 <input name="new_id_$i" type=hidden value=$ref->{id}>
 
@@ -703,7 +701,7 @@ sub item_selected {
   $sellprice = $form->parse_amount(\%myconfig, $form->{"sellprice_$i"});
 
   map { $form->{"${_}_$i"} = $form->{"new_${_}_$j"} }
-    qw(id partnumber description sellprice listprice inventory_accno income_accno expense_accno bin unit weight assembly taxaccounts partsgroup formel alu longdescription not_discountable adr_description);
+    qw(id partnumber description sellprice listprice inventory_accno income_accno expense_accno bin unit weight assembly taxaccounts partsgroup formel alu longdescription not_discountable);
   if ($form->{"part_payment_id_$i"} ne "") {
     $form->{payment_id} = $form->{"part_payment_id_$i"};
   }
@@ -940,7 +938,7 @@ sub check_form {
   my @a     = ();
   my $count = 0;
   my @flds  = (
-    qw(id partnumber description qty ship sellprice unit discount inventory_accno income_accno expense_accno listprice taxaccounts bin assembly weight projectnumber project_id oldprojectnumber runningnumber serialnumber partsgroup payment_id not_discountable shop ve gv buchungsgruppen_id adr_id language_values)
+    qw(id partnumber description qty ship sellprice unit discount inventory_accno income_accno expense_accno listprice taxaccounts bin assembly weight projectnumber project_id oldprojectnumber runningnumber serialnumber partsgroup payment_id not_discountable shop ve gv buchungsgruppen_id language_values)
   );
 
 
diff --git a/sql/Pg-upgrade/Pg-upgrade-2.2.0.23-2.2.0.24.sql b/sql/Pg-upgrade/Pg-upgrade-2.2.0.23-2.2.0.24.sql
new file mode 100644 (file)
index 0000000..1835889
--- /dev/null
@@ -0,0 +1,2 @@
+ALTER TABLE parts DROP COLUMN adr_id;
+DROP TABLE adr;