X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/0aa885f4f0bb531a7691a641f954ff296ffa04a5..fdebfd5d0c558cb156849b01c9c9268b29dc443b:/SL/IR.pm?ds=inline diff --git a/SL/IR.pm b/SL/IR.pm index 45cd7de7d..55c0bc8bf 100644 --- a/SL/IR.pm +++ b/SL/IR.pm @@ -49,6 +49,7 @@ use SL::IO; use SL::MoreCommon; use SL::DB::Default; use SL::DB::TaxZone; +use SL::DB::MakeModel; use SL::DB; use SL::Presenter::Part qw(type_abbreviation classification_abbreviation); use List::Util qw(min); @@ -1378,7 +1379,6 @@ sub retrieve_item { chop $ref->{taxaccounts}; $ref->{onhand} *= 1; - push @{ $form->{item_list} }, $ref; }