Revision f5c454e3
Von Niclas Zimmermann vor mehr als 10 Jahren hinzugefügt
SL/DB/Buchungsgruppe.pm | ||
---|---|---|
4 | 4 |
|
5 | 5 |
use SL::DB::MetaSetup::Buchungsgruppe; |
6 | 6 |
use SL::DB::Manager::Buchungsgruppe; |
7 |
use SL::DB::Helper::ActsAsList; |
|
7 | 8 |
|
8 | 9 |
__PACKAGE__->meta->add_relationship( |
9 | 10 |
inventory_account => { |
... | ... | |
15 | 16 |
|
16 | 17 |
__PACKAGE__->meta->initialize; |
17 | 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 |
} |
|
18 | 39 |
|
19 | 40 |
sub income_accno_id { |
20 | 41 |
my ($self, $taxzone) = @_; |
... | ... | |
44 | 65 |
return $taxzone_chart->expense_accno if $taxzone_chart; |
45 | 66 |
} |
46 | 67 |
|
68 |
sub taxzonecharts { |
|
69 |
my ($self) = @_; |
|
70 |
return SL::DB::Manager::TaxzoneChart->get_all(where => [ buchungsgruppen_id => $self->id ]); |
|
71 |
} |
|
72 |
|
|
47 | 73 |
1; |
48 | 74 |
__END__ |
49 | 75 |
|
Auch abrufbar als: Unified diff
Steuerzonen und Buchungsgruppen bearbeiten
Nachdem man Steuerzonen und Buchungsgruppen auf Datenbankebene
bearbeiten kann, ist jetzt auch eine Bearbeitung an der Ober-
fläche möglich.
Alter Code, der für die Anzeige/Bearbeitung/Erstellung von
Buchungsgruppen entwickelt wurde hat nicht mehr funktioniert
und wurde vollständig ersetzt.