1 package SL::DB::DeliveryOrder::TypeData;
5 use Exporter qw(import);
6 use Scalar::Util qw(weaken);
7 use SL::Locale::String qw(t8);
10 SALES_DELIVERY_ORDER_TYPE => 'sales_delivery_order',
11 PURCHASE_DELIVERY_ORDER_TYPE => 'purchase_delivery_order',
12 SUPPLIER_DELIVERY_ORDER_TYPE => 'supplier_delivery_order',
13 RMA_DELIVERY_ORDER_TYPE => 'rma_delivery_order',
16 my @export_types = qw(SALES_DELIVERY_ORDER_TYPE PURCHASE_DELIVERY_ORDER_TYPE SUPPLIER_DELIVERY_ORDER_TYPE RMA_DELIVERY_ORDER_TYPE);
17 my @export_subs = qw(valid_types validate_type is_valid_type get get3);
19 our @EXPORT_OK = (@export_types, @export_subs);
20 our %EXPORT_TAGS = (types => \@export_types, subs => \@export_subs);
23 SALES_DELIVERY_ORDER_TYPE() => {
25 delete => t8('Delivery Order has been deleted'),
26 saved => t8('Delivery Order has been saved'),
27 add => t8("Add Sales Delivery Order"),
28 edit => t8("Edit Sales Delivery Order"),
29 attachment => t8("sales_delivery_order_list"),
32 save_and_quotation => 0,
34 save_and_sales_order => 0,
35 save_and_purchase_order => 0,
36 save_and_delivery_order => 0,
37 save_and_ap_transaction => 0,
38 save_and_invoice => 0,
39 delete => sub { $::instance_conf->get_sales_delivery_order_show_delete },
43 customervendor => "customer",
47 transnumber => 'sdonumber',
49 part_classification_query => [ "used_for_sale" => 1 ],
50 right => "sales_delivery_order_edit",
52 PURCHASE_DELIVERY_ORDER_TYPE() => {
54 delete => t8('Delivery Order has been deleted'),
55 saved => t8('Delivery Order has been saved'),
56 add => t8("Add Purchase Delivery Order"),
57 edit => t8("Edit Purchase Delivery Order"),
58 attachment => t8("purchase_delivery_order_list"),
61 save_and_quotation => 0,
63 save_and_sales_order => 0,
64 save_and_purchase_order => 0,
65 save_and_delivery_order => 0,
66 save_and_ap_transaction => 0,
67 save_and_invoice => 0,
68 delete => sub { $::instance_conf->get_sales_delivery_order_show_delete },
72 customervendor => "vendor",
76 transnumber => 'pdonumber',
78 part_classification_query => [ "used_for_purchase" => 1 ],
79 right => "purchase_delivery_order_edit",
81 SUPPLIER_DELIVERY_ORDER_TYPE() => {
83 delete => t8('Supplier Delivery Order has been deleted'),
84 saved => t8('Supplier Delivery Order has been saved'),
85 add => t8("Add Supplier Delivery Order"),
86 edit => t8("Edit Supplier Delivery Order"),
87 attachment => t8("supplier_delivery_order_list"),
90 save_and_quotation => 0,
92 save_and_sales_order => 0,
93 save_and_purchase_order => 0,
94 save_and_delivery_order => 0,
95 save_and_ap_transaction => 0,
96 save_and_invoice => 0,
97 delete => sub { $::instance_conf->get_sales_delivery_order_show_delete },
101 customervendor => "vendor",
103 nr_key => "donumber",
105 transnumber => 'sudonumber',
107 part_classification_query => [ "used_for_purchase" => 1 ],
108 right => "purchase_delivery_order_edit",
110 RMA_DELIVERY_ORDER_TYPE() => {
112 delete => t8('Delivery Order has been deleted'),
113 saved => t8('Delivery Order has been saved'),
114 add => t8("Add RMA Delivery Order"),
115 edit => t8("Edit RMA Delivery Order"),
116 attachment => t8("rma_delivery_order_list"),
119 save_and_quotation => 0,
121 save_and_sales_order => 0,
122 save_and_purchase_order => 0,
123 save_and_delivery_order => 0,
124 save_and_ap_transaction => 0,
125 save_and_invoice => 0,
126 delete => sub { $::instance_conf->get_sales_delivery_order_show_delete },
130 customervendor => "customer",
132 nr_key => "donumber",
134 transnumber => 'rdonumber',
136 part_classification_query => [ "used_for_sale" => 1 ],
137 right => "sales_delivery_order_edit",
142 SALES_DELIVERY_ORDER_TYPE,
143 PURCHASE_DELIVERY_ORDER_TYPE,
144 SUPPLIER_DELIVERY_ORDER_TYPE,
145 RMA_DELIVERY_ORDER_TYPE,
148 my %valid_types = map { $_ => $_ } @valid_types;
155 !!exists $type_data{$_[0]};
161 return $valid_types{$type} // croak "invalid type '$type'";
165 my ($type, $key) = @_;
167 croak "invalid type '$type'" unless exists $type_data{$type};
169 my $ret = $type_data{$type}->{$key} // die "unknown property '$key'";
177 my ($type, $topic, $key) = @_;
179 croak "invalid type '$type'" unless exists $type_data{$type};
181 my $ret = $type_data{$type}{$topic}{$key} // croak "unknown property '$key' in topic '$topic' for type '$type'";