- my $number = SL::TransNumber->new(type => $self->table(),
- number => $object->$numbercolumn(),
- business_id => $object->business_id(),
- save => 1);
-
- if ( $object->$numbercolumn eq '####' || !$number->is_unique() ) {
- $object->$numbercolumn($number->create_unique());
- }
- }