X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=SL%2FAccTransCorrections.pm;h=e2fdb27c058ab18117d696989c8a254039c22f8b;hb=cc77f3ed3e18afe4e0a28005fafe0c6521d6ea51;hp=702cf29c0d15be837b31f34e8653b942ab06bb89;hpb=8d011bee4d01444862f49a083f9e47b2b07f0a9c;p=kivitendo-erp.git diff --git a/SL/AccTransCorrections.pm b/SL/AccTransCorrections.pm index 702cf29c0..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; @@ -649,6 +653,8 @@ sub analyze { my @problems = @{ $self->{problems} }; + map { $self->{$_} ||= [] } qw(ap_ar_taxkey_problems invoice_inventory_taxkey_problems missing_taxkeys_in_invoices); + if (0 != scalar @{ $self->{ap_ar_taxkey_problems} }) { my $problem = { 'type' => 'ap_ar_wrong_taxkeys', @@ -801,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;