projekt kivitendo

    ]);

  $::form->{ALL_PROJECTS}          = SL::DB::Manager::Project->get_all_sorted(query => \@conditions);

  $::form->{ALL_EMPLOYEES}         = SL::DB::Manager::Employee->get_all_sorted(query => [ or => [ id => $::form->{employee_id},  deleted => 0 ] ]);

  $::form->{ALL_SALESMEN}          = SL::DB::Manager::Employee->get_all_sorted(query => [ or => [ id => $::form->{salesman_id},  deleted => 0 ] ]);

  $::form->{ALL_SHIPTO}            = SL::DB::Manager::Shipto->get_all_sorted(query => [

  my $form     = $main::form;

  $form->{PRINT_OPTIONS}      = setup_sales_purchase_print_options();

  my $shipto_cvars       = SL::DB::Shipto->new->cvars_by_config;

  foreach my $var (@{ $shipto_cvars }) {

  my $locale   = $main::locale;

  my $cgi      = $::request->{cgi};

  my @custom_hiddens;

  my $current_employee   = SL::DB::Manager::Employee->current;

  $form->{employee_id}   = $form->{old_employee_id} if $form->{old_employee_id};

  $form->{salesman_id}   = $form->{old_salesman_id} if $form->{old_salesman_id};

  my @old_project_ids     = uniq grep { $_ } map { $_ * 1 } ($form->{"globalproject_id"}, map { $form->{"project_id_$_"} } 1..$form->{"rowcount"});

  my @conditions          = @old_project_ids ? (id => \@old_project_ids) : ();

  $form->get_lists("taxzones"      => ($form->{id} ? "ALL_TAXZONES" : "ALL_ACTIVE_TAXZONES"),

                   "currencies"    => "ALL_CURRENCIES",

                   "price_factors" => "ALL_PRICE_FACTORS");

    or => [

      cp_cv_id => $::form->{"$::form->{vc}_id"} * 1,

      and      => [

  $form->{currency}            = $form->{defaultcurrency} unless $form->{currency};

  # show_exchangerate is also later needed in another template

  $form->{show_exchangerate} = $form->{currency} ne $form->{defaultcurrency};

                                                      '-values' => \@values, '-labels' => \%labels,

                                                      '-onchange' => "document.getElementById('update_button').click();"

                                     )) if scalar @values;

  push @custom_hiddens, "forex";

  push @custom_hiddens, "exchangerate" if $form->{forex};

# set option selected

  foreach my $item (qw(AP)) {

    $form->{"select$item"} =~ s/option>\Q$form->{$item}\E/option selected>$form->{$item}/;

  }

  # hiddens

    id type queued printed emailed title vc discount

    title creditlimit creditremaining tradediscount business closedto locked shipped storno storno_id

    max_dunning_level dunning_amount

  ), @custom_hiddens,

  map { $_.'_rate', $_.'_description', $_.'_taxnumber', $_.'_tax_id' } split / /, $form->{taxaccounts}];

  $::request->{layout}->use_javascript(map { "${_}.js" } qw(kivi.Draft kivi.File kivi.SalesPurchase kivi.Part kivi.CustomerVendor kivi.Validator ckeditor/ckeditor ckeditor/adapters/jquery kivi.io autocomplete_project client_js));

  $form->header();

  $main::lxdebug->leave_sub();

}

  $form->{invtotal}    = $form->{invsubtotal};

  $form->{oldinvtotal} = $form->{invtotal};

  # tax, total and subtotal calculations

  my ($tax, $subtotal);

  $form->{taxaccounts_array} = [ split / /, $form->{taxaccounts} ];

    $totalpaid += $form->{"paid_$i"};

  }

  print $form->parse_html_template('ir/form_footer', {

    totalpaid           => $totalpaid,

    paid_missing        => $form->{invtotal} - $totalpaid,

    show_storno         => $form->{id} && !$form->{storno} && !IS->has_storno(\%myconfig, $form, "ap") && !$totalpaid,

  $form->{ALL_DEPARTMENTS} = SL::DB::Manager::Department->get_all_sorted;

  $form->{ALL_LANGUAGES}   = SL::DB::Manager::Language->get_all_sorted;

  # Projects

  my @old_project_ids = uniq grep { $_ } map { $_ * 1 } ($form->{"globalproject_id"}, map { $form->{"project_id_$_"} } 1..$form->{"rowcount"});

  $form->{oldinvtotal} = $form->{invtotal};

  my $shipto_cvars       = SL::DB::Shipto->new->cvars_by_config;

  foreach my $var (@{ $shipto_cvars }) {

    my $name = "shiptocvar_" . $var->config->name;

    ]);

  $TMPL_VAR->{ALL_PROJECTS}          = SL::DB::Manager::Project->get_all_sorted(query => \@conditions);

  $form->{ALL_PROJECTS}            = $TMPL_VAR->{ALL_PROJECTS}; # make projects available for second row drop-down in io.pl

  # label subs

  );

  $form->{oldinvtotal} = $form->{invtotal};

  my $print_options_html = setup_sales_purchase_print_options();

  my $shipto_cvars       = SL::DB::Shipto->new->cvars_by_config;