SL/DB/GLTransaction.pm

   1 package SL::DB::GLTransaction;
   2
   3 use strict;
   4
   5 use SL::DB::MetaSetup::GLTransaction;
   6 use SL::Locale::String qw(t8);
   7
   8 # Creates get_all, get_all_count, get_all_iterator, delete_all and update_all.
   9 __PACKAGE__->meta->make_manager_class;
  10
  11 __PACKAGE__->meta->add_relationship(
  12   transactions   => {
  13     type         => 'one to many',
  14     class        => 'SL::DB::AccTransaction',
  15     column_map   => { id => 'trans_id' },
  16     manager_args => {
  17       with_objects => [ 'chart' ],
  18       sort_by      => 'acc_trans_id ASC',
  19     },
  20   },
  21 );
  22
  23 __PACKAGE__->meta->initialize;
  24
  25 sub abbreviation {
  26   my $self = shift;
  27
  28   my $abbreviation = $::locale->text('GL Transaction (abbreviation)');
  29   $abbreviation   .= "(" . $::locale->text('Storno (one letter abbreviation)') . ")" if $self->storno;
  30   return $abbreviation;
  31 }
  32
  33 sub displayable_type {
  34   return t8('GL Transaction');
  35 }
  36
  37 sub oneline_summary {
  38   my ($self) = @_;
  39   return sprintf("%s: %s %s (%s)", $self->abbreviation, $self->description, $self->reference, $_->transdate->to_kivitendo);
  40 }
  41
  42 sub link {
  43   my ($self) = @_;
  44
  45   my $html;
  46   $html   = SL::Presenter->get->gl_transaction($self, display => 'inline');
  47
  48   return $html;
  49 }
  50
  51 sub invnumber {
  52   return $_[0]->reference;
  53 }
  54
  55 1;