X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/19de3c72cf74951dd2f2ae7e400cf9a253d23641..abd56be11a58421b1d9401e812a83d28832b939a:/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;