Bugfixes zum Rechnungstemplate

[mfinanz.git] / SL / AP.pm

diff --git a/SL/AP.pm b/SL/AP.pm
index d4fe48428f8e7e658319e9fd6e11f77c53ebac50..7b5a461505774eb22d762d7f5cfee586fdbdab42 100644 (file)
--- a/SL/AP.pm
+++ b/SL/AP.pm
@@ -475,7 +475,7 @@ sub ap_transactions {
   }
 
   my @a = qw(transdate invnumber name);
   }
 
   my @a = qw(transdate invnumber name);

-  push @a, "employee" if $self->{l_employee};
+  push @a, "employee" if $form->{l_employee};

   my $sortdir   = !defined $form->{sortdir} ? 'ASC' : $form->{sortdir} ? 'ASC' : 'DESC';
   my $sortorder = join(', ', map { "$_ $sortdir" } @a);
 
   my $sortdir   = !defined $form->{sortdir} ? 'ASC' : $form->{sortdir} ? 'ASC' : 'DESC';
   my $sortorder = join(', ', map { "$_ $sortdir" } @a);
 


@@ -642,6 +642,7 @@ sub setup_form {
     $j = 0;
     $k = 0;
 
     $j = 0;
     $k = 0;
 

+    next unless $form->{acc_trans}{$key};

     for $i (1 .. scalar @{ $form->{acc_trans}{$key} }) {
 
       if ($key eq "AP_paid") {
     for $i (1 .. scalar @{ $form->{acc_trans}{$key} }) {
 
       if ($key eq "AP_paid") {