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 use SL::DB::Helper::ActsAsList;
   8
   9 __PACKAGE__->meta->add_relationship(
  10   inventory_account => {
  11     type          => 'many to one',
  12     class         => 'SL::DB::Chart',
  13     column_map    => { inventory_accno_id => 'id' },
  14   },
  15 );
  16
  17 __PACKAGE__->meta->initialize;
  18
  19 sub validate {
  20   my ($self) = @_;
  21
  22   my @errors;
  23   push @errors, $::locale->text('The description is missing.') if !$self->description;
  24
  25   return @errors;
  26 }
  27
  28 sub inventory_accno {
  29   my ($self) = @_;
  30   require SL::DB::Manager::Chart;
  31   return SL::DB::Manager::Chart->find_by(id => $self->inventory_accno_id) ? SL::DB::Manager::Chart->find_by(id => $self->inventory_accno_id)->accno() : undef;
  32 }
  33
  34 sub inventory_accno_description {
  35   my ($self) = @_;
  36   require SL::DB::Manager::Chart;
  37   return SL::DB::Manager::Chart->find_by(id => $self->inventory_accno_id) ? SL::DB::Manager::Chart->find_by(id => $self->inventory_accno_id)->description() : undef;
  38 }
  39
  40 sub income_accno_id {
  41   my ($self, $taxzone) = @_;
  42   my $taxzone_id = ref $taxzone && $taxzone->isa('SL::DB::TaxZone') ? $taxzone->id : $taxzone;
  43   my $taxzone_chart = SL::DB::Manager::TaxzoneChart->find_by(taxzone_id => $taxzone_id, buchungsgruppen_id => $self->id);
  44   return $taxzone_chart->income_accno_id if $taxzone_chart;
  45 }
  46
  47 sub expense_accno_id {
  48   my ($self, $taxzone) = @_;
  49   my $taxzone_id = ref $taxzone && $taxzone->isa('SL::DB::TaxZone') ? $taxzone->id : $taxzone;
  50   my $taxzone_chart = SL::DB::Manager::TaxzoneChart->find_by(taxzone_id => $taxzone_id, buchungsgruppen_id => $self->id);
  51   return $taxzone_chart->expense_accno_id if $taxzone_chart;
  52 }
  53
  54 sub income_account {
  55   my ($self, $taxzone) = @_;
  56   my $taxzone_id       = ref $taxzone && $taxzone->isa('SL::DB::TaxZone') ? $taxzone->id : $taxzone;
  57   my $taxzone_chart = SL::DB::Manager::TaxzoneChart->find_by(taxzone_id => $taxzone_id, buchungsgruppen_id => $self->id);
  58   return $taxzone_chart->income_accno if $taxzone_chart;
  59 }
  60
  61 sub expense_account {
  62   my ($self, $taxzone) = @_;
  63   my $taxzone_id       = ref $taxzone && $taxzone->isa('SL::DB::TaxZone') ? $taxzone->id : $taxzone;
  64   my $taxzone_chart = SL::DB::Manager::TaxzoneChart->find_by(taxzone_id => $taxzone_id, buchungsgruppen_id => $self->id);
  65   return $taxzone_chart->expense_accno if $taxzone_chart;
  66 }
  67
  68 sub taxzonecharts {
  69   my ($self) = @_;
  70   return SL::DB::Manager::TaxzoneChart->get_all(where => [ buchungsgruppen_id => $self->id ]);
  71 }
  72
  73 1;
  74 __END__
  75
  76 =pod
  77
  78 =encoding utf8
  79
  80 =head1 NAME
  81
  82 SL::DB::Buchungsgruppe - RDBO wrapper for the C<buchungsgruppen> table
  83
  84 =head1 FUNCTIONS
  85
  86 =over 4
  87
  88 =item C<expense_accno_id $taxzone>
  89
  90 Return the chart ID for the expense account for the given taxzone
  91 (either an integer between 0 and 3 inclusively or an instance of
  92 L<SL::DB::TaxZone>).
  93
  94 =item C<expense_account>
  95
  96 Return the chart (an instance of L<SL::DB::Chart>) for the expense
  97 account for the given taxzone (either an integer between 0 and 3
  98 inclusively or an instance of L<SL::DB::TaxZone>).
  99
 100 =item C<income_accno_id>
 101
 102 Return the chart ID for the income account for the given taxzone
 103 (either an integer between 0 and 3 inclusively or an instance of
 104 L<SL::DB::TaxZone>).
 105
 106 =item C<income_account>
 107
 108 Return the chart (an instance of L<SL::DB::Chart>) for the income
 109 account for the given taxzone (either an integer between 0 and 3
 110 inclusively or an instance of L<SL::DB::TaxZone>).
 111
 112 =back
 113
 114 =head1 BUGS
 115
 116 Nothing here yet.
 117
 118 =head1 AUTHOR
 119
 120 Sven Schöling E<lt>s.schoeling@linet-services.deE<gt>,
 121 Moritz Bunkus E<lt>m.bunkus@linet-services.deE<gt>
 122
 123 =cut