$bar->add(
action => [
t8('Update'),
- submit => [ '#form', { action_update => 1 } ],
+ submit => [ '#form', { action => "update" } ],
id => 'update_button',
accesskey => 'enter',
],
combobox => [
action => [
t8('Save'),
- submit => [ '#form', { action_save => 1 } ],
+ submit => [ '#form', { action => "save" } ],
checks => [ @req_trans_desc, @req_trans_cost_art, @warn_p_invoice ],
],
action => [
t8('Save as new'),
- submit => [ '#form', { action_save_as_new => 1 } ],
+ submit => [ '#form', { action => "save_as_new" } ],
checks => [ @req_trans_desc, @req_trans_cost_art ],
disabled => !$form->{id} ? t8('This record has not been saved yet.') : undef,
],
action => [
t8('Save and Close'),
- submit => [ '#form', { action_save_and_close => 1 } ],
+ submit => [ '#form', { action => "save_and_close" } ],
checks => [ @req_trans_desc, @req_trans_cost_art, @warn_p_invoice ],
],
action => [
t8('Delete'),
- submit => [ '#form', { action_delete => 1 } ],
+ submit => [ '#form', { action => "delete" } ],
confirm => t8('Do you really want to delete this object?'),
disabled => !$form->{id} ? t8('This record has not been saved yet.')
: ( ($params{is_sales_ord} && !$::instance_conf->get_sales_order_show_delete)
combobox => [
action => [ t8('Workflow') ],
- (action => [
+ action => [
t8('Sales Order'),
- submit => [ '#form', { action_sales_order => 1 } ],
+ submit => [ '#form', { action => "sales_order" } ],
disabled => !$form->{id} ? t8('This record has not been saved yet.') : undef,
- ]) x !!$params{is_sales_quo},
- (action => [
+ only_if => $params{is_sales_quo},
+ ],
+ action => [
t8('Purchase Order'),
- submit => [ '#form', { action_sales_order => 1 } ],
+ submit => [ '#form', { action => "purchase_order" } ],
disabled => !$form->{id} ? t8('This record has not been saved yet.') : undef,
- ]) x !!$params{is_req_quo},
- (action => [
+ only_if => $params{is_req_quo},
+ ],
+ action => [
t8('Delivery Order'),
- submit => [ '#form', { action_delivery_order => 1 } ],
+ submit => [ '#form', { action => "delivery_order" } ],
disabled => !$form->{id} ? t8('This record has not been saved yet.') : undef,
- ]) x ($params{is_sales_ord} || $params{is_pur_ord}),
- (action => [
+ only_if => $params{is_sales_ord} || $params{is_pur_ord},
+ ],
+ action => [
t8('Invoice'),
- submit => [ '#form', { action_invoice => 1 } ],
+ submit => [ '#form', { action => "invoice" } ],
disabled => !$form->{id} ? t8('This record has not been saved yet.') : undef,
- ]) x !!$allow_invoice,
+ only_if => $allow_invoice,
+ ],
action => [
t8('Quotation'),
- submit => [ '#form', { action_quotation => 1 } ],
+ submit => [ '#form', { action => "quotation" } ],
disabled => !$form->{id} ? t8('This record has not been saved yet.') : undef,
],
action => [
t8('Request for Quotation'),
- submit => [ '#form', { action_reqest_for_quotation => 1 } ],
+ submit => [ '#form', { action => "request_for_quotation" } ],
disabled => !$form->{id} ? t8('This record has not been saved yet.') : undef,
],
], # end of combobox "Workflow"
action => [ t8('Export') ],
action => [
t8('Print'),
- submit => [ '#form', { action_print => 1 } ],
+ call => [ 'kivi.SalesPurchase.show_print_dialog' ],
checks => [ @req_trans_desc ],
],
action => [
call => [ 'kivi.SalesPurchase.show_email_dialog' ],
checks => [ @req_trans_desc ],
],
+ action => [
+ t8('Download attachments of all parts'),
+ call => [ 'kivi.File.downloadOrderitemsFiles', $::form->{type}, $::form->{id} ],
+ disabled => !$form->{id} ? t8('This record has not been saved yet.') : undef,
+ only_if => $::instance_conf->get_doc_storage,
+ ],
], #end of combobox "Export"
combobox => [
}
}
+sub setup_oe_orders_action_bar {
+ my %params = @_;
+
+ return unless $::form->{type} eq 'sales_order';
+
+ for my $bar ($::request->layout->get('actionbar')) {
+ $bar->add(
+ action => [
+ t8('New sales order'),
+ submit => [ '#form', { action => 'edit' } ],
+ checks => [ [ 'kivi.check_if_entries_selected', '[name^=multi_id_]' ] ],
+ accesskey => 'enter',
+ ],
+ );
+ }
+}
+
sub form_header {
$main::lxdebug->enter_sub();
my @custom_hiddens;
$form->{l_open} = $form->{l_closed} = "Y" if ($form->{open} && $form->{closed});
$form->{l_delivered} = "Y" if ($form->{delivered} && $form->{notdelivered});
$form->{l_periodic_invoices} = "Y" if ($form->{periodic_invoices_active} && $form->{periodic_invoices_inactive});
- $form->{l_edit_exp} = "Y" if (any { $form->{type} eq $_ } qw(sales_order purchase_order));
+ $form->{l_edit_exp} = "Y" if $::instance_conf->get_feature_experimental && (any { $form->{type} eq $_ } qw(sales_order purchase_order));
map { $form->{"l_${_}"} = 'Y' } qw(order_probability expected_billing_date expected_netamount) if $form->{l_order_probability_expected_billing_date};
my $attachment_basename;
$report->set_options('top_info_text' => join("\n", @options),
'raw_top_info_text' => $form->parse_html_template('oe/orders_top'),
- 'raw_bottom_info_text' => $form->parse_html_template('oe/orders_bottom', { 'SHOW_CONTINUE_BUTTON' => $allow_multiple_orders }),
+ 'raw_bottom_info_text' => $form->parse_html_template('oe/orders_bottom'),
'output_format' => 'HTML',
'title' => $form->{title},
'attachment_basename' => $attachment_basename . strftime('_%Y%m%d', localtime time),
$report->add_separator();
$report->add_data(create_subtotal_row(\%totals, \@columns, \%column_alignment, \@subtotal_columns, 'listtotal'));
- $report->generate_with_headers(action_bar => 1);
+ setup_oe_orders_action_bar();
+ $report->generate_with_headers();
$main::lxdebug->leave_sub();
}
foreach my $i (1 .. $form->{rowcount}) {
next if (!$form->{"id_$i"});
+ $form->{"ship_$i"} = 0 if $form->{saveasnew};
+
if ($form->parse_amount(\%myconfig, $form->{"qty_$i"}) == $form->parse_amount(\%myconfig, $form->{"ship_$i"})) {
$all_delivered = 1;
next;
}
$form->{delivered} = 1 if $all_delivered;
+ $form->{delivered} = 0 if $form->{saveasnew};
$main::lxdebug->leave_sub();
}
delivery_order();
}
-sub e_mail {
- $main::lxdebug->enter_sub();
-
- my $form = $main::form;
-
- check_oe_access();
-
- $form->mtime_ischanged('oe','mail');
- $form->{print_and_save} = 1;
-
- my $saved_form = save_form();
-
- save();
-
- restore_form($saved_form, 0, qw(id ordnumber quonumber));
-
- edit_e_mail();
-
- $main::lxdebug->leave_sub();
-}
-
sub yes {
call_sub($main::form->{yes_nextsub});
}
}
sub dispatcher {
- foreach my $action (qw(delete delivery_order e_mail invoice print purchase_order quotation
+ foreach my $action (qw(delete delivery_order invoice print purchase_order quotation
request_for_quotation sales_order save save_and_close save_as_new ship_to update)) {
if ($::form->{"action_${action}"}) {
call_sub($action);