projekt kivitendo

sub restore_session {

  my $self = shift;

  $session_id        =~ s|[^0-9a-f]||g if $session_id;

  $self->{SESSION}   = { };

sub get_api_token_cookie {

  my ($self) = @_;

}

sub is_api_token_cookie_valid {

  return $self->render(SL::ClientJS->new->redirect_to($url)) if $::request->is_ajax;

}

sub render {

use SL::MoreCommon qw(uri_encode);

use SL::Template::Plugin::HTMLFixes;

use SL::User;

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

  scalar => [ qw(restart_after_request) ],

      if ($::request->is_ajax) {

        eval { render_error_ajax($error) };

      } else {

        chdir SL::System::Process::exe_dir;

        eval { show_error('generic/error') };

      }

    1;

  } or do {

    show_error('generic/error');

  };

    1;

  } or do {

    show_error('generic/error');

  };

use Data::Dumper;

use Carp;

use Cwd;

use Encode;

use File::Copy;

  return $str;

}

sub throw_on_error {

  my ($self, $code) = @_;

  local $self->{__ERROR_HANDLER} = sub { SL::X::FormError->throw(error => $_[0]) };

  my $self     = shift;

  my %params   = @_;

  my $session_cookie;

  if (defined $main::auth) {

    my $uri      = $self->_get_request_uri;

    my $session_cookie_value = $main::auth->get_session_id();

    if ($session_cookie_value) {

                                     '-value'   => $session_cookie_value,

                                     '-path'    => $uri->path,

                                     '-expires' => '+' . $::auth->{session_timeout} . 'm',

  map { $cgi_params{'-' . $_} = $params{$_} if exists $params{$_} } qw(content_disposition content_length status);

  $main::lxdebug->leave_sub();

  my ($self) = @_;

  $main::lxdebug->leave_sub();

  die "Headers already sent" if $self->{header};

  $self->{header} = 1;

}

sub set_standard_title {

  html_tag input_tag hidden_tag javascript man_days_tag name_to_id select_tag

  checkbox_tag button_tag submit_tag ajax_submit_tag input_number_tag

  stringify_attributes restricted_html textarea_tag link_tag date_tag

our %EXPORT_TAGS = (ALL => \@EXPORT_OK);

use Carp;

  return html_tag('div', $content, %params);

}

1;

__END__

  my $form     = $main::form;

  my %myconfig = %main::myconfig;

  my $locale   = $main::locale;

  $::form->{invoice_obj} = SL::DB::PurchaseInvoice->new(id => $::form->{id})->load if $::form->{id};

use SL::DB::Tax;

use SL::Helper::Flash qw(flash);

use SL::Locale::String qw(t8);

use SL::Presenter::Chart;

use SL::ReportGenerator;

  my $form     = $main::form;

  my %myconfig = %main::myconfig;

  my $locale   = $main::locale;

  $form->{invoice_obj} = _retrieve_invoice_object();

  my %project_labels = map { $_->{id} => $_->{projectnumber} } @{ $form->{"ALL_PROJECTS"} };

  my $default_ar_amount_chart_id;

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

      $default_ar_amount_chart_id //= $item->{id};

    } elsif ($item->{link_split}{AR_paid}) {

    }

  }

      project_id => ($i==$form->{rowcount}) ? $form->{globalproject_id} : $form->{"project_id_$i"},

    };

    my $amount_chart_id = $form->{"AR_amount_chart_id_$i"} // $default_ar_amount_chart_id;

    my $used_tax_id;

      $default_taxchart   = $item if $item->{is_default};

      $taxchart_to_use    = $item if $key eq $form->{"taxchart_$i"};

    }

    $taxchart_to_use    //= $default_taxchart // $first_taxchart;

      . SL::Presenter::Tag::hidden_tag("previous_AR_amount_chart_id_$i", $amount_chart_id);

    $transaction->{taxchart} =

    push @transactions, $transaction;

  }

    $form->{accno_arap} = IS->get_standard_accno_current_assets(\%myconfig, \%$form);

    $payment->{selectAR_paid} =

  my $form     = $main::form;

  my %myconfig = %main::myconfig;

  my $locale   = $main::locale;

  if ( $form->{id} ) {

    my $follow_ups = FU->follow_ups('trans_id' => $form->{id}, 'not_done' => 1);

  my $form     = $main::form;

  my %myconfig = %main::myconfig;

  my $locale   = $main::locale;

  $form->{title} = $locale->text('Invoices, Credit Notes & AR Transactions');

  return $main::form->escape($_[0]);

}

sub format_dates {

  return $::form->format_dates(@_);

}

use SL::DN;

use SL::DB::Department;

use SL::DB::Dunning;

use SL::Helper::Flash qw(flash);

use SL::Locale::String qw(t8);

use SL::ReportGenerator;

  my $form     = $main::form;

  my %myconfig = %main::myconfig;

  my $locale   = $main::locale;

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

    }

    $row->{checkbox} = !$first_row_for_dunning ? { } : {

      'valign'   => 'center',

      'align'    => 'center',

    };

    if ($first_row_for_dunning) {

    } else {

      $row->{language} = { };

    }

use SL::ReportGenerator;

use SL::WH;

use SL::YAML;

use Sort::Naturally ();

require "bin/mozilla/common.pl";

require "bin/mozilla/io.pl";

  my $form     = $main::form;

  my %myconfig = %main::myconfig;

  my $locale   = $main::locale;

  $::request->{layout}->use_javascript(map { "${_}.js" } qw(kivi.MassDeliveryOrderPrint kivi.SalesPurchase));

  ($form->{ $form->{vc} }, $form->{"$form->{vc}_id"}) = split(/--/, $form->{ $form->{vc} });

    my $ord_id = $dord->{id};

    $row->{ids}  = {

      'valign'   => 'center',

      'align'    => 'center',

    };

use SL::FU;

use SL::Locale::String qw(t8);

use SL::ReportGenerator;

require "bin/mozilla/reportgenerator.pl";

  my $form     = $main::form;

  my %myconfig = %main::myconfig;

  my $locale   = $main::locale;

  my @report_params = qw(created_for subject body reference follow_up_date_from follow_up_date_to itime_from itime_to due_only all_users done not_done);

    my $row = { map { $_ => { 'data' => $fu->{$_} } } keys %{ $fu } };

    $row->{selected} = {

      'valign'   => 'center',

      'align'    => 'center',

    };

use SL::Webdav;

use SL::Locale::String qw(t8);

use SL::Helper::GlAttachments qw(count_gl_attachments);

use SL::Presenter::Chart;

require "bin/mozilla/common.pl";

require "bin/mozilla/reportgenerator.pl";

  my $form     = $main::form;

  my %myconfig = %main::myconfig;

  my %balances = GL->get_chart_balances(map { $_->{id} } @{ $form->{ALL_CHARTS} });

      <input type="hidden" name="memo_$i" value="$form->{"memo_$i"}" size="16">|;

    }

    my @taxchart_values = ();

    my $accno_id = $::form->{"accno_id_$i"};

      $default_taxchart   = $item if $item->{is_default};

      $taxchart_to_use    = $item if $key eq $form->{"taxchart_$i"};

    }

    $taxchart_to_use    //= $default_taxchart // $first_taxchart;

      SL::Presenter::Chart::picker("accno_id_$i", $accno_id, style => "width: 300px") .

      SL::Presenter::Tag::hidden_tag("previous_accno_id_$i", $accno_id)

      . qq|</td>|;

      . qq|</td>|;

    my ($fx_transaction, $checked);

      <td><input type=hidden name="fx_transaction_$i" value="$checked">$x</td>

    |;

        }

      } else {

        if ($form->{transfer}) {

|;

  }

  $main::lxdebug->leave_sub();

#######################################################################

use Carp;

use List::MoreUtils qw(any uniq apply);

use List::Util qw(sum min max first);

use List::UtilsBy qw(sort_by uniq_by);

use SL::File;

use SL::PriceSource;

use SL::Presenter::Part;

use SL::DB::Contact;

use SL::DB::Currency;

use SL::DB::Language;

use SL::DB::Printer;

use SL::DB::Vendor;

use SL::Helper::CreatePDF;

use SL::Helper::Flash;

use SL::Helper::PrintOptions;

  my $form     = $main::form;

  my %myconfig = %main::myconfig;

  my $locale   = $main::locale;

  my $numrows = shift;

  $form->{sellprice_total}       = 0;

  $form->{lastcost_total}        = 0;

  $form->{totalweight}           = 0;

  _update_part_information();

  _update_ship() if ($is_s_p_order);

    $this_unit    = $form->{"selected_unit_$i"} if AM->convert_unit($this_unit, $form->{"selected_unit_$i"}, $all_units);

    if (0 < scalar @{ $form->{ALL_PRICE_FACTORS} }) {

    } else {

      $column_data{price_factor} = ' ';

    }

    # quick delete single row

    $column_data{runningnumber}  = q|<a onclick= "$('#partnumber_| . $i . q|').val(''); $('#update_button').click();">| .

                                   q|<img height="10px" width="10px" src="image/cross.png" alt="| . $locale->text('Remove') . q|"></a> |;

    $column_data{type_and_classific} = SL::Presenter::Part::type_abbreviation($form->{"part_type_$i"}).

                                       SL::Presenter::Part::classification_abbreviation($form->{"classification_id_$i"}) if $form->{"id_$i"};

    $column_data{description} = (($rows > 1) # if description is too large, use a textbox instead

    my $qty_dec = ($form->{"qty_$i"} =~ /\.(\d+)/) ? length $1 : 2;

      if $form->{"formel_$i"};

    $column_data{ship} = '';

      $ship_qty          /= ( $all_units->{$form->{"unit_$i"}}->{factor} || 1 );

      $column_data{ship}  = $form->format_amount(\%myconfig, $form->round_amount($ship_qty, 2) * 1) . ' ' . $form->{"unit_$i"}

      my $ship_missing_qty    = $form->{"qty_$i"} - $ship_qty;

      my $ship_missing_amount = $form->round_amount($ship_missing_qty * $form->{"sellprice_$i"} * (100 - $form->{"discount_$i"}) / 100 / $price_factor, 2);

      my $discount      = $price_source->discount_from_source($::form->{"active_discount_source_$i"});

      my $best_price    = $price_source->best_price;

      my $best_discount = $price_source->best_discount;

      if ($price->source) {

        if (!$price->missing && !$price->invalid) {

        }

      }

      if ($discount->source) {

        if (!$discount->missing && !$discount->invalid) {

        }

      }

    }

    my $edit_prices           = $right_to_edit_prices && (!$::form->{"active_price_source_$i"} || !$price || $price->editable);

    my $edit_discounts        = $right_to_edit_prices && !$::form->{"active_discount_source_$i"};

    $column_data{sellprice}   = (!$edit_prices)

    $column_data{discount}    = (!$edit_discounts)

    if ($is_delivery_order) {

      $column_data{stock_in_out} =  calculate_stock_in_out($i);

    }

    $column_data{serialnr}  = qq|<input name="serialnumber_$i" size="15" value="$form->{"serialnumber_$i"}">|;

    $column_data{reqdate}   = qq|<input name="reqdate_$i" size="11" data-validate="date" value="$form->{"reqdate_$i"}">|;

    $column_data{subtotal}  = sprintf qq|<input type="checkbox" name="subtotal_$i" value="1" %s>|, $form->{"subtotal_$i"} ? 'checked' : '';

    }

    my @HIDDENS = map { value => $_}, (

            (qw(bo price_old id inventory_accno bin partsgroup partnotes active_price_source active_discount_source

                income_accno expense_accno listprice part_type taxaccounts ordnumber donumber transdate cusordnumber

                longdescription basefactor marge_absolut marge_percent marge_price_factor weight), @hidden_vars)

  $::form->{"id_$::form->{rowcount}"} = $part->id;

  my $url = build_std_url("script=$::form->{script}", "RESTORE_FORM_FROM_SESSION_ID=" . $::auth->save_form_in_session);

}

sub check_form {

use SL::DB::PurchaseInvoice;

use SL::DB::Vendor;

use List::MoreUtils qw(uniq);

use List::Util qw(max sum);

use List::UtilsBy qw(sort_by);

  my $form     = $main::form;

  my %myconfig = %main::myconfig;

  my $locale   = $main::locale;

  my %TMPL_VAR = ();

  my @custom_hiddens;

  ]);

  # currencies and exchangerate

  $form->{currency}            = $form->{defaultcurrency} unless $form->{currency};

  # show_exchangerate is also later needed in another template

  $form->{show_exchangerate} = $form->{currency} ne $form->{defaultcurrency};

  push @custom_hiddens, "forex";

  push @custom_hiddens, "exchangerate" if $form->{forex};

use SL::DB::Department;

use SL::DB::Invoice;

use SL::DB::PaymentTerm;

require "bin/mozilla/common.pl";

require "bin/mozilla/io.pl";

  my $form     = $main::form;

  my %myconfig = %main::myconfig;

  my $locale   = $main::locale;

  my %TMPL_VAR = ();

  my @custom_hiddens;

  ]);

  # currencies and exchangerate

  $form->{currency}            = $form->{defaultcurrency} unless $form->{currency};

  $form->{show_exchangerate}   = $form->{currency} ne $form->{defaultcurrency};

  push @custom_hiddens, "forex";

  push @custom_hiddens, "exchangerate" if $form->{forex};

use SL::DB::TaxZone;

use SL::DB::PaymentTerm;

use SL::DB::Vendor;

require "bin/mozilla/common.pl";

require "bin/mozilla/io.pl";

  my $form     = $main::form;

  my %myconfig = %main::myconfig;

  my $locale   = $main::locale;

  check_oe_access();

  my $form     = $main::form;

  my %myconfig = %main::myconfig;

  my $locale   = $main::locale;

  check_oe_access();

    }

    $row->{ids} = {

      'valign'   => 'center',

      'align'    => 'center',

    };

use SL::RP;

use SL::Iconv;

use SL::Locale::String qw(t8);

use SL::ReportGenerator;

use Data::Dumper;

use List::MoreUtils qw(any);

  my $form     = $main::form;

  my %myconfig = %main::myconfig;

  my $locale   = $main::locale;

  my $report = SL::ReportGenerator->new(\%myconfig, $form);

    if ($previous_ctid != $ref->{ctid}) {

      $row->{statement}->{raw_data} =

      $row->{ct}->{data} = $ref->{name};

      $row_idx++;

use SL::ReportGenerator;

use SL::SEPA;

use SL::SEPA::XML;

require "bin/mozilla/common.pl";

require "bin/mozilla/reportgenerator.pl";

  my $form   = $main::form;

  my $locale = $main::locale;

  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');

  my $href           = build_std_url('action=bank_transfer_list', @hidden_vars);

  my %column_defs = (

    'id'          => { 'text' => $locale->text('Number'), },

    'export_date' => { 'text' => $locale->text('Export date'), },

    'employee'    => { 'text' => $locale->text('Employee'), },

    $row->{$_}->{data} = $::form->format_amount(\%::myconfig, $row->{$_}->{data}, 2) for qw(sum_amounts);

    if (!$export->{closed}) {

    }

    $report->add_data($row);

  my $form     =  $main::form;

  my $myconfig = \%main::myconfig;

  my $locale   =  $main::locale;

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

  my $defaults = SL::DB::Default->get;

  my $xml = $sepa_xml->to_xml();

                     '-content-disposition' => 'attachment; filename="SEPA_' . $message_id . ($vc eq 'customer' ? '.cdd' : '.cct') . '"',

                     '-content-length'      => length $xml);

  print $xml;