Revision f05c4f4d
Von Tamino Steinert vor etwa 1 Jahr hinzugefügt
| SL/DB/PurchaseInvoice.pm | ||
|---|---|---|
| 14 | 14 |
use SL::DB::Helper::Payment qw(:ALL); |
| 15 | 15 |
use SL::DB::Helper::RecordLink qw(RECORD_ID RECORD_TYPE_REF RECORD_ITEM_ID RECORD_ITEM_TYPE_REF); |
| 16 | 16 |
use SL::DB::Helper::SalesPurchaseInvoice; |
| 17 |
use SL::DB::Helper::ZUGFeRD qw(:IMPORT); |
|
| 17 | 18 |
use SL::Locale::String qw(t8); |
| 18 | 19 |
use Rose::DB::Object::Helpers qw(has_loaded_related forget_related as_tree strip); |
| 19 | 20 |
|
| ... | ... | |
| 159 | 160 |
return $reclamation; |
| 160 | 161 |
} |
| 161 | 162 |
|
| 163 |
sub create_from_zugferd_xml {
|
|
| 164 |
my ($class, $zugferd_xml) = @_; |
|
| 165 |
|
|
| 166 |
my $ap_invoice = $class->new(); |
|
| 167 |
|
|
| 168 |
$ap_invoice->import_zugferd_xml($zugferd_xml)->save(); |
|
| 169 |
} |
|
| 170 |
|
|
| 162 | 171 |
sub create_ap_row {
|
| 163 | 172 |
my ($self, %params) = @_; |
| 164 | 173 |
# needs chart as param |
Auch abrufbar als: Unified diff
ZUGFeRD: Kreditorenbuchung direkt aus ZUGFeRD-XML erstellen