projekt kivitendo

use SL::DBUtils;

use SL::DB::MetaSetup::Part;

use SL::DB::Manager::Part;

use SL::DB::Helper::AttrHTML;

use SL::DB::Helper::AttrSorted;

use SL::DB::Helper::TransNumberGenerator;

sub get_chart {

  my ($self, %params) = @_;

  my $type    = (any { $_ eq $params{type} } qw(income expense inventory)) ? $params{type} : croak("Invalid 'type' parameter '$params{type}'");

  my $taxzone = $params{ defined($params{taxzone}) ? 'taxzone' : 'taxzone_id' } * 1;