X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDB%2FTaxzoneChart.pm;h=f24a7714057a2f8b3006a22a7700c9932c160205;hb=9dfd320ff258071e3ad78dd6cf2d76e215efd4f7;hp=4eb0ea8b9750e6c3367d9f335d3cf01de8c5159f;hpb=f5c454e3855012bdb1928f3e4c4964403d4d8163;p=kivitendo-erp.git diff --git a/SL/DB/TaxzoneChart.pm b/SL/DB/TaxzoneChart.pm index 4eb0ea8b9..f24a77140 100644 --- a/SL/DB/TaxzoneChart.pm +++ b/SL/DB/TaxzoneChart.pm @@ -22,18 +22,18 @@ sub get_all_accounts_by_buchungsgruppen_id { my %list = (); - #inventory_accno der Buchungsgruppe: - $list{inventory_accno} = SL::DB::Manager::Buchungsgruppe->find_by(id => $buchungsgruppen_id)->inventory_accno; - $list{inventory_accno_description} = SL::DB::Manager::Buchungsgruppe->find_by(id => $buchungsgruppen_id)->inventory_accno_description; + # inventory_accno and description of the Buchungsgruppe: + $list{inventory_accno} = SL::DB::Manager::Buchungsgruppe->find_by(id => $buchungsgruppen_id)->inventory_account->accno; + $list{inventory_accno_description} = SL::DB::Manager::Buchungsgruppe->find_by(id => $buchungsgruppen_id)->inventory_account->displayable_name; foreach my $taxzonechart (@{ $all_taxzonecharts }) { $list{ $taxzonechart->taxzone_id }{taxzone_chart_id} = $taxzonechart->id; - $list{ $taxzonechart->taxzone_id }{income_accno} = $taxzonechart->get_income_accno; - $list{ $taxzonechart->taxzone_id }{expense_accno} = $taxzonechart->get_expense_accno; - $list{ $taxzonechart->taxzone_id }{income_accno_id} = $taxzonechart->income_accno_id; - $list{ $taxzonechart->taxzone_id }{expense_accno_id} = $taxzonechart->expense_accno_id; - $list{ $taxzonechart->taxzone_id }{income_accno_description} = $taxzonechart->get_income_accno_description; - $list{ $taxzonechart->taxzone_id }{expense_accno_description} = $taxzonechart->get_expense_accno_description; + $list{ $taxzonechart->taxzone_id }{income_accno} = $taxzonechart->income_accno->accno; + $list{ $taxzonechart->taxzone_id }{expense_accno} = $taxzonechart->expense_accno->accno; + $list{ $taxzonechart->taxzone_id }{income_accno_id} = $taxzonechart->income_accno->id; + $list{ $taxzonechart->taxzone_id }{expense_accno_id} = $taxzonechart->expense_accno->id; + $list{ $taxzonechart->taxzone_id }{income_accno_description} = $taxzonechart->income_accno->displayable_name; + $list{ $taxzonechart->taxzone_id }{expense_accno_description} = $taxzonechart->expense_accno->displayable_name; } return \%list; } @@ -47,39 +47,15 @@ sub get_all_accounts_by_taxzone_id { foreach my $tzchart (@{ $all_taxzonecharts }) { $list{ $tzchart->buchungsgruppen_id }{taxzone_chart_id} = $tzchart->id; - $list{ $tzchart->buchungsgruppen_id }{income_accno} = $tzchart->get_income_accno; - $list{ $tzchart->buchungsgruppen_id }{expense_accno} = $tzchart->get_expense_accno; - $list{ $tzchart->buchungsgruppen_id }{income_accno_id} = $tzchart->income_accno_id; - $list{ $tzchart->buchungsgruppen_id }{expense_accno_id} = $tzchart->expense_accno_id; - $list{ $tzchart->buchungsgruppen_id }{income_accno_description} = $tzchart->get_income_accno_description; - $list{ $tzchart->buchungsgruppen_id }{expense_accno_description} = $tzchart->get_expense_accno_description; + $list{ $tzchart->buchungsgruppen_id }{income_accno} = $tzchart->income_accno->accno; + $list{ $tzchart->buchungsgruppen_id }{expense_accno} = $tzchart->expense_accno->accno; + $list{ $tzchart->buchungsgruppen_id }{income_accno_id} = $tzchart->income_accno->id; + $list{ $tzchart->buchungsgruppen_id }{expense_accno_id} = $tzchart->expense_accno->id; + $list{ $tzchart->buchungsgruppen_id }{income_accno_description} = $tzchart->income_accno->displayable_name; + $list{ $tzchart->buchungsgruppen_id }{expense_accno_description} = $tzchart->expense_accno->displayable_name; } return \%list; } -sub get_income_accno { - my $self = shift; - require SL::DB::Manager::Chart; - return SL::DB::Manager::Chart->find_by(id => $self->income_accno_id)->accno(); -} - -sub get_expense_accno { - my $self = shift; - require SL::DB::Manager::Chart; - return SL::DB::Manager::Chart->find_by(id => $self->expense_accno_id)->accno(); -} - -sub get_income_accno_description { - my $self = shift; - require SL::DB::Manager::Chart; - return SL::DB::Manager::Chart->find_by(id => $self->income_accno_id)->description(); -} - -sub get_expense_accno_description { - my $self = shift; - require SL::DB::Manager::Chart; - return SL::DB::Manager::Chart->find_by(id => $self->expense_accno_id)->description(); -} - 1;