projekt kivitendo

  }

  if ($form->{no_assemblies}) {

  }

  if ($form->{assemblies}) {

  }

  if ($form->{no_services}) {

  }

  substr($filter, 1, 3) = "WHERE" if ($filter);

sub init_parts_by {

  my ($self) = @_;

#                   partnumber => { part    => { },

#                                   service => { } } };

#

#  foreach my $part (@{ $self->existing_objects }) {

#    $parts_by->{partnumber}->{ $part->type }->{ $part->partnumber } = $part;

#  }

  my ($self) = @_;

  my $profile = $self->SUPER::init_profile;

  $profile->{"pricegroup_$_"} = '' for 1 .. scalar @{ $_[0]->all_pricegroups };

    $form->{"partsgroup_${idx}"} = $item->part->partsgroup->partsgroup if _has($item->part, 'partsgroup_id');

    _copy($item,          $form, "${items_name}_", "_${idx}", 0,               qw(id)) if $items_name;

    _copy($item->part,    $form, '',               "_${idx}", 0,               qw(listprice));

    _copy($item,          $form, '',               "_${idx}", 0,               qw(description project_id ship serialnumber pricegroup_id ordnumber donumber cusordnumber unit

                                                                                  subtotal longdescription price_factor_id marge_price_factor approved_sellprice reqdate transdate

  $prefix //= '';

  if ('HASH' eq ref $type) {

    $type = [ grep { $type->{$_} } keys %$type ];

  }

  for my $type (@types) {

    if ($type =~ m/^part/) {

    } elsif ($type =~ m/^service/) {

    }

  }

  return $self->type eq $type ? 1 : 0;

}

sub type {

}

sub new_part {

  my ($class, %params) = @_;

}

sub new_assembly {

  my ($class, %params) = @_;

}

sub new_service {

  my ($class, %params) = @_;

}

sub orphaned {

  # stuff different from the whole will not be overwritten, but saved with a suffix.

  $query =

    qq|SELECT doi.id AS delivery_order_items_id,

         doi.sellprice, doi.parts_id AS id, doi.unit, doi.discount, p.notes AS partnotes,

         doi.reqdate, doi.project_id, doi.serialnumber, doi.lastcost,

         doi.ordnumber, doi.transdate, doi.cusordnumber, doi.longdescription,

  my @values;

  if ($p->{searchitems} eq 'part') {

  }

  if ($p->{searchitems} eq 'service') {

  }

  if ($p->{searchitems} eq 'assembly') {

  }

  $query .= qq|ORDER BY partsgroup|;

  $form->{lastmtime} = $form->{mtime};

  $form->{onhand} *= 1;

  # part or service item

    # retrieve assembly items

    $query =

  my $makemodel = ($form->{make_1} || $form->{model_1} || ($form->{makemodel_rows} > 1)) ? 1 : 0;

  my ($query, $sth);

    $form->{partnumber} ||= $trans_number->create_unique;

    ($form->{id}) = selectrow_query($form, $dbh, qq|SELECT nextval('id')|);

    $form->{orphaned} = 1;

  }

         partnumber = ?,

         description = ?,

         makemodel = ?,

         listprice = ?,

         sellprice = ?,

         lastcost = ?,

         has_sernumber = ?,

         not_discountable = ?,

         microfiche = ?,

         partsgroup_id = ?,

         price_factor_id = ?

         $priceupdate

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

             $form->{description},

             $makemodel ? 't' : 'f',

             $form->{listprice},

             $form->{sellprice},

             $form->{lastcost},

             $form->{has_sernumber} ? 't' : 'f',

             $form->{not_discountable} ? 't' : 'f',

             $form->{microfiche},

             conv_i($partsgroup_id),

             conv_i($form->{price_factor_id}),

             conv_i($form->{id})

          FROM parts p2, assembly a

          WHERE (p2.id = a.parts_id) AND (a.id = p.id)) AS inventory

       FROM parts p

  $form->{assembly_items} = selectall_hashref_query($form, $dbh, $query, @values);

  }

  for ($form->{searchitems}) {

  }

  for ($form->{itemstatus}) {

  my $i = $form->{rowcount};

  # don't include assemblies or obsolete parts

  my @values;

  foreach my $table_column (qw(p.partnumber p.description pg.partsgroup)) {

  my $query =

    qq|SELECT

         p.id, p.partnumber, p.description, p.lastcost AS sellprice, p.listprice,

         p.notes AS partnotes, p.notes AS longdescription, p.not_discountable,

         p.inventory_accno_id, p.price_factor_id,

         p.ean,

  my ($dbh, $myconfig, $form, $position, $id, $totalqty) = @_;

  my $query =

         p.inventory_accno_id, p.income_accno_id, p.expense_accno_id

       FROM assembly a

       JOIN parts p ON (a.parts_id = p.id)

  # reverse inventory items

  my $query =

       FROM invoice i

       JOIN parts p ON (i.parts_id = p.id)

       WHERE i.trans_id = ?|;

           i.description, i.longdescription, i.qty, i.fxsellprice AS sellprice, i.discount, i.parts_id AS id, i.unit, i.deliverydate AS reqdate,

           i.project_id, i.serialnumber, i.pricegroup_id, i.ordnumber, i.donumber, i.transdate, i.cusordnumber, i.subtotal, i.lastcost,

           i.price_factor_id, i.price_factor, i.marge_price_factor, i.active_price_source, i.active_discount_source,

           pr.projectnumber, pg.partsgroup, prg.pricegroup

         FROM invoice i

         c3.new_chart_id AS expense_new_chart,

         date($transdate) - c3.valid_from AS expense_valid,

         p.notes AS partnotes, p.notes AS longdescription,

         p.not_discountable, p.formel, p.payment_id AS part_payment_id,

         p.price_factor_id, p.weight,

           c2.accno AS income_accno,    c2.new_chart_id AS income_new_chart,    date($transdate) - c2.valid_from as income_valid,

           c3.accno AS expense_accno,   c3.new_chart_id AS expense_new_chart,   date($transdate) - c3.valid_from as expense_valid,

           oe.ordnumber AS ordnumber_oe, oe.transdate AS transdate_oe, oe.cusordnumber AS cusordnumber_oe,

           o.sellprice, o.parts_id AS id, o.unit, o.discount, p.notes AS partnotes, p.inventory_accno_id AS part_inventory_accno_id,

           o.reqdate, o.project_id, o.serialnumber, o.ship, o.lastcost,

           o.ordnumber, o.transdate, o.cusordnumber, o.subtotal, o.longdescription,

    my $query = qq|SELECT assembly.parts_id, assembly.qty, parts.warehouse_id

                   FROM assembly INNER JOIN parts ON assembly.parts_id = parts.id

    my $sth_part_qty_assembly = prepare_execute_query($form, $dbh, $query, $params{assembly_id});

    my @new_fields =

        qw(id partnumber description sellprice listprice inventory_accno

           partsgroup formel longdescription not_discountable partnotes lastcost

           price_factor_id price_factor);

  }

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

  }

  if ($::form->{filter_type} eq 'service') {

  }

  if ($::form->{filter_type} eq 'part') {

  }

  if ($::form->{filter_obsolete} eq 'obsolete') {

    description        => 'Fourty-two fifty-four',

    lastcost           => 222.22,

    sellprice          => 333.33,

    buchungsgruppen_id => $buchungsgruppe->id,

    unit               => $unit->name,

    %{ $params{part} }

    description        => 'Fourty-two fifty-four',

    lastcost           => 222.22,

    sellprice          => 333.33,

    buchungsgruppen_id => $buchungsgruppe->id,

    unit               => $unit->name,

    %{ $params{part} }

    description        => 'Fourty-two fifty-four',

    lastcost           => 222.22,

    sellprice          => 333.33,

    buchungsgruppen_id => $buchungsgruppe->id,

    unit               => $unit->name,

    %{ $params{part} }

}, 'object test simple', class => 'SL::DB::Manager::Part';

test {

}, {

  query => [

}, 'object test without prefix', class => 'SL::DB::Manager::Part';

test {

}, {

  query => [

}, 'object test with prefix', class => 'SL::DB::Manager::OrderItem';

test {

}, {

  query => [

}, 'object test without prefix but complex value', class => 'SL::DB::Manager::Part';

test {

}, {

  query => [

}, 'object test with prefix but complex value', class => 'SL::DB::Manager::OrderItem';

test {

                 'listprice' => '0.00000',

                 'onhand' => '5.00000',

                 'partnumber' => 'v-519160549',

                 #'partsgroup_id' => 111645,

                 'rop' => '0',

                 'sellprice' => '242.20000',

                 'id' => 25505,

                 'lastcost' => '153.00000',

                 'listprice' => '0.00000',

                 'onhand' => '9.00000',

                 'partnumber' => 'v-120160086',

                 # 'partsgroup_id' => 111639,

    description        => 'Fourty-two fifty-four',

    lastcost           => 1.93,

    sellprice          => 2.34,

    buchungsgruppen_id => $buchungsgruppe->id,

    unit               => $unit->name,

    %{ $params{part1} }

    description        => 'Zero EIGHT fifteeN @ 7%',

    lastcost           => 5.473,

    sellprice          => 9.714,

    buchungsgruppen_id => $buchungsgruppe7->id,

    unit               => $unit->name,

    %{ $params{part2} }

    description        => 'Testware 19%',

    lastcost           => 0,

    sellprice          => 50,

    buchungsgruppen_id => $buchungsgruppe->id,

    unit               => $unit->name,

    %{ $params{part3} }

    description        => 'Testware 7%',

    lastcost           => 0,

    sellprice          => 50,

    buchungsgruppen_id => $buchungsgruppe7->id,

    unit               => $unit->name,

    %{ $params{part4} }

    description        => 'Fourty-two fifty-four',

    lastcost           => 1.93,

    sellprice          => 2.34,

    buchungsgruppen_id => $buchungsgruppe->id,

    unit               => $unit->name,

    %{ $params{part1} }

    description        => 'Zero EIGHT fifteeN @ 7%',

    lastcost           => 5.473,

    sellprice          => 9.714,

    buchungsgruppen_id => $buchungsgruppe7->id,

    unit               => $unit->name,

    %{ $params{part2} }

    description        => 'Triple 8',

    lastcost           => 0,

    sellprice          => 0.6,

    buchungsgruppen_id => $buchungsgruppe->id,

    unit               => $unit->name,

    %{ $params{part3} }

is($assembly_part->inventory_accno_id, undef, "assembly doesn't have an inventory accno id");

is( scalar @{$assembly_part->assemblies}, 2, 'assembly consists of two parts' );

# fetch assembly item corresponding to partnumber 19000

  $part1 = SL::DB::Part->new_part(partnumber => '19000',

                                  unit       => $unit->name,

                                 )->save;

  $part2 = $part1->clone_and_reset($part1);

  $part2->partnumber($part1->partnumber + 1);

SL::DB::Manager::Warehouse->delete_all(where => [ description => NAME() ]);

# Create test data

$part->save();

is(ref($part), 'SL::DB::Part', 'loading a part to test with id ' . $part->id);