Revision 06709046
Von Moritz Bunkus vor mehr als 4 Jahren hinzugefügt
| SL/Helper/CreatePDF.pm | ||
|---|---|---|
| 11 | 11 |
use File::Copy qw(move); |
| 12 | 12 |
use List::MoreUtils qw(uniq); |
| 13 | 13 |
use List::Util qw(first); |
| 14 |
use Scalar::Util qw(blessed); |
|
| 14 | 15 |
use String::ShellQuote (); |
| 15 | 16 |
|
| 16 | 17 |
use SL::Common; |
| ... | ... | |
| 20 | 21 |
use SL::System::Process; |
| 21 | 22 |
use SL::Template; |
| 22 | 23 |
use SL::Template::LaTeX; |
| 24 |
use SL::X; |
|
| 23 | 25 |
|
| 24 | 26 |
use Exporter 'import'; |
| 25 | 27 |
our @EXPORT_OK = qw(create_pdf merge_pdfs find_template); |
| ... | ... | |
| 69 | 71 |
$form->{tmpfile} = $tmpfile;
|
| 70 | 72 |
(undef, undef, $form->{template_meta}{tmpfile}) = File::Spec->splitpath($tmpfile);
|
| 71 | 73 |
|
| 74 |
my %driver_options; |
|
| 75 |
eval {
|
|
| 76 |
%driver_options = _maybe_attach_zugferd_data($params{record});
|
|
| 77 |
}; |
|
| 78 |
|
|
| 79 |
if (my $e = SL::X::ZUGFeRDValidation->caught) {
|
|
| 80 |
$form->cleanup; |
|
| 81 |
die $e->message; |
|
| 82 |
} |
|
| 83 |
|
|
| 72 | 84 |
my $parser = SL::Template::create( |
| 73 | 85 |
type => ($params{template_type} || 'LaTeX'),
|
| 74 | 86 |
source => $form->{IN},
|
| ... | ... | |
| 76 | 88 |
myconfig => \%::myconfig, |
| 77 | 89 |
userspath => $tmpdir, |
| 78 | 90 |
variable_content_types => $params{variable_content_types},
|
| 91 |
%driver_options, |
|
| 79 | 92 |
); |
| 80 | 93 |
|
| 81 | 94 |
my $result = $parser->parse($temp_fh); |
| ... | ... | |
| 250 | 263 |
return wantarray ? ($template, @template_files) : $template; |
| 251 | 264 |
} |
| 252 | 265 |
|
| 266 |
sub _maybe_attach_zugferd_data {
|
|
| 267 |
my ($record) = @_; |
|
| 268 |
|
|
| 269 |
return if !blessed($record) |
|
| 270 |
|| !$record->can('customer')
|
|
| 271 |
|| !$record->customer |
|
| 272 |
|| !$record->can('create_pdf_a_print_options')
|
|
| 273 |
|| !$record->can('create_zugferd_data')
|
|
| 274 |
|| !$record->customer->create_zugferd_invoices_for_this_customer; |
|
| 275 |
|
|
| 276 |
my $xmlfile = File::Temp->new; |
|
| 277 |
$xmlfile->print($record->create_zugferd_data); |
|
| 278 |
$xmlfile->close; |
|
| 279 |
|
|
| 280 |
my %driver_options = ( |
|
| 281 |
pdf_a => $record->create_pdf_a_print_options(zugferd_xmp_data => $record->create_zugferd_xmp_data), |
|
| 282 |
pdf_attachments => [ |
|
| 283 |
{ source => $xmlfile,
|
|
| 284 |
name => 'ZUGFeRD-invoice.xml', |
|
| 285 |
description => $::locale->text('ZUGFeRD invoice'),
|
|
| 286 |
relationship => '/Alternative', |
|
| 287 |
mime_type => 'text/xml', |
|
| 288 |
} |
|
| 289 |
], |
|
| 290 |
); |
|
| 291 |
|
|
| 292 |
return %driver_options; |
|
| 293 |
} |
|
| 294 |
|
|
| 253 | 295 |
1; |
| 254 | 296 |
__END__ |
| 255 | 297 |
|
Auch abrufbar als: Unified diff
ZUGFeRD: auch wiederkehrende Rechnungen mit ZUGFeRD-Infos erzeugen