projekt kivitendo

  my ($form) = @_;

  return $main::lxdebug->leave_sub()

  my ($path, $number);

  }

  $additional_params->{"conf_dbcharset"}              = $::lx_office_conf{system}->{dbcharset};

  $additional_params->{"conf_latex_templates"}        = $::lx_office_conf{print_templates}->{latex};

  $additional_params->{"conf_opendocument_templates"} = $::lx_office_conf{print_templates}->{opendocument};

  $additional_params->{"conf_show_best_before"}       = $::lx_office_conf{features}->{show_best_before};

  $additional_params->{"conf_parts_image_css"}        = $::lx_office_conf{features}->{parts_image_css};

  $additional_params->{"conf_parts_listing_images"}   = $::lx_office_conf{features}->{parts_listing_images};

  $form->{title} = $locale->text('Type of Business');

  my @column_index = qw(description discount customernumberinit);

  my %column_header;

  $column_header{description} =

      qq|<th class=listheading width=60%>|

    $form->format_amount(\%myconfig, $form->{discount} * 100);

  my $salesman_code;

    $salesman_code = qq|

  <tr>

    <th align="right">| . $locale->text('Representative') . qq|</th>

                   taxzones  => "ALL_TAXZONES");

  $form->get_pricegroup(\%myconfig, { all => 1 });

  $form->{ALL_SALESMEN}   = $form->{ALL_EMPLOYEES};

  $form->{taxincluded}    = ($form->{taxincluded}) ? "checked" : "";

  $::form->isblank("name", $::locale->text("Name missing!"));

    $::form->{salesman_id} = $::form->{new_salesman_id};

    delete $::form->{new_salesman_id};

  }

  $form->all_vc(\%myconfig, $form->{vc}, ($form->{vc} eq 'customer') ? "AR" : "AP");

  # retrieve order/quotation

  $form->{jsscript} = 1;

  my $editing = $form->{id};

    qw(bin listprice inventory_accno income_accno expense_accno unit weight

       assembly taxaccounts partsgroup formel longdescription not_discountable

       part_payment_id partnotes id lastcost price_factor_id price_factor);

  push @new_fields, grep { m/^ic_cvar_/ } keys %{ $form->{item_list}->[0] };

  my $i = 0;

  foreach my $ref (@{ $form->{item_list} }) {

    my $checked = ($i++) ? "" : "checked";

      if ($ref->{inventory_accno} > 0) {

        $ref->{"lizenzen"} = qq|<option></option>|;

        foreach my $item (@{ $form->{LIZENZEN}{ $ref->{"id"} } }) {

    $form->{payment_id} = $form->{"part_payment_id_$i"};

  }

    map { $form->{"${_}_$i"} = $form->{"new_${_}_$j"} } qw(lizenzen);

  }

  $form->{vc} = 'vendor';

  # create links

  $form->{jsscript} = 1;

  $form->create_links("AP", \%myconfig, "vendor");

  $form->{vc} = 'customer';

  # create links

  $form->create_links("AR", \%myconfig, "customer");

        $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"});

          if ($form->{"inventory_accno_$i"} ne "") {

            $form->{"lizenzen_$i"} = qq|<option></option>|;

            foreach my $item (@{ $form->{LIZENZEN}{ $form->{"id_$i"} } }) {

  $form->all_vc(\%myconfig, $form->{vc}, ($form->{vc} eq 'customer') ? "AR" : "AP");

  # retrieve order/quotation

  $form->{jsscript} = 1;

  my $editing = $form->{id};

  print $form->parse_html_template("oe/form_footer", {

     %TMPL_VAR,

     print_options   => print_options(inline => 1),

     label_edit      => $locale->text("Edit the $form->{type}"),

     label_workflow  => $locale->text("Workflow $form->{type}"),