projekt kivitendo

use Archive::Zip;

use XML::LibXML;

    $self->_create_xml_and_documents if $self->{documents} && scalar @{ $self->{guids} };

sub documents {

 my $self = shift;

 if (@_) {

   $self->{documents} = $_[0];

 }

 return $self->{documents};

}

sub _create_xml_and_documents {

  my $self = shift;

  die "No guids" unless scalar @{ $self->{guids} };

  my $today = DateTime->now_local;

  my $doc   = XML::LibXML::Document->new('1.0', 'utf-8');

  my $root  = $doc->createElement('archive');

  #<archive xmlns="http://xml.datev.de/bedi/tps/document/v05.0" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://xml.datev.de/bedi/tps/document/v05.0 Document_v050.xsd" version="5.0" generatingSystem="DATEV-Musterdaten">

  $root->setAttribute('xmlns'              => 'http://xml.datev.de/bedi/tps/document/v05.0');

  $root->setAttribute('xmlns:xsi'          => 'http://www.w3.org/2001/XMLSchema-instance');

  $root->setAttribute('xsi:schemaLocation' => 'http://xml.datev.de/bedi/tps/document/v05.0 Document_v050.xsd');

  $root->setAttribute('version'            => '5.0');

  $root->setAttribute('generatingSystem'   => 'kivitendo');

  # header with timestamp

  my $header_tag = $doc->createElement('header');

  $root->appendChild($header_tag);

  my $date_tag = $doc->createElement('date');

  $date_tag->appendTextNode($today);

  $header_tag->appendChild($date_tag);

  # content

  my $content_node = $doc->createElement('content');

  $root->appendChild($content_node);

  # we have n document childs

  foreach my $guid (@{ $self->{guids} }) {

    # 1. get filename and file location

    my $file_version = SL::DB::Manager::FileVersion->find_by(guid => $guid);

    die "Invalid guid $guid" unless ref $file_version eq 'SL::DB::FileVersion';

    # file_name has to be unique add guid if needed

    my $filename_for_zip = (exists $self->{files}{$file_version->file_name})

                           ? $file_version->file_name . '__' . $guid

                           : $file_version->file_name;

    $self->{files}{$filename_for_zip} = $file_version->get_system_location;

    # create xml metadata for files

    my $document_node = $doc->createElement('document');

    # set attr

    $document_node->setAttribute('guid'      => $guid);

    $document_node->setAttribute('processID' => '1');

    $document_node->setAttribute('type'      => '1');

    $content_node->appendChild($document_node);

    my $extension_node = $doc->createElement('extension');

    $extension_node->setAttribute('xsi:type' => 'File');

    $extension_node->setAttribute('name'     => $filename_for_zip);

    $document_node->appendChild($extension_node);

  }

  $doc->setDocumentElement($root);

  # create Archive::Zip in Export Path

  my $zip = Archive::Zip->new();

  # add metadata document

  $zip->addString($doc->toString(), 'document.xml');

  # add real files

  foreach my $filename (keys %{ $self->{files} }) {

    $zip->addFile($self->{files}{$filename}, $filename);

  }

  die "Cannot write Belege-XML.zip" unless ($zip->writeToFileNamed($self->export_path . 'Belege-XML.zip')

                                            == Archive::Zip::AZ_OK());

}

    my $document_guid  ="";

    # add guids if datev export with documents is requested

    if ($self->documents) {

      # add exactly one document link for the latest created/uploaded document

      my $latest_document = SL::DB::Manager::File->get_first(query =>

                                [

                                  object_id => $transaction->[$haben]->{trans_id},

                                  file_type => 'document'

                                ],

                                  sort_by   => 'itime DESC');

      if (ref $latest_document eq 'SL::DB::File') {

        # if we have a booking document add guid from the latest version

        $datev_data{document_guid} = $latest_document->file_version->[-1]->guid;

        push @{ $self->{guids} }, $datev_data{document_guid};

      }

    }

sub check_document_export {

  my ($self) = @_;

  # no dms enabled and works only for type Filesystem

  return 0 unless $::instance_conf->get_doc_storage

               && $::instance_conf->get_doc_storage_for_documents eq 'Filesystem';

  return 1;

  # TODO maybe needed

  # not all last month ar ap gl booking have an entry -> rent ?

  my $query = <<"SQL";

  select distinct trans_id,object_id from acc_trans

  left join files on files.object_id=trans_id

  where date_trunc('month', transdate) = date_trunc('month', current_date - interval '1 month')

  and object_id is null

  LIMIT 1

SQL

  my ($booking_has_no_document)  = selectrow_query($::form, SL::DB->client->dbh, $query);

  return defined $booking_has_no_document ? 0 : 1;

}

                              kivi_datev_name => 'document_guid',

                              type            => 'Text',

                              default         => '',

                              input_check     => sub { my ($check) = @_; return 1 unless $check; return ($check =~ m/^[0-9a-fA-F]{8}\b-[0-9a-fA-F]{4}\b-[0-9a-fA-F]{4}\b-[0-9a-fA-F]{4}\b-[0-9a-fA-F]{12}$/) },

                              formatter       => sub { my ($input) = @_; return '' unless $input; return 'BEDI "' . $input . '"' },

  $::form->{ALL_DEPARTMENTS}        = SL::DB::Manager::Department->get_all_sorted;

  $::form->{show_pk_option}         = SL::DATEV->new->check_vcnumbers_are_valid_pk_numbers;

  $::form->{show_documents_option}  = SL::DATEV->new->check_document_export;

  $data{use_pk}    = $::form->{use_pk};

  $data{locked}    = $::form->{locked};

  $data{imported}  = $::form->{imported};

  $data{documents} = $::form->{documents};

         <tr>

           <td align=left>[% 'Export Documents' | $T8 %]</td>

           <td align=left></td>

          [% IF show_documents_option %]

           <td colspan="3">[% L.yes_no_tag('documents', 0, disabled => 0) %]</td>

          [% ELSE %]

           <td>[% L.yes_no_tag('documents', 0, disabled => 1) %] </td>

           <td colspan="2"><font color="gray">[% 'Hint: DMS Feature has to be activated' | $T8 %]</font></td>

          [% END %]

        </tr>