projekt kivitendo

sub bank_transfer_download_sepa_docs {

  $main::lxdebug->enter_sub();

  my $form     =  $main::form;

  my $defaults = SL::DB::Default->get;

  my $locale   =  $main::locale;

  my $vc       = $form->{vc} eq 'customer' ? 'customer' : 'vendor';

  if (!$defaults->doc_storage) {

    $form->show_generic_error($locale->text('Doc Storage is not enabled'));

  }

  my @ids;

  if ($form->{mode} && ($form->{mode} eq 'multi')) {

     @ids = @{ $form->{ids} || [] };

  } else {

    @ids = ($form->{id});

  }

  if (!@ids) {

    $form->show_generic_error($locale->text('You have not selected any export.'));

  }

  my @items = ();

  foreach my $id (@ids) {

    my $export = SL::SEPA->retrieve_export('id' => $id, 'details' => 1, vc => $vc);

    push @items, @{ $export->{items} } if ($export);

  }

  my @files;

  foreach my $item (@items) {

    # check if there is already a file for the invoice

    # File::get_all and converting to scalar is a tiny bit stupid, see Form.pm,

    # but there is no get_latest_version (but sorts objects by itime!)

    # check if already resynced

    my ( $file_object ) = SL::File->get_all(object_id   => $item->{ap_id} ? $item->{ap_id} : $item->{ar_id},

                                            object_type => $item->{ap_id} ? 'purchase_invoice' : 'invoice',

                                            file_type   => 'document',

                                           );

    next if     (ref $file_object ne 'SL::File::Object');

    next unless $file_object->mime_type eq 'application/pdf';

    my $file = $file_object->get_file;

    die "No file" unless -e $file;

    push @files, $file;

  }

  my $inputfiles  = join " ", @files;

  my $downloadname = $locale->text('SEPA XML Docs for Exports ') . (join " ", @ids) . ".pdf";

  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;

  print $::form->create_http_response(content_type        => 'Application/PDF',

                                      content_disposition => 'attachment; filename="'. $downloadname . '"');

  $::locale->with_raw_io(\*STDOUT, sub { print while <$in> });

  $in->close;

  $main::lxdebug->leave_sub();

}

                         bank_transfer_payment_list_as_pdf bank_transfer_undo_sepa_xml

                         bank_transfer_download_sepa_docs)) {