SL/DB/Buchungsgruppe.pm

   1 package SL::DB::Buchungsgruppe;
   2
   3 use strict;
   4
   5 use SL::DB::MetaSetup::Buchungsgruppe;
   6 use SL::DB::Manager::Buchungsgruppe;
   7
   8 sub income_accno_id {
   9   my ($self, $taxzone) = @_;
  10   my $taxzone_id = ref $taxzone && $taxzone->isa('SL::DB::TaxZone') ? $taxzone->id : $taxzone;
  11   my $method = 'income_accno_id_' . $taxzone_id;
  12
  13   return $self->$method;
  14 }
  15
  16 sub expense_accno_id {
  17   my ($self, $taxzone) = @_;
  18   my $taxzone_id = ref $taxzone && $taxzone->isa('SL::DB::TaxZone') ? $taxzone->id : $taxzone;
  19   my $method = 'expense_accno_id_' . $taxzone_id;
  20
  21   return $self->$method;
  22 }
  23
  24 1;