Kreditorenbuchung um WebDAV-Funktion erweitert

diff --git a/SL/Webdav.pm b/SL/Webdav.pm
index 22a4020738d55348b1cb4c0f4c1c969792662578..946f2bffd3b388072bf9afbd35b83f3ebecb8579 100644 (file)
--- a/SL/Webdav.pm
+++ b/SL/Webdav.pm
@@ -31,6 +31,7 @@ my %type_to_path = (
   assembly                => 'erzeugnisse',
   letter                  => 'briefe',
   general_ledger          => 'dialogbuchungen',
   assembly                => 'erzeugnisse',
   letter                  => 'briefe',
   general_ledger          => 'dialogbuchungen',

+  accounts_payable        => 'kreditorenbuchungen',

 );
 
 sub get_all_files {
 );
 
 sub get_all_files {

diff --git a/bin/mozilla/ap.pl b/bin/mozilla/ap.pl
index eee20d0a0d6d5eef69c3da47b408cbcfe67d1451..0af34509a584525ff2654e7c72cefaf07bf6be9c 100644 (file)
--- a/bin/mozilla/ap.pl
+++ b/bin/mozilla/ap.pl
@@ -43,6 +43,8 @@ use SL::IS;
 use SL::ReportGenerator;
 use SL::DB::Default;
 use SL::DB::PurchaseInvoice;
 use SL::ReportGenerator;
 use SL::DB::Default;
 use SL::DB::PurchaseInvoice;

+use SL::Webdav;
+use SL::Locale::String qw(t8);

 
 require "bin/mozilla/arap.pl";
 require "bin/mozilla/common.pl";
 
 require "bin/mozilla/arap.pl";
 require "bin/mozilla/common.pl";


@@ -125,6 +127,19 @@ sub display_form {
 
   $main::auth->assert('ap_transactions');
 
 
   $main::auth->assert('ap_transactions');
 

+  # get all files stored in the webdav folder
+  if ($form->{invnumber} && $::instance_conf->get_webdav) {
+    my $webdav = SL::Webdav->new(
+      type     => 'accounts_payable',
+      number   => $form->{invnumber},
+    );
+    my $webdav_path = $webdav->webdav_path;
+    my @all_objects = $webdav->get_all_objects;
+    @{ $form->{WEBDAV} } = map { { name => $_->filename,
+                                   type => t8('File'),
+                                   link => File::Spec->catdir($webdav_path, $_->filename),
+                               } } @all_objects;
+  }

   &form_header;
   &form_footer;
 
   &form_header;
   &form_footer;
 


@@ -728,6 +743,12 @@ sub post {
   $form->{id} = 0 if $form->{postasnew};
 
   if (AP->post_transaction(\%myconfig, \%$form)) {
   $form->{id} = 0 if $form->{postasnew};
 
   if (AP->post_transaction(\%myconfig, \%$form)) {

+    # create webdav folder
+    if ($::instance_conf->get_webdav) {
+      SL::Webdav->new(type     => 'accounts_payable',
+                      number   => $form->{invnumber},
+                     )->webdav_path;
+    }

     # saving the history
     if(!exists $form->{addition} && $form->{id} ne "") {
       $form->{snumbers}  = qq|invnumber_| . $form->{invnumber};
     # saving the history
     if(!exists $form->{addition} && $form->{id} ne "") {
       $form->{snumbers}  = qq|invnumber_| . $form->{invnumber};

diff --git a/doc/changelog b/doc/changelog
index d43e46ad044ac778d76b98a15a308df36085603f..3bf706f3e231f2d5f37ad5587e07a3fb05d45e67 100644 (file)
--- a/doc/changelog
+++ b/doc/changelog
@@ -10,6 +10,8 @@ kleinere neue Features und Detailverbesserungen:
 
   - Dialogbuchen um WebDAV-Funktion erweitert
 
 
   - Dialogbuchen um WebDAV-Funktion erweitert
 

+  - Kreditorenbuchung um WebDAV-Funktion erweitert
+

   - Verfeinerung der Rechte für Finanzbuchhaltung: Es können nun für Dialogbuchungen,
     Debitoren- und Kreditorenbuchungen extra Rechte vergeben werden
 
   - Verfeinerung der Rechte für Finanzbuchhaltung: Es können nun für Dialogbuchungen,
     Debitoren- und Kreditorenbuchungen extra Rechte vergeben werden
 

diff --git a/templates/webpages/ap/form_header.html b/templates/webpages/ap/form_header.html
index 07e3188d8c7895ff362fed2ed3929edb682f738f..56abcb7f33585fb3db6827ba048d4d8a0bc1c93b 100644 (file)
--- a/templates/webpages/ap/form_header.html
+++ b/templates/webpages/ap/form_header.html
@@ -79,9 +79,12 @@
   <p>[% saved_message | html %]</p>
 [% END %]
 
   <p>[% saved_message | html %]</p>
 [% END %]
 

-<div class="tabwidget">
+<div id="ap_tabs" class="tabwidget">

  <ul>
   <li><a href="#ui-tabs-basic-data">[% 'Basic Data' | $T8 %]</a></li>
  <ul>
   <li><a href="#ui-tabs-basic-data">[% 'Basic Data' | $T8 %]</a></li>

+[%- IF INSTANCE_CONF.get_webdav %]
+  <li><a href="#ui-tabs-webdav">[% 'WebDAV' | $T8 %]</a></li>
+[%- END %]

 [%- IF id %]
   [%- IF AUTH.assert('record_links', 1) %]
   <li><a href="controller.pl?action=RecordLinks/ajax_list&object_model=PurchaseInvoice&object_id=[% HTML.url(id) %]">[% 'Linked Records' | $T8 %]</a></li>
 [%- IF id %]
   [%- IF AUTH.assert('record_links', 1) %]
   <li><a href="controller.pl?action=RecordLinks/ajax_list&object_model=PurchaseInvoice&object_id=[% HTML.url(id) %]">[% 'Linked Records' | $T8 %]</a></li>


@@ -393,8 +396,14 @@
   </tr>
 </table>
 </div>
   </tr>
 </table>
 </div>

+[% PROCESS 'webdav/_list.html' %]
+<div id="ui-tabs-1">
+ [% LxERP.t8('Loading...') %]
+</div>

 </div>
 
 </div>
 

+<hr size="3" noshade>
+

 <script type='text/javascript'>
  $('#ap_set_to_paid_missing').click(function(){ $('input[name^="paid_"]:last').val('[% LxERP.format_amount(paid_missing, 2) %]') });
 </script>
 <script type='text/javascript'>
  $('#ap_set_to_paid_missing').click(function(){ $('input[name^="paid_"]:last').val('[% LxERP.format_amount(paid_missing, 2) %]') });
 </script>