projekt kivitendo

    @{ $form->{ALL_CHARTS} }

  );

  my %project_labels = ();

  foreach my $item (@{ $form->{"ALL_PROJECTS"} }) {

  # currencies

  $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);

  # build the popup menus

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

                   "taxcharts" => { "key"       => "ALL_TAXCHARTS",

                                    "module"    => "AR" },);

  $_->{link_split} = { map { $_ => 1 } split/:/, $_->{link} } for @{ $form->{ALL_CHARTS} };

  setup_datev_export2_action_bar();

  $::form->header;

  print $::form->parse_html_template('datev/export_bewegungsdaten');

  $::lxdebug->leave_sub;

  $form->get_lists("price_factors"  => "ALL_PRICE_FACTORS",

                   "business_types" => "ALL_BUSINESS_TYPES",

    );

  # Projects

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

                                         "all" => 1 },

                   "business_types" => "ALL_BUSINESS_TYPES");

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

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

  setup_do_search_action_bar();

  $form->{credit} = 0;

  $form->{tax}    = 0;

  $form->{show_details} = $myconfig{show_form_details} unless defined $form->{show_details};

  $form->{amount} = $form->format_amount(\%myconfig, $form->{amount}, 2);

  my $i        = 1;

  my $tax      = 0;

    projects  => { key => "ALL_PROJECTS", all => 1 },

  );

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

  setup_gl_search_action_bar();

  # we cannot book on charttype header

  @{ $::form->{ALL_CHARTS} } = grep { $_->{charttype} ne 'H' }  @{ $::form->{ALL_CHARTS} };

  my $title      = $::form->{title};

  $::form->{title} = $::locale->text("$title General Ledger Transaction");