Revision 41b0c57d
Von Tamino Steinert vor 10 Monaten hinzugefügt
| SL/Model/Record.pm | ||
|---|---|---|
| 16 | 16 |
use SL::DB::Order::TypeData qw(:types); |
| 17 | 17 |
use SL::DB::DeliveryOrder::TypeData qw(:types); |
| 18 | 18 |
use SL::DB::Reclamation::TypeData qw(:types); |
| 19 |
use SL::DB::Helper::Record qw(get_class_from_type); |
|
| 19 |
use SL::DB::Helper::Record qw( |
|
| 20 |
get_class_from_type get_type_data_proxy_from_type |
|
| 21 |
); |
|
| 20 | 22 |
|
| 21 | 23 |
use SL::Util qw(trim); |
| 22 | 24 |
use SL::Locale::String qw(t8); |
| ... | ... | |
| 63 | 65 |
sub get_record {
|
| 64 | 66 |
my ($class, $type, $id) = @_; |
| 65 | 67 |
my $record_class = get_class_from_type($type); |
| 66 |
return $record_class->new(id => $id)->load; |
|
| 68 |
my $type_data_proxy = get_type_data_proxy_from_type($type); |
|
| 69 |
my $items_key = $type_data_proxy->properties('items_key');
|
|
| 70 |
return $record_class->new(id => $id)->load( |
|
| 71 |
with => [ $items_key, "$items_key.part" ] |
|
| 72 |
); |
|
| 67 | 73 |
} |
| 68 | 74 |
|
| 69 | 75 |
sub new_from_workflow {
|
Auch abrufbar als: Unified diff
S:M:Record: Beim Holen vom Beleg lade Positionen und Artikel gleich mit