projekt kivitendo

    # retrieve assembly items

    $query =

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

           p.sellprice, p.lastcost, p.weight, a.qty, a.bom, p.unit,

           pg.partsgroup, p.price_factor_id, pfac.factor AS price_factor

         FROM parts p

      foreach my $key (keys %{$ref}) {

        $form->{"${key}_$form->{assembly_rows}"} = $ref->{$key};

      }

    }

    $sth->finish;

         partnumber = ?,

         description = ?,

         makemodel = ?,

         listprice = ?,

         sellprice = ?,

         lastcost = ?,

  @values = ($form->{partnumber},

             $form->{description},

             $makemodel ? 't' : 'f',

             $form->{listprice},

             $form->{sellprice},

             $form->{lastcost},

  my $query =

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

       p.weight, p.onhand, p.unit, pg.partsgroup, p.lastcost,

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

       FROM parts p

#  my @other_flags          = qw(onhand); # ToDO: implement these

#  my @inactive_flags       = qw(l_subtotal short l_linetotal);

  my @where_tokens  = qw(1=1);

  my @group_tokens  = ();

  my @bind_vars     = ();

    insertdate         => 'itime::DATE',

  );

    @simple_l_switches = grep { $_ ne 'lastcost' } @simple_l_switches;

  }

    push @select_tokens, $_;

  }

  }

  for ($form->{itemstatus}) {

  push @select_tokens, @qsooqr_flags, 'quotation', 'cv', 'ioi.id', 'ioi.ioi'  if $bsooqr;

  push @select_tokens, @deliverydate_flags                                    if $bsooqr && $form->{l_deliverydate};

  push @bsooqr_tokens, q|module = 'ir' AND NOT ioi.assemblyitem|              if $form->{bought};

  push @bsooqr_tokens, q|module = 'is' AND NOT ioi.assemblyitem|              if $form->{sold};

  push @bsooqr_tokens, q|module = 'oe' AND NOT quotation AND cv = 'customer'| if $form->{ordered};

  # post processing for assembly parts lists (bom)

  # for each part get the assembly parts and add them into the partlist.

  my @assemblies;

    $query =

      qq|SELECT p.id, p.partnumber, p.description, a.qty AS onhand,

           p.unit, p.notes, p.itime::DATE as insertdate,

    $form->{parts} = \@assemblies;

  }

    my $query = <<SQL;

       SELECT parts_id, price, pricegroup_id

       FROM prices

      }

      $sth->finish;

    }

  $main::lxdebug->leave_sub();

  }

  my $query =

       FROM parts

       WHERE $where ORDER BY $order|;

    }

    $j++;

    $form->{"id_$j"}          = $ref->{id};

    $form->{"partnumber_$j"}  = $ref->{partnumber};

    $form->{"description_$j"} = $ref->{description};

  for my $i (1..$rowcount) {

    my $id = $form->{"${prefix}${i}"};

    next unless $id;

  }

  $main::lxdebug->leave_sub();

}

sub normalize_text_blocks {

   $main::lxdebug->leave_sub();

}

1;