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 },
42 customervendor => "customer",
47 part_classification_query => [ "used_for_sale" => 1 ],
48 right => "sales_delivery_order_edit",
50 PURCHASE_DELIVERY_ORDER_TYPE() => {
52 delete => t8('Delivery Order has been deleted'),
53 saved => t8('Delivery Order has been saved'),
54 add => t8("Add Purchase Delivery Order"),
55 edit => t8("Edit Purchase Delivery Order"),
56 attachment => t8("purchase_delivery_order_list"),
59 save_and_quotation => 0,
61 save_and_sales_order => 0,
62 save_and_purchase_order => 0,
63 save_and_delivery_order => 0,
64 save_and_ap_transaction => 0,
65 save_and_invoice => 0,
66 delete => sub { $::instance_conf->get_sales_delivery_order_show_delete },
69 customervendor => "vendor",
74 part_classification_query => [ "used_for_purchase" => 1 ],
75 right => "purchase_delivery_order_edit",
77 SUPPLIER_DELIVERY_ORDER_TYPE() => {
79 delete => t8('Delivery Order has been deleted'),
80 saved => t8('Delivery Order has been saved'),
81 add => t8("Add Supplier Delivery Order"),
82 edit => t8("Edit Supplier Delivery Order"),
83 attachment => t8("supplier_delivery_order_list"),
86 save_and_quotation => 0,
88 save_and_sales_order => 0,
89 save_and_purchase_order => 0,
90 save_and_delivery_order => 0,
91 save_and_ap_transaction => 0,
92 save_and_invoice => 0,
93 delete => sub { $::instance_conf->get_sales_delivery_order_show_delete },
96 customervendor => "vendor",
101 part_classification_query => [ "used_for_purchase" => 1 ],
102 right => "purchase_delivery_order_edit",
104 RMA_DELIVERY_ORDER_TYPE() => {
106 delete => t8('Delivery Order has been deleted'),
107 saved => t8('Delivery Order has been saved'),
108 add => t8("Add RMA Delivery Order"),
109 edit => t8("Edit RMA Delivery Order"),
110 attachment => t8("rma_delivery_order_list"),
113 save_and_quotation => 0,
115 save_and_sales_order => 0,
116 save_and_purchase_order => 0,
117 save_and_delivery_order => 0,
118 save_and_ap_transaction => 0,
119 save_and_invoice => 0,
120 delete => sub { $::instance_conf->get_sales_delivery_order_show_delete },
123 customervendor => "customer",
125 nr_key => "donumber",
128 part_classification_query => [ "used_for_sale" => 1 ],
129 right => "sales_delivery_order_edit",
134 SALES_DELIVERY_ORDER_TYPE,
135 PURCHASE_DELIVERY_ORDER_TYPE,
136 SUPPLIER_DELIVERY_ORDER_TYPE,
137 RMA_DELIVERY_ORDER_TYPE,
140 my %valid_types = map { $_ => $_ } @valid_types;
147 !!exists $type_data{$_[0]};
153 return $valid_types{$type} // confess "invalid type '$type'";
157 my ($type, $key) = @_;
159 my $ret = $type_data{$type}->{$key} // die "unknown property '$key'";
167 my ($type, $topic, $key) = @_;
169 my $ret = $type_data{$type}{$topic}{$key} // die "unknown property '$key' in topic '$topic' for type '$type'";