projekt kivitendo

  my $db_charset = $::lx_office_conf{system}->{dbcharset} || Common::DEFAULT_CHARSET;

  my @header;

  $::lxdebug->leave_sub and return if !$ENV{HTTP_USER_AGENT} || $self->{header}++;

  # standard css for all

  $layout->use_stylesheet("$_.css") for qw(

    main menu tabcontent list_accounts jquery.autocomplete

  $form->header;

  print qq|

<form method=post action=$form->{script}>

<input type=hidden name=id value=$form->{id}>

  $form->{formname} ||= 'Form';

  $form->{title} = $locale->text("Select a part");

  print $form->parse_html_template("generic/part_selection", { "HEADER" => \@header,

                                                               "PARTS"  => $parts, });

        @header_sort);

  $form->{"title"} = $locale->text("Select a Customer");

  print $form->parse_html_template("generic/select_delivery_customer", { "HEADER"   => \@header,

                                                                         "DELIVERY" => $delivery, });

        @header_sort);

  $form->{"title"} = $locale->text("Select a Customer");

  print $form->parse_html_template("generic/select_vendor", { "HEADER" => \@header,

                                                              "VENDOR" => $vendor, });

  $form->{formel} = $formel;

  $form->{title}  = $locale->text("Please enter values");

  print $form->parse_html_template("generic/calculate_qty", { "HEADER"    => \@header,

                                                              "VARIABLES" => \@variable, });

  my $locale   = $main::locale;

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

  print $form->parse_html_template("generic/set_longdescription");

  $main::lxdebug->leave_sub();

  $sort =~ s/.*\.(.*)/$1/;

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

  print $form->parse_html_template( "common/show_history", {

    "DATEN"        => $form->get_history($dbh,$form->{input_name},"",$form->{order}),

    "SUCCESS"      => ($form->get_history($dbh,$form->{input_name}) ne "0"),

    uc($sort)      => 1,

  } );

  $dbh->disconnect();

  $form->{title} = $form->{vc} eq "customer" ?

    $locale->text("Customer details") : $locale->text("Vendor details");

  print $form->parse_html_template("common/show_vc_details", { "is_customer" => $form->{vc} eq "customer" });

  $main::lxdebug->leave_sub();

  $main::auth->assert('dunning_edit');

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

  print($form->parse_html_template("dunning/set_email"));

  $main::lxdebug->leave_sub();

  get_basic_bin_wh_info($stock_info);

  print $form->parse_html_template('do/stock_in_form', { 'UNITS'      => $units_data,

                                                         'STOCK_INFO' => $stock_info,

                                                         'PART_INFO'  => $part_info, });

    }

  }

  print $form->parse_html_template('do/stock_out_form', { 'UNITS'      => $units_data,

                                                          'WHCONTENTS' => $form->{delivered} ? $stock_info : \@contents,

                                                          'PART_INFO'  => $part_info, });

  $form->{jsscript}   = 1;

  print $form->parse_html_template('fu/add_edit');

  $main::lxdebug->leave_sub();

  $::form->{AR}    = [ grep { $_->{link} =~ m/(?:^|:)AR(?::|$)/ } @{ $::form->{ALL_CHARTS} } ];

  $::form->{title} = $::locale->text('Edit the configuration for periodic invoices');

  print $::form->parse_html_template('oe/edit_periodic_invoices_config', $config);

  $::lxdebug->leave_sub();