X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FController%2FLetter.pm;h=cfc1f6867176bca26cb973e0cae59ec499d7dcae;hb=6f90b1ba5d1301194ad12591a000794acd89449b;hp=14922a77a33220ff8541bcab8e6b8c11d303aa9d;hpb=3675add4feb3acce37e8e9fea1813f94c9a77e18;p=kivitendo-erp.git diff --git a/SL/Controller/Letter.pm b/SL/Controller/Letter.pm index 14922a77a..cfc1f6867 100644 --- a/SL/Controller/Letter.pm +++ b/SL/Controller/Letter.pm @@ -9,9 +9,11 @@ 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::Helper::Flash qw(flash flash_later); use SL::Helper::CreatePDF; use SL::Helper::PrintOptions; @@ -23,7 +25,7 @@ use SL::Webdav; use SL::Webdav::File; use Rose::Object::MakeMethods::Generic ( - 'scalar --get_set_init' => [ qw(letter all_employees models) ], + 'scalar --get_set_init' => [ qw(letter all_employees models webdav_objects is_sales) ], ); __PACKAGE__->run_before('check_auth_edit'); @@ -36,10 +38,13 @@ my %sort_columns = ( date => t8('Date'), subject => t8('Subject'), letternumber => t8('Letternumber'), - vc_id => t8('Customer'), + customer_id => t8('Customer'), + vendor_id => t8('Vendor'), contact => t8('Contact'), ); +### actions + sub action_add { my ($self, %params) = @_; @@ -60,8 +65,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,7 +101,7 @@ sub action_update_contacts { my $letter = $self->letter; - if (!$self->letter->vc_id || !$self->letter->customer) { + if (!$self->letter->has_customer_vendor) { return $self->js ->replaceWith( '#letter_cp_id', @@ -103,12 +110,12 @@ sub action_update_contacts { ->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->vc_id) { + && $letter->contact->cp_cv_id == $letter->customer_vendor_id) { $default = $letter->contact->cp_id; } else { $default = ''; @@ -178,37 +185,6 @@ sub action_print_letter { 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->vc_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 ($template_file, @template_files) = SL::Helper::CreatePDF->find_template( name => 'letter', printer_id => $::form->{printer_id}, @@ -221,20 +197,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::Language->new, + 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, + }, + ); - $::form->{letternumber} = $self->letter->letternumber; + die $result{error} if $result{error}; + + $::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 +227,11 @@ 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}); } # set some form defaults for printing webdav copy variables @@ -255,23 +240,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, + $mail->{attachments} = [{ filename => $result{file_name}, name => $params{email}->{attachment_filename} }]; $mail->{message} .= "\n-- \n$signature"; $mail->{message} =~ s/\r//g; $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 +264,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,7 +293,10 @@ sub action_skip_draft { sub action_delete_drafts { my ($self) = @_; - delete_letter_drafts(); + + my @ids = @{ $::form->{ids} || [] }; + SL::DB::Manager::LetterDraft->delete_all(where => [ id => \@ids ]) if @ids; + $self->action_add(skip_drafts => 1); } @@ -355,6 +343,8 @@ sub action_send_email { ); } +### internal methods + sub _display { my ($self, %params) = @_; @@ -365,12 +355,13 @@ sub _display { $params{title} ||= t8('Edit Letter'); $::form->{type} = 'letter'; # needed for print_options - $::form->{vc} = 'customer'; # needs to be for _get_contacts... + $::form->{vc} = $letter->is_sales ? 'customer' : 'vendor'; # needs to be for _get_contacts... $::request->layout->add_javascripts('customer_or_vendor_selection.js'); $::request->layout->add_javascripts('edit_part_window.js'); $::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->render('letter/edit', @@ -405,8 +396,8 @@ sub prepare_report { my $report = SL::ReportGenerator->new(\%::myconfig, $::form); $self->{report} = $report; - my @columns = qw(date subject letternumber vc_id contact date); - my @sortable = qw(date subject letternumber vc_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 +405,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) } }, - vc_id => { text => t8('Customer'), sub => sub { SL::DB::Manager::Customer->find_by_or_create(id => $_[0]->vc_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 : '' } }, ); @@ -432,10 +424,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,7 +477,11 @@ 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; @@ -571,7 +568,7 @@ sub init_letter { ->assign_attributes(%{ $::form->{letter} }); if ($letter->cp_id) { -# $letter->vc_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 +577,8 @@ sub init_letter { # )); } + $self->is_sales($letter->is_sales) if $letter->id; + $letter; } @@ -589,6 +588,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' ], ); @@ -598,6 +600,32 @@ sub init_all_employees { SL::DB::Manager::Employee->get_all(query => [ deleted => 0 ]); } +sub init_webdav_objects { + my ($self) = @_; + + return [] if !$self->letter || !$self->letter->letternumber || !$::instance_conf->get_webdav; + + my $webdav = SL::Webdav->new( + type => 'letter', + 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->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'); } @@ -620,14 +648,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