projekt kivitendo

#=====================================================================

# LX-Office ERP

# Copyright (C) 2004

# Based on SQL-Ledger Version 2.1.9

# Web http://www.lx-office.org

#

#=====================================================================

# SQL-Ledger, Accounting

# Copyright (c) 1998-2002

#

# Author: Dieter Simader

# Email: dsimader@sql-ledger.org

# Web: http://www.sql-ledger.org

#

#

# This program is free software; you can redistribute it and/or modify

# it under the terms of the GNU General Public License as published by

# the Free Software Foundation; either version 2 of the License, or

# (at your option) any later version.

#

# This program is distributed in the hope that it will be useful,

# but WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

# GNU General Public License for more details.

# You should have received a copy of the GNU General Public License

# along with this program; if not, write to the Free Software

# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,

# MA 02110-1335, USA.

#======================================================================

#

# Inventory received module

#

#======================================================================

use SL::FU;

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

use SL::Helper::UserPreferences::DisplayPreferences;

use SL::IR;

use SL::IS;

use SL::DB::BankTransactionAccTrans;

use SL::DB::Default;

use SL::DB::Department;

use SL::DB::Project;

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

require "bin/mozilla/io.pl";

require "bin/mozilla/common.pl";

use strict;

1;

# end of main

sub _may_view_or_edit_this_invoice {

return 1 if $::auth->assert('ap_transactions', 1); # may edit all invoices

return 0 if !$::form->{id}; # creating new invoices isn't allowed without invoice_edit

return 1 if $::auth->assert('purchase_invoice_view', 1); # viewing is allowed with this right

return 0 if !$::form->{globalproject_id}; # existing records without a project ID are not allowed

return SL::DB::Project->new(id => $::form->{globalproject_id})->load->may_employee_view_project_invoices(SL::DB::Manager::Employee->current);

}

sub _assert_access {

my $cache = $::request->cache('ap.pl::_assert_access');

$cache->{_may_view_or_edit_this_invoice} = _may_view_or_edit_this_invoice() if !exists $cache->{_may_view_or_edit_this_invoice};

$::form->show_generic_error($::locale->text("You do not have the permissions to access this function.")) if ! $cache->{_may_view_or_edit_this_invoice};

}

sub add {

$main::lxdebug->enter_sub();

my $form = $main::form;

my $locale = $main::locale;

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

if (!$::instance_conf->get_allow_new_purchase_invoice) {

$::form->show_generic_error($::locale->text("You do not have the permissions to access this function."));

}

$form->{show_details} = $::myconfig{show_form_details};

$form->{title} = $locale->text('Record Vendor Invoice');

&invoice_links;

&prepare_invoice;

&display_form;

$main::lxdebug->leave_sub();

}

sub edit {

$main::lxdebug->enter_sub();

# Delay access check to after the invoice's been loaded in

# "create_links" so that project-specific invoice rights can be

# evaluated.

my $form = $main::form;

my $locale = $main::locale;

$form->{show_details} = $::myconfig{show_form_details};

# show history button

$form->{javascript} = qq|<script type=text/javascript src=js/show_history.js></script>|;

#/show hhistory button

$form->{title} = $locale->text('Edit Vendor Invoice');

&invoice_links;

&prepare_invoice;

&display_form;

$main::lxdebug->leave_sub();

}

sub invoice_links {

$main::lxdebug->enter_sub();

# Delay access check to after the invoice's been loaded so that

# project-specific invoice rights can be evaluated.

my $form = $main::form;

my %myconfig = %main::myconfig;

$form->{vc} = 'vendor';

# create links

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

_assert_access();

$form->backup_vars(qw(payment_id language_id taxzone_id

currency delivery_term_id intnotes cp_id));

IR->get_vendor(\%myconfig, \%$form);

IR->retrieve_invoice(\%myconfig, \%$form);

$form->restore_vars(qw(payment_id language_id taxzone_id

currency delivery_term_id intnotes cp_id));

my @curr = $form->get_all_currencies();

map { $form->{selectcurrency} .= "<option>$_\n" } @curr;

# forex

$form->{forex} = $form->{exchangerate};

my $exchangerate = ($form->{exchangerate}) ? $form->{exchangerate} : 1;

foreach my $key (keys %{ $form->{AP_links} }) {

foreach my $ref (@{ $form->{AP_links}{$key} }) {

$form->{"select$key"} .= "<option>$ref->{accno}--$ref->{description}</option>";

}

next unless $form->{acc_trans}{$key};

if ($key eq "AP_paid") {

for my $i (1 .. scalar @{ $form->{acc_trans}{$key} }) {

$form->{"AP_paid_$i"} =

"$form->{acc_trans}{$key}->[$i-1]->{accno}--$form->{acc_trans}{$key}->[$i-1]->{description}";

$form->{"acc_trans_id_$i"} = $form->{acc_trans}{$key}->[$i - 1]->{acc_trans_id};

# reverse paid

$form->{"paid_$i"} = $form->{acc_trans}{$key}->[$i - 1]->{amount};

$form->{"datepaid_$i"} =

$form->{acc_trans}{$key}->[$i - 1]->{transdate};

$form->{"gldate_$i"} = $form->{acc_trans}{$key}->[$i - 1]->{gldate};

$form->{"forex_$i"} = $form->{"exchangerate_$i"} =

$form->{acc_trans}{$key}->[$i - 1]->{exchangerate};

$form->{"source_$i"} = $form->{acc_trans}{$key}->[$i - 1]->{source};

$form->{"memo_$i"} = $form->{acc_trans}{$key}->[$i - 1]->{memo};

$form->{paidaccounts} = $i;

}

} else {

$form->{$key} =

"$form->{acc_trans}{$key}->[0]->{accno}--$form->{acc_trans}{$key}->[0]->{description}";

}

}

$form->{paidaccounts} = 1 unless (exists $form->{paidaccounts});

$form->{AP} = $form->{AP_1} unless $form->{id};

$form->{locked} =

($form->datetonum($form->{invdate}, \%myconfig) <=

$form->datetonum($form->{closedto}, \%myconfig));

$main::lxdebug->leave_sub();

}

sub prepare_invoice {

$main::lxdebug->enter_sub();

_assert_access();

my $form = $main::form;

my %myconfig = %main::myconfig;

$form->{type} = "purchase_invoice";

if ($form->{id}) {

map { $form->{$_} =~ s/\"/&quot;/g } qw(invnumber ordnumber quonumber);

my $i = 0;

foreach my $ref (@{ $form->{invoice_details} }) {

$i++;

map { $form->{"${_}_$i"} = $ref->{$_} } keys %{$ref};

# übernommen aus is.pl Fix für Bug 1642. Nebenwirkungen? jb 12.5.2011

# getestet: Lieferantenauftrag -> Rechnung i.O.

# Lieferantenauftrag -> Lieferschein -> Rechnung i.O.

# Werte: 20% (Lieferantenrabatt), 12,4% individuell und 0,4 individuell s.a.

# Screenshot zu Bug 1642

$form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{"discount_$i"} * 100);

my ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/);

$dec = length $dec;

my $decimalplaces = ($dec > 2) ? $dec : 2;

$form->{"sellprice_$i"} =

$form->format_amount(\%myconfig, $form->{"sellprice_$i"},

$decimalplaces);

(my $dec_qty) = ($form->{"qty_$i"} =~ /\.(\d+)/);

$dec_qty = length $dec_qty;

$form->{"qty_$i"} =

$form->format_amount(\%myconfig, ($form->{"qty_$i"} * -1), $dec_qty);

$form->{rowcount} = $i;

}

}

$main::lxdebug->leave_sub();

}

sub setup_ir_action_bar {

my $form = $::form;

my $change_never = $::instance_conf->get_ir_changeable == 0;

my $change_on_same_day_only = $::instance_conf->get_ir_changeable == 2 && ($form->current_date(\%::myconfig) ne $form->{gldate});

my $has_storno = ($::form->{storno} && !$::form->{storno_id});

my $payments_balanced = ($::form->{oldtotalpaid} == 0);

my $may_edit_create = $::auth->assert('vendor_invoice_edit', 1);

my $has_sepa_exports;

my $is_sepa_blocked;

if ($form->{id}) {

my $invoice = SL::DB::Manager::PurchaseInvoice->find_by(id => $form->{id});

$has_sepa_exports = 1 if ($invoice->find_sepa_export_items()->[0]);

$is_sepa_blocked = !!$invoice->is_sepa_blocked;

}

my $is_linked_bank_transaction;

if ($::form->{id}

&& SL::DB::Default->get->payments_changeable != 0

&& SL::DB::Manager::BankTransactionAccTrans->find_by(ap_id => $::form->{id})) {

$is_linked_bank_transaction = 1;

}

my $create_post_action = sub {

# $_[0]: description

# $_[1]: after_action

action => [

$_[0],

submit => [ '#form', { action => "post", after_action => $_[1] } ],

checks => [ 'kivi.validate_form' ],

checks => [ 'kivi.validate_form', 'kivi.AP.check_fields_before_posting', 'kivi.AP.check_duplicate_invnumber' ],

disabled => !$may_edit_create ? t8('You must not change this invoice.')

: $form->{locked} ? t8('The billing period has already been locked.')

: $form->{storno} ? t8('A canceled invoice cannot be posted.')

: ($form->{id} && $change_never) ? t8('Changing invoices has been disabled in the configuration.')

: ($form->{id} && $change_on_same_day_only) ? t8('Invoices can only be changed on the day they are posted.')

: $is_linked_bank_transaction ? t8('This transaction is linked with a bank transaction. Please undo and redo the bank transaction booking if needed.')

: undef,

],

};

my @post_entries;

if ($::instance_conf->get_ir_add_doc && $::instance_conf->get_doc_storage) {

@post_entries = ( $create_post_action->(t8('Post'), 'doc-tab') );

} elsif ($::instance_conf->get_doc_storage) {

@post_entries = ( $create_post_action->(t8('Post')),

$create_post_action->(t8('Post and upload document'), 'doc-tab') );

} else {

@post_entries = ( $create_post_action->(t8('Post')) );

}

for my $bar ($::request->layout->get('actionbar')) {

$bar->add(

action => [

t8('Update'),

submit => [ '#form', { action => "update" } ],

id => 'update_button',

accesskey => 'enter',

disabled => !$may_edit_create ? t8('You must not change this invoice.') : undef,

],

combobox => [

@post_entries,

action => [

t8('Post Payment'),

submit => [ '#form', { action => "post_payment" } ],

checks => [ 'kivi.validate_form' ],

disabled => !$may_edit_create ? t8('You must not change this invoice.')

: !$form->{id} ? t8('This invoice has not been posted yet.')

: $is_linked_bank_transaction ? t8('This transaction is linked with a bank transaction. Please undo and redo the bank transaction booking if needed.')

: undef,

],

action => [ $is_sepa_blocked ? t8('Unblock Bank transfer via SEPA') : t8('Block Bank transfer via SEPA'),

submit => [ '#form', { action => "block_or_unblock_sepa_transfer", unblock_sepa => !!$is_sepa_blocked } ],

disabled => !$may_edit_create ? t8('You must not change this AP transaction.')

: !$::form->{id} ? t8('This invoice has not been posted yet.')

: undef,

],

action => [

t8('Mark as paid'),

submit => [ '#form', { action => "mark_as_paid" } ],

checks => [ 'kivi.validate_form' ],

confirm => t8('This will remove the invoice from showing as unpaid even if the unpaid amount does not match the amount. Proceed?'),

disabled => !$may_edit_create ? t8('You must not change this invoice.')

: !$form->{id} ? t8('This invoice has not been posted yet.')

: undef,

only_if => $::instance_conf->get_ir_show_mark_as_paid,

],

], # end of combobox "Post"

combobox => [

action => [ t8('Storno'),

submit => [ '#form', { action => "storno" } ],

checks => [ 'kivi.validate_form' ],

confirm => t8('Do you really want to cancel this invoice?'),

disabled => !$may_edit_create ? t8('You must not change this invoice.')

: !$form->{id} ? t8('This invoice has not been posted yet.')

: $has_sepa_exports ? t8('This invoice has been linked with a sepa export, undo this first.')

: !$payments_balanced ? t8('Cancelling is disallowed. Either undo or balance the current payments until the open amount matches the invoice amount')

: undef,

],

action => [ t8('Delete'),

submit => [ '#form', { action => "delete" } ],

checks => [ 'kivi.validate_form' ],

confirm => t8('Do you really want to delete this object?'),

disabled => !$may_edit_create ? t8('You must not change this invoice.')

: !$form->{id} ? t8('This invoice has not been posted yet.')

: $form->{locked} ? t8('The billing period has already been locked.')

: $change_never ? t8('Changing invoices has been disabled in the configuration.')

: $change_on_same_day_only ? t8('Invoices can only be changed on the day they are posted.')

: $has_sepa_exports ? t8('This invoice has been linked with a sepa export, undo this first.')

: $has_storno ? t8('Can only delete the "Storno zu" part of the cancellation pair.')

: $is_linked_bank_transaction ? t8('This transaction is linked with a bank transaction. Please undo and redo the bank transaction booking if needed.')

: undef,

],

], # end of combobox "Storno"

'separator',

combobox => [

action => [ t8('Workflow') ],

action => [

t8('Use As New'),

submit => [ '#form', { action => "use_as_new" } ],

checks => [ 'kivi.validate_form' ],

disabled => !$may_edit_create ? t8('You must not change this invoice.')

: !$form->{id} ? t8('This invoice has not been posted yet.')

: undef,

],

], # end of combobox "Workflow"

combobox => [

action => [ t8('more') ],

action => [

t8('History'),

call => [ 'set_history_window', $::form->{id} * 1, 'glid' ],

disabled => !$form->{id} ? t8('This invoice has not been posted yet.') : undef,

],

action => [

t8('Follow-Up'),

call => [ 'follow_up_window' ],

disabled => !$form->{id} ? t8('This invoice has not been posted yet.') : undef,

],

action => [

t8('Drafts'),

call => [ 'kivi.Draft.popup', 'ir', 'invoice', $::form->{draft_id}, $::form->{draft_description} ],

disabled => !$may_edit_create ? t8('You must not change this invoice.')

: $form->{id} ? t8('This invoice has already been posted.')

: $form->{locked} ? t8('The billing period has already been locked.')

: undef,

],

], # end of combobox "more"

);

}

$::request->layout->add_javascripts('kivi.Validator.js', 'kivi.AP.js');

}

sub form_header {

$main::lxdebug->enter_sub();

_assert_access();

my $form = $main::form;

my %myconfig = %main::myconfig;

my $locale = $main::locale;

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

my $TMPL_VAR = $::request->cache('tmpl_var', {});

my @custom_hiddens;

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

$TMPL_VAR->{vendor_obj} = SL::DB::Vendor->load_cached($form->{vendor_id}) if $form->{vendor_id};

my $current_employee = SL::DB::Manager::Employee->current;

$form->{employee_id} = $form->{old_employee_id} if $form->{old_employee_id};

$form->{salesman_id} = $form->{old_salesman_id} if $form->{old_salesman_id};

$form->{employee_id} ||= $current_employee->id;

$form->{salesman_id} ||= $current_employee->id;

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

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

my @conditions = @old_project_ids ? (id => \@old_project_ids) : ();

$TMPL_VAR->{ALL_PROJECTS} = SL::DB::Manager::Project->get_all_sorted(query => [ or => [ active => 1, @conditions ]]);

$form->{ALL_PROJECTS} = $TMPL_VAR->{ALL_PROJECTS}; # make projects available for second row drop-down in io.pl

$form->get_lists("taxzones" => ($form->{id} ? "ALL_TAXZONES" : "ALL_ACTIVE_TAXZONES"),

"currencies" => "ALL_CURRENCIES",

"price_factors" => "ALL_PRICE_FACTORS");

$TMPL_VAR->{ALL_DEPARTMENTS} = SL::DB::Manager::Department->get_all_sorted;

$TMPL_VAR->{ALL_DELIVERY_TERMS} = SL::DB::Manager::DeliveryTerm->get_all_sorted();

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

$TMPL_VAR->{ALL_CONTACTS} = SL::DB::Manager::Contact->get_all_sorted(query => [

or => [

cp_cv_id => $::form->{"$::form->{vc}_id"} * 1,

and => [

cp_cv_id => undef,

cp_id => $::form->{cp_id} * 1

]

]

]);

# currencies and exchangerate

my @values = map { $_ } @{ $form->{ALL_CURRENCIES} };

my %labels = map { $_ => $_ } @{ $form->{ALL_CURRENCIES} };

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

# show_exchangerate is also later needed in another template

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

$TMPL_VAR->{currencies} = NTI($cgi->popup_menu('-name' => 'currency', '-default' => $form->{"currency"},

'-values' => \@values, '-labels' => \%labels,

'-onchange' => "document.getElementById('update_button').click();"

)) if scalar @values;

push @custom_hiddens, "forex";

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

$TMPL_VAR->{creditwarning} = ($form->{creditlimit} != 0) && ($form->{creditremaining} < 0) && !$form->{update};

$TMPL_VAR->{is_credit_remaining_negativ} = $form->{creditremaining} =~ /-/;

# set option selected

foreach my $item (qw(AP)) {

$form->{"select$item"} =~ s/ selected//;

$form->{"select$item"} =~ s/option>\Q$form->{$item}\E/option selected>$form->{$item}/;

}

$TMPL_VAR->{is_format_html} = $form->{format} eq 'html';

$TMPL_VAR->{dateformat} = $myconfig{dateformat};

$TMPL_VAR->{numberformat} = $myconfig{numberformat};

$TMPL_VAR->{longdescription_dialog_size_percentage} = SL::Helper::UserPreferences::DisplayPreferences->new()->get_longdescription_dialog_size_percentage();

# hiddens

$TMPL_VAR->{HIDDENS} = [qw(

id type queued printed emailed title vc discount

title creditlimit creditremaining tradediscount business closedto locked shipped storno storno_id

max_dunning_level dunning_amount

shiptoname shiptostreet shiptozipcode shiptocity shiptocountry shiptogln shiptocontact shiptophone shiptofax

shiptoemail shiptodepartment_1 shiptodepartment_2 message email subject cc bcc taxaccounts cursor_fokus

convert_from_do_ids convert_from_oe_ids convert_from_ap_ids show_details gldate useasnew

), @custom_hiddens,

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

$TMPL_VAR->{payment_terms_obj} = get_payment_terms_for_invoice();

$form->{duedate} = $TMPL_VAR->{payment_terms_obj}->calc_date(reference_date => $form->{invdate}, due_date => $form->{duedate})->to_kivitendo if $TMPL_VAR->{payment_terms_obj};

$::request->{layout}->use_javascript(map { "${_}.js" } qw(kivi.Draft kivi.File kivi.SalesPurchase kivi.Part kivi.CustomerVendor kivi.Validator ckeditor/ckeditor ckeditor/adapters/jquery kivi.io autocomplete_project client_js));

setup_ir_action_bar();

$form->header();

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

$main::lxdebug->leave_sub();

}

sub _sort_payments {

my @fields = qw(acc_trans_id gldate datepaid source memo paid AP_paid);

my @payments =

grep { $_->{paid} != 0 }

map {

my $idx = $_;

+{ map { ($_ => delete($::form->{"${_}_${idx}"})) } @fields }

} (1..$::form->{paidaccounts});

@payments = sort_by { DateTime->from_kivitendo($_->{datepaid}) } @payments;

$::form->{paidaccounts} = max scalar(@payments), 1;

foreach my $idx (1 .. scalar(@payments)) {

my $payment = $payments[$idx - 1];

$::form->{"${_}_${idx}"} = $payment->{$_} for @fields;

}

}

sub form_footer {

$main::lxdebug->enter_sub();

_assert_access();

my $form = $main::form;

my %myconfig = %main::myconfig;

my $locale = $main::locale;

$form->{invtotal} = $form->{invsubtotal};

$form->{oldinvtotal} = $form->{invtotal};

my $TMPL_VAR = $::request->cache('tmpl_var', {});

# tax, total and subtotal calculations

my ($tax, $subtotal);

$form->{taxaccounts_array} = [ split / /, $form->{taxaccounts} ];

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

if ($form->{"${item}_base"}) {

if ($form->{taxincluded}) {

$form->{"${item}_total"} = $form->round_amount( ($form->{"${item}_base"} * $form->{"${item}_rate"}

/ (1 + $form->{"${item}_rate"})), 2);

$form->{"${item}_netto"} = $form->round_amount( ($form->{"${item}_base"} - $form->{"${item}_total"}), 2);

} else {

$form->{"${item}_total"} = $form->round_amount( $form->{"${item}_base"} * $form->{"${item}_rate"}, 2);

$form->{invtotal} += $form->{"${item}_total"};

}

}

}

# follow ups

if ($form->{id}) {

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

$form->{follow_ups_unfinished} = ( sum map { $_->{due} * 1 } @{ $form->{follow_ups} } ) || 0;

}

# payments

_sort_payments();

my $totalpaid = 0;

$form->{paidaccounts}++ if ($form->{"paid_$form->{paidaccounts}"});

$form->{paid_indices} = [ 1 .. $form->{paidaccounts} ];

# Standard Konto für Umlaufvermögen

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

for my $i (1 .. $form->{paidaccounts}) {

$form->{"changeable_$i"} = 1;

if (SL::DB::Default->get->payments_changeable == 0) {

# never

$form->{"changeable_$i"} = ($form->{"acc_trans_id_$i"})? 0 : 1;

} elsif (SL::DB::Default->get->payments_changeable == 2) {

# on the same day

$form->{"changeable_$i"} = (($form->{"gldate_$i"} eq '') ||

($form->current_date(\%myconfig) eq $form->{"gldate_$i"}));

}

$form->error($locale->text('Cannot post transaction above the maximum future booking date!'))

if ($form->date_max_future($form->{"datepaid_$i"}, \%myconfig));

#deaktivieren von Zahlungen ausserhalb der Bücherkontrolle

if ($form->date_closed($form->{"gldate_$i"})) {

$form->{"changeable_$i"} = 0;

}

# don't add manual bookings for charts which are assigned to real bank accounts

my $bank_accounts = SL::DB::Manager::BankAccount->get_all();

foreach my $bank (@{ $bank_accounts }) {

my $accno_paid_bank = $bank->chart->accno;

$form->{selectAP_paid} =~ s/<option>$accno_paid_bank--(.*?)<\/option>//;

}

$form->{"selectAP_paid_$i"} = $form->{selectAP_paid};

if (!$form->{"AP_paid_$i"}) {

$form->{"selectAP_paid_$i"} =~ s/option>$accno_arap--(.*?)>/option selected>$accno_arap--$1>/;

} else {

$form->{"selectAP_paid_$i"} =~ s/option>\Q$form->{"AP_paid_$i"}\E/option selected>$form->{"AP_paid_$i"}/;

}

$totalpaid += $form->{"paid_$i"};

}

print $form->parse_html_template('ir/form_footer', {

%$TMPL_VAR,

totalpaid => $totalpaid,

paid_missing => $form->{invtotal} - $totalpaid,

show_storno => $form->{id} && !$form->{storno} && !IS->has_storno(\%myconfig, $form, "ap") && !$totalpaid,

show_delete => ($::instance_conf->get_ir_changeable == 2)

? ($form->current_date(\%myconfig) eq $form->{gldate})

: ($::instance_conf->get_ir_changeable == 1),

today => DateTime->today,

});

##print $form->parse_html_template('ir/_payments'); # parser

##print $form->parse_html_template('webdav/_list'); # parser

$main::lxdebug->leave_sub();

}

sub mark_as_paid {

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

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

$::form->redirect($::locale->text("Marked as paid"));

}

sub block_or_unblock_sepa_transfer {

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

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

$invoice->update_attributes(is_sepa_blocked => 0) if $::form->{unblock_sepa} && $invoice->is_sepa_blocked;

$invoice->update_attributes(is_sepa_blocked => 1) if !$::form->{unblock_sepa} && !$invoice->is_sepa_blocked;

$::form->redirect($::form->{unblock_sepa} ? t8('Bank transfer via SEPA is unblocked') : t8('Bank transfer via SEPA is blocked'));

}

sub show_draft {

update();

}

sub update {

$main::lxdebug->enter_sub();

my $form = $main::form;

my %myconfig = %main::myconfig;

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

if (($form->{previous_vendor_id} || $form->{vendor_id}) != $form->{vendor_id}) {

IR->get_vendor(\%myconfig, $form);

}

if (!$form->{forex}) { # read exchangerate from input field (not hidden)

$form->{exchangerate} = $form->parse_amount(\%myconfig, $form->{exchangerate});

}

$form->{forex} = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{invdate}, 'sell');

$form->{exchangerate} = $form->{forex} if $form->{forex};