Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 1795164f

Von Tamino Steinert vor mehr als 1 Jahr hinzugefügt

  • ID 1795164f1dc24f53f2afa37b88ecd56863b5396e
  • Vorgänger 72bf2cb7
  • Nachfolger 5e4821d5

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