projekt kivitendo

use SL::Webdav;

use SL::File;

use SL::DB::Helper::LinkedRecords;

sub process_attachments_as_purchase_invoices {

  my ($self) = @_;

  my $attachments = $self->attachments_sorted;

  foreach my $attachment (@$attachments) {

    my $ap_invoice = $attachment->create_ap_invoice();

    next unless $ap_invoice;

    # link to email journal

    $self->link_to_record($ap_invoice);

    # copy file to webdav folder

    if ($::instance_conf->get_webdav_documents) {

      my $webdav = SL::Webdav->new(

        type     => 'accounts_payable',

        number   => $ap_invoice->invnumber,

      );

      my $webdav_file = SL::Webdav::File->new(

        webdav => $webdav,

        filename => $attachment->name,

      );

      eval {

        $webdav_file->store(data => \$attachment->content);

        1;

      } or do {

        die 'Storing the ZUGFeRD file to the WebDAV folder failed: ' . $@;

      };

    }

    # copy file to doc storage

    if ($::instance_conf->get_doc_storage) {

      eval {

        SL::File->save(

          object_id     => $ap_invoice->id,

          object_type   => 'purchase_invoice',

          mime_type     => 'application/pdf',

          source        => 'uploaded',

          file_type     => 'document',

          file_name     => $attachment->name,

          file_contents => $attachment->content,

        );

        1;

      } or do {

        die 'Storing the ZUGFeRD file in the storage backend failed: ' . $@;

      };

    }

  }

  my $new_ext_status = join('_', $self->extended_status, 'processed');

  $self->update({ extended_status => $new_ext_status});

}

use XML::LibXML;

use SL::ZUGFeRD;

use SL::DB::PurchaseInvoice;

sub create_ap_invoice {

  my ($self) = @_;

  my $content = $self->content; # scalar ref

  return unless $content =~ m/^%PDF/;

  my $zugferd_info = SL::ZUGFeRD->extract_from_pdf($content);

  return unless $zugferd_info->{result} == SL::ZUGFeRD::RES_OK();

  my $zugferd_xml = XML::LibXML->load_xml(string => $zugferd_info->{invoice_xml});

  return SL::DB::PurchaseInvoice->create_from_zugferd_xml($zugferd_xml)->save();

}