projekt kivitendo

  my $form     = $main::form;

  my $locale   = $main::locale;

  $form->{title}    = $locale->text('General ledger corrections');

  $form->header();

  print $form->parse_html_template('acctranscorrections/analyze_filter');

    $taxcharts{$item->{id}} = $item;

  }

  my $follow_up_vc         =  $form->{vendor};

  $follow_up_vc            =~ s/--.*?//;

  my $follow_up_trans_info =  "$form->{invnumber} ($follow_up_vc)";

  $form->all_vc(\%myconfig, "vendor", "AP");

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

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

                   "departments"  => "ALL_DEPARTMENTS",

                   "vendors"      => "ALL_VC");

  # constants and subs for template

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

  $form->header;

  my $locale   = $main::locale;

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

  # setup customer selection

  $form->all_vc(\%myconfig, "customer", "AR");

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

  # Auch in Rechnungsübersicht nach Kundentyp filtern - jan

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

  $form->{SHOW_BUSINESS_TYPES} = scalar @{ $form->{ALL_BUSINESS_TYPES} } > 0;

  # constants and subs for template

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

  $form->header;

                                                                           'include_prefix' => 'l_',

                                                                           'include_value'  => 'Y');

  $form->{title}    = $form->{IS_CUSTOMER} ? $locale->text('Customers') : $locale->text('Vendors');

  $form->header();

  $form->{shipto_label}   = \&_shipto_label;

  $form->{contacts_label} = \&_contacts_label;

  $form->{taxzone_id}     = 0                                                               if !$form->{id};

  $form->{SHIPTO_ALL}     = [ +{ shipto_id => '0', shiptoname => $::locale->text('All') }, @{ $form->{SHIPTO} } ];

  $form->{title} = $form->{title_save}

  $form->{SHOW_DEPARTMENT_SELECTION}    = $form->{all_departments} && scalar @{ $form->{all_departments} || [] };

  $form->{title}    = $locale->text('Start Dunning Process');

  $form->header();

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

  $form->{type}           = 'dunning';

  $form->{rowcount}       = scalar @{ $form->{DUNNINGS} };

  $form->{callback}     ||= build_std_url("action=show_invoices", qw(customer invnumber ordnumber groupinvoices minamount dunning_level notes));

  $form->{PRINT_OPTIONS}  = print_options('inline'          => 1,

  $form->{SHOW_DEPARTMENT_DDBOX} = scalar @{ $form->{ALL_CUSTOMERS} };

  $form->{SHOW_DUNNING_LEVELS}   = scalar @{ $form->{DUNNING} };

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

  $form->header();

  # 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});

  $params{trans_id}   = $form->{LINKS}->[0]->{trans_id} if (@{ $form->{LINKS} });

  $form->{FOLLOW_UPS} = FU->follow_ups(%params);

  $form->header(no_layout => $::form->{POPUP_MODE});

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

  $form->get_lists("employees" => "EMPLOYEES");

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

  $form->header();

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

  $form->{title} = $locale->text('Assemblies') if ($is_xyz{is_assembly});

  $form->{CUSTOM_VARIABLES}                  = CVar->get_configs('module' => 'IC');

  ($form->{CUSTOM_VARIABLES_FILTER_CODE},

   $form->{CUSTOM_VARIABLES_INCLUSION_CODE}) = CVar->render_search_options('variables'      => $form->{CUSTOM_VARIABLES},

    flash('info', $::locale->text('This partnumber is not unique. You should change it.'));

  }

  my $units = AM->retrieve_units(\%myconfig, $form);

  $form->{ALL_UNITS} = [ map +{ name => $_ }, sort { $units->{$a}{sortkey} <=> $units->{$b}{sortkey} } keys %$units ];

  # create links

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

  $form->create_links("AP", \%myconfig, "vendor");

  ), @custom_hiddens,

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

  $form->header();

  print $form->parse_html_template("ir/form_header", \%TMPL_VAR);

  $form->{callback} = "$form->{script}?action=add&type=$form->{type}" unless $form->{callback};

  &invoice_links;

  &prepare_invoice;

  &display_form;

  ), @custom_hiddens,

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

  $form->header();

  print $form->parse_html_template("is/form_header", \%TMPL_VAR);

  # 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};

  # openclosed checkboxes

  my @tmp;

  push @tmp, sprintf qq|<input name="delivered" id="delivered" type="checkbox" class="checkbox" value="1" %s><label for="delivered">%s</label>|,

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

  # constants and subs for template

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

  $form->header();

    my $bank_account_label_sub = sub { $locale->text('Account number #1, bank code #2, #3', $_[0]->{account_number}, $_[0]->{bank_code}, $_[0]->{bank}) };

    $form->header();

    print $form->parse_html_template('sepa/bank_transfer_create',

                                     { 'BANK_TRANSFERS'     => \@bank_transfers,

  my $vc     = $form->{vc} eq 'customer' ? 'customer' : 'vendor';

  $form->{title}    = $vc eq 'customer' ? $::locale->text('List of bank collections') : $locale->text('List of bank transfers');

  $form->header();

  print $form->parse_html_template('sepa/bank_transfer_search', { vc => $vc });

    $form->error($locale->text('That export does not exist.'));

  }

  $form->{title}    = $locale->text('View SEPA export');

  $form->header();

  print $form->parse_html_template('sepa/bank_transfer_edit',

  $form->all_vc(\%myconfig, "customer", "AR");

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

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

                   "departments"     => "ALL_DEPARTMENTS",

  # can't currently be configured from report, empty line between main sortings

  my $addemptylines = 1;

  # don't add empty lines between mainsort subtotals when only subtotal_mainsort is selected

  if ($form->{l_subtotal_mainsort} eq "Y" and not defined $form->{l_headers_mainsort} and not defined $form->{l_headers_subsort} and not defined $form->{l_subtotal_subsort} ) {

  };

  if ( $form->{customer} =~ /--/ ) {

  my $content;

  if ($form->{trans_type} eq 'removal') {

    $form->{nextsub} = "removal_parts_selection";

    $form->{title}   = $locale->text('Removal from Warehouse');

  show_no_warehouses_error() if (!scalar @{ $form->{WAREHOUSES} });

  $form->header();

  print $form->parse_html_template("wh/journal_filter", { "UNITS" => AM->unit_select_data(AM->retrieve_units(\%myconfig, $form)) });

  show_no_warehouses_error() if (!scalar @{ $form->{WAREHOUSES} });

  $form->{title}   = $locale->text("Report about warehouse contents");

  $form->header();