Revision dacc0f08
Von Sven Schöling vor mehr als 1 Jahr hinzugefügt
SL/DB/DeliveryOrder.pm | ||
---|---|---|
use SL::DB::Helper::FlattenToForm;
|
||
use SL::DB::Helper::LinkedRecords;
|
||
use SL::DB::Helper::TransNumberGenerator;
|
||
use SL::DB::Helper::RecordLink qw(RECORD_ID RECORD_TYPE_REF);
|
||
|
||
use SL::DB::Part;
|
||
use SL::DB::Unit;
|
||
... | ... | |
__PACKAGE__->attr_sorted('items');
|
||
|
||
__PACKAGE__->before_save('_before_save_set_donumber');
|
||
__PACKAGE__->after_save('_after_save_link_records');
|
||
|
||
# hooks
|
||
|
||
... | ... | |
return 1;
|
||
}
|
||
|
||
sub _after_save_link_records {
|
||
my ($self) = @_;
|
||
|
||
my @allowed_record_sources = qw(SL::DB::Reclamation SL::DB::Order);
|
||
my @allowed_item_sources = qw(SL::DB::ReclamationItem SL::DB::OrderItem);
|
||
|
||
SL::DB::Helper::RecordLink::link_records(
|
||
$self,
|
||
\@allowed_record_sources,
|
||
\@allowed_item_sources,
|
||
close_source_quotations => 1,
|
||
);
|
||
}
|
||
|
||
# methods
|
||
|
||
sub items { goto &orderitems; }
|
Auch abrufbar als: Unified diff
RecordLink: post save hook für alle Hauptbelege