Einkaufsrechnungen: In Kopf anzeigen, in welchen SEPA-Exporten der Beleg enthalten ist

diff --git a/SL/DB/PurchaseInvoice.pm b/SL/DB/PurchaseInvoice.pm
index d1eaded8ff9ca39d7b3d49c69a25b63749ba08a3..c63a2ed70292f94108b514c9917e74fccbba43d2 100644 (file)
--- a/SL/DB/PurchaseInvoice.pm
+++ b/SL/DB/PurchaseInvoice.pm
@@ -28,6 +28,12 @@ __PACKAGE__->meta->add_relationship(
     column_map      => { id => 'ap_id' },
     manager_args    => { with_objects => [ 'sepa_export' ] }
   },
     column_map      => { id => 'ap_id' },
     manager_args    => { with_objects => [ 'sepa_export' ] }
   },

+  sepa_exports      => {
+    type            => 'many to many',
+    map_class       => 'SL::DB::SepaExportItem',
+    map_from        => 'ap',
+    map_to          => 'sepa_export',
+  },

   custom_shipto     => {
     type            => 'one to one',
     class           => 'SL::DB::Shipto',
   custom_shipto     => {
     type            => 'one to one',
     class           => 'SL::DB::Shipto',

diff --git a/bin/mozilla/ir.pl b/bin/mozilla/ir.pl
index 8432302129f6e0153d87f7217f2eeb0d1da034c9..f73905d60e4d2cf7decb38728de0eea680e63788 100644 (file)
--- a/bin/mozilla/ir.pl
+++ b/bin/mozilla/ir.pl
@@ -36,6 +36,7 @@ use SL::IR;
 use SL::IS;
 use SL::PE;
 use SL::DB::Default;
 use SL::IS;
 use SL::PE;
 use SL::DB::Default;

+use SL::DB::PurchaseInvoice;

 use List::Util qw(max sum);
 use List::UtilsBy qw(sort_by);
 
 use List::Util qw(max sum);
 use List::UtilsBy qw(sort_by);
 


@@ -259,6 +260,7 @@ sub form_header {
   my %TMPL_VAR = ();
   my @custom_hiddens;
 
   my %TMPL_VAR = ();
   my @custom_hiddens;
 

+  $TMPL_VAR{invoice_obj} = SL::DB::PurchaseInvoice->new(id => $form->{id})->load if $form->{id};

   $form->{employee_id} = $form->{old_employee_id} if $form->{old_employee_id};
   $form->{salesman_id} = $form->{old_salesman_id} if $form->{old_salesman_id};
 
   $form->{employee_id} = $form->{old_employee_id} if $form->{old_employee_id};
   $form->{salesman_id} = $form->{old_salesman_id} if $form->{old_salesman_id};
 

diff --git a/templates/webpages/ir/form_header.html b/templates/webpages/ir/form_header.html
index 15cb81ae88a39bcc821ff8c23f4aef87c2b40085..f22d03eb53c6cb2993eac67c01a30f83c13ba281 100644 (file)
--- a/templates/webpages/ir/form_header.html
+++ b/templates/webpages/ir/form_header.html
@@ -80,6 +80,17 @@
             <span class="plus[% IF is_credit_remaining_negativ %]0[% ELSE %]1[% END %]">[% LxERP.format_amount(creditremaining,0 ,'0') %]</span>
           </td>
         </tr>
             <span class="plus[% IF is_credit_remaining_negativ %]0[% ELSE %]1[% END %]">[% LxERP.format_amount(creditremaining,0 ,'0') %]</span>
           </td>
         </tr>

+[%- IF invoice_obj.sepa_exports.as_list.size %]
+        <tr>
+          <th align="right">[% LxERP.t8("SEPA exports") %]</th>
+          <td>
+           [% FOREACH export = invoice_obj.sepa_exports.as_list %]
+            <a href="sepa.pl?action=bank_transfer_edit&vc=vendor&id=[% HTML.url(export.id) %]">[% HTML.escape(export.id) %]</a>
+            [% UNLESS loop.last %], [% END %]
+           [% END %]
+          </td>
+        </tr>
+[%- END %]

 [%- IF business %]
         <tr>
           <th align="right">[% 'Vendor type' | $T8 %]</th>
 [%- IF business %]
         <tr>
           <th align="right">[% 'Vendor type' | $T8 %]</th>