projekt kivitendo

use List::MoreUtils qw(any);

use SL::DBUtils;

use SL::DB::AuthUser;

use SL::DB::Employee;

use strict;

      $filename =~ s|.*/||;

    }

    $display_filename = $filename;

  }

  $main::lxdebug->leave_sub();

use English qw(-no_match_vars);

use SL::DB::AuthUser;

use SL::DB::Order;

use SL::DB::Invoice;

use SL::DB::PeriodicInvoice;

  return unless $template;

  my $email_template = $config{periodic_invoices}->{email_template};

  my %params         = ( POSTED_INVOICES  => $posted_invoices,

                         PRINTED_INVOICES => $printed_invoices );

use FindBin;

use SL::DB::AuthUser;

use SL::Common;

use Rose::Object::MakeMethods::Generic (

  return unless $template;

  my $email_template = $self->config->{email_template};

  my $content_type   = $filename =~ m/.html$/ ? 'text/html' : 'text/plain';

use SL::Common;

use SL::CVar;

use SL::DBUtils;

use SL::FU;

use SL::Notes;

use SL::TransNumber;

  my ($self, $myconfig, $form) = @_;

  my $locale = $main::locale;

  $form->{formname}   = 'sales_quotation';

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

  $form->{format} = 'excel';

  $form->{notes} =~ s/^\s+//g;

  delete $form->{printer_command};

  $form->get_employee_info($myconfig);

use SL::Common;

use SL::DBUtils;

use SL::GenericTranslations;

use SL::IS;

use SL::Mailer;

  my ($self, $myconfig, $form) = @_;

  $form->{language}     = $form->get_template_language($myconfig);

  $form->{printer_code} = $form->get_printer_code($myconfig);

  $form->{IN} = undef;

  for my $filename (@template_files) {

      $form->{IN} = $filename;

      last;

    }

use SL::DB;

use SL::DBConnect;

use SL::DBUtils;

use SL::DO;

use SL::IC;

use SL::IS;

sub prepare_for_printing {

  my ($self) = @_;

  $self->{formname}  ||= $self->{type};

  $self->{media}     ||= 'email';

  }

  my $printer_code    = $self->{printer_code} ? '_' . $self->{printer_code} : '';

  $self->{IN}         = "$self->{formname}${email_extension}${language}${printer_code}.${extension}";

  # Format dates.

use List::MoreUtils qw(any);

use Unicode::Normalize qw();

sub new {

  my $type = shift;

  $local_form->{IN}        = $template_file_name;

  $local_form->{tmpdir}    = $::lx_office_conf{paths}->{userspath};

  $local_form->{tmpfile}   = $tex_file_name;

  foreach (keys %params) {

    croak "The parameter '$_' must not be used." if exists $local_form->{$_};

use File::Find;

use SL::AM;

use SL::Form;

  $main::auth->assert('admin');

  if ($form->{"formname"} =~ m|\.\.| || $form->{"formname"} =~ m|^/|) {

    $form->{"formname"} =~ s|.*/||;

  }

          my $fname = $File::Find::name;

          # remove template dir from name

          # remove .tex from name

          $fname =~ s|.tex$||;

          push(@all_files, $fname);

      # filter all files already set up (i.e. not already in @values)

      my @other_files = grep { my $a=$_; not grep {$a eq $_->{value}} @values } @all_files;

use SL::IC;

use SL::IO;

use SL::DB::Language;

use SL::DB::Printer;

use SL::Helper::Flash;

  _check_io_auth();

  my ($old_form) = @_;

  my $inv       = "inv";

  $form->{notes} =~ s/^\s+//g;

  delete $form->{printer_command};

  $form->{language} = $form->get_template_language(\%myconfig);

  push @template_files, "$form->{formname}.$extension";

  push @template_files, "default.$extension";

  @template_files = uniq @template_files;

  if (!defined $form->{IN}) {

    $::form->error($::locale->text('Cannot find matching template for this print request. Please contact your template maintainer. I tried these: #1.', join ', ', map { "'$_'"} @template_files));

use POSIX qw(strftime);

use SL::DB::Project;

use SL::PE;

use SL::RP;

  my %myconfig = %main::myconfig;

  my $locale   = $main::locale;

  $form->{padding} = "  ";

  $form->{bold}    = "<b>";

  $form->{endbold} = "</b>";

  my @a = qw(company address businessnumber);

  map { $form->{$_} = $myconfig{$_} } @a;

  $form->{IN} = "income_statement.html";

  $form->parse_template;

  $::lxdebug->enter_sub;

  $::auth->assert('report');

  $::form->{decimalplaces} = $::form->{decimalplaces} * 1 || 2;

  $::form->{padding}       = "  ";

  $::form->{bold}          = "<b>";

  # setup company variables for the form

  map { $::form->{$_} = $::myconfig{$_} } qw(company address businessnumber nativecurr);

  $::form->header;

  print $::form->parse_html_template('rp/balance_sheet', $data);

  my %myconfig = %main::myconfig;

  my $locale   = $main::locale;

  my $suffix = "html";

  my $attachment_suffix = "html";

  my %myconfig = %main::myconfig;

  my $locale   = $main::locale;

  $form->{padding} = "  ";

  $form->{bold}    = "<b>";

  $form->{endbold} = "</b>";

  # setup variables for the form

  my @a = qw(company address businessnumber);

  map { $form->{$_} = $myconfig{$_} } @a;

  $form->{IN} = "bwa.html";

use List::Util qw(first);

use SL::PE;

use SL::RP;

use SL::USTVA;

  $::auth->assert('advance_turnover_tax_return');

  # parse help documents under doc

  $::form->{templates} = 'doc';

  $::form->{help}      = 'ustva';

  $::form->{type}      = 'help';

  $::form->{format}    = 'html';

  generate_ustva();

  $::lxdebug->leave_sub();

}

  $::auth->assert('advance_turnover_tax_return');

  # Aufruf von get_config zum Einlesen der Finanzamtdaten aus finanzamt.ini

  my $ustva = USTVA->new();

      . '!');

  }

  $form->{templates} = "doc" if ( $form->{type} eq 'help' );

  if ($form->{format} eq 'generic'){