projekt kivitendo

      $query = qq|SELECT id FROM parts WHERE partnumber = ?|;

      my ($partid) = selectrow_query($form, $dbh, $query,$form->{"partnumber_$i"} );

      if ( $partid ) {

        $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});

        $form->{"id_$i"} = $partid;

        $form->{"bom_$i"} = 0;

        $form->{assembly_rows}++;

      }

      else {

        $::form->error($::locale->text("uncorrect partnumber ").$form->{"partnumber_$i"});

      }