use strict;
+use Rose::DB::Object::Helpers qw(as_tree);
+
use SL::DB::MetaSetup::Customer;
use SL::DB::Manager::Customer;
use SL::DB::Helper::TransNumberGenerator;
sub _before_save_set_customernumber {
my ($self) = @_;
- $self->create_trans_number if $self->customernumber eq '';
+ $self->create_trans_number if !defined $self->customernumber || $self->customernumber eq '';
return 1;
}
return join ' ', grep $_, $self->customernumber, $self->name;
}
+sub is_customer { 1 };
+sub is_vendor { 0 };
+sub payment_terms { goto &payment }
+
1;