path: root/LedgerSMB/IC.pm

#=====================================================================
# LedgerSMB 
# Small Medium Business Accounting software
# 
# Copyright (C) 2006
# This work contains copyrighted information from a number of sources all used
# with permission.
#
# This file contains source code included with or based on SQL-Ledger which
# is Copyright Dieter Simader and DWS Systems Inc. 2000-2005 and licensed
# under the GNU General Public License version 2 or, at your option, any later
# version.  For a full list including contact information of contributors,
# maintainers, and copyright holders, see the CONTRIBUTORS file.
#
# Original Copyright Notice from SQL-Ledger 2.6.17 (before the fork):
# Copyright (C) 2000
#
#  Author: DWS Systems Inc.
#     Web: http://www.sql-ledger.org
#
#  Contributors:
#
#======================================================================
#
# This file has NOT undergone whitespace cleanup.
#
#======================================================================
#
# Inventory Control backend
#
#======================================================================

package IC;


sub get_part {
  my ($self, $myconfig, $form) = @_;

  # connect to db
  my $dbh = $form->dbconnect($myconfig);
  my $i;

  my $query = qq|SELECT p.*,
                 c1.accno AS inventory_accno, c1.description AS inventory_description,
         c2.accno AS income_accno, c2.description AS income_description,
         c3.accno AS expense_accno, c3.description AS expense_description,
         pg.partsgroup
             FROM parts p
         LEFT JOIN chart c1 ON (p.inventory_accno_id = c1.id)
         LEFT JOIN chart c2 ON (p.income_accno_id = c2.id)
         LEFT JOIN chart c3 ON (p.expense_accno_id = c3.id)
         LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id)
                 WHERE p.id = $form->{id}|;
  my $sth = $dbh->prepare($query);
  $sth->execute || $form->dberror($query);
  my $ref = $sth->fetchrow_hashref(NAME_lc);

  # copy to $form variables
  for (keys %$ref) { $form->{$_} = $ref->{$_} }
  $sth->finish;
  
  my %oid = ('Pg'   => 'TRUE',
             'Oracle'   => 'a.rowid',
         'DB2'  => '1=1'
        );

  # part, service item or labor
  $form->{item} = ($form->{inventory_accno_id}) ? 'part' : 'service';
  $form->{item} = 'labor' if ! $form->{income_accno_id};
    
  if ($form->{assembly}) {
    $form->{item} = 'assembly';

    # retrieve assembly items
    $query = qq|SELECT p.id, p.partnumber, p.description,
                p.sellprice, p.weight, a.qty, a.bom, a.adj, p.unit,
        p.lastcost, p.listprice,
        pg.partsgroup, p.assembly, p.partsgroup_id
                FROM parts p
        JOIN assembly a ON (a.parts_id = p.id)
        LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id)
        WHERE a.id = $form->{id}
    |;

    $sth = $dbh->prepare($query);
    $sth->execute || $form->dberror($query);
    
    $form->{assembly_rows} = 0;
    while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
      $form->{assembly_rows}++;
      foreach my $key ( keys %{ $ref } ) {
    $form->{"${key}_$form->{assembly_rows}"} = $ref->{$key};
      }
    }
    $sth->finish;

  }

  # setup accno hash for <option checked> {amount} is used in create_links
  for (qw(inventory income expense)) { $form->{amount}{"IC_$_"} = { accno => $form->{"${_}_accno"}, description => $form->{"${_}_description"} } }


  if ($form->{item} =~ /(part|assembly)/) {
    # get makes
    if ($form->{makemodel} ne "") {
      $query = qq|SELECT make, model
                  FROM makemodel
                  WHERE parts_id = $form->{id}|;

      $sth = $dbh->prepare($query);
      $sth->execute || $form->dberror($query);
      
      while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
    push @{ $form->{makemodels} }, $ref;
      }
      $sth->finish;
    }
  }

  # now get accno for taxes
  $query = qq|SELECT c.accno
              FROM chart c, partstax pt
          WHERE pt.chart_id = c.id
          AND pt.parts_id = $form->{id}|;
  
  $sth = $dbh->prepare($query);
  $sth->execute || $form->dberror($query);

  while (($key) = $sth->fetchrow_array) {
    $form->{amount}{$key} = $key;
  }

  $sth->finish;

  # is it an orphan
  $query = qq|SELECT parts_id
              FROM invoice
          WHERE parts_id = $form->{id}
        UNION
          SELECT parts_id
          FROM orderitems
          WHERE parts_id = $form->{id}
        UNION
          SELECT parts_id
          FROM assembly
          WHERE parts_id = $form->{id}
        UNION
          SELECT parts_id
          FROM jcitems
          WHERE parts_id = $form->{id}|;
  ($form->{orphaned}) = $dbh->selectrow_array($query);
  $form->{orphaned} = !$form->{orphaned};

  $form->{orphaned} = 0 if $form->{project_id};

  if ($form->{item} eq 'assembly') {
    if ($form->{orphaned}) {
      $form->{orphaned} = !$form->{onhand};
    }
  }

  if ($form->{item} =~ /(part|service)/) {
    # get vendors
    $query = qq|SELECT v.id, v.name, pv.partnumber,
                pv.lastcost, pv.leadtime, pv.curr AS vendorcurr
        FROM partsvendor pv
        JOIN vendor v ON (v.id = pv.vendor_id)
        WHERE pv.parts_id = $form->{id}
        ORDER BY 2|;
    
    $sth = $dbh->prepare($query);
    $sth->execute || $form->dberror($query);
    
    while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
      push @{ $form->{vendormatrix} }, $ref;
    }
    $sth->finish;
  }
 
  # get matrix
  if ($form->{item} ne 'labor') {
    $query = qq|SELECT pc.pricebreak, pc.sellprice AS customerprice,
        pc.curr AS customercurr,
        pc.validfrom, pc.validto,
        c.name, c.id AS cid, g.pricegroup, g.id AS gid
        FROM partscustomer pc
        LEFT JOIN customer c ON (c.id = pc.customer_id)
        LEFT JOIN pricegroup g ON (g.id = pc.pricegroup_id)
        WHERE pc.parts_id = $form->{id}
        ORDER BY c.name, g.pricegroup, pc.pricebreak|;
    $sth = $dbh->prepare($query);
    $sth->execute || $form->dberror($query);

    while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
      push @{ $form->{customermatrix} }, $ref;
    }
    $sth->finish;
  }
 
  $dbh->disconnect;
  
}


sub save {
  my ($self, $myconfig, $form) = @_;

  ($form->{inventory_accno}) = split(/--/, $form->{IC_inventory});
  ($form->{expense_accno}) = split(/--/, $form->{IC_expense});
  ($form->{income_accno}) = split(/--/, $form->{IC_income});

  # connect to database, turn off AutoCommit
  my $dbh = $form->dbconnect_noauto($myconfig);

  # save the part
  # make up a unique handle and store in partnumber field
  # then retrieve the record based on the unique handle to get the id
  # replace the partnumber field with the actual variable
  # add records for makemodel

  # if there is a $form->{id} then replace the old entry
  # delete all makemodel entries and add the new ones

  # undo amount formatting
  for (qw(rop weight listprice sellprice lastcost stock)) { $form->{$_} = $form->parse_amount($myconfig, $form->{$_}) }
  
  $form->{makemodel} = (($form->{make_1}) || ($form->{model_1})) ? 1 : 0;

  $form->{assembly} = ($form->{item} eq 'assembly') ? 1 : 0;
  for (qw(alternate obsolete onhand)) { $form->{$_} *= 1 }
  
  my $query;
  my $sth;
  my $i;
  my $null;
  my $vendor_id;
  my $customer_id;
  
  if ($form->{id}) {

    # get old price
    $query = qq|SELECT id, listprice, sellprice, lastcost, weight, project_id
                FROM parts
        WHERE id = $form->{id}|;
    my ($id, $listprice, $sellprice, $lastcost, $weight, $project_id) = $dbh->selectrow_array($query);

    if ($id) {
      
      if (!$project_id) {
    # if item is part of an assembly adjust all assemblies
    $query = qq|SELECT id, qty, adj
            FROM assembly
            WHERE parts_id = $form->{id}|;
    $sth = $dbh->prepare($query);
    $sth->execute || $form->dberror($query);
    while (my ($id, $qty, $adj) = $sth->fetchrow_array) {
      &update_assembly($dbh, $form, $id, $qty, $adj, $listprice * 1, $sellprice * 1, $lastcost * 1, $weight * 1);
    }
    $sth->finish;
      }

      if ($form->{item} =~ /(part|service)/) {
    # delete partsvendor records
    $query = qq|DELETE FROM partsvendor
            WHERE parts_id = $form->{id}|;
    $dbh->do($query) || $form->dberror($query);
      }
       
      if ($form->{item} !~ /(service|labor)/) {
    # delete makemodel records
    $query = qq|DELETE FROM makemodel
            WHERE parts_id = $form->{id}|;
    $dbh->do($query) || $form->dberror($query);
      }

      if ($form->{item} eq 'assembly') {

    if ($form->{onhand}) {
      &adjust_inventory($dbh, $form, $form->{id}, $form->{onhand} * -1);
    }
    
    if ($form->{orphaned}) {
      # delete assembly records
      $query = qq|DELETE FROM assembly
              WHERE id = $form->{id}|;
      $dbh->do($query) || $form->dberror($query);
    } else {

      for $i (1 .. $form->{assembly_rows} - 1) {
        # update BOM, A only
        for (qw(bom adj)) { $form->{"${_}_$i"} *= 1 }

        $query = qq|UPDATE assembly SET
                    bom = '$form->{"bom_$i"}',
            adj = '$form->{"adj_$i"}'
            WHERE id = $form->{id}
            AND parts_id = $form->{"id_$i"}|;
        $dbh->do($query) || $form->dberror($query);
      }
    }

    $form->{onhand} += $form->{stock};

      }

      # delete tax records
      $query = qq|DELETE FROM partstax
          WHERE parts_id = $form->{id}|;
      $dbh->do($query) || $form->dberror($query);

      # delete matrix
      $query = qq|DELETE FROM partscustomer
          WHERE parts_id = $form->{id}|;
      $dbh->do($query) || $form->dberror($query);
      
    } else {
      $query = qq|INSERT INTO parts (id)
                  VALUES ($form->{id})|;
      $dbh->do($query) || $form->dberror($query);
    }

  }
  
  
  if (!$form->{id}) {
    my $uid = localtime;
    $uid .= "$$";

    $query = qq|INSERT INTO parts (partnumber)
                VALUES ('$uid')|;
    $dbh->do($query) || $form->dberror($query);

    $query = qq|SELECT id FROM parts
                WHERE partnumber = '$uid'|;
    $sth = $dbh->prepare($query);
    $sth->execute || $form->dberror($query);
    ($form->{id}) = $sth->fetchrow_array;
    $sth->finish;

    $form->{orphaned} = 1;
    $form->{onhand} = ($form->{stock} * 1) if $form->{item} eq 'assembly';
    
  }

  my $partsgroup_id;
  ($null, $partsgroup_id) = split /--/, $form->{partsgroup};
  $partsgroup_id *= 1;

  $form->{partnumber} = $form->update_defaults($myconfig, "partnumber", $dbh) if ! $form->{partnumber};

  $query = qq|UPDATE parts SET
          partnumber = |.$dbh->quote($form->{partnumber}).qq|,
          description = |.$dbh->quote($form->{description}).qq|,
          makemodel = '$form->{makemodel}',
          alternate = '$form->{alternate}',
          assembly = '$form->{assembly}',
          listprice = $form->{listprice},
          sellprice = $form->{sellprice},
          lastcost = $form->{lastcost},
          weight = $form->{weight},
          priceupdate = |.$form->dbquote($form->{priceupdate}, SQL_DATE).qq|,
          unit = |.$dbh->quote($form->{unit}).qq|,
          notes = |.$dbh->quote($form->{notes}).qq|,
          rop = $form->{rop},
          bin = |.$dbh->quote($form->{bin}).qq|,
          inventory_accno_id = (SELECT id FROM chart
                    WHERE accno = '$form->{inventory_accno}'),
          income_accno_id = (SELECT id FROM chart
                 WHERE accno = '$form->{income_accno}'),
          expense_accno_id = (SELECT id FROM chart
                  WHERE accno = '$form->{expense_accno}'),
              obsolete = '$form->{obsolete}',
          image = '$form->{image}',
          drawing = '$form->{drawing}',
          microfiche = '$form->{microfiche}',
          partsgroup_id = $partsgroup_id
          WHERE id = $form->{id}|;
  $dbh->do($query) || $form->dberror($query);

 
  # insert makemodel records
  if ($form->{item} =~ /(part|assembly)/) {
    for $i (1 .. $form->{makemodel_rows}) {
      if (($form->{"make_$i"} ne "") || ($form->{"model_$i"} ne "")) {
    $query = qq|INSERT INTO makemodel (parts_id, make, model)
            VALUES ($form->{id},|
            .$dbh->quote($form->{"make_$i"}).qq|, |
            .$dbh->quote($form->{"model_$i"}).qq|)|;
    $dbh->do($query) || $form->dberror($query);
      }
    }
  }


  # insert taxes
  for (split / /, $form->{taxaccounts}) {
    if ($form->{"IC_tax_$_"}) {
      $query = qq|INSERT INTO partstax (parts_id, chart_id)
                  VALUES ($form->{id}, 
                  (SELECT id
               FROM chart
               WHERE accno = '$_'))|;
      $dbh->do($query) || $form->dberror($query);
    }
  }
  
  
  @a = localtime;
  $a[5] += 1900;
  $a[4]++;
  $a[4] = substr("0$a[4]", -2);
  $a[3] = substr("0$a[3]", -2);
  my $shippingdate = "$a[5]$a[4]$a[3]";
  
  ($form->{employee}, $form->{employee_id}) = $form->get_employee($dbh);
 
  # add assembly records
  if ($form->{item} eq 'assembly' && !$project_id) {
    
    if ($form->{orphaned}) {
      for $i (1 .. $form->{assembly_rows}) {
    $form->{"qty_$i"} = $form->parse_amount($myconfig, $form->{"qty_$i"});
    
    if ($form->{"qty_$i"}) {
      for (qw(bom adj)) { $form->{"${_}_$i"} *= 1 }
      $query = qq|INSERT INTO assembly (id, parts_id, qty, bom, adj)
              VALUES ($form->{id}, $form->{"id_$i"},
              $form->{"qty_$i"}, '$form->{"bom_$i"}',
              '$form->{"adj_$i"}')|;
      $dbh->do($query) || $form->dberror($query);
    }
      }
    }
    
    # adjust onhand for the parts
    if ($form->{onhand}) {
      &adjust_inventory($dbh, $form, $form->{id}, $form->{onhand});
    }

  }

  # add vendors
  if ($form->{item} ne 'assembly') {
    $updparts{$form->{id}} = 1;
    
    for $i (1 .. $form->{vendor_rows}) {
      if (($form->{"vendor_$i"} ne "") && $form->{"lastcost_$i"}) {

        ($null, $vendor_id) = split /--/, $form->{"vendor_$i"};
    
    for (qw(lastcost leadtime)) { $form->{"${_}_$i"} = $form->parse_amount($myconfig, $form->{"${_}_$i"})}
    
    $query = qq|INSERT INTO partsvendor (vendor_id, parts_id, partnumber,
                lastcost, leadtime, curr)
            VALUES ($vendor_id, $form->{id},|
            .$dbh->quote($form->{"partnumber_$i"}).qq|,
            $form->{"lastcost_$i"},
            $form->{"leadtime_$i"}, '$form->{"vendorcurr_$i"}')|;
    $dbh->do($query) || $form->dberror($query);
      }
    }
  }
  
  
  # add pricematrix
  for $i (1 .. $form->{customer_rows}) {

    for (qw(pricebreak customerprice)) { $form->{"${_}_$i"} = $form->parse_amount($myconfig, $form->{"${_}_$i"})}

    if ($form->{"customerprice_$i"}) {

      ($null, $customer_id) = split /--/, $form->{"customer_$i"};
      $customer_id *= 1;
      
      ($null, $pricegroup_id) = split /--/, $form->{"pricegroup_$i"};
      $pricegroup_id *= 1;
      
      $query = qq|INSERT INTO partscustomer (parts_id, customer_id,
                  pricegroup_id, pricebreak, sellprice, curr,
          validfrom, validto)
          VALUES ($form->{id}, $customer_id,
          $pricegroup_id, $form->{"pricebreak_$i"},
          $form->{"customerprice_$i"}, '$form->{"customercurr_$i"}',|
          .$form->dbquote($form->{"validfrom_$i"}, SQL_DATE).qq|, |
          .$form->dbquote($form->{"validto_$i"}, SQL_DATE).qq|)|;
      $dbh->do($query) || $form->dberror($query);
    }
  }

  # commit
  my $rc = $dbh->commit;
  $dbh->disconnect;

  $rc;
  
}



sub update_assembly {
  my ($dbh, $form, $id, $qty, $adj, $listprice, $sellprice, $lastcost, $weight) = @_;

  my $formlistprice = $form->{listprice};
  my $formsellprice = $form->{sellprice};
  
  if (!$adj) {
    $formlistprice = $listprice;
    $formsellprice = $sellprice;
  }
  
  my $query = qq|SELECT id, qty, adj
                 FROM assembly
             WHERE parts_id = $id|;
  my $sth = $dbh->prepare($query);
  $sth->execute || $form->dberror($query);

  $form->{$id} = 1;
  
  while (my ($pid, $aqty, $aadj) = $sth->fetchrow_array) {
    &update_assembly($dbh, $form, $pid, $aqty * $qty, $aadj, $listprice, $sellprice, $lastcost, $weight) if !$form->{$pid};
  }
  $sth->finish;

  $query = qq|UPDATE parts
              SET listprice = listprice +
              $qty * ($formlistprice - $listprice),
              sellprice = sellprice +
              $qty * ($formsellprice - $sellprice),
          lastcost = lastcost +
          $qty * ($form->{lastcost} - $lastcost),
                  weight = weight +
          $qty * ($form->{weight} - $weight)
          WHERE id = $id|;
  $dbh->do($query) || $form->dberror($query);

  delete $form->{$id};
  
}



sub retrieve_assemblies {
  my ($self, $myconfig, $form) = @_;
  
  # connect to database
  my $dbh = $form->dbconnect($myconfig);

  my $where = '1 = 1';
  
  if ($form->{partnumber} ne "") {
    my $partnumber = $form->like(lc $form->{partnumber});
    $where .= " AND lower(p.partnumber) LIKE '$partnumber'";
  }
  
  if ($form->{description} ne "") {
    my $description = $form->like(lc $form->{description});
    $where .= " AND lower(p.description) LIKE '$description'";
  }
  $where .= qq| AND p.obsolete = '0'
                AND p.project_id IS NULL|;

  my %ordinal = ( 'partnumber' => 2,
                  'description' => 3,
          'bin' => 4
        );

  my @a = qw(partnumber description bin);
  my $sortorder = $form->sort_order(\@a, \%ordinal);
  
  
  # retrieve assembly items
  my $query = qq|SELECT p.id, p.partnumber, p.description,
                 p.bin, p.onhand, p.rop
                 FROM parts p
         WHERE $where
         AND p.assembly = '1'
         ORDER BY $sortorder|;

  my $sth = $dbh->prepare($query);
  $sth->execute || $form->dberror($query);
  
  $query = qq|SELECT sum(p.inventory_accno_id), p.assembly
              FROM parts p
          JOIN assembly a ON (a.parts_id = p.id)
          WHERE a.id = ?
          GROUP BY p.assembly|;
  my $svh = $dbh->prepare($query) || $form->dberror($query);
  
  my $inh;
  if ($form->{checkinventory}) {
    $query = qq|SELECT p.id, p.onhand, a.qty
                FROM parts p
                JOIN assembly a ON (a.parts_id = p.id)
        WHERE (p.inventory_accno_id > 0 OR p.assembly)
        AND p.income_accno_id > 0
                AND a.id = ?|;
    $inh = $dbh->prepare($query) || $form->dberror($query);
  }
  
  my %available = ();
  my %required;
  my $ref;
  my $aref;
  my $stock;
  my $howmany;
  my $ok;
  
  while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
    $svh->execute($ref->{id});
    ($ref->{inventory}, $ref->{assembly}) = $svh->fetchrow_array;
    $svh->finish;
    
    if ($ref->{inventory} || $ref->{assembly}) {
      $ok = 1;
      if ($form->{checkinventory}) {
    $inh->execute($ref->{id}) || $form->dberror($query);;
    $ok = 0;
    %required = ();
    
    while ($aref = $inh->fetchrow_hashref(NAME_lc)) {
      $available{$aref->{id}} = (exists $available{$aref->{id}}) ? $available{$aref->{id}} : $aref->{onhand};
      $required{$aref->{id}} = $aref->{qty};
      
      if ($available{$aref->{id}} >= $aref->{qty}) {
        
        $howmany = ($aref->{qty}) ? int $available{$aref->{id}}/$aref->{qty} : 1;
        if ($stock) {
          $stock = ($stock > $howmany) ? $howmany : $stock;
        } else {
          $stock = $howmany;
        }
        $ok = 1;

        $available{$aref->{id}} -= $aref->{qty} * $stock;

      } else {
        $ok = 0;
        for (keys %required) { $available{$_} += $required{$_} * $stock }
        $stock = 0;
        last;
      }
    }
    $inh->finish;
    $ref->{stock} = $stock;
    
      }
      push @{ $form->{assembly_items} }, $ref if $ok;
    }
  }
  $sth->finish;

  $dbh->disconnect;
  
}


sub restock_assemblies {
  my ($self, $myconfig, $form) = @_;

  # connect to database
  my $dbh = $form->dbconnect_noauto($myconfig);
   
  for my $i (1 .. $form->{rowcount}) {

    $form->{"qty_$i"} = $form->parse_amount($myconfig, $form->{"qty_$i"});

    if ($form->{"qty_$i"}) {
      &adjust_inventory($dbh, $form, $form->{"id_$i"}, $form->{"qty_$i"});
    }
 
  }

  my $rc = $dbh->commit;
  $dbh->disconnect;

  $rc;

}


sub adjust_inventory {
  my ($dbh, $form, $id, $qty) = @_;

  my $query = qq|SELECT p.id, p.inventory_accno_id, p.assembly, a.qty
         FROM parts p
         JOIN assembly a ON (a.parts_id = p.id)
         WHERE a.id = $id|;
  my $sth = $dbh->prepare($query);
  $sth->execute || $form->dberror($query);

  while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {

    # is it a service item then loop
    if (! $ref->{inventory_accno_id}) {
      next if ! $ref->{assembly};              # assembly
    }
    
    # adjust parts onhand
    $form->update_balance($dbh,
              "parts",
              "onhand",
              qq|id = $ref->{id}|,
              $qty * $ref->{qty} * -1);
  }

  $sth->finish;

  # update assembly
  $form->update_balance($dbh,
            "parts",
            "onhand",
            qq|id = $id|,
            $qty);

}


sub delete {
  my ($self, $myconfig, $form) = @_;

  # connect to database, turn off AutoCommit
  my $dbh = $form->dbconnect_noauto($myconfig);

  my $query;

  $query = qq|DELETE FROM parts
          WHERE id = $form->{id}|;
  $dbh->do($query) || $form->dberror($query);

  $query = qq|DELETE FROM partstax
          WHERE parts_id = $form->{id}|;
  $dbh->do($query) || $form->dberror($query);


  if ($form->{item} ne 'assembly') {
    $query = qq|DELETE FROM partsvendor
        WHERE parts_id = $form->{id}|;
    $dbh->do($query) || $form->dberror($query);
  }

  # check if it is a part, assembly or service
  if ($form->{item} ne 'service') {
    $query = qq|DELETE FROM makemodel
        WHERE parts_id = $form->{id}|;
    $dbh->do($query) || $form->dberror($query);
  }

  if ($form->{item} eq 'assembly') {
    $query = qq|DELETE FROM assembly
        WHERE id = $form->{id}|;
    $dbh->do($query) || $form->dberror($query);
  }
  
  if ($form->{item} eq 'alternate') {
    $query = qq|DELETE FROM alternate
        WHERE id = $form->{id}|;
    $dbh->do($query) || $form->dberror($query);
  }

  $query = qq|DELETE FROM inventory
          WHERE parts_id = $form->{id}|;
  $dbh->do($query) || $form->dberror($query);
  
  $query = qq|DELETE FROM partscustomer
          WHERE parts_id = $form->{id}|;
  $dbh->do($query) || $form->dberror($query);
  
  $query = qq|DELETE FROM translation
          WHERE trans_id = $form->{id}|;
  $dbh->do($query) || $form->dberror($query);

  # commit
  my $rc = $dbh->commit;
  $dbh->disconnect;

  $rc;
  
}


sub assembly_item {
  my ($self, $myconfig, $form) = @_;

  my $i = $form->{assembly_rows};
  my $var;
  my $null;
  my $where = "p.obsolete = '0'";

  if ($form->{"partnumber_$i"} ne "") {
    $var = $form->like(lc $form->{"partnumber_$i"});
    $where .= " AND lower(p.partnumber) LIKE '$var'";
  }
  if ($form->{"description_$i"} ne "") {
    $var = $form->like(lc $form->{"description_$i"});
    $where .= " AND lower(p.description) LIKE '$var'";
  }
  if ($form->{"partsgroup_$i"} ne "") {
    ($null, $var) = split /--/, $form->{"partsgroup_$i"};
    $where .= qq| AND p.partsgroup_id = $var|;
  }

  if ($form->{id}) {
    $where .= " AND p.id != $form->{id}";
  }

  if ($form->{"description_$i"} ne "") {
    $where .= " ORDER BY p.description";
  } else {
    $where .= " ORDER BY p.partnumber";
  }

  # connect to database
  my $dbh = $form->dbconnect($myconfig);

  my $query = qq|SELECT p.id, p.partnumber, p.description, p.sellprice,
                 p.weight, p.onhand, p.unit, p.lastcost,
         pg.partsgroup, p.partsgroup_id
         FROM parts p
         LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id)
         WHERE $where|;
  my $sth = $dbh->prepare($query);
  $sth->execute || $form->dberror($query);

  while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
    push @{ $form->{item_list} }, $ref;
  }
  
  $sth->finish;
  $dbh->disconnect;
  
}


sub all_parts {
  my ($self, $myconfig, $form) = @_;

  my $where = '1 = 1';
  my $null;
  my $var;
  my $ref;
  
  for (qw(partnumber drawing microfiche)) {
    if ($form->{$_} ne "") {
      $var = $form->like(lc $form->{$_});
      $where .= " AND lower(p.$_) LIKE '$var'";
    }
  }
  # special case for description
  if ($form->{description} ne "") {
    unless ($form->{bought} || $form->{sold} || $form->{onorder} || $form->{ordered} || $form->{rfq} || $form->{quoted}) {
      $var = $form->like(lc $form->{description});
      $where .= " AND lower(p.description) LIKE '$var'";
    }
  }
  
  # assembly components
  my $assemblyflds;
  if ($form->{searchitems} eq 'component') {
    $assemblyflds = qq|, p1.partnumber AS assemblypartnumber, a.id AS assembly_id|;
  }

  # special case for serialnumber
  if ($form->{l_serialnumber}) {
    if ($form->{serialnumber} ne "") {
      $var = $form->like(lc $form->{serialnumber});
      $where .= " AND lower(i.serialnumber) LIKE '$var'";
    }
  }

  if (($form->{warehouse} ne "") || $form->{l_warehouse}) {
    $form->{l_warehouse} = 1;
  }
  
  if ($form->{searchitems} eq 'part') {
    $where .= " AND p.inventory_accno_id > 0 AND p.income_accno_id > 0";
  }
  if ($form->{searchitems} eq 'assembly') {
    $form->{bought} = "";
    $where .= " AND p.assembly = '1'";
  }
  if ($form->{searchitems} eq 'service') {
    $where .= " AND p.assembly = '0' AND p.inventory_accno_id IS NULL";
  }
  if ($form->{searchitems} eq 'labor') {
    $where .= " AND p.inventory_accno_id > 0 AND p.income_accno_id IS NULL";
  }

  # items which were never bought, sold or on an order
  if ($form->{itemstatus} eq 'orphaned') {
    $where .= qq| AND p.onhand = 0
                  AND p.id NOT IN (SELECT p.id FROM parts p
                           JOIN invoice i ON (p.id = i.parts_id))
          AND p.id NOT IN (SELECT p.id FROM parts p
                           JOIN assembly a ON (p.id = a.parts_id))
                  AND p.id NOT IN (SELECT p.id FROM parts p
                           JOIN orderitems o ON (p.id = o.parts_id))
          AND p.id NOT IN (SELECT p.id FROM parts p
                           JOIN jcitems j ON (p.id = j.parts_id))|;
  }
  
  if ($form->{itemstatus} eq 'active') {
    $where .= " AND p.obsolete = '0'";
  }
  if ($form->{itemstatus} eq 'obsolete') {
    $where .= " AND p.obsolete = '1'";
  }
  if ($form->{itemstatus} eq 'onhand') {
    $where .= " AND p.onhand > 0";
  }
  if ($form->{itemstatus} eq 'short') {
    $where .= " AND p.onhand < p.rop";
  }

  my $makemodelflds = qq|, '', ''|;;
  my $makemodeljoin;
  
  if (($form->{make} ne "") || $form->{l_make} || ($form->{model} ne "") || $form->{l_model}) {
    $makemodelflds = qq|, m.make, m.model|;
    $makemodeljoin = qq|LEFT JOIN makemodel m ON (m.parts_id = p.id)|;
    
    if ($form->{make} ne "") {
      $var = $form->like(lc $form->{make});
      $where .= " AND lower(m.make) LIKE '$var'";
    }
    if ($form->{model} ne "") {
      $var = $form->like(lc $form->{model});
      $where .= " AND lower(m.model) LIKE '$var'";
    }
  }
  if ($form->{partsgroup} ne "") {
    ($null, $var) = split /--/, $form->{partsgroup};
    $where .= qq| AND p.partsgroup_id = $var|;
  }

  # connect to database
  my $dbh = $form->dbconnect($myconfig);

  my %ordinal = ( 'partnumber' => 2,
                  'description' => 3,
          'bin' => 6,
          'priceupdate' => 13,
          'drawing' => 15,
          'microfiche' => 16,
          'partsgroup' => 18,
          'make' => 21,
          'model' => 22,
          'assemblypartnumber' => 23
        );
  
  my @a = qw(partnumber description);
  my $sortorder = $form->sort_order(\@a, \%ordinal);

  my $query = qq|SELECT curr FROM defaults|;
  my ($curr) = $dbh->selectrow_array($query);
  $curr =~ s/:.*//;
  
  my $flds = qq|p.id, p.partnumber, p.description, p.onhand, p.unit,
                p.bin, p.sellprice, p.listprice, p.lastcost, p.rop,
        p.avgcost,
        p.weight, p.priceupdate, p.image, p.drawing, p.microfiche,
        p.assembly, pg.partsgroup, '$curr' AS curr,
        c1.accno AS inventory, c2.accno AS income, c3.accno AS expense,
        p.notes
        $makemodelflds $assemblyflds
        |;

  $query = qq|SELECT $flds
          FROM parts p
          LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id)
          LEFT JOIN chart c1 ON (c1.id = p.inventory_accno_id)
          LEFT JOIN chart c2 ON (c2.id = p.income_accno_id)
          LEFT JOIN chart c3 ON (c3.id = p.expense_accno_id)
          $makemodeljoin
          WHERE $where
          ORDER BY $sortorder|;

  # redo query for components report
  if ($form->{searchitems} eq 'component') {
    
    $flds =~ s/p.onhand/a.qty AS onhand/;
    
    $query = qq|SELECT $flds
        FROM assembly a
        JOIN parts p ON (a.parts_id = p.id)
        JOIN parts p1 ON (a.id = p1.id)
        LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id)
        LEFT JOIN chart c1 ON (c1.id = p.inventory_accno_id)
        LEFT JOIN chart c2 ON (c2.id = p.income_accno_id)
        LEFT JOIN chart c3 ON (c3.id = p.expense_accno_id)
        $makemodeljoin
            WHERE $where
            ORDER BY $sortorder|;
  }


  # rebuild query for bought and sold items
  if ($form->{bought} || $form->{sold} || $form->{onorder} || $form->{ordered} || $form->{rfq} || $form->{quoted}) {

    $form->sort_order();
    @a = qw(partnumber description curr employee name serialnumber id);
    push @a, "invnumber" if ($form->{bought} || $form->{sold});
    push @a, "ordnumber" if ($form->{onorder} || $form->{ordered});
    push @a, "quonumber" if ($form->{rfq} || $form->{quoted});

    %ordinal = ( 'partnumber' => 2,
                 'description' => 3,
         'serialnumber' => 4,
         'bin' => 7,
         'priceupdate' => 14,
         'partsgroup' => 19,
         'invnumber' => 20,
         'ordnumber' => 21,
         'quonumber' => 22,
         'name' => 24,
         'employee' => 25,
         'curr' => 26,
         'make' => 29,
         'model' => 30
           );
    
    $sortorder = $form->sort_order(\@a, \%ordinal);

    my $union = "";
    $query = "";
  
    if ($form->{bought} || $form->{sold}) {
      
      my $invwhere = "$where";
      my $transdate = ($form->{method} eq 'accrual') ? "transdate" : "datepaid";
      
      $invwhere .= " AND i.assemblyitem = '0'";
      $invwhere .= " AND a.$transdate >= '$form->{transdatefrom}'" if $form->{transdatefrom};
      $invwhere .= " AND a.$transdate <= '$form->{transdateto}'" if $form->{transdateto};

      if ($form->{description} ne "") {
    $var = $form->like(lc $form->{description});
    $invwhere .= " AND lower(i.description) LIKE '$var'";
      }

      if ($form->{open} || $form->{closed}) {
    if ($form->{open} && $form->{closed}) {
      if ($form->{method} eq 'cash') {
        $invwhere .= " AND a.amount = a.paid";
      }
    } else {
      if ($form->{open}) {
        if ($form->{method} eq 'cash') {
          $invwhere .= " AND a.id = 0";
        } else {
          $invwhere .= " AND NOT a.amount = a.paid";
        }
      } else {
        $invwhere .= " AND a.amount = a.paid";
      }
    }
      } else {
    $invwhere .= " AND a.id = 0";
      }

      my $flds = qq|p.id, p.partnumber, i.description, i.serialnumber,
                    i.qty AS onhand, i.unit, p.bin, i.sellprice,
            p.listprice, p.lastcost, p.rop, p.weight,
            p.avgcost,
            p.priceupdate, p.image, p.drawing, p.microfiche,
            p.assembly,
            pg.partsgroup, a.invnumber, a.ordnumber, a.quonumber,
            i.trans_id, ct.name, e.name AS employee, a.curr, a.till,
            p.notes
            $makemodelfld|;


      if ($form->{bought}) {
    my $rflds = $flds;
    $rflds =~ s/i.qty AS onhand/i.qty * -1 AS onhand/;

    $query = qq|
                SELECT $rflds, 'ir' AS module, '' AS type,
            (SELECT sell FROM exchangerate ex
             WHERE ex.curr = a.curr
             AND ex.transdate = a.$transdate) AS exchangerate,
             i.discount
            FROM invoice i
            JOIN parts p ON (p.id = i.parts_id)
            JOIN ap a ON (a.id = i.trans_id)
            JOIN vendor ct ON (a.vendor_id = ct.id)
            LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id)
            LEFT JOIN employee e ON (a.employee_id = e.id)
            $makemodeljoin
            WHERE $invwhere|;
    $union = "
              UNION ALL";
      }

      if ($form->{sold}) {
    $query .= qq|$union
                     SELECT $flds, 'is' AS module, '' AS type,
            (SELECT buy FROM exchangerate ex
             WHERE ex.curr = a.curr
             AND ex.transdate = a.$transdate) AS exchangerate,
             i.discount
             FROM invoice i
             JOIN parts p ON (p.id = i.parts_id)
             JOIN ar a ON (a.id = i.trans_id)
             JOIN customer ct ON (a.customer_id = ct.id)
             LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id)
             LEFT JOIN employee e ON (a.employee_id = e.id)
             $makemodeljoin
             WHERE $invwhere|;
    $union = "
              UNION ALL";
      }
    }

    if ($form->{onorder} || $form->{ordered}) {
      my $ordwhere = "$where
             AND a.quotation = '0'";
      $ordwhere .= " AND a.transdate >= '$form->{transdatefrom}'" if $form->{transdatefrom};
      $ordwhere .= " AND a.transdate <= '$form->{transdateto}'" if $form->{transdateto};

      if ($form->{description} ne "") {
    $var = $form->like(lc $form->{description});
    $ordwhere .= " AND lower(i.description) LIKE '$var'";
      }
      
      if ($form->{open} || $form->{closed}) {
    unless ($form->{open} && $form->{closed}) {
      $ordwhere .= " AND a.closed = '0'" if $form->{open};
      $ordwhere .= " AND a.closed = '1'" if $form->{closed};
    }
      } else {
    $ordwhere .= " AND a.id = 0";
      }

      $flds = qq|p.id, p.partnumber, i.description, i.serialnumber,
                 i.qty AS onhand, i.unit, p.bin, i.sellprice,
             p.listprice, p.lastcost, p.rop, p.weight,
         p.avgcost,
         p.priceupdate, p.image, p.drawing, p.microfiche,
         p.assembly,
         pg.partsgroup, '' AS invnumber, a.ordnumber, a.quonumber,
         i.trans_id, ct.name, e.name AS employee, a.curr, '0' AS till,
         p.notes
         $makemodelfld|;

      if ($form->{ordered}) {
    $query .= qq|$union
                     SELECT $flds, 'oe' AS module, 'sales_order' AS type,
            (SELECT buy FROM exchangerate ex
             WHERE ex.curr = a.curr
             AND ex.transdate = a.transdate) AS exchangerate,
             i.discount
             FROM orderitems i
             JOIN parts p ON (i.parts_id = p.id)
             JOIN oe a ON (i.trans_id = a.id)
             JOIN customer ct ON (a.customer_id = ct.id)
             LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id)
             LEFT JOIN employee e ON (a.employee_id = e.id)
             $makemodeljoin
             WHERE $ordwhere
             AND a.customer_id > 0|;
    $union = "
              UNION ALL";
      }
      
      if ($form->{onorder}) {
        $flds = qq|p.id, p.partnumber, i.description, i.serialnumber,
                   i.qty AS onhand, i.unit, p.bin, i.sellprice,
           p.listprice, p.lastcost, p.rop, p.weight,
           p.avgcost,
           p.priceupdate, p.image, p.drawing, p.microfiche,
           p.assembly,
           pg.partsgroup, '' AS invnumber, a.ordnumber, a.quonumber,
           i.trans_id, ct.name,e.name AS employee, a.curr, '0' AS till,
           p.notes
           $makemodelfld|;
           
    $query .= qq|$union
                SELECT $flds, 'oe' AS module, 'purchase_order' AS type,
            (SELECT sell FROM exchangerate ex
             WHERE ex.curr = a.curr
             AND ex.transdate = a.transdate) AS exchangerate,
             i.discount
            FROM orderitems i
            JOIN parts p ON (i.parts_id = p.id)
            JOIN oe a ON (i.trans_id = a.id)
            JOIN vendor ct ON (a.vendor_id = ct.id)
            LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id)
            LEFT JOIN employee e ON (a.employee_id = e.id)
            $makemodeljoin
            WHERE $ordwhere
            AND a.vendor_id > 0|;
      }
    
    }
      
    if ($form->{rfq} || $form->{quoted}) {
      my $quowhere = "$where
             AND a.quotation = '1'";
      $quowhere .= " AND a.transdate >= '$form->{transdatefrom}'" if $form->{transdatefrom};
      $quowhere .= " AND a.transdate <= '$form->{transdateto}'" if $form->{transdateto};

      if ($form->{description} ne "") {
    $var = $form->like(lc $form->{description});
    $quowhere .= " AND lower(i.description) LIKE '$var'";
      }
      
      if ($form->{open} || $form->{closed}) {
    unless ($form->{open} && $form->{closed}) {
      $ordwhere .= " AND a.closed = '0'" if $form->{open};
      $ordwhere .= " AND a.closed = '1'" if $form->{closed};
    }
      } else {
    $ordwhere .= " AND a.id = 0";
      }


      $flds = qq|p.id, p.partnumber, i.description, i.serialnumber,
                 i.qty AS onhand, i.unit, p.bin, i.sellprice,
             p.listprice, p.lastcost, p.rop, p.weight,
         p.avgcost,
         p.priceupdate, p.image, p.drawing, p.microfiche,
         p.assembly,
         pg.partsgroup, '' AS invnumber, a.ordnumber, a.quonumber,
         i.trans_id, ct.name, e.name AS employee, a.curr, '0' AS till,
         p.notes
         $makemodelfld|;

      if ($form->{quoted}) {
    $query .= qq|$union
                     SELECT $flds, 'oe' AS module, 'sales_quotation' AS type,
            (SELECT buy FROM exchangerate ex
             WHERE ex.curr = a.curr
             AND ex.transdate = a.transdate) AS exchangerate,
             i.discount
             FROM orderitems i
             JOIN parts p ON (i.parts_id = p.id)
             JOIN oe a ON (i.trans_id = a.id)
             JOIN customer ct ON (a.customer_id = ct.id)
             LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id)
             LEFT JOIN employee e ON (a.employee_id = e.id)
             $makemodeljoin
             WHERE $quowhere
             AND a.customer_id > 0|;
    $union = "
              UNION ALL";
      }
      
      if ($form->{rfq}) {
        $flds = qq|p.id, p.partnumber, i.description, i.serialnumber,
                   i.qty AS onhand, i.unit, p.bin, i.sellprice,
           p.listprice, p.lastcost, p.rop, p.weight,
           p.avgcost,
           p.priceupdate, p.image, p.drawing, p.microfiche,
           p.assembly,
           pg.partsgroup, '' AS invnumber, a.ordnumber, a.quonumber,
           i.trans_id, ct.name, e.name AS employee, a.curr, '0' AS till,
           p.notes
           $makemodelfld|;

    $query .= qq|$union
                SELECT $flds, 'oe' AS module, 'request_quotation' AS type,
            (SELECT sell FROM exchangerate ex
             WHERE ex.curr = a.curr
             AND ex.transdate = a.transdate) AS exchangerate,
             i.discount
            FROM orderitems i
            JOIN parts p ON (i.parts_id = p.id)
            JOIN oe a ON (i.trans_id = a.id)
            JOIN vendor ct ON (a.vendor_id = ct.id)
            LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id)
            LEFT JOIN employee e ON (a.employee_id = e.id)
            $makemodeljoin
            WHERE $quowhere
            AND a.vendor_id > 0|;
      }

    }

    $query .= qq|
         ORDER BY $sortorder|;

  }

  my $sth = $dbh->prepare($query);
  $sth->execute || $form->dberror($query);

  $query = qq|SELECT c.accno
              FROM chart c
          JOIN partstax pt ON (pt.chart_id = c.id)
          WHERE pt.parts_id = ?
          ORDER BY accno|;
  my $pth = $dbh->prepare($query) || $form->dberror($query);
  
  while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
    $pth->execute($ref->{id});
    while (($accno) = $pth->fetchrow_array) {
      $ref->{tax} .= "$accno ";
    }
    $pth->finish;
    
    push @{ $form->{parts} }, $ref;
  }
  $sth->finish;

  @a = ();
  
  # include individual items for assembly
  if (($form->{searchitems} eq 'assembly') && $form->{individual}) {

    if ($form->{sold} || $form->{ordered} || $form->{quoted}) {
      $flds = qq|p.id, p.partnumber, p.description, p.onhand AS perassembly, p.unit,
                 p.bin, p.sellprice, p.listprice, p.lastcost, p.rop,
         p.avgcost,
         p.weight, p.priceupdate, p.image, p.drawing, p.microfiche,
         p.assembly, pg.partsgroup, p.notes
         $makemodelflds $assemblyflds
         |;
    } else {
      # replace p.onhand with a.qty AS onhand
      $flds =~ s/p.onhand/a.qty AS perassembly/;
    }
    
    for (@{ $form->{parts} }) {
      push @a, $_;
      $_->{perassembly} = 1;
      $flds =~ s/p\.onhand*AS perassembly/p\.onhand, a\.qty AS perassembly/;
      push @a, &include_assembly($dbh, $myconfig, $form, $_->{id}, $flds, $makemodeljoin);
      push @a, {id => $_->{id}, assemblyitem => 1};  # this is just for
                                                     # adding a blank line
    }

    # copy assemblies to $form->{parts}
    @{ $form->{parts} } = @a;
    
  }
    
  
  @a = ();
  if (($form->{warehouse} ne "") || $form->{l_warehouse}) {
    
    if ($form->{warehouse} ne "") {
      ($null, $var) = split /--/, $form->{warehouse};
      $var *= 1;
      $query = qq|SELECT SUM(qty) AS onhand, '$null' AS description
                  FROM inventory
          WHERE warehouse_id = $var
                  AND parts_id = ?|;
    } else {
      $query = qq|SELECT SUM(i.qty) AS onhand, w.description AS warehouse
                  FROM inventory i
          JOIN warehouse w ON (w.id = i.warehouse_id)
                  WHERE i.parts_id = ?
          GROUP BY w.description|;
    }

    $sth = $dbh->prepare($query) || $form->dberror($query);

    for (@{ $form->{parts} }) {

      $sth->execute($_->{id}) || $form->dberror($query);
      
      if ($form->{warehouse} ne "") {
    
    $ref = $sth->fetchrow_hashref(NAME_lc);
    if ($ref->{onhand} != 0) {
      $_->{onhand} = $ref->{onhand};
      push @a, $_;
    }

      } else {

    push @a, $_;
    
    while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
          if ($ref->{onhand} > 0) {
        push @a, $ref;
      }
    }
      }
      
      $sth->finish;
    }

    @{ $form->{parts} } = @a;

  }

  $dbh->disconnect;

}


sub include_assembly {
  my ($dbh, $myconfig, $form, $id, $flds, $makemodeljoin) = @_;
  
  $form->{stagger}++;
  if ($form->{stagger} > $form->{pncol}) {
    $form->{pncol} = $form->{stagger};
  }
 
  $form->{$id} = 1;

  my %oid = ('Pg'   => 'TRUE',
             'Oracle'   => 'a.rowid',
         'DB2'  => '1=1'
        );

  my @a = qw(partnumber description bin);
  if ($form->{sort} eq 'partnumber') {
    $sortorder = "TRUE";
  } else {
    @a = grep !/$form->{sort}/, @a;
    $sortorder = "$form->{sort} $form->{direction}, ". join ',', @a;
  }
  
  @a = ();
  my $query = qq|SELECT $flds
         FROM parts p
         JOIN assembly a ON (a.parts_id = p.id)
         LEFT JOIN partsgroup pg ON (pg.id = p.id)
         LEFT JOIN chart c1 ON (c1.id = p.inventory_accno_id)
         LEFT JOIN chart c2 ON (c2.id = p.income_accno_id)
         LEFT JOIN chart c3 ON (c3.id = p.expense_accno_id)
         $makemodeljoin
         WHERE a.id = $id
         ORDER BY $sortorder|;
  my $sth = $dbh->prepare($query);
  $sth->execute || $form->dberror($query);
  
  while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
    $ref->{assemblyitem} = 1;
    $ref->{stagger} = $form->{stagger};
    
    push @a, $ref;
    if ($ref->{assembly} && !$form->{$ref->{id}}) {
      push @a, &include_assembly($dbh, $myconfig, $form, $ref->{id}, $flds, $makemodeljoin);
      if ($form->{stagger} > $form->{pncol}) {
    $form->{pncol} = $form->{stagger};
      }
    }
  }
  $sth->finish;

  $form->{$id} = 0;
  $form->{stagger}--;

  @a;

}


sub requirements {
  my ($self, $myconfig, $form) = @_;

  my $null;
  my $var;
  my $ref;
  
  my $where = qq|p.obsolete = '0'|;
  my $dwhere;

  for (qw(partnumber description)) {
    if ($form->{$_} ne "") {
      $var = $form->like(lc $form->{$_});
      $where .= qq| AND lower(p.$_) LIKE '$var'|;
    }
  }
  
  if ($form->{partsgroup} ne "") {
    ($null, $var) = split /--/, $form->{partsgroup};
    $where .= qq| AND p.partsgroup_id = $var|;
  }

  # connect to database
  my $dbh = $form->dbconnect($myconfig);

  my ($transdatefrom, $transdateto);
  if ($form->{year}) {
    ($transdatefrom, $transdateto) = $form->from_to($form->{year}, '01', 12);
    
    $dwhere = qq| AND a.transdate >= '$transdatefrom'
          AND a.transdate <= '$transdateto'|;
  }
    
  $query = qq|SELECT p.id, p.partnumber, p.description,
              sum(i.qty) AS qty, p.onhand,
          extract(MONTH FROM a.transdate) AS month,
          '0' AS so, '0' AS po
          FROM invoice i
          JOIN parts p ON (p.id = i.parts_id)
          JOIN ar a ON (a.id = i.trans_id)
          WHERE $where
          $dwhere
          AND p.inventory_accno_id > 0
          GROUP BY p.id, p.partnumber, p.description, p.onhand,
          extract(MONTH FROM a.transdate)|;
  my $sth = $dbh->prepare($query);
  $sth->execute || $form->dberror($query);

  my %parts;
  while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
    $parts{$ref->{id}} = $ref;
  }
  $sth->finish;

  my %ofld = ( customer => so,
               vendor => po );
  
  for (qw(customer vendor)) {
    $query = qq|SELECT p.id, p.partnumber, p.description,
        sum(qty) - sum(ship) AS $ofld{$_}, p.onhand,
        0 AS month
        FROM orderitems i
        JOIN parts p ON (p.id = i.parts_id)
        JOIN oe a ON (a.id = i.trans_id)
        WHERE $where
        AND p.inventory_accno_id > 0
        AND p.assembly = '0'
        AND a.closed = '0'
        AND a.${_}_id > 0
        GROUP BY p.id, p.partnumber, p.description, p.onhand,
        month|;
    $sth = $dbh->prepare($query);
    $sth->execute || $form->dberror($query);

    while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
      if (exists $parts{$ref->{id}}->{$ofld{$_}}) {
    $parts{$ref->{id}}->{$ofld{$_}} += $ref->{$ofld{$_}};
      } else {
    $parts{$ref->{id}} = $ref;
      }
    }
    $sth->finish;
  }

  # add assemblies from open sales orders
  $query = qq|SELECT DISTINCT a.id AS orderid, b.id, i.qty - i.ship AS qty
              FROM parts p
          JOIN assembly b ON (b.parts_id = p.id)
          JOIN orderitems i ON (i.parts_id = b.id)
          JOIN oe a ON (a.id = i.trans_id)
          WHERE $where
          AND (p.inventory_accno_id > 0 OR p.assembly = '1')
          AND a.closed = '0'|;
  $sth = $dbh->prepare($query);
  $sth->execute || $form->dberror($query);

  while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
    &requirements_assembly($dbh, $form, \%parts, $ref->{id}, $ref->{qty}, $where) if $ref->{qty};
  }
  $sth->finish;

  $dbh->disconnect;

  for (sort { $parts{$a}->{$form->{sort}} cmp $parts{$b}->{$form->{sort}} } keys %parts) {
    push @{ $form->{parts} }, $parts{$_};
  }
  
}


sub requirements_assembly {
  my ($dbh, $form, $parts, $id, $qty, $where) = @_;

  # assemblies
  my $query = qq|SELECT p.id, p.partnumber, p.description,
                 a.qty * $qty AS so, p.onhand, p.assembly,
             p.partsgroup_id
             FROM assembly a
             JOIN parts p ON (p.id = a.parts_id)
             WHERE $where
         AND a.id = $id
             AND p.inventory_accno_id > 0
         
         UNION
      
             SELECT p.id, p.partnumber, p.description,
                 a.qty * $qty AS so, p.onhand, p.assembly,
             p.partsgroup_id
             FROM assembly a
             JOIN parts p ON (p.id = a.parts_id)
             WHERE a.id = $id
         AND p.assembly = '1'|;
         
  my $sth = $dbh->prepare($query);
  $sth->execute || $form->dberror($query);

  while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
    if ($ref->{assembly}) {
      &requirements_assembly($dbh, $form, $parts, $ref->{id}, $ref->{so}, $where);
      next;
    }

    if (exists $parts->{$ref->{id}}{so}) {
      $parts->{$ref->{id}}{so} += $ref->{so};
    } else {
      $parts->{$ref->{id}} = $ref;
    }
  }
  $sth->finish;
    
}


sub create_links {
  my ($self, $module, $myconfig, $form) = @_;

  # connect to database
  my $dbh = $form->dbconnect($myconfig);
  
  my $ref;

  my $query = qq|SELECT accno, description, link
                 FROM chart
         WHERE link LIKE '%$module%'
         ORDER BY accno|;
  my $sth = $dbh->prepare($query);
  $sth->execute || $form->dberror($query);

  while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
    foreach my $key (split /:/, $ref->{link}) {
      if ($key =~ /$module/) {
    push @{ $form->{"${module}_links"}{$key} }, { accno => $ref->{accno},
                      description => $ref->{description} };
      }
    }
  }
  $sth->finish;

  if ($form->{item} ne 'assembly') {
    $query = qq|SELECT count(*) FROM vendor|;
    my ($count) = $dbh->selectrow_array($query);

    if ($count < $myconfig->{vclimit}) {
      $query = qq|SELECT id, name
          FROM vendor
          ORDER BY name|;
      $sth = $dbh->prepare($query);
      $sth->execute || $form->dberror($query);

      while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
    push @{ $form->{all_vendor} }, $ref;
      }
      $sth->finish;
    }
  }

  # pricegroups, customers
  $query = qq|SELECT count(*) FROM customer|;
  ($count) = $dbh->selectrow_array($query);

  if ($count < $myconfig->{vclimit}) {
    $query = qq|SELECT id, name
        FROM customer
        ORDER BY name|;
    $sth = $dbh->prepare($query);
    $sth->execute || $form->dberror($query);

    while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
      push @{ $form->{all_customer} }, $ref;
    }
    $sth->finish;
  }

  $query = qq|SELECT id, pricegroup
              FROM pricegroup
          ORDER BY pricegroup|;
  $sth = $dbh->prepare($query);
  $sth->execute || $form->dberror($query);

  while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
    push @{ $form->{all_pricegroup} }, $ref;
  }
  $sth->finish;


  if ($form->{id}) {
    $query = qq|SELECT weightunit, curr AS currencies
                FROM defaults|;
    ($form->{weightunit}, $form->{currencies}) = $dbh->selectrow_array($query);

  } else {
    $query = qq|SELECT d.weightunit, current_date AS priceupdate,
                d.curr AS currencies,
                c1.accno AS inventory_accno, c1.description AS inventory_description,
        c2.accno AS income_accno, c2.description AS income_description,
        c3.accno AS expense_accno, c3.description AS expense_description
            FROM defaults d
        LEFT JOIN chart c1 ON (d.inventory_accno_id = c1.id)
        LEFT JOIN chart c2 ON (d.income_accno_id = c2.id)
        LEFT JOIN chart c3 ON (d.expense_accno_id = c3.id)|;
    $sth = $dbh->prepare($query);
    $sth->execute || $form->dberror($query);

    $ref = $sth->fetchrow_hashref(NAME_lc);
    for (qw(weightunit priceupdate currencies)) { $form->{$_} = $ref->{$_} }
    # setup accno hash, {amount} is used in create_links
    for (qw(inventory income expense)) { $form->{amount}{"IC_$_"} = { accno => $ref->{"${_}_accno"}, description => $ref->{"${_}_description"} } }
 
    $sth->finish;
  }
  
  $dbh->disconnect;

}


sub get_warehouses {
  my ($self, $myconfig, $form) = @_;

  my $dbh = $form->dbconnect($myconfig);

  my $query = qq|SELECT id, description
                 FROM warehouse|;

  my $sth = $dbh->prepare($query);
  $sth->execute || $form->dberror($query);

  while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
    push @{ $form->{all_warehouse} }, $ref;
  }
  $sth->finish;

  $dbh->disconnect;

}

1;