use SL::Webdav;
use File::Copy;
+use File::Slurp qw(read_file);
use strict;
$form->{DUNNING_PDFS_STORAGE} = [];
- my $rc = SL::DB->client->with_transaction(\&_save_dunning, $self, $myconfig, $form, $rows);
+ # Catch any error, either exception or a call to form->error
+ # and return it to the calling function.
+ my ($error, $rc);
+ eval {
+ local $form->{__ERROR_HANDLER} = sub { die @_ };
+ $rc = SL::DB->client->with_transaction(\&_save_dunning, $self, $myconfig, $form, $rows);
+ 1;
+ } or do {
+ $error = $@;
+ };
# Save PDFs in filemanagement and webdav after transation succeeded,
# because otherwise files in the storage may exists if the transaction
_store_pdf_to_webdav_and_filemanagement($_->{dunning_id}, $_->{path}, $_->{name}) for @{ $form->{DUNNING_PDFS_STORAGE} };
}
- if (!$rc) {
- die SL::DB->client->error
- }
+ $error = 'unknown errror' if !$error && !$rc;
+ $rc->{error} = $error if $error;
+
$::lxdebug->leave_sub;
return $rc;
}
# die this transaction, because for this customer only credit notes are
# selected ...
- return unless $customer_id;
+ die "only credit notes are selected for this customer\n" unless $customer_id;
$h_update_ar->finish();
$h_insert_dunning->finish();
$self->send_email($myconfig, $form, $dunning_id, $dbh);
}
- return 1;
+ return ({dunning_id => $dunning_id, print_original_invoice => $print_invoice, send_email => $send_email});
}
sub send_email {
} or die $main::locale->text('No email for user with login #1 defined.', $ref->{invoice_employee_login});
}
+ my $html_template = SL::Template::create(type => 'HTML', form => $form, myconfig => $myconfig);
+ $html_template->set_tag_style('<%', '%>');
+
my $template = SL::Template::create(type => 'PlainText', form => $form, myconfig => $myconfig);
my $mail = Mailer->new();
$mail->{bcc} = $form->get_bcc_defaults($myconfig, $form->{bcc});
$mail->{from} = $from;
$mail->{to} = $ref->{recipient};
$mail->{subject} = $template->parse_block($ref->{email_subject});
- $mail->{message} = $template->parse_block($ref->{email_body});
+ $mail->{message} = $html_template->parse_block($ref->{email_body});
+ $mail->{content_type} = 'text/html';
my $sign_backup = $::myconfig{signature};
$::myconfig{signature} = $sign if $sign;
$mail->{message} .= $form->create_email_signature();
$mail->{attachments} = $form->{DUNNING_PDFS_EMAIL};
}
+ $query = qq|SELECT id FROM dunning WHERE dunning_id = ?|;
+ my @ids = selectall_array_query($form, $dbh, $query, $dunning_id);
+ $mail->{record_id} = \@ids;
+ $mail->{record_type} = 'dunning';
+
$mail->send();
$main::lxdebug->leave_sub();
ct.name AS customername, ct.id AS customer_id, a.duedate, da.fee,
da.interest, dn.dunning_description, dn.dunning_level, da.transdate AS dunning_date,
da.duedate AS dunning_duedate, da.dunning_id, da.dunning_config_id,
+ da.id AS dunning_table_id,
e2.name AS salesman
FROM ar a
JOIN customer ct ON (a.customer_id = ct.id)
$main::lxdebug->enter_sub();
- my ($self, $myconfig, $form, $copies) = @_;
+ my ($self, $myconfig, $form, $copies, %params) = @_;
# Don't allow access outside of $spool.
map { $_ =~ s|.*/||; } @{ $form->{DUNNING_PDFS} };
my $in = IO::File->new($::lx_office_conf{applications}->{ghostscript} . " -dBATCH -dNOPAUSE -q -sDEVICE=pdfwrite -sOutputFile=- $inputfiles |");
$form->error($main::locale->text('Could not spawn ghostscript.')) unless $in;
- if ($form->{media} eq 'printer') {
- $form->get_printer_code($myconfig);
- my $out;
- if ($form->{printer_command}) {
- $out = IO::File->new("| $form->{printer_command}");
- }
+ my $dunning_filename = $form->get_formname_translation('dunning');
+ my $attachment_filename = "${dunning_filename}_${dunning_id}.pdf";
+ my $content;
+ if ($params{return_content}) {
+ $content = read_file($in);
- $::locale->with_raw_io($out, sub { $out->print($_) while <$in> });
+ } else {
+ if ($form->{media} eq 'printer') {
+ $form->get_printer_code($myconfig);
+ my $out;
+ if ($form->{printer_command}) {
+ $out = IO::File->new("| $form->{printer_command}");
+ }
- $form->error($main::locale->text('Could not spawn the printer command.')) unless $out;
+ $form->error($main::locale->text('Could not spawn the printer command.')) unless $out;
- } else {
- my $dunning_filename = $form->get_formname_translation('dunning');
- print qq|Content-Type: Application/PDF\n| .
- qq|Content-Disposition: attachment; filename="${dunning_filename}_${dunning_id}.pdf"\n\n|;
+ $::locale->with_raw_io($out, sub { $out->print($_) while <$in> });
- $::locale->with_raw_io(\*STDOUT, sub { print while <$in> });
+ } else {
+ print qq|Content-Type: Application/PDF\n| .
+ qq|Content-Disposition: attachment; filename=$attachment_filename\n\n|;
+
+ $::locale->with_raw_io(\*STDOUT, sub { print while <$in> });
+ }
}
$in->close();
map { unlink("$spool/$_") } @{ $form->{DUNNING_PDFS} };
$main::lxdebug->leave_sub();
+ return ($attachment_filename, $content) if $params{return_content};
}
sub print_dunning {
c.country, c.department_1, c.department_2, c.email, c.customernumber,
c.greeting, c.contact, c.phone, c.fax, c.homepage,
c.email, c.taxincluded, c.business_id, c.taxnumber, c.iban,
- c.ustid,
+ c.ustid, c.currency_id, curr.name as currency,
ar.id AS invoice_id,
co.*
FROM dunning d
LEFT JOIN customer c ON (ar.customer_id = c.id)
LEFT JOIN contacts co ON (ar.cp_id = co.cp_id)
LEFT JOIN employee e ON (ar.salesman_id = e.id)
+ LEFT JOIN currencies curr ON (c.currency_id = curr.id)
WHERE (d.dunning_id = ?)
LIMIT 1|;
my $ref = selectfirst_hashref_query($form, $dbh, $query, $dunning_id);
delete $form->{tmpfile};
- push @{ $form->{DUNNING_PDFS} } , $filename;
- push @{ $form->{DUNNING_PDFS_EMAIL} } , { 'path' => "${spool}/$filename",
- 'name' => $form->get_formname_translation('dunning') . "_${dunning_id}.pdf" };
- push @{ $form->{DUNNING_PDFS_STORAGE} }, { 'dunning_id' => $dunning_id,
- 'path' => "${spool}/$filename",
- 'name' => $form->get_formname_translation('dunning') . "_${dunning_id}.pdf" };
-
my $employee_id = ($::instance_conf->get_dunning_creator eq 'invoice_employee') ?
$form->{employee_id} :
SL::DB::Manager::Employee->current->id;
# this generates the file in the spool directory
$form->parse_template($myconfig);
+ push @{ $form->{DUNNING_PDFS} } , $filename;
+ push @{ $form->{DUNNING_PDFS_EMAIL} } , { 'path' => "${spool}/$filename",
+ 'name' => $form->get_formname_translation('dunning') . "_${dunning_id}.pdf" };
+ push @{ $form->{DUNNING_PDFS_STORAGE} }, { 'dunning_id' => $dunning_id,
+ 'path' => "${spool}/$filename",
+ 'name' => $form->get_formname_translation('dunning') . "_${dunning_id}.pdf" };
+
$main::lxdebug->leave_sub();
}
$self->set_customer_cvars($myconfig, $form);
$self->set_template_options($myconfig, $form);
- my $filename = Common::unique_id() . "dunning_invoice_${dunning_id}.pdf";
+ my $filename = Common::unique_id() . "dunning_invoice_" . $form->{invnumber} . ".pdf";
my $spool = $::lx_office_conf{paths}->{spool};
$form->{OUT} = "$spool/$filename";
map { delete $form->{$_} } grep /^[a-z_]+_\d+$/, keys %{ $form };
- my $attachment_filename = $form->get_formname_translation('dunning_invoice') . "_${dunning_id}.pdf";
+ my $attachment_filename = $form->get_formname_translation('dunning_invoice') . "_" . $form->{invnumber} . ".pdf";
$form->{attachment_filename} = $attachment_filename;
$form->{attachment_type} = "dunning";
$form->{attachment_id} = $invoice_id;
longdescription => 'html',
partnotes => 'html',
notes => 'html',
+ $print_form->get_variable_content_types_for_cvars,
},
);