projekt kivitendo

  if ($form->{bom} eq '2' && $form->{l_assembly}) {

    # nuke where clause and bind vars

    $where_clause = ' 1=1 AND p.id in (SELECT id from assembly where parts_id IN ' .

    @bind_vars    = ();

    # use only like filter for items used in assemblies

    foreach (@like_filters) {

      next unless $form->{$_};

      $form->{"l_$_"} = '1'; # show the column

      push @bind_vars,    like($form->{$_});

    }

    $where_clause .='))';

    $order_clause

    $limit_clause

  SQL

  $form->{parts} = selectall_hashref_query($form, $dbh, $query, @bind_vars);

  map { $_->{onhand} *= 1 } @{ $form->{parts} };