X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/fc8ad1a3510949f71a0b35415130d573599fb5d4..262108d0f0d61ce6e4d3e436e9042c1002ec41f7:/SL/AP.pm

diff --git a/SL/AP.pm b/SL/AP.pm
index 7629381b0..e9e1a7ecd 100644
--- a/SL/AP.pm
+++ b/SL/AP.pm
@@ -464,15 +464,16 @@ sub ap_transactions {
 
   my @a = (transdate, invnumber, name);
   push @a, "employee" if $self->{l_employee};
-  my $sortorder = join(', ', @a);
+  my $sortdir   = $form->{sortdir} ? 'ASC' : 'DESC';
+  my $sortorder = join(', ', map { "$_ $sortdir" } @a);
 
   if (grep({ $_ eq $form->{sort} }
            qw(transdate id invnumber ordnumber name netamount tax amount
               paid datepaid due duedate notes employee))) {
-    $sortorder = $form->{sort};
+    $sortorder = $form->{sort} . " $sortdir";
   }
 
-  $query .= " ORDER by $sortorder";
+  $query .= " ORDER BY $sortorder";
 
   my $sth = $dbh->prepare($query);
   $sth->execute(@values) ||