Bestehend aus Dokumentenname und Dokumentennummer, z.B.
Rechnung 12
Gutschrift 20
Verkaufslieferschein 15b
+sub displayable_name {
+ join ' ', grep $_, map $_[0]->$_, qw(displayable_type record_number);
+};
sub displayable_state {
my ($self) = @_;
sub displayable_state {
my ($self) = @_;
+sub displayable_name {
+ join ' ', grep $_, map $_[0]->$_, qw(displayable_type record_number);
+};
+
sub abbreviation {
my ($self) = @_;
sub abbreviation {
my ($self) = @_;
+sub displayable_name {
+ join ' ', grep $_, map $_[0]->$_, qw(displayable_type record_number);
+};
sub is_sales {
croak 'not an accessor' if @_ > 1;
sub is_sales {
croak 'not an accessor' if @_ > 1;