Revision 9b5b900b
Von Tamino Steinert vor fast 2 Jahren hinzugefügt
SL/Controller/Reclamation.pm | ||
---|---|---|
69 | 69 |
save_and_show_email_dialog |
70 | 70 |
workflow_save_and_sales_or_purchase_reclamation |
71 | 71 |
save_and_order |
72 |
save_and_delivery_order |
|
72 | 73 |
)]); |
73 | 74 |
|
74 | 75 |
__PACKAGE__->run_before('get_unalterable_data', |
... | ... | |
77 | 78 |
save_and_show_email_dialog |
78 | 79 |
workflow_save_and_sales_or_purchase_reclamation |
79 | 80 |
save_and_order |
81 |
save_and_delivery_order |
|
80 | 82 |
)]); |
81 | 83 |
|
82 | 84 |
# |
... | ... | |
121 | 123 |
); |
122 | 124 |
} |
123 | 125 |
|
126 |
sub action_add_from_delivery_order { |
|
127 |
my ($self) = @_; |
|
128 |
|
|
129 |
unless ($::form->{from_id}) { |
|
130 |
$self->js->flash('error', t8("Can't create new reclamation. No 'from_id' was given.")); |
|
131 |
return $self->js->render(); |
|
132 |
} |
|
133 |
|
|
134 |
require SL::DB::DeliveryOrder; |
|
135 |
my $delivery_order = SL::DB::DeliveryOrder->new(id => $::form->{from_id})->load; |
|
136 |
my $reclamation = $delivery_order->convert_to_reclamation(); |
|
137 |
|
|
138 |
$self->reclamation($reclamation); |
|
139 |
|
|
140 |
$self->reinit_after_new_reclamation(); |
|
141 |
|
|
142 |
$self->render( |
|
143 |
'reclamation/form', |
|
144 |
title => $self->get_title_for('add'), |
|
145 |
%{$self->{template_args}}, |
|
146 |
); |
|
147 |
} |
|
148 |
|
|
124 | 149 |
# edit an existing reclamation |
125 | 150 |
sub action_edit { |
126 | 151 |
my ($self) = @_; |
... | ... | |
515 | 540 |
$_[0]->workflow_save_and_sales_or_purchase_reclamation(); |
516 | 541 |
} |
517 | 542 |
|
543 |
# save the reclamation and redirect to the frontend subroutine for a new |
|
544 |
# delivery order |
|
545 |
sub action_save_and_delivery_order { |
|
546 |
my ($self) = @_; |
|
547 |
|
|
548 |
my $to_type = $self->reclamation->is_sales ? 'sales_delivery_order' |
|
549 |
: 'purchase_delivery_order'; |
|
550 |
$self->save_and_redirect_to( |
|
551 |
controller => 'do.pl', |
|
552 |
action => 'add_from_reclamation', |
|
553 |
type => $to_type, |
|
554 |
from_id => $self->reclamation->id, |
|
555 |
); |
|
556 |
} |
|
557 |
|
|
518 | 558 |
# set form elements in respect to a changed customer or vendor |
519 | 559 |
# |
520 | 560 |
# This action is called on an change of the customer/vendor picker. |
... | ... | |
1617 | 1657 |
my %allowed_linked_records = map {$_ => 1} qw( |
1618 | 1658 |
SL::DB::Reclamation |
1619 | 1659 |
SL::DB::Order |
1660 |
SL::DB::DeliveryOrder |
|
1620 | 1661 |
); |
1621 | 1662 |
my %allowed_linked_record_items = map {$_ => 1} qw( |
1622 | 1663 |
SL::DB::ReclamationItem |
1623 | 1664 |
SL::DB::OrderItem |
1665 |
SL::DB::DeliveryOrderItem |
|
1624 | 1666 |
); |
1625 | 1667 |
|
1626 | 1668 |
my $from_record_id = delete $::form->{converted_from_record_id}; |
... | ... | |
2133 | 2175 |
$::instance_conf->get_reclamation_warn_no_reqdate, |
2134 | 2176 |
], |
2135 | 2177 |
], |
2178 |
action => [ |
|
2179 |
t8('Save and Delivery Order'), |
|
2180 |
call => [ |
|
2181 |
'kivi.Reclamation.save', 'save_and_delivery_order', |
|
2182 |
$::instance_conf->get_reclamation_warn_duplicate_parts, |
|
2183 |
$::instance_conf->get_reclamation_warn_no_reqdate, |
|
2184 |
], |
|
2185 |
], |
|
2136 | 2186 |
], # end of combobox "Workflow" |
2137 | 2187 |
|
2138 | 2188 |
combobox => [ |
SL/DB/DeliveryOrder.pm | ||
---|---|---|
124 | 124 |
return $cloned; |
125 | 125 |
} |
126 | 126 |
|
127 |
sub convert_to_reclamation { |
|
128 |
my ($self, %params) = @_; |
|
129 |
|
|
130 |
$params{destination_type} = $self->is_sales ? 'sales_reclamation' |
|
131 |
: 'purchase_reclamation'; |
|
132 |
|
|
133 |
my $reclamation = SL::DB::Reclamation->new_from($self, %params); |
|
134 |
|
|
135 |
return $reclamation; |
|
136 |
} |
|
137 |
|
|
127 | 138 |
sub new_from { |
128 | 139 |
my ($class, $source, %params) = @_; |
129 | 140 |
|
130 |
croak("Unsupported source object type '" . ref($source) . "'") unless ref($source) eq 'SL::DB::Order'; |
|
141 |
my %allowed_sources = map { $_ => 1 } qw( |
|
142 |
SL::DB::Reclamation |
|
143 |
SL::DB::Order |
|
144 |
); |
|
145 |
unless( $allowed_sources{ref $source} ) { |
|
146 |
croak("Unsupported source object type '" . ref($source) . "'"); |
|
147 |
} |
|
131 | 148 |
|
132 |
my ($item_parent_id_column, $item_parent_column); |
|
149 |
my %record_args = ( |
|
150 |
donumber => undef, |
|
151 |
employee => SL::DB::Manager::Employee->current, |
|
152 |
closed => 0, |
|
153 |
delivered => 0, |
|
154 |
order_type => $params{type}, |
|
155 |
transdate => DateTime->today_local, |
|
156 |
); |
|
133 | 157 |
|
134 |
if (ref($source) eq 'SL::DB::Order') { |
|
135 |
$item_parent_id_column = 'trans_id'; |
|
136 |
$item_parent_column = 'order'; |
|
158 |
if ( ref($source) eq 'SL::DB::Order' ) { |
|
159 |
map{ ( $record_args{$_} = $source->$_ ) } # {{{ for vim folds |
|
160 |
qw( |
|
161 |
billing_address_id |
|
162 |
cp_id |
|
163 |
currency_id |
|
164 |
cusordnumber |
|
165 |
customer_id |
|
166 |
delivery_term_id |
|
167 |
department_id |
|
168 |
globalproject_id |
|
169 |
intnotes |
|
170 |
language_id |
|
171 |
notes |
|
172 |
ordnumber |
|
173 |
payment_id |
|
174 |
reqdate |
|
175 |
salesman_id |
|
176 |
shippingpoint |
|
177 |
shipvia |
|
178 |
taxincluded |
|
179 |
taxzone_id |
|
180 |
transaction_description |
|
181 |
vendor_id |
|
182 |
); |
|
183 |
# }}} for vim folds |
|
184 |
} elsif ( ref($source) eq 'SL::DB::Reclamation' ) { |
|
185 |
map{ ( $record_args{$_} = $source->$_ ) } # {{{ for vim folds |
|
186 |
#billing_address_id #TODO(Tamino): add billing_address_id to reclamation |
|
187 |
qw( |
|
188 |
currency_id |
|
189 |
customer_id |
|
190 |
delivery_term_id |
|
191 |
department_id |
|
192 |
globalproject_id |
|
193 |
intnotes |
|
194 |
language_id |
|
195 |
notes |
|
196 |
payment_id |
|
197 |
reqdate |
|
198 |
salesman_id |
|
199 |
shippingpoint |
|
200 |
shipvia |
|
201 |
taxincluded |
|
202 |
taxzone_id |
|
203 |
transaction_description |
|
204 |
vendor_id |
|
205 |
); |
|
206 |
$record_args{cp_id} = $source->contact_id; |
|
207 |
$record_args{cusordnumber} = $source->cv_record_number; |
|
208 |
# }}} for vim folds |
|
137 | 209 |
} |
138 | 210 |
|
139 |
my %args = ( map({ ( $_ => $source->$_ ) } qw(cp_id currency_id customer_id cusordnumber delivery_term_id department_id employee_id globalproject_id intnotes language_id notes |
|
140 |
ordnumber payment_id reqdate salesman_id shippingpoint shipvia taxincluded taxzone_id transaction_description vendor_id billing_address_id |
|
141 |
)), |
|
142 |
closed => 0, |
|
143 |
delivered => 0, |
|
144 |
order_type => $params{type}, |
|
145 |
transdate => DateTime->today_local, |
|
146 |
); |
|
147 |
|
|
148 | 211 |
# Custom shipto addresses (the ones specific to the sales/purchase |
149 | 212 |
# record and not to the customer/vendor) are only linked from |
150 | 213 |
# shipto → delivery_orders. Meaning delivery_orders.shipto_id |
151 | 214 |
# will not be filled in that case. |
152 | 215 |
if (!$source->shipto_id && $source->id) { |
153 |
$args{custom_shipto} = $source->custom_shipto->clone($class) if $source->can('custom_shipto') && $source->custom_shipto; |
|
154 |
|
|
216 |
$record_args{custom_shipto} = $source->custom_shipto->clone($class) if $source->can('custom_shipto') && $source->custom_shipto; |
|
155 | 217 |
} else { |
156 |
$args{shipto_id} = $source->shipto_id; |
|
218 |
$record_args{shipto_id} = $source->shipto_id;
|
|
157 | 219 |
} |
158 | 220 |
|
159 | 221 |
# infer type from legacy fields if not given |
160 |
$args{order_type} //= $source->customer_id ? 'sales_delivery_order' |
|
222 |
$record_args{order_type} //= $source->customer_id ? 'sales_delivery_order'
|
|
161 | 223 |
: $source->vendor_id ? 'purchase_delivery_order' |
162 | 224 |
: $source->is_sales ? 'sales_delivery_order' |
163 | 225 |
: croak "need some way to set delivery order type from source"; |
164 | 226 |
|
165 |
my $delivery_order = $class->new(%args); |
|
227 |
my $delivery_order = $class->new(%record_args);
|
|
166 | 228 |
$delivery_order->assign_attributes(%{ $params{attributes} }) if $params{attributes}; |
167 |
my $items = delete($params{items}) || $source->items_sorted; |
|
168 |
my %item_parents; |
|
169 |
|
|
170 |
# do not copy items when converting to supplier delivery order |
|
171 |
my @items = $delivery_order->is_type(SUPPLIER_DELIVERY_ORDER_TYPE) ? () : map { |
|
172 |
my $source_item = $_; |
|
173 |
my $source_item_id = $_->$item_parent_id_column; |
|
174 |
my @custom_variables = map { _clone_orderitem_cvar($_) } @{ $source_item->custom_variables }; |
|
175 |
|
|
176 |
$item_parents{$source_item_id} ||= $source_item->$item_parent_column; |
|
177 |
my $item_parent = $item_parents{$source_item_id}; |
|
178 |
|
|
179 |
my $current_do_item = SL::DB::DeliveryOrderItem->new(map({ ( $_ => $source_item->$_ ) } |
|
180 |
qw(base_qty cusordnumber description discount lastcost longdescription marge_price_factor parts_id price_factor price_factor_id |
|
181 |
project_id qty reqdate sellprice serialnumber transdate unit active_discount_source active_price_source |
|
182 |
)), |
|
183 |
custom_variables => \@custom_variables, |
|
184 |
ordnumber => ref($item_parent) eq 'SL::DB::Order' ? $item_parent->ordnumber : $source_item->ordnumber, |
|
185 |
); |
|
186 |
$current_do_item->{"converted_from_orderitems_id"} = $_->{id} if ref($item_parent) eq 'SL::DB::Order'; |
|
187 |
$current_do_item; |
|
188 |
} @{ $items }; |
|
229 |
|
|
230 |
my $items = delete($params{items}) || $source->items_sorted; |
|
231 |
my @items = $delivery_order->is_type(SUPPLIER_DELIVERY_ORDER_TYPE) ? () |
|
232 |
: map { SL::DB::DeliveryOrderItem->new_from($_) } @{ $items }; |
|
189 | 233 |
|
190 | 234 |
@items = grep { $params{item_filter}->($_) } @items if $params{item_filter}; |
191 | 235 |
@items = grep { $_->qty * 1 } @items if $params{skip_items_zero_qty}; |
SL/DB/DeliveryOrderItem.pm | ||
---|---|---|
35 | 35 |
|
36 | 36 |
# methods |
37 | 37 |
|
38 |
sub new_from { |
|
39 |
my ($class, $source, %params) = @_; |
|
40 |
|
|
41 |
my %allowed_sources = map { $_ => 1 } qw( |
|
42 |
SL::DB::ReclamationItem |
|
43 |
SL::DB::OrderItem |
|
44 |
); |
|
45 |
unless( $allowed_sources{ref $source} ) { |
|
46 |
croak("Unsupported source object type '" . ref($source) . "'"); |
|
47 |
} |
|
48 |
|
|
49 |
my @custom_variables = map { _clone_cvar_for_delivery_order_item($_) } @{ $source->custom_variables }; |
|
50 |
|
|
51 |
my %item_args; |
|
52 |
if (ref($source) eq 'SL::DB::ReclamationItem') { |
|
53 |
map { $item_args{$_} = $source->$_ } # {{{ for vim folds |
|
54 |
qw( |
|
55 |
active_discount_source |
|
56 |
active_price_source |
|
57 |
base_qty |
|
58 |
description |
|
59 |
discount |
|
60 |
lastcost |
|
61 |
longdescription |
|
62 |
parts_id |
|
63 |
position |
|
64 |
price_factor |
|
65 |
price_factor_id |
|
66 |
pricegroup_id |
|
67 |
project_id |
|
68 |
qty |
|
69 |
reqdate |
|
70 |
sellprice |
|
71 |
serialnumber |
|
72 |
unit |
|
73 |
); |
|
74 |
$item_args{custom_variables} = \@custom_variables; |
|
75 |
# }}} for vim folds |
|
76 |
} elsif (ref($source) eq 'SL::DB::OrderItem') { |
|
77 |
map { $item_args{$_} = $source->$_ } # {{{ for vim folds |
|
78 |
qw( |
|
79 |
active_discount_source |
|
80 |
active_price_source |
|
81 |
base_qty |
|
82 |
cusordnumber |
|
83 |
description |
|
84 |
discount |
|
85 |
lastcost |
|
86 |
longdescription |
|
87 |
marge_price_factor |
|
88 |
parts_id |
|
89 |
price_factor |
|
90 |
price_factor_id |
|
91 |
project_id |
|
92 |
qty |
|
93 |
reqdate |
|
94 |
sellprice |
|
95 |
serialnumber |
|
96 |
transdate |
|
97 |
unit |
|
98 |
); |
|
99 |
$item_args{custom_variables} = \@custom_variables; |
|
100 |
$item_args{ordnumber} = ref($source->record) eq 'SL::DB::Order' ? $source->record->ordnumber : $source->ordnumber; |
|
101 |
# }}} for vim folds |
|
102 |
} |
|
103 |
|
|
104 |
my $item = $class->new(%item_args); |
|
105 |
|
|
106 |
my $source_table = ''; |
|
107 |
if( ref($source) eq 'SL::DB::OrderItem' ) { |
|
108 |
$source_table = 'orderitems'; |
|
109 |
} elsif ( ref($source) eq 'SL::DB::ReclamationItem' ) { |
|
110 |
$source_table = 'reclamation_items'; |
|
111 |
} |
|
112 |
$item->{"converted_from_". $source_table ."_id"} = $_->{id}; |
|
113 |
|
|
114 |
return $item; |
|
115 |
} |
|
116 |
|
|
117 |
sub _clone_cvar_for_delivery_order_item { |
|
118 |
my ($cvar) = @_; |
|
119 |
|
|
120 |
my $cloned = $_->clone_and_reset; |
|
121 |
$cloned->sub_module('delivery_order_items'); |
|
122 |
|
|
123 |
return $cloned; |
|
124 |
} |
|
125 |
|
|
38 | 126 |
sub record { goto &delivery_order } |
39 | 127 |
sub record_id { goto &delivery_order_id } |
40 | 128 |
|
SL/DB/Reclamation.pm | ||
---|---|---|
216 | 216 |
return $order; |
217 | 217 |
} |
218 | 218 |
|
219 |
sub convert_to_delivery_order { |
|
220 |
my ($self, %params) = @_; |
|
221 |
|
|
222 |
my $delivery_order; |
|
223 |
if (!$self->db->with_transaction(sub { |
|
224 |
require SL::DB::DeliveryOrder; |
|
225 |
$delivery_order = SL::DB::DeliveryOrder->new_from($self, %params); |
|
226 |
$delivery_order->save; |
|
227 |
$self->link_to_record($delivery_order); |
|
228 |
# TODO extend link_to_record for items, otherwise long-term no d.r.y. |
|
229 |
foreach my $item (@{ $delivery_order->items }) { |
|
230 |
foreach (qw(reclamation_items)) { |
|
231 |
if ($item->{"converted_from_${_}_id"}) { |
|
232 |
die unless $item->{id}; |
|
233 |
RecordLinks->create_links('dbh' => $self->db->dbh, |
|
234 |
'mode' => 'ids', |
|
235 |
'from_table' => $_, |
|
236 |
'from_ids' => $item->{"converted_from_${_}_id"}, |
|
237 |
'to_table' => 'delivery_order_items', |
|
238 |
'to_id' => $item->{id}, |
|
239 |
) || die; |
|
240 |
delete $item->{"converted_from_${_}_id"}; |
|
241 |
} |
|
242 |
} |
|
243 |
} |
|
244 |
|
|
245 |
$self->update_attributes(delivered => 1) unless $::instance_conf->get_shipped_qty_require_stock_out; |
|
246 |
1; |
|
247 |
})) { |
|
248 |
return undef, $self->db->error->db_error->db_error; |
|
249 |
} |
|
250 |
|
|
251 |
return $delivery_order, undef; |
|
252 |
} |
|
253 |
|
|
219 | 254 |
#TODO(Werner): überprüfen ob alle Felder richtig gestetzt werden |
220 | 255 |
sub new_from { |
221 | 256 |
my ($class, $source, %params) = @_; |
222 | 257 |
my %allowed_sources = map { $_ => 1 } qw( |
223 | 258 |
SL::DB::Reclamation |
224 | 259 |
SL::DB::Order |
260 |
SL::DB::DeliveryOrder |
|
225 | 261 |
); |
226 | 262 |
unless( $allowed_sources{ref $source} ) { |
227 | 263 |
croak("Unsupported source object type '" . ref($source) . "'"); |
... | ... | |
239 | 275 |
#Order |
240 | 276 |
{ from => 'sales_order', to => 'sales_reclamation', abbr => 'sosr', }, |
241 | 277 |
{ from => 'purchase_order', to => 'purchase_reclamation', abbr => 'popr', }, |
278 |
#Delivery Order |
|
279 |
{ from => 'sales_delivery_order', to => 'sales_reclamation', abbr => 'sdsr', }, |
|
280 |
{ from => 'purchase_delivery_order', to => 'purchase_reclamation', abbr => 'pdpr', }, |
|
242 | 281 |
); |
243 | 282 |
my $from_to = (grep { $_->{from} eq $source->type && $_->{to} eq $destination_type} @from_tos)[0]; |
244 | 283 |
if (!$from_to) { |
... | ... | |
310 | 349 |
$record_args{contact_id} = $source->cp_id; |
311 | 350 |
$record_args{cv_record_number} = $source->cusordnumber; |
312 | 351 |
# }}} for vim folds |
352 |
} elsif ( $is_abbr_any->(qw(sdsr pdpr)) ) { #DeliveryOrder |
|
353 |
map { $record_args{$_} = $source->$_ } # {{{ for vim folds |
|
354 |
qw( |
|
355 |
currency_id |
|
356 |
customer_id |
|
357 |
delivery_term_id |
|
358 |
department_id |
|
359 |
globalproject_id |
|
360 |
intnotes |
|
361 |
language_id |
|
362 |
notes |
|
363 |
payment_id |
|
364 |
salesman_id |
|
365 |
shippingpoint |
|
366 |
shipvia |
|
367 |
tax_point |
|
368 |
taxincluded |
|
369 |
taxzone_id |
|
370 |
transaction_description |
|
371 |
vendor_id |
|
372 |
); |
|
373 |
$record_args{contact_id} = $source->cp_id; |
|
374 |
$record_args{cv_record_number} = $source->cusordnumber; |
|
375 |
# }}} for vim folds |
|
313 | 376 |
} |
314 | 377 |
|
315 | 378 |
if ( ($from_to->{from} =~ m{sales}) && ($from_to->{to} =~ m{purchase}) ) { |
SL/DB/ReclamationItem.pm | ||
---|---|---|
54 | 54 |
qw( |
55 | 55 |
SL::DB::ReclamationItem |
56 | 56 |
SL::DB::OrderItem |
57 |
SL::DB::DeliveryOrderItem |
|
57 | 58 |
) |
58 | 59 |
) { |
59 | 60 |
croak("Unsupported source object type '" . ref($source) . "'"); |
... | ... | |
78 | 79 |
pricegroup_id project_id qty reqdate sellprice serialnumber unit |
79 | 80 |
); |
80 | 81 |
$item_args{custom_variables} = \@custom_variables; |
82 |
} elsif (ref($source) eq 'SL::DB::DeliveryOrderItem') { |
|
83 |
map { $item_args{$_} = $source->$_ } qw( |
|
84 |
active_discount_source active_price_source base_qty description discount |
|
85 |
lastcost longdescription parts_id position price_factor price_factor_id |
|
86 |
pricegroup_id project_id qty reqdate sellprice serialnumber unit |
|
87 |
); |
|
88 |
$item_args{custom_variables} = \@custom_variables; |
|
81 | 89 |
} |
82 | 90 |
|
83 | 91 |
my $item = $class->new(%item_args); |
bin/mozilla/do.pl | ||
---|---|---|
121 | 121 |
$main::lxdebug->leave_sub(); |
122 | 122 |
} |
123 | 123 |
|
124 |
sub add_from_reclamation { |
|
125 |
|
|
126 |
require SL::DB::Reclamation; |
|
127 |
my $reclamation = SL::DB::Reclamation->new(id => $::form->{from_id})->load; |
|
128 |
my ($delivery_order, $error) = $reclamation->convert_to_delivery_order(); |
|
129 |
if($error) { |
|
130 |
croak("Error while converting: " . $error); |
|
131 |
} |
|
132 |
|
|
133 |
# edit new saved delivery order |
|
134 |
$::form->{id} = $delivery_order->id; |
|
135 |
edit(); |
|
136 |
} |
|
137 |
|
|
124 | 138 |
sub edit { |
125 | 139 |
$main::lxdebug->enter_sub(); |
126 | 140 |
|
... | ... | |
369 | 383 |
|
370 | 384 |
'separator', |
371 | 385 |
|
372 |
action => [ |
|
373 |
t8('Invoice'), |
|
374 |
submit => [ '#form', { action => "invoice" } ], |
|
375 |
disabled => !$::form->{id} ? t8('This record has not been saved yet.') : undef, |
|
376 |
confirm => $::form->{delivered} ? undef |
|
377 |
: ($::form->{vc} eq 'customer' && $::instance_conf->get_sales_delivery_order_check_stocked) ? t8('This record has not been stocked out. Proceed?') |
|
378 |
: ($::form->{vc} eq 'vendor' && $::instance_conf->get_purchase_delivery_order_check_stocked) ? t8('This record has not been stocked in. Proceed?') |
|
379 |
: undef, |
|
386 |
combobox => [ |
|
387 |
action => [ t8('Workflow') ], |
|
388 |
action => [ |
|
389 |
t8('Invoice'), |
|
390 |
submit => [ '#form', { action => "invoice" } ], |
|
391 |
disabled => !$::form->{id} ? t8('This record has not been saved yet.') : undef, |
|
392 |
confirm => $::form->{delivered} ? undef |
|
393 |
: ($::form->{vc} eq 'customer' && $::instance_conf->get_sales_delivery_order_check_stocked) ? t8('This record has not been stocked out. Proceed?') |
|
394 |
: ($::form->{vc} eq 'vendor' && $::instance_conf->get_purchase_delivery_order_check_stocked) ? t8('This record has not been stocked in. Proceed?') |
|
395 |
: undef, |
|
396 |
], |
|
397 |
action => [ |
|
398 |
t8('Save and Reclamation'), |
|
399 |
submit => [ '#form', { action => "save_and_reclamation" } ], |
|
400 |
], |
|
380 | 401 |
], |
381 | 402 |
|
382 | 403 |
combobox => [ |
... | ... | |
1319 | 1340 |
$main::lxdebug->leave_sub(); |
1320 | 1341 |
} |
1321 | 1342 |
|
1343 |
sub save_and_reclamation { |
|
1344 |
my $form = $main::form; |
|
1345 |
my $type = $form->{type}; |
|
1346 |
|
|
1347 |
# save the delivery order |
|
1348 |
save(no_redirect => 1); |
|
1349 |
|
|
1350 |
my $to_reclamation_type = |
|
1351 |
$type eq 'sales_delivery_order' ? 'sales_reclamation' |
|
1352 |
: 'purchase_reclamation'; |
|
1353 |
$form->{callback} = |
|
1354 |
'controller.pl?action=Reclamation/add_from_delivery_order' . |
|
1355 |
'&type=' . $to_reclamation_type . |
|
1356 |
'&from_id=' . $form->escape($form->{id}); |
|
1357 |
$form->redirect; |
|
1358 |
} |
|
1359 |
|
|
1322 | 1360 |
sub save_as_new { |
1323 | 1361 |
$main::lxdebug->enter_sub(); |
1324 | 1362 |
|
Auch abrufbar als: Unified diff
Workflow: delivery_order ↔ reclamation