X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FController%2FLetter.pm;h=4da3e1918dfac81e6020a27ea78c63b0e8503bb8;hb=a27846ef2756ed0f59c29d256a5d43d6caaf0b58;hp=e9fe6cf7567c0710a941d7313b2dd52f37795a8f;hpb=7196276bca4a155d1bcc3947859bc7d4ec1edcd6;p=kivitendo-erp.git diff --git a/SL/Controller/Letter.pm b/SL/Controller/Letter.pm index e9fe6cf75..4da3e1918 100644 --- a/SL/Controller/Letter.pm +++ b/SL/Controller/Letter.pm @@ -9,21 +9,25 @@ use POSIX qw(strftime); use SL::Controller::Helper::GetModels; use SL::Controller::Helper::ReportGenerator; use SL::CT; +use SL::DB::Employee; +use SL::DB::Language; use SL::DB::Letter; use SL::DB::LetterDraft; -use SL::DB::Employee; +use SL::DB::Printer; +use SL::File; use SL::Helper::Flash qw(flash flash_later); use SL::Helper::CreatePDF; use SL::Helper::PrintOptions; use SL::Locale::String qw(t8); use SL::Mailer; use SL::IS; +use SL::Presenter::Tag qw(select_tag); use SL::ReportGenerator; use SL::Webdav; use SL::Webdav::File; use Rose::Object::MakeMethods::Generic ( - 'scalar --get_set_init' => [ qw(letter all_employees models webdav_objects) ], + 'scalar --get_set_init' => [ qw(letter all_employees models webdav_objects is_sales) ], ); __PACKAGE__->run_before('check_auth_edit'); @@ -37,9 +41,12 @@ my %sort_columns = ( subject => t8('Subject'), letternumber => t8('Letternumber'), customer_id => t8('Customer'), + vendor_id => t8('Vendor'), contact => t8('Contact'), ); +### actions + sub action_add { my ($self, %params) = @_; @@ -60,8 +67,10 @@ sub action_edit { return $self->action_add unless $::form->{letter} || $::form->{draft}; - $self->letter(SL::DB::Letter->new_from_draft($::form->{draft}{id})) - if $::form->{draft}; + if ($::form->{draft}) { + $self->letter(SL::DB::Letter->new_from_draft($::form->{draft}{id})); + $self->is_sales($self->letter->is_sales); + } $self->_display( title => t8('Edit Letter'), @@ -94,21 +103,21 @@ sub action_update_contacts { my $letter = $self->letter; - if (!$self->letter->customer_id || !$self->letter->customer) { + if (!$self->letter->has_customer_vendor) { return $self->js ->replaceWith( '#letter_cp_id', - SL::Presenter->get->select_tag('letter.cp_id', [], value_key => 'cp_id', title_key => 'full_name') + select_tag('letter.cp_id', [], value_key => 'cp_id', title_key => 'full_name') ) ->render; } - my $contacts = $letter->customer->contacts; + my $contacts = $letter->customer_vendor->contacts; my $default; if ( $letter->contact && $letter->contact->cp_cv_id - && $letter->contact->cp_cv_id == $letter->customer_id) { + && $letter->contact->cp_cv_id == $letter->customer_vendor_id) { $default = $letter->contact->cp_id; } else { $default = ''; @@ -117,7 +126,7 @@ sub action_update_contacts { $self->js ->replaceWith( '#letter_cp_id', - SL::Presenter->get->select_tag('letter.cp_id', $contacts, default => $default, value_key => 'cp_id', title_key => 'full_name') + select_tag('letter.cp_id', $contacts, default => $default, value_key => 'cp_id', title_key => 'full_name') ) ->render; } @@ -143,7 +152,7 @@ sub action_delete { my ($self, %params) = @_; if (!$self->letter->delete) { - flash('error', t8('An error occured. Letter could not be deleted.')); + flash('error', t8('An error occurred. Letter could not be deleted.')); return $self->action_update; } @@ -164,6 +173,7 @@ sub action_delete_letter_drafts { sub action_list { my ($self, %params) = @_; + $self->setup_list_action_bar; $self->make_filter_summary; $self->prepare_report; @@ -175,39 +185,7 @@ sub action_list { sub action_print_letter { my ($self, %params) = @_; - my $display_form = $::form->{display_form} || "display_form"; - my $letter = $self->_update; - - $self->export_letter_to_form($letter); - $::form->{formname} = "letter"; - $::form->{type} = "letter"; - $::form->{format} = "pdf"; - - my $language_saved = $::form->{language_id}; - my $greeting_saved = $::form->{greeting}; - my $cp_id_saved = $::form->{cp_id}; - - $::form->{customer_id} = $self->letter->customer_id; - IS->customer_details(\%::myconfig, $::form); - - if (!$cp_id_saved) { - # No contact was selected. Delete all contact variables because - # IS->customer_details() and IR->vendor_details() get the default - # contact anyway. - map({ delete($::form->{$_}); } grep(/^cp_/, keys(%{ $::form }))); - } - - $::form->{greeting} = $greeting_saved; - $::form->{language_id} = $language_saved; - - if ($::form->{cp_id}) { - CT->get_contact(\%::myconfig, $::form); - } - - $::form->{cp_contact_formal} = ($::form->{cp_greeting} ? "$::form->{cp_greeting} " : '') . ($::form->{cp_givenname} ? "$::form->{cp_givenname} " : '') . $::form->{cp_name}; - - $::form->get_employee_data('prefix' => 'employee', 'id' => $letter->{employee_id}); - $::form->get_employee_data('prefix' => 'salesman', 'id' => $letter->{salesman_id}); + my $letter = $self->_update; my ($template_file, @template_files) = SL::Helper::CreatePDF->find_template( name => 'letter', @@ -221,20 +199,29 @@ sub action_print_letter { $::form->error($::locale->text('Cannot find matching template for this print request. Please contact your template maintainer. I tried these: #1.', join ', ', map { "'$_'"} @template_files)); } - my %create_params = ( - template => $template_file, - variables => $::form, - return => 'file_name', - variable_content_types => { - body => 'html', - }, - ); - - my $pdf_file_name; + my %result; eval { - $pdf_file_name = SL::Helper::CreatePDF->create_pdf(%create_params); + %result = SL::Template::LaTeX->parse_and_create_pdf( + $template_file, + SELF => $self, + FORM => $::form, + letter => $letter, + template_meta => { + formname => 'letter', + language => SL::DB::Manager::Language->find_by_or_create(id => $::form->{language_id}*1), + extension => 'pdf', + format => $::form->{format}, + media => $::form->{media}, + printer => SL::DB::Manager::Printer->find_by_or_create(id => $::form->{printer_id} || undef), + today => DateTime->today, + }, + ); + + die $result{error} if $result{error}; - $::form->{letternumber} = $self->letter->letternumber; + $::form->{type} = 'letter'; + $::form->{formname} = 'letter'; + $::form->{letternumber} = $letter->letternumber; my $attachment_name = $::form->generate_attachment_filename; if ($::instance_conf->get_webdav_documents) { @@ -242,11 +229,22 @@ sub action_print_letter { filename => $attachment_name, webdav => SL::Webdav->new( type => 'letter', - number => $self->letter->letternumber, + number => $letter->letternumber, ), ); - $webdav_file->store(file => $pdf_file_name); + $webdav_file->store(file => $result{file_name}); + } + + if ($::instance_conf->get_doc_storage) { + my %save_params = (object_id => $letter->id, + object_type => 'letter', + mime_type => 'application/pdf', + source => 'created', + file_type => 'document', + file_name => $attachment_name, + file_path => $result{file_name}); + SL::File->save(%save_params); } # set some form defaults for printing webdav copy variables @@ -255,23 +253,23 @@ sub action_print_letter { my $signature = $::myconfig{signature}; $mail->{$_} = $params{email}->{$_} for qw(to cc subject message bcc); $mail->{from} = qq|"$::myconfig{name}" <$::myconfig{email}>|; - $mail->{attachments} = [{ filename => $pdf_file_name, - name => $params{email}->{attachment_filename} }]; + $mail->{attachments} = [{ path => $result{file_name}, + name => $params{email}->{attachment_filename} }]; $mail->{message} .= "\n-- \n$signature"; $mail->{message} =~ s/\r//g; - + $mail->{record_id} = $letter->id; $mail->send; - unlink $pdf_file_name; + unlink $result{file_name}; flash_later('info', t8('The email has been sent.')); - $self->redirect_to(action => 'edit', 'letter.id' => $self->letter->id); + $self->redirect_to(action => 'edit', 'letter.id' => $letter->id); return 1; } if (!$::form->{printer_id} || $::form->{media} eq 'screen') { - $self->send_file($pdf_file_name, name => $attachment_name); - unlink $pdf_file_name; + $self->send_file($result{file_name}, name => $attachment_name); + unlink $result{file_name}; return 1; } @@ -279,16 +277,16 @@ sub action_print_letter { my $printer = SL::DB::Printer->new(id => $::form->{printer_id})->load; $printer->print_document( copies => $::form->{copies}, - file_name => $pdf_file_name, + file_name => $result{file_name}, ); - unlink $pdf_file_name; + unlink $result{file_name}; flash_later('info', t8('The documents have been sent to the printer \'#1\'.', $printer->printer_description)); - $self->redirect_to(action => 'edit', 'letter.id' => $self->letter->id, media => 'printer', printer_id => $::form->{printer_id}); + $self->redirect_to(action => 'edit', 'letter.id' => $letter->id, media => 'printer', printer_id => $::form->{printer_id}); 1; } or do { - unlink $pdf_file_name if $pdf_file_name; + unlink $result{file_name} if $result{file_name}; $::form->error(t8("Creating the PDF failed:") . " " . $@); }; } @@ -308,71 +306,39 @@ sub action_skip_draft { sub action_delete_drafts { my ($self) = @_; - delete_letter_drafts(); - $self->action_add(skip_drafts => 1); -} - -sub action_edit_email { - my ($self) = @_; - my $letter = $self->_update; - $self->export_letter_to_form($letter); - - $::form->{formname} = "letter"; - $::form->{type} = "letter"; - $::form->{letternumber} = $self->letter->letternumber; - - my @hiddens = map { - my $value = $letter->$_; - $value = $value->to_kivitendo if ref($_) =~ m{Date}; - - { name => "letter.$_", value => $value } - } ($letter->meta->columns); - - my %vars = ( - script => 'controller.pl', - title => t8('Send letter via e-mail'), - email => $letter->contact ? $letter->contact->cp_email : '', - subject => $::form->generate_email_subject, - a_filename => $::form->generate_attachment_filename, - action => 'Letter/send_email', - HIDDEN => \@hiddens, - SHOW_BCC => $::auth->assert('email_bcc', 'may fail'), - ); + my @ids = @{ $::form->{ids} || [] }; + SL::DB::Manager::LetterDraft->delete_all(where => [ id => \@ids ]) if @ids; - $self->render('generic/edit_email', %vars); + $self->action_add(skip_drafts => 1); } sub action_send_email { my ($self) = @_; $::form->{media} = 'email'; - $self->action_print_letter( - email => { - to => $::form->{email}, - map { ($_ => $::form->{$_}) } qw(cc bcc subject attachment_filename message) - } - ); + $self->action_print_letter(email => $::form->{email_form}); } +### internal methods + sub _display { my ($self, %params) = @_; - $::request->{layout}->use_javascript("${_}.js") for qw(ckeditor/ckeditor ckeditor/adapters/jquery); + $::request->{layout}->use_javascript("${_}.js") for qw(ckeditor/ckeditor ckeditor/adapters/jquery kivi.Letter kivi.SalesPurchase kivi.File); my $letter = $self->letter; $params{title} ||= t8('Edit Letter'); $::form->{type} = 'letter'; # needed for print_options - $::form->{vc} = 'customer'; # needs to be for _get_contacts... - - $::request->layout->add_javascripts('customer_or_vendor_selection.js'); - $::request->layout->add_javascripts('edit_part_window.js'); + $::form->{vc} = $letter->is_sales ? 'customer' : 'vendor'; # needs to be for _get_contacts... $::form->{language_id} ||= $params{language_id}; + $::form->{languages} ||= SL::DB::Manager::Language->get_all_sorted; $::form->{printers} = SL::DB::Manager::Printer->get_all_sorted; + $self->setup_display_action_bar; $self->render('letter/edit', %params, TCF => [ map { key => $_, value => t8(ucfirst $_) }, TEXT_CREATED_FOR_VALUES() ], @@ -383,7 +349,9 @@ sub _display { options => { no_postscript => 1, no_opendocument => 1, no_html => 1, - no_queue => 1 }), + no_queue => 1, + show_headers => 1, + }), ); } @@ -405,8 +373,8 @@ sub prepare_report { my $report = SL::ReportGenerator->new(\%::myconfig, $::form); $self->{report} = $report; - my @columns = qw(date subject letternumber customer_id contact date); - my @sortable = qw(date subject letternumber customer_id contact date); + my @columns = qw(date subject letternumber customer_id vendor_id contact date); + my @sortable = qw(date subject letternumber customer_id vendor_id contact date); my %column_defs = ( date => { text => t8('Date'), sub => sub { $_[0]->date_as_date } }, @@ -414,7 +382,8 @@ sub prepare_report { obj_link => sub { $self->url_for(action => 'edit', 'letter.id' => $_[0]->id, callback => $self->models->get_callback) } }, letternumber => { text => t8('Letternumber'), sub => sub { $_[0]->letternumber }, obj_link => sub { $self->url_for(action => 'edit', 'letter.id' => $_[0]->id, callback => $self->models->get_callback) } }, - customer_id => { text => t8('Customer'), sub => sub { SL::DB::Manager::Customer->find_by_or_create(id => $_[0]->customer_id)->displayable_name } }, + customer_id => { text => t8('Customer'), sub => sub { SL::DB::Manager::Customer->find_by_or_create(id => $_[0]->customer_id)->displayable_name }, visible => $self->is_sales }, + vendor_id => { text => t8('Vendor'), sub => sub { SL::DB::Manager::Vendor->find_by_or_create(id => $_[0]->vendor_id)->displayable_name }, visible => !$self->is_sales}, contact => { text => t8('Contact'), sub => sub { $_[0]->contact ? $_[0]->contact->full_name : '' } }, ); @@ -424,7 +393,6 @@ sub prepare_report { std_column_visibility => 1, controller_class => 'Letter', output_format => 'HTML', - top_info_text => t8('Letters'), title => t8('Letters'), allow_pdf_export => 1, allow_csv_export => 1, @@ -432,10 +400,11 @@ sub prepare_report { $report->set_columns(%column_defs); $report->set_column_order(@columns); - $report->set_export_options(qw(list filter)); + $report->set_export_options(qw(list filter is_sales)); $report->set_options_from_form; $self->models->disable_plugin('paginated') if $report->{options}{output_format} =~ /^(pdf|csv)$/i; + $self->models->add_additional_url_params(is_sales => $self->is_sales); $self->models->finalize; $self->models->set_report_generator_sort_options(report => $report, sortable_columns => \@sortable); @@ -484,10 +453,15 @@ sub load_letter_draft { return 0 if $params{skip_drafts}; - my $letter_drafts = SL::DB::Manager::LetterDraft->get_all; + my $letter_drafts = SL::DB::Manager::LetterDraft->get_all( + query => [ + SL::DB::Manager::Letter->is_sales_filter($self->is_sales), + ] + ); return unless @$letter_drafts; + $self->setup_load_letter_draft_action_bar; $self->render('letter/load_drafts', title => t8('Letter Draft'), LETTER_DRAFTS => $letter_drafts, @@ -549,21 +523,6 @@ sub set_greetings { $letter->greeting(t8('Dear Sir or Madam,')); } -sub export_letter_to_form { - my ($self, $letter) = @_; - # nope, not pretty. - - $letter ||= $self->letter; - - for ($letter->meta->columns) { - if ((ref $_) =~ /Date/i) { - $::form->{$_->name} = $letter->$_->to_kivitendo; - } else { - $::form->{$_->name} = $letter->$_; - } - } -} - sub init_letter { my ($self) = @_; @@ -571,7 +530,7 @@ sub init_letter { ->assign_attributes(%{ $::form->{letter} }); if ($letter->cp_id) { -# $letter->customer_id($letter->contact->cp_cv_id); +# $letter->customer_vendor_id($letter->contact->cp_cv_id); # contacts don't have language_id yet # $letter->greeting(GenericTranslations->get( # translation_type => 'greetings::' . ($letter->contact->cp_gender eq 'f' ? 'female' : 'male'), @@ -580,6 +539,8 @@ sub init_letter { # )); } + $self->is_sales($letter->is_sales) if $letter->id; + $letter; } @@ -589,6 +550,9 @@ sub init_models { SL::Controller::Helper::GetModels->new( controller => $self, model => 'Letter', + query => [ + SL::DB::Manager::Letter->is_sales_filter($self->is_sales), + ], sorted => \%sort_columns, with_objects => [ 'contact', 'salesman', 'employee' ], ); @@ -608,23 +572,109 @@ sub init_webdav_objects { number => $self->letter->letternumber, ); - my $webdav_path = $webdav->webdav_path; my @all_objects = $webdav->get_all_objects; return [ map { +{ name => $_->filename, type => t8('File'), - link => File::Spec->catdir($webdav_path, $_->filename), + link => File::Spec->catfile($_->full_filedescriptor), } } @all_objects ]; } +sub init_is_sales { + die 'is_sales must be set' unless defined $::form->{is_sales}; + $::form->{is_sales}; +} + sub check_auth_edit { - $::auth->assert('sales_letter_edit'); + $::form->{is_sales} ? $::auth->assert('sales_letter_edit') + : $::auth->assert('purchase_letter_edit'); } sub check_auth_report { - $::auth->assert('sales_letter_report'); + $::form->{is_sales} ? $::auth->assert('sales_letter_report') + : $::auth->assert('purchase_letter_report'); +} + +sub setup_load_letter_draft_action_bar { + my ($self, %params) = @_; + + for my $bar ($::request->layout->get('actionbar')) { + $bar->add( + link => [ + t8('Skip'), + link => $self->url_for(action => 'skip_draft', is_sales => $self->is_sales), + accesskey => 'enter', + ], + action => [ + t8('Delete'), + submit => [ '#form', { action => 'delete_drafts' } ], + checks => [ [ 'kivi.check_if_entries_selected', '[name="ids[+]"]' ] ], + confirm => t8('Do you really want to delete this draft?'), + ], + ); + } +} + +sub setup_display_action_bar { + my ($self, %params) = @_; + + for my $bar ($::request->layout->get('actionbar')) { + $bar->add( + action => [ + t8('Update'), + submit => [ '#form', { action => 'Letter/update' } ], + accesskey => 'enter', + ], + + combobox => [ + action => [ + t8('Save'), + submit => [ '#form', { action => 'Letter/save' } ], + ], + action => [ + t8('Save Draft'), + submit => [ '#form', { action => 'Letter/save_letter_draft' } ], + ], + ], # end of combobox "Save" + + action => [ + t8('Delete'), + submit => [ '#form', { action => 'Letter/delete' } ], + confirm => t8('Are you sure you want to delete this letter?'), + disabled => !$self->letter->id ? t8('The object has not been saved yet.') : undef, + ], + + combobox => [ + action => [ t8('Export') ], + action => [ + t8('Print'), + call => [ 'kivi.SalesPurchase.show_print_dialog', 'Letter/print_letter' ], + disabled => !$self->letter->id ? t8('The object has not been saved yet.') : undef, + ], + action => [ + t8('E-mail'), + call => [ 'kivi.SalesPurchase.show_email_dialog', 'Letter/send_email' ], + disabled => !$self->letter->id ? t8('The object has not been saved yet.') : undef, + ], + ], + ); + } +} + +sub setup_list_action_bar { + my ($self, %params) = @_; + + for my $bar ($::request->layout->get('actionbar')) { + $bar->add( + action => [ + t8('Update'), + submit => [ '#search_form', { action => 'Letter/list' } ], + accesskey => 'enter', + ], + ); + } } 1; @@ -641,14 +691,8 @@ SL::Controller::Letter - Letters CRUD and printing Simple letter CRUD controller with drafting capabilities. -=head1 TODO - - Customer/Vendor switch for dealing with vendor letters - copy to webdav is crap -customer/vendor stuff - =head1 AUTHOR Sven Schöling Es.schoeling@linet-services.deE