X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDB%2FVendor.pm;h=ebbe8125fae8a200e5d6361cffd361a2d9a526f5;hb=62750c33f1f639845d58bb74008609bdfd273ff6;hp=23886eaef871f4465481a610ec5891b67cb9c74e;hpb=5b192e717db8efbf4b76162797b08cb65fc4922f;p=kivitendo-erp.git diff --git a/SL/DB/Vendor.pm b/SL/DB/Vendor.pm index 23886eaef..ebbe8125f 100644 --- a/SL/DB/Vendor.pm +++ b/SL/DB/Vendor.pm @@ -2,7 +2,10 @@ package SL::DB::Vendor; use strict; +use Rose::DB::Object::Helpers qw(as_tree); + use SL::DB::MetaSetup::Vendor; +use SL::DB::Manager::Vendor; use SL::DB::Helper::TransNumberGenerator; use SL::DB::Helper::CustomVariables ( module => 'CT', @@ -27,7 +30,6 @@ __PACKAGE__->meta->add_relationship( }, ); -__PACKAGE__->meta->make_manager_class; __PACKAGE__->meta->initialize; __PACKAGE__->before_save('_before_save_set_vendornumber'); @@ -35,11 +37,18 @@ __PACKAGE__->before_save('_before_save_set_vendornumber'); sub _before_save_set_vendornumber { my ($self) = @_; - $self->create_trans_number if $self->vendornumber eq ''; + $self->create_trans_number if !defined $self->vendornumber || $self->vendornumber eq ''; return 1; } +sub displayable_name { + my $self = shift; + + return join ' ', grep $_, $self->vendornumber, $self->name; +} + sub is_customer { 0 }; sub is_vendor { 1 }; +sub payment_terms { goto &payment } 1;