Revision 45ea642b
Von Sven Schöling vor etwa 3 Jahren hinzugefügt
SL/DB/Manager/DeliveryOrder.pm | ||
---|---|---|
8 | 8 |
use SL::DB::Helper::Sorted; |
9 | 9 |
use SL::DB::Helper::Filtered; |
10 | 10 |
|
11 |
use SL::DB::DeliveryOrder::TypeData qw(validate_type); |
|
12 |
|
|
11 | 13 |
sub object_class { 'SL::DB::DeliveryOrder' } |
12 | 14 |
|
13 | 15 |
__PACKAGE__->make_manager_methods; |
... | ... | |
27 | 29 |
my $class = shift; |
28 | 30 |
my $type = lc(shift || ''); |
29 | 31 |
|
30 |
return ('!customer_id' => undef) if $type eq 'sales_delivery_order'; |
|
31 |
return ('!vendor_id' => undef) if $type eq 'purchase_delivery_order'; |
|
32 |
|
|
33 |
die "Unknown type $type"; |
|
32 |
return type => validate_type($type); |
|
34 | 33 |
} |
35 | 34 |
|
36 | 35 |
sub _sort_spec { |
Auch abrufbar als: Unified diff
do: neue Nummerkreise für supplier und rma Lieferscheine