Revision f05c4f4d
Von Tamino Steinert vor mehr als 1 Jahr hinzugefügt
| SL/DB/PurchaseInvoice.pm | ||
|---|---|---|
|
use SL::DB::Helper::Payment qw(:ALL);
|
||
|
use SL::DB::Helper::RecordLink qw(RECORD_ID RECORD_TYPE_REF RECORD_ITEM_ID RECORD_ITEM_TYPE_REF);
|
||
|
use SL::DB::Helper::SalesPurchaseInvoice;
|
||
|
use SL::DB::Helper::ZUGFeRD qw(:IMPORT);
|
||
|
use SL::Locale::String qw(t8);
|
||
|
use Rose::DB::Object::Helpers qw(has_loaded_related forget_related as_tree strip);
|
||
|
|
||
| ... | ... | |
|
return $reclamation;
|
||
|
}
|
||
|
|
||
|
sub create_from_zugferd_xml {
|
||
|
my ($class, $zugferd_xml) = @_;
|
||
|
|
||
|
my $ap_invoice = $class->new();
|
||
|
|
||
|
$ap_invoice->import_zugferd_xml($zugferd_xml)->save();
|
||
|
}
|
||
|
|
||
|
sub create_ap_row {
|
||
|
my ($self, %params) = @_;
|
||
|
# needs chart as param
|
||
Auch abrufbar als: Unified diff
ZUGFeRD: Kreditorenbuchung direkt aus ZUGFeRD-XML erstellen