-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();
-}
-