Revision 3b281141
| SL/DATEV.pm | ||
|---|---|---|
| 452 | 452 |
my $filename_for_zip = (exists $self->{files}{$file_version->file_name})
|
| 453 | 453 |
? $file_version->file_name . '__' . $guid |
| 454 | 454 |
: $file_version->file_name; |
| 455 |
$filename_for_zip = $guid . '.pdf'; |
|
| 455 | 456 |
$self->{files}{$filename_for_zip} = $file_version->get_system_location;
|
| 456 | 457 |
# create xml metadata for files |
| 457 | 458 |
my $document_node = $doc->createElement('document');
|
| ... | ... | |
| 473 | 474 |
$zip->addString($doc->toString(), 'document.xml'); |
| 474 | 475 |
# add real files |
| 475 | 476 |
foreach my $filename (keys %{ $self->{files} }) {
|
| 476 |
my $enc_filename = encode('Windows-1252', $filename);
|
|
| 477 |
$zip->addFile($self->{files}{$filename}, $enc_filename);
|
|
| 477 |
# my $enc_filename = encode('Windows-1252', $filename);
|
|
| 478 |
$zip->addFile($self->{files}{$filename}, $filename);
|
|
| 478 | 479 |
} |
| 479 | 480 |
die "Cannot write Belege-XML.zip" unless ($zip->writeToFileNamed($self->export_path . 'Belege-XML.zip') |
| 480 | 481 |
== Archive::Zip::AZ_OK()); |
| ... | ... | |
| 990 | 991 |
if ( $self->documents && ($transaction->[$haben]->{table} eq 'gl'
|
| 991 | 992 |
|| ($datev_data{konto} !~ m/(1810|1370)/ && $datev_data{gegenkonto} !~ m/(1810|1370)/ )) ) {
|
| 992 | 993 |
# add all document links for the latest created/uploaded document |
| 993 |
my $latest_documents = SL::DB::Manager::File->get_all(query =>
|
|
| 994 |
my $latest_document = SL::DB::Manager::File->get_first(query =>
|
|
| 994 | 995 |
[ |
| 995 | 996 |
object_id => $transaction->[$haben]->{trans_id},
|
| 996 | 997 |
file_type => 'document', |
| 998 |
mime_type => 'application/pdf', |
|
| 997 | 999 |
or => [ |
| 998 | 1000 |
object_type => 'gl_transaction', |
| 999 | 1001 |
object_type => 'purchase_invoice', |
| ... | ... | |
| 1002 | 1004 |
], |
| 1003 | 1005 |
], |
| 1004 | 1006 |
sort_by => 'itime DESC'); |
| 1005 |
#if (ref $latest_document eq 'SL::DB::File') {
|
|
| 1006 |
if (scalar @{ $latest_documents }) {
|
|
| 1007 |
if (ref $latest_document eq 'SL::DB::File') {
|
|
| 1008 |
#if (scalar @{ $latest_documents }) {
|
|
| 1007 | 1009 |
# if we have a booking document add guid from the latest version |
| 1008 | 1010 |
# one record may be referenced to more transaction (credit booking with different accounts) |
| 1009 | 1011 |
# therefore collect guids in hash |
| 1010 |
foreach my $latest_document (@{ $latest_documents }) {
|
|
| 1012 |
# not yet implemented -> datev steigt aus, sobald ein komma getrennter wert erscheint |
|
| 1013 |
#foreach my $latest_document (@{ $latest_documents }) {
|
|
| 1011 | 1014 |
die "No file datatype:" . ref $latest_document unless (ref $latest_document eq 'SL::DB::File'); |
| 1012 | 1015 |
my $latest_guid = $latest_document->file_version->[-1]->guid; |
| 1013 | 1016 |
|
| 1014 | 1017 |
$self->{guids}{$latest_guid} = 1;
|
| 1015 | 1018 |
$datev_data{document_guid} .= $datev_data{document_guid} ? ',' : '';
|
| 1016 | 1019 |
$datev_data{document_guid} .= $latest_guid;
|
| 1017 |
} |
|
| 1020 |
# }
|
|
| 1018 | 1021 |
} |
| 1019 | 1022 |
} |
| 1020 | 1023 |
# keine kommerzbank daten exportieren |
Auch abrufbar als: Unified diff
DATEV mit Belegdokumenten, es geht erstmal nur PDF und ein Beleglink pro Buchung