projekt kivitendo

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

                   "payments"      => "ALL_PAYMENTS",

                   "currencies"    => "ALL_CURRENCIES",

                   $vc             => { key   => "ALL_" . uc($vc),

                                        limit => $myconfig{vclimit} + 1 },

                   "price_factors" => "ALL_PRICE_FACTORS");

  # Projects

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

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

    ]

  ]);

  $TMPL_VAR{sales_employee_labels} = sub { $_[0]->{name} || $_[0]->{login} };

  # vendor/customer

  $TMPL_VAR{vc_keys} = sub { "$_[0]->{name}--$_[0]->{id}" };

  # setup vendor / customer data

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

  $form->get_lists("projects"     => { "key" => "ALL_PROJECTS", "all" => 1 },

                   "$form->{vc}s" => "ALL_VC",

                   "taxzones"     => "ALL_TAXZONES",

                   "business_types" => "ALL_BUSINESS_TYPES",);

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

  $form->{CT_CUSTOM_VARIABLES}                  = CVar->get_configs('module' => 'CT');

  ($form->{CT_CUSTOM_VARIABLES_FILTER_CODE},

                                       'data'           => $form->{OE});

  my @options;

  push @options, $locale->text('Customer')                . " : $form->{customer}"                        if $form->{customer};

  push @options, $locale->text('Vendor')                  . " : $form->{vendor}"                          if $form->{vendor};

  push @options, $locale->text('Contact Person')          . " : $form->{cp_name}"                         if $form->{cp_name};

  push @options, $locale->text('Order Number')            . " : $form->{ordnumber}"                       if $form->{ordnumber};

  push @options, $locale->text('Customer Order Number')   . " : $form->{cusordnumber}"                    if $form->{cusordnumber};

  push @options, $locale->text('Notes')                   . " : $form->{notes}"                           if $form->{notes};

    push @options, $locale->text('Steuersatz') . " : " . SL::DB::TaxZone->new(id => $form->{taxzone_id})->load->description;

  }

  if (($form->{order_probability_value} || '') ne '') {

    push @options, $::locale->text('Order probability') . ' ' . ($form->{order_probability_op} eq 'le' ? '<=' : '>=') . ' ' . $form->{order_probability_value} . '%';

  }