X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/5b192e717db8efbf4b76162797b08cb65fc4922f..a31c26ebd16e47be9bebb10f69c0e092f3202ed7:/SL/DB/Customer.pm diff --git a/SL/DB/Customer.pm b/SL/DB/Customer.pm index 36bddc0c7..6f37c5221 100644 --- a/SL/DB/Customer.pm +++ b/SL/DB/Customer.pm @@ -35,7 +35,7 @@ __PACKAGE__->before_save('_before_save_set_customernumber'); 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; } @@ -53,5 +53,6 @@ sub displayable_name { sub is_customer { 1 }; sub is_vendor { 0 }; +sub payment_terms { goto &payment } 1;