X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/ff424b75f8f66c796eae294d0239f0440741e578..a6ce2c7f3f7ae10f7065fb86121c8d11049617ee:/bin/mozilla/is.pl diff --git a/bin/mozilla/is.pl b/bin/mozilla/is.pl index 8f8662f68..def63a961 100644 --- a/bin/mozilla/is.pl +++ b/bin/mozilla/is.pl @@ -285,7 +285,7 @@ sub setup_is_action_bar { checks => [ @req_trans_desc ], disabled => !$form->{id} ? t8('This invoice has not been posted yet.') : undef, ], - (action => [ t8('mark as paid'), + (action => [ t8('Mark as paid'), submit => [ '#form', { action_mark_as_paid => 1 } ], confirm => t8('This will remove the invoice from showing as unpaid even if the unpaid amount does not match the amount. Proceed?'), disabled => !$form->{id} ? t8('This invoice has not been posted yet.') : undef, @@ -344,7 +344,7 @@ sub setup_is_action_bar { disabled => !$form->{id} && $form->{locked} ? t8('The billing period has already been locked.') : undef, ], action => [ t8('E Mail'), - submit => [ '#form', { action_print => 1 } ], + call => [ 'kivi.SalesPurchase.show_email_dialog' ], checks => [ @req_trans_desc ], disabled => !$form->{id} ? t8('This invoice has not been posted yet.') : undef, ], @@ -461,15 +461,12 @@ sub form_header { $TMPL_VAR{dateformat} = $myconfig{dateformat}; $TMPL_VAR{numberformat} = $myconfig{numberformat}; - push @custom_hiddens, map { "shiptocvar_" . $_->name } @{ SL::DB::Manager::CustomVariableConfig->get_all(where => [ module => 'ShipTo' ]) }; - # hiddens $TMPL_VAR{HIDDENS} = [qw( - id type media format queued printed emailed title vc discount + id type queued printed emailed vc discount title creditlimit creditremaining tradediscount business closedto locked shipped storno storno_id max_dunning_level dunning_amount dunning_description - shiptoname shiptostreet shiptozipcode shiptocity shiptocountry shiptogln shiptocontact shiptophone shiptofax - shiptoemail shiptodepartment_1 shiptodepartment_2 shiptocp_gender message email subject cc bcc taxaccounts cursor_fokus + taxaccounts cursor_fokus convert_from_do_ids convert_from_oe_ids convert_from_ar_ids useasnew invoice_id show_details @@ -605,12 +602,13 @@ sub form_footer { is_type_credit_note => ($form->{type} eq "credit_note"), totalpaid => $totalpaid, paid_missing => $form->{invtotal} - $totalpaid, - print_options => print_options(inline => 1), + print_options => setup_sales_purchase_print_options(), show_storno => $form->{id} && !$form->{storno} && !IS->has_storno(\%myconfig, $form, "ar") && !$totalpaid, show_delete => ($::instance_conf->get_is_changeable == 2) ? ($form->current_date(\%myconfig) eq $form->{gldate}) : ($::instance_conf->get_is_changeable == 1), today => DateTime->today, + vc_obj => $form->{customer_id} ? SL::DB::Customer->load_cached($form->{customer_id}) : undef, }); ##print $form->parse_html_template('is/_payments'); # parser ##print $form->parse_html_template('webdav/_list'); # parser @@ -1190,35 +1188,9 @@ sub delete { $::form->error($::locale->text('Cannot delete invoice!')); } -sub post_and_e_mail { - e_mail(); -}; - -sub e_mail { - $main::lxdebug->enter_sub(); - - my $form = $main::form; - - $main::auth->assert('invoice_edit'); - - if (!$form->{id}) { - $form->{no_redirect_after_post} = 1; - - my $saved_form = save_form(); - - post(); - - restore_form($saved_form, 0, qw(id invnumber)); - } - - edit_e_mail(); - - $main::lxdebug->leave_sub(); -} - sub dispatcher { for my $action (qw( - print update ship_to e_mail storno post_payment use_as_new credit_note + print update ship_to storno post_payment use_as_new credit_note delete post order preview post_and_e_mail print_and_post mark_as_paid )) {