Revision 930e5ecb
Von Moritz Bunkus vor mehr als 13 Jahren hinzugefügt
| SL/DB/Customer.pm | ||
|---|---|---|
| 3 | 3 |
use strict; |
| 4 | 4 |
|
| 5 | 5 |
use SL::DB::MetaSetup::Customer; |
| 6 |
use SL::DB::Manager::Customer; |
|
| 7 |
use SL::DB::Helper::TransNumberGenerator; |
|
| 6 | 8 |
|
| 7 | 9 |
use SL::DB::VC; |
| 8 | 10 |
|
| ... | ... | |
| 24 | 26 |
__PACKAGE__->meta->make_manager_class; |
| 25 | 27 |
__PACKAGE__->meta->initialize; |
| 26 | 28 |
|
| 29 |
__PACKAGE__->before_save('_before_save_set_customernumber');
|
|
| 30 |
|
|
| 31 |
sub _before_save_set_customernumber {
|
|
| 32 |
my ($self) = @_; |
|
| 33 |
|
|
| 34 |
$self->create_trans_number if $self->customernumber eq ''; |
|
| 35 |
} |
|
| 36 |
|
|
| 27 | 37 |
sub short_address {
|
| 28 | 38 |
my ($self) = @_; |
| 29 | 39 |
|
Auch abrufbar als: Unified diff
Vergabe von Kunden-/Lieferantennummer beim Speichern eines VC-Objektes implementiert