$bar->add(
action =>
[ t8('Update'),
- submit => [ '#form', { action_update => 1 } ],
+ submit => [ '#form', { action => "update" } ],
accesskey => 'enter',
],
combobox => [
action => [
t8('Save'),
- submit => [ '#form', { action_save => 1 } ],
+ submit => [ '#form', { action => "save" } ],
checks => [ @req_trans_desc ],
disabled => $::form->{delivered} ? t8('This record has already been delivered.') : undef,
],
action => [
t8('Save as new'),
- submit => [ '#form', { action_save_as_new => 1 } ],
+ submit => [ '#form', { action => "save_as_new" } ],
checks => [ @req_trans_desc ],
disabled => !$::form->{id},
],
action => [
t8('Mark as closed'),
- submit => [ '#form', { action_mark_closed => 1 } ],
+ submit => [ '#form', { action => "mark_closed" } ],
checks => [ @req_trans_desc ],
confirm => t8('This will remove the delivery order from showing as open even if contents are not delivered. Proceed?'),
disabled => !$::form->{id} ? t8('This record has not been saved yet.')
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.')
: $::form->{delivered} ? t8('This record has already been delivered.')
combobox => [
(action => [
t8('Transfer out'),
- submit => [ '#form', { action_transfer_out => 1 } ],
+ submit => [ '#form', { action => "transfer_out" } ],
checks => [ @req_trans_desc, @transfer_qty ],
disabled => $::form->{delivered} ? t8('This record has already been delivered.') : undef,
]) x ($::form->{vc} eq 'customer'),
(action => [
t8('Transfer out via default'),
- submit => [ '#form', { action_transfer_out_default => 1 } ],
+ submit => [ '#form', { action => "transfer_out_default" } ],
checks => [ @req_trans_desc, @transfer_qty ],
disabled => $::form->{delivered} ? t8('This record has already been delivered.') : undef,
]) x ($::form->{vc} eq 'customer' && $::instance_conf->get_transfer_default),
(action => [
t8('Transfer in'),
- submit => [ '#form', { action_transfer_in => 1 } ],
+ submit => [ '#form', { action => "transfer_in"> 1 } ],
checks => [ @req_trans_desc, @transfer_qty ],
disabled => $::form->{delivered} ? t8('This record has already been delivered.') : undef,
]) x ($::form->{vc} eq 'vendor'),
(action => [
t8('Transfer in via default'),
- submit => [ '#form', { action_transfer_in_default => 1 } ],
+ submit => [ '#form', { action => "transfer_in_default" } ],
checks => [ @req_trans_desc, @transfer_qty ],
disabled => $::form->{delivered} ? t8('This record has already been delivered.') : undef,
]) x ($::form->{vc} eq 'vendor' && $::instance_conf->get_transfer_default),
action => [
t8('Invoice'),
- submit => [ '#form', { action_invoice => 1 } ],
+ submit => [ '#form', { action => "invoice" } ],
disabled => !$::form->{id} ? t8('This record has not been saved yet.') : undef,
],
action => [ t8('Export') ],
action => [
t8('Print'),
- submit => [ '#form', { action_print => 1 } ],
+ call => [ 'kivi.SalesPurchase.show_print_dialog' ],
checks => [ @req_trans_desc ],
],
action => [
$main::lxdebug->leave_sub();
}
-sub e_mail {
- $main::lxdebug->enter_sub();
-
- check_do_access();
-
- $::form->mtime_ischanged('delivery_orders','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 calculate_stock_in_out {
$main::lxdebug->enter_sub();
my $form = $main::form;
my $locale = $main::locale;
- foreach my $action (qw(update print e_mail save transfer_out transfer_out_default sort
+ foreach my $action (qw(update print save transfer_out transfer_out_default sort
transfer_in transfer_in_default mark_closed save_as_new invoice delete)) {
if ($form->{"action_${action}"}) {
call_sub($action);