Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision d7a9026a

Von Bernd Bleßmann vor etwa 10 Jahren hinzugefügt

  • ID d7a9026aeace4b76b815a276c61b90feac1724f8
  • Vorgänger 7d2b9c39
  • Nachfolger 1c62d23e

Nachtrag zu Steuerzonen: benutzte Klassen mit require einbinden.

Unterschiede anzeigen:

SL/DB/Buchungsgruppe.pm
39 39 

  		




  40
  40
  
    
sub income_accno_id {


  		




  41
  41
  
    
  my ($self, $taxzone) = @_;


  		




  
  42
  
    

  		




  
  43
  
    
  require SL::DB::TaxZone;


  		




  
  44
  
    
  require SL::DB::TaxzoneChart;


  		




  
  45
  
    

  		




  42
  46
  
    
  my $taxzone_id = ref $taxzone && $taxzone->isa('SL::DB::TaxZone') ? $taxzone->id : $taxzone;


  		




  43
  47
  
    
  my $taxzone_chart = SL::DB::Manager::TaxzoneChart->find_by(taxzone_id => $taxzone_id, buchungsgruppen_id => $self->id);


  		




  44
  48
  
    
  return $taxzone_chart->income_accno_id if $taxzone_chart;


  		




  ......




  46
  50
  
    

  		




  47
  51
  
    
sub expense_accno_id {


  		




  48
  52
  
    
  my ($self, $taxzone) = @_;


  		




  
  53
  
    
  require SL::DB::TaxZone;


  		




  
  54
  
    
  require SL::DB::TaxzoneChart;


  		




  
  55
  
    

  		




  49
  56
  
    
  my $taxzone_id = ref $taxzone && $taxzone->isa('SL::DB::TaxZone') ? $taxzone->id : $taxzone;


  		




  50
  57
  
    
  my $taxzone_chart = SL::DB::Manager::TaxzoneChart->find_by(taxzone_id => $taxzone_id, buchungsgruppen_id => $self->id);


  		




  51
  58
  
    
  return $taxzone_chart->expense_accno_id if $taxzone_chart;


  		




  ......




  53
  60
  
    

  		




  54
  61
  
    
sub income_account {


  		




  55
  62
  
    
  my ($self, $taxzone) = @_;


  		




  
  63
  
    

  		




  
  64
  
    
  require SL::DB::TaxZone;


  		




  
  65
  
    
  require SL::DB::TaxzoneChart;


  		




  
  66
  
    

  		




  56
  67
  
    
  my $taxzone_id       = ref $taxzone && $taxzone->isa('SL::DB::TaxZone') ? $taxzone->id : $taxzone;


  		




  57
  68
  
    
  my $taxzone_chart = SL::DB::Manager::TaxzoneChart->find_by(taxzone_id => $taxzone_id, buchungsgruppen_id => $self->id);


  		




  58
  69
  
    
  return $taxzone_chart->income_accno if $taxzone_chart;


  		




  ......




  60
  71
  
    

  		




  61
  72
  
    
sub expense_account {


  		




  62
  73
  
    
  my ($self, $taxzone) = @_;


  		




  
  74
  
    

  		




  
  75
  
    
  require SL::DB::TaxZone;


  		




  
  76
  
    
  require SL::DB::TaxzoneChart;


  		




  
  77
  
    

  		




  63
  78
  
    
  my $taxzone_id       = ref $taxzone && $taxzone->isa('SL::DB::TaxZone') ? $taxzone->id : $taxzone;


  		




  64
  79
  
    
  my $taxzone_chart = SL::DB::Manager::TaxzoneChart->find_by(taxzone_id => $taxzone_id, buchungsgruppen_id => $self->id);


  		




  65
  80
  
    
  return $taxzone_chart->expense_accno if $taxzone_chart;


  		












Auch abrufbar als:  Unified diff