projekt kivitendo

  $form->header;

  map { delete $form->{$_} } qw(action header);

  print $form->parse_html_template('ic/confirm_price_update', { HIDDENS => [ map { name => $_, value => $form->{$_} }, keys %$form ] });

  $lxdebug->leave_sub();

#  l_linetotal l_priceupdate l_bin l_rop l_weight l_image l_drawing l_microfiche

#  l_partsgroup l_subtotal l_soldtotal l_deliverydate

#

#  nextsub revers lastsort sort ndxs_counter

#

sub generate_report {

  }    #fi

  # special case if we have a serialnumber limit search

  # so they can only pop up in bought, sold, rfq, and quoted stuff

                                 && ($form->{l_serialnumber} || $form->{serialnumber}));

  # special case for any checkbox of bought | sold | onorder | ordered | rfq | quoted.

  # generate callback and optionstrings

  my @options;

    next if ($form->{itemstatus} ne $key && !$form->{$key});

    push @options, $optiontexts{$key};

  }

sub parts_subtotal {

  $lxdebug->enter_sub();

  $auth->assert('part_service_assembly_edit');

  # imports

  map { $form->{"is_$_"}  = ($form->{item} eq $_) } qw(part service assembly);

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

                   'partsgroup'    => 'all_partsgroup');

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

  $form->{fokus} = "ic.partnumber";

  $form->header;

                                                       ALL_UNITS         => $form->{ALL_UNITS},

                                                       BUCHUNGSGRUPPEN   => $form->{BUCHUNGSGRUPPEN},

                                                       payment_terms     => $form->{payment_terms},

sub makemodel_row {

  $lxdebug->enter_sub();

  my ($numrows) = @_;

  my @mm_data = grep { any { $_ ne '' } @$_{qw(make model)} } map +{ make => $form->{"make_$_"}, model => $form->{"model_$_"} }, 1 .. $numrows;

  print $form->parse_html_template('ic/makemodel', { MM_DATA => [ @mm_data, {} ], mm_rows => scalar @mm_data + 1 });

  }

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

    );

  }