projekt kivitendo

  # retrieve order/quotation

  $form->{webdav}   = $::lx_office_conf{features}->{webdav};

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

  $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 = ($form->{"globalproject_id"});

  map({ push(@old_project_ids, $form->{"project_id_$_"})

          if ($form->{"project_id_$_"}); } (1..$form->{"rowcount"}));

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

  $form->{SHOW_VC_DROP_DOWN} =  $myconfig{vclimit} > scalar @{ $form->{ALL_VC} };

  $form->{title}             = $locale->text('Delivery Orders');

  $form->header();

  my %myconfig = %main::myconfig;

  my $locale   = $main::locale;

  $form->{title} = $locale->text('Stock');

  my $part_info  = IC->get_basic_part_info('id' => $form->{parts_id});