projekt kivitendo

  my $user = SL::DB::Manager::AuthUser->find_by(login => $form->{login});

  $user->update_attributes(

    config_values => {

    });

  $main::lxdebug->leave_sub();

  local (*IN, *OUT);

  my $userspath = $::lx_office_conf{paths}->{userspath};

  $self->{"cwd"} = getcwd();

  $self->{"notes"} = $self->{ $self->{"formname"} . "notes" };

  if (!$self->{employee_id}) {

  }

  $self->{copies} = 1 if (($self->{copies} *= 1) <= 0);

  my $self     = shift;

  my %params   = @_;

  Common::check_params(\%params, qw(prefix));

  Common::check_params_x(\%params, qw(id));

  if ($login) {

    my $user = User->new(login => $login);

    $self->{$params{prefix} . '_login'}   = $login;

    $self->{$params{prefix} . '_name'}  ||= $login;

  die "'media' other than 'email', 'file', 'printer' is not supported yet" unless $self->{media} =~ m/^(?:email|file|printer)$/;

  # set shipto from billto unless set

  my $has_shipto = any { $self->{"shipto$_"} } qw(name street zipcode city country contact);

  if (!$has_shipto && ($self->{type} =~ m/^(?:purchase_order|request_quotation)$/)) {

  }

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

use POSIX qw(strftime);

use SL::CA;

use SL::ReportGenerator;

require "bin/mozilla/reportgenerator.pl";

  my $form     = $main::form;

  my %myconfig = %main::myconfig;

  my $locale   = $main::locale;

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

  $form->{print_date} = $locale->text('Create Date') . " " . $locale->date(\%myconfig, $form->current_date(\%myconfig), 0);

  push (@options, $form->{print_date});

  push (@options, $form->{company});

  my @columns     = qw(transdate reference description gegenkonto debit credit ustkonto ustrate balance);

  if ($shipto) {

    if (   $form->{formname} eq 'purchase_order'

        || $form->{formname} eq 'request_quotation') {

    } else {

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

    }

      . qq| $longcomparetodate|;

  }

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

  $form->parse_template;

#  $::form->{IN} = "balance_sheet.html";

  $::form->header;

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

  my $form     = $main::form;

  my %myconfig = %main::myconfig;

  my $locale   = $main::locale;

  if ($form->{reporttype} eq "custom") {

  $form->{print_date} = $locale->text('Create Date') . " " . $locale->date(\%myconfig, $form->current_date(\%myconfig), 0);

  push (@options, $form->{print_date});

  push (@options, $form->{company});

      . qq| $longtodate|;

  }

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

  $form->parse_template;

  my $locale   =  $main::locale;

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

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

  }

  }

  my @ids;

  my $message_id = strftime('MSG%Y%m%d%H%M%S', localtime) . sprintf('%06d', $$);

                                      'src_charset' => $::lx_office_conf{system}->{dbcharset} || 'ISO-8859-15',

                                      'message_id'  => $message_id,

                                      'grouped'     => 1,

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

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

  $form->{kz10}  = '';                       #Berichtigte Anmeldung? Ja =1 Nein=0

  # Hier Einlesen der user-config

  # steuernummer entfernt für prerelease

  my @a = qw(

    tel            fax           email         co_chief       co_department

    co_custom1     co_custom2    co_custom3    co_custom4     co_custom5

    co_name1       co_name2      co_street     co_street1     co_zip

    co_city        co_city1      co_country    co_tel         co_tel1

    co_tel2        co_fax        co_fax1       co_email       co_email1

    co_bankname1   co_bankname2  co_bankname3  co_blz         co_blz1

    co_blz2        co_blz3       co_accountnr  co_accountnr1  co_accountnr2

    co_accountnr3

  );

  my $openings = $form->{FA_Oeffnungszeiten};

  $openings =~ s/\\\\n/<br>/g;

    company_given    => $company_given,

    address_given    => $address_given,

    taxnumber_given  => $taxnumber_given,

    select_year      => $select_year,

    period_local     => $period_local,

    method_local     => $method_local,

    $locale->date(\%myconfig, $form->current_date(\%myconfig), 0, 0, 0);

  # setup variables for the form

    co_chief co_department co_custom1 co_custom2 co_custom3 co_custom4 co_custom5

    co_name1 co_name2  co_street co_street1 co_zip co_city co_city1 co_country co_tel co_tel1 co_tel2

    co_bankname co_bankname1 co_bankname2 co_bankname3 co_blz co_blz1

    co_blz2 co_blz3 co_accountnr co_accountnr1 co_accountnr2 co_accountnr3);

  if ($form->{address} ne '') {

    my $temp = $form->{address};

    $form->header();

    my $template_ref = {

    };

    print($form->parse_html_template('ustva/generic_taxreport', $template_ref));

[%- IF COA_Germany %]

           [% input_steuernummer %]

[%- ELSE %]

[% 'Current value:' | $T8 %] [% HTML.escape(myconfig_taxnumber) %]

[%- END %]