X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/cebfefa475d1bef7bcc42c6d2a51e55785f5a4bf..8ae2bc4fb4c72f3ac907a3e47c0cbd5da23f62c5:/SL/IR.pm diff --git a/SL/IR.pm b/SL/IR.pm index 444dffceb..04e071e27 100644 --- a/SL/IR.pm +++ b/SL/IR.pm @@ -44,6 +44,7 @@ use SL::DO; use SL::GenericTranslations; use SL::IO; use SL::MoreCommon; +use SL::DB::Default; use List::Util qw(min); use strict; @@ -502,7 +503,7 @@ sub post_invoice { for my $i (1 .. $form->{paidaccounts}) { if ($form->{"acc_trans_id_$i"} && $payments_only - && ($::lx_office_conf{features}->{payments_changeable} == 0)) { + && (SL::DB::Default->get->payments_changeable == 0)) { next; } @@ -685,7 +686,7 @@ sub post_invoice { 'table' => 'ap',); # safety check datev export - if ($::lx_office_conf{datev_check}{check_on_purchase_invoice}) { + if ($::instance_conf->get_datev_check_on_purchase_invoice) { my $transdate = $::form->{invdate} ? DateTime->from_lxoffice($::form->{invdate}) : undef; $transdate ||= DateTime->today; @@ -1437,7 +1438,7 @@ sub post_payment { $old_form = save_form(); # Delete all entries in acc_trans from prior payments. - if ($::lx_office_conf{features}->{payments_changeable} != 0) { + if (SL::DB::Default->get->payments_changeable != 0) { $self->_delete_payments($form, $dbh); }