projekt kivitendo

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

  $form->{onhand} *= 1;

  # part or service item

    # retrieve assembly items

    $query =

  my $priceupdate = ', priceupdate = current_date';

  if ($form->{id}) {

    if (!$trans_number->is_unique) {

      $::lxdebug->leave_sub;

      return 3;

    # delete makemodel records

    do_query($form, $dbh, qq|DELETE FROM makemodel WHERE parts_id = ?|, conv_i($form->{id}));

      # delete assembly records

      do_query($form, $dbh, qq|DELETE FROM assembly WHERE id = ?|, conv_i($form->{id}));

    }

    $priceupdate        = '' if (all { $previous_values->{$_} == $form->{$_} } qw(sellprice lastcost listprice));

  } else {

    if ($form->{partnumber} && !$trans_number->is_unique) {

      $::lxdebug->leave_sub;

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

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

    $form->{orphaned} = 1;

  }

  }

  my ($subq_inventory, $subq_expense, $subq_income);

    $subq_inventory =

      qq|(SELECT bg.inventory_accno_id

          FROM buchungsgruppen bg

    $subq_inventory = "NULL";

  }

    $subq_expense =

      qq|(SELECT tc.expense_accno_id

          FROM taxzone_charts tc

             $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})

    }

  # add assembly records

    # check additional assembly row

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

    # if last row is not empty add them

  $auth->assert('part_service_assembly_edit');

  $form->{title}           = $locale->text($title);

  $form->{unit_changeable} = 1;

  IC->get_pricegroups(\%myconfig, \%$form);

  $form->{"original_partnumber"} = $form->{"partnumber"};

  $form->{title} = $locale->text($title);

  &link_part;

  map({ $form->{selectcurrency} .= "<option>$_\n" } $::form->get_all_currencies());

  # parts and assemblies have the same links

    $item = 'part';

  }

  }

  chop $form->{taxaccounts};

    $form->{selectIC_income}  = $form->{selectIC_sale};

    $form->{selectIC_expense} = $form->{selectIC_cogs};

    $form->{IC_income}        = $form->{IC_sale};

    map { $form->{selectpartsgroup} .= qq|<option value="$_->{partsgroup}--$_->{id}">$_->{partsgroup}\n| } @{ $form->{all_partsgroup} };

  }

    foreach my $i (1 .. $form->{assembly_rows}) {

      if ($form->{"partsgroup_id_$i"}) {

  $form->{description_area} = ($form->{rows} = $form->numtextrows($form->{description}, 40)) > 1;

  $form->{notes_rows}       =  max 4, $form->numtextrows($form->{notes}, 40), $form->numtextrows($form->{formel}, 40);

  map { $form->{$_}       =~ s/"/"/g;        } qw(unit);

  $form->get_lists('price_factors' => 'ALL_PRICE_FACTORS',

  IC->retrieve_buchungsgruppen(\%myconfig, $form);

  @{ $form->{BUCHUNGSGRUPPEN} } = grep { $_->{id} eq $form->{buchungsgruppen_id} || ($form->{id} && $form->{orphaned}) || !$form->{id} } @{ $form->{BUCHUNGSGRUPPEN} };

    flash('info', $::locale->text('This partnumber is not unique. You should change it.'));

  }

  # parse pricegroups. and no, don't rely on check_form for this...

  map { $form->{"price_$_"} = $form->parse_amount(\%myconfig, $form->{"price_$_"}) } 1 .. $form->{price_rows};

    # for assemblies check_form will parse sellprice and listprice, but not for parts or services

    $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) for qw(sellprice listprice ve gv);

  };

    $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) for qw(weight rop);

  }

  # same for makemodel lastcosts

  # but parse_amount not necessary for assembly component lastcosts

    map { $form->{"lastcost_$_"} = $form->parse_amount(\%myconfig, $form->{"lastcost_$_"}) } 1 .. $form->{"makemodel_rows"};

    $form->{lastcost} = $form->parse_amount(\%myconfig, $form->{lastcost});

  }

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

    # if last row is empty check the form otherwise retrieve item

      }

    }

    &check_form;

  }

  my ($parts_id, %newform, $amount, $callback);

  # check if there is a part number - commented out, cause there is an automatic allocation of numbers

  # check if there is a description

  $form->isblank("description", $locale->text("Part Description missing!"));

  if (!$form->{buchungsgruppen_id}) {

    $form->error($locale->text("Parts must have an entry type.") . " " .

    $::auth->restore_form_from_session($newform{previousform}, form => $form);

    $form->{taxaccounts} = $newform{taxaccount2};

      # undo number formatting

      map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) }

  form_header();

  price_row($::form->{price_rows});

  form_footer();

    map {

      $form->{"${_}_$i"} =

          $form->format_amount(\%myconfig, $form->{"${_}_$i"}, $decimalplaces)

    delete $form->{nextsub};

  my $count = 0;

  # remove any makes or model rows

    # fuer assemblies auskommentiert. seiteneffekte? ;-) wird die woanders benoetigt?

    #$form->{sellprice} = 0;

    $form->redo_rows(\@flds, \@a, $count, $form->{assembly_rows});

    $form->{assembly_rows} = $count;

    remove_emptied_rows(1);

    $form->{creditremaining} -= &invoicetotal;

  module: ic.pl

  params:

    action: add

- parent: master_data

  id: master_data_add_service

  name: Add Service

  module: ic.pl

  params:

    action: add

- parent: master_data

  id: master_data_add_assembly

  name: Add Assembly

  module: ic.pl

  params:

    action: add

- parent: master_data

  id: master_data_add_project

  name: Add Project

      <p>

      <p>

      [%- FOREACH var = HIDDENS %]

 <form method="post" name="ic" action="[% script %]">

  <input name="id" type="hidden" value="[% HTML.escape(id) %]">

  <input name="title" type="hidden" value="[% HTML.escape(title) %]">

  <input name="makemodel" type="hidden" value="[% HTML.escape(makemodel) %]">

  <input name="onhand" type="hidden" value="[% HTML.escape(onhand) %]">