Revision ac05693f
Von Tamino Steinert vor etwa 1 Jahr hinzugefügt
| SL/Model/Record.pm | ||
|---|---|---|
| 14 | 14 |
use SL::DB::Status; |
| 15 | 15 |
use SL::DB::ValidityToken; |
| 16 | 16 |
use SL::DB::Helper::TypeDataProxy; |
| 17 |
use SL::DB::Order::TypeData qw(:types); |
|
| 18 |
use SL::DB::DeliveryOrder::TypeData qw(:types); |
|
| 19 |
use SL::DB::Reclamation::TypeData qw(:types); |
|
| 17 | 20 |
|
| 18 | 21 |
use SL::Util qw(trim); |
| 19 | 22 |
use SL::Locale::String qw(t8); |
| ... | ... | |
| 63 | 66 |
|
| 64 | 67 |
my %subtype_to_type = ( |
| 65 | 68 |
# Order |
| 66 |
"request_quotation" => "SL::DB::Order",
|
|
| 67 |
"purchase_order" => "SL::DB::Order",
|
|
| 68 |
"sales_quotation" => "SL::DB::Order",
|
|
| 69 |
"sales_order" => "SL::DB::Order",
|
|
| 69 |
REQUEST_QUOTATION_TYPE() => "SL::DB::Order",
|
|
| 70 |
PURCHASE_ORDER_TYPE() => "SL::DB::Order",
|
|
| 71 |
SALES_QUOTATION_TYPE() => "SL::DB::Order",
|
|
| 72 |
SALES_ORDER_TYPE() => "SL::DB::Order",
|
|
| 70 | 73 |
# DeliveryOrder |
| 71 |
"sales_delivery_order" => "SL::DB::DeliveryOrder",
|
|
| 72 |
"purchase_delivery_order" => "SL::DB::DeliveryOrder",
|
|
| 73 |
"rma_delivery_order" => "SL::DB::DeliveryOrder",
|
|
| 74 |
"supplier_delivery_order" => "SL::DB::DeliveryOrder",
|
|
| 74 |
SALES_DELIVERY_ORDER_TYPE() => "SL::DB::DeliveryOrder",
|
|
| 75 |
PURCHASE_DELIVERY_ORDER_TYPE() => "SL::DB::DeliveryOrder",
|
|
| 76 |
RMA_DELIVERY_ORDER_TYPE() => "SL::DB::DeliveryOrder",
|
|
| 77 |
SUPPLIER_DELIVERY_ORDER_TYPE() => "SL::DB::DeliveryOrder",
|
|
| 75 | 78 |
# Reclamation |
| 76 |
"sales_reclamation" => "SL::DB::Reclamation",
|
|
| 77 |
"purchase_reclamation" => "SL::DB::Reclamation",
|
|
| 79 |
SALES_RECLAMATION_TYPE() => "SL::DB::Reclamation",
|
|
| 80 |
PURCHASE_RECLAMATION_TYPE() => "SL::DB::Reclamation",
|
|
| 78 | 81 |
); |
| 79 | 82 |
my $target_type = $subtype_to_type{$target_subtype};
|
| 80 | 83 |
unless ($target_type) {
|
| ... | ... | |
| 102 | 105 |
|
| 103 | 106 |
my %subtype_to_type = ( |
| 104 | 107 |
# Order |
| 105 |
"sales_order" => "SL::DB::Order",
|
|
| 108 |
SALES_ORDER_TYPE() => "SL::DB::Order",
|
|
| 106 | 109 |
); |
| 107 | 110 |
my $target_type = $subtype_to_type{$target_subtype};
|
| 108 | 111 |
unless ($target_type) {
|
Auch abrufbar als: Unified diff
TypeData: nutzte Konstanten anstatt String für Typen