projekt kivitendo

  my $query =

    qq|SELECT p.id, p.partnumber, p.description, p.sellprice,

       p.classification_id,

       p.price_factor_id, pfac.factor AS price_factor, p.notes as longdescription

       FROM parts p

       LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id)

       LEFT JOIN price_factors pfac ON pfac.id = p.price_factor_id

       WHERE $where|;

  $form->{item_list} = selectall_hashref_query($form, SL::DB->client->dbh, $query, @values);

     cv           => 'cv.',

     "ioi.id"     => ' ',

     "ioi.ioi"    => ' ',

  );

  # if the join condition in these blocks are met, the column

        (SELECT DISTINCT parts_id FROM invoice UNION

         SELECT DISTINCT parts_id FROM assembly UNION

         SELECT DISTINCT parts_id FROM orderitems)'    if /orphaned/;

    push @where_tokens, 'NOT p.obsolete'               if /active/;

    push @where_tokens, '    p.obsolete',              if /obsolete/;

  }

  my $q_assembly_lastcost =

  my $query = <<"  SQL";

    SELECT DISTINCT $select_clause

    FROM parts p

    $join_clause

    WHERE $where_clause

    $group_clause

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

  my $info     = selectall_hashref_query($form, $dbh, $query, map { conv_i($_) } @ids);