Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision e4d72be2

Von Tamino Steinert vor mehr als 1 Jahr hinzugefügt

  • ID e4d72be279aaeda0532a673a06cae1454d4f00a5
  • Vorgänger 9b8a38b3
  • Nachfolger eb60713e

ImportRecordEmails: BJ zum importieren von Emails als Beleg-Grundlage

Verallgemeinerung und Ersetzung von BJ "ImportPurchaseInvoiceEmails"

Unterschiede anzeigen:

SL/DB/EmailJournalAttachment.pm
use strict;
use XML::LibXML;
use SL::ZUGFeRD;
use SL::DB::PurchaseInvoice;
use SL::DB::MetaSetup::EmailJournalAttachment;
use SL::DB::Manager::EmailJournalAttachment;
......
__PACKAGE__->meta->initialize;
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();
}
1;

Auch abrufbar als: Unified diff