Revision eada6c17
Von Johannes Grassler vor mehr als 1 Jahr hinzugefügt
| SL/ZUGFeRD.pm | ||
|---|---|---|
|
use constant PROFILE_FACTURX_EXTENDED => 0;
|
||
|
use constant PROFILE_XRECHNUNG => 1;
|
||
|
|
||
|
use constant RES_OK => 0;
|
||
|
use constant RES_ERR_FILE_OPEN => -1;
|
||
|
use constant RES_ERR_NO_ATTACHMENT => -2;
|
||
|
use constant RES_OK => 0;
|
||
|
use constant RES_ERR_FILE_OPEN => -1;
|
||
|
use constant RES_ERR_NO_ATTACHMENT => -2;
|
||
|
|
||
|
our @customer_settings = (
|
||
|
[ 0, t8('Do not create Factur-X/ZUGFeRD invoices') ],
|
||
| ... | ... | |
|
if ( $parser->{status} == SL::XMLInvoice::RES_OK ){
|
||
|
return $parser;
|
||
|
} else {
|
||
|
push @res, t8("Could not parse PDF embedded attachment #1: #2",
|
||
|
$k,
|
||
|
$parser->{result});
|
||
|
push @res, t8(
|
||
|
"Could not parse PDF embedded attachment #1: #2",
|
||
|
$k,
|
||
|
$parser->{result}
|
||
|
);
|
||
|
}
|
||
|
}
|
||
|
}
|
||
| ... | ... | |
|
# this point - if there were no attachments at all, we would have bailed out
|
||
|
# a lot earlier.
|
||
|
|
||
|
%res_fail = ( result => RES_ERR_FILE_OPEN(),
|
||
|
message => join("; ", @res),
|
||
|
%res_fail = (
|
||
|
result => RES_ERR_FILE_OPEN(),
|
||
|
message => join("; ", @res),
|
||
|
);
|
||
|
|
||
|
return \%res_fail;
|
||
Auch abrufbar als: Unified diff
Einrueckungen und weitere Stilprobleme repariert