X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/4602be1fb9b8e38e36a86c40fce59db74c62949e..0eb90109aca630ea37769d64d948f2f79327a7e6:/SL/AccTransCorrections.pm diff --git a/SL/AccTransCorrections.pm b/SL/AccTransCorrections.pm index ea7ca531d..e2fdb27c0 100644 --- a/SL/AccTransCorrections.pm +++ b/SL/AccTransCorrections.pm @@ -262,6 +262,10 @@ sub _check_trans_invoices_inventory_with_taxkeys { my $self = shift; my %params = @_; + # ist nur für bestandsmethode notwendig. bei der Aufwandsmethode + # können Warenkonten mit Steuerschlüssel sein (5400 in SKR04) + return 0 if $::instance_conf->get_inventory_system eq 'periodic'; + if (!$params{transaction}->[0]->{invoice}) { $main::lxdebug->leave_sub(); return 0; @@ -803,6 +807,10 @@ sub fix_invoice_inventory_with_taxkeys { my $self = shift; my %params = @_; + # ist nur für bestandsmethode notwendig. bei der Aufwandsmethode + # können Warenkonten mit Steuerschlüssel sein (5400 in SKR04) + return 0 if $::instance_conf->get_inventory_system eq 'periodic'; + my $myconfig = \%main::myconfig; my $form = $main::form;