form_footer in ic.pl in Template ausgelagert.

[kivitendo-erp.git] / bin / mozilla / rp.pl

diff --git a/bin/mozilla/rp.pl b/bin/mozilla/rp.pl
index a6308c6..4734d20 100644 (file)
--- a/bin/mozilla/rp.pl
+++ b/bin/mozilla/rp.pl
@@ -189,10 +189,10 @@ sub report {
     $value_2   = "";
     $trigger_2 = "trigger2";
   } elsif (($form->{report} eq "ar_aging") || ($form->{report} eq "ap_aging")) {
-    $name_1    = "";
-    $id_1      = "";
-    $value_1   = "";
-    $trigger_1 = "";
+    $name_1    = "fromdate";
+    $id_1      = "fromdate";
+    $value_1   = "$form->{fromdate}";
+    $trigger_1 = "trigger1";
     $name_2    = "todate";
     $id_2      = "todate";
     $value_2   = "";
@@ -788,10 +788,12 @@ $jsscript
          <td>$vc</td>
        </tr>
        <tr>
-         <th align=right>| . $locale->text('Bis') . qq|</th>
-         <td>
-            $button1
-            $button1_2
+         <td align=left colspan=4>| . $locale->text('From') . qq|&nbsp;
+             $button1
+              $button1_2&nbsp;
+             | . $locale->text('Bis') . qq|&nbsp;
+             $button2
+              $button2_2
           </td>
        </tr>
         <input type=hidden name=type value=statement>
@@ -1125,11 +1127,9 @@ sub generate_balance_sheet {
     'soll_kumuliert'          => { 'text' => $locale->text('Sum Debit'), },
     'haben_kumuliert'         => { 'text' => $locale->text('Sum Credit'), },
     'soll_saldo'              => { 'text' => $locale->text('Saldo Debit'), },
-    'haben_saldo'                => { 'text' => $locale->text('Saldo Credit'), }
+    'haben_saldo'             => { 'text' => $locale->text('Saldo Credit'), }
   );
 
-
-
   my %column_alignment = map { $_ => 'right' } qw(soll_eb haben_eb soll haben soll_kumuliert haben_kumuliert soll_saldo haben_saldo);
 
   map { $column_defs{$_}->{visible} =  1 } @columns;
@@ -1666,7 +1666,7 @@ sub create_aging_subtotal_row {
 
 sub aging {
   $lxdebug->enter_sub();
-  print(STDERR "Bin in Aging\n");
+
   $auth->assert('general_ledger');
 
   my $report = SL::ReportGenerator->new(\%myconfig, $form);
@@ -1714,7 +1714,11 @@ sub aging {
     $form->{title} = sprintf($locale->text('Ap aging on %s'), $form->{todate});
   }
 
-  push @options, $locale->text('for Period') . " " . $locale->text('Bis') . " " . $locale->date(\%myconfig, $form->{todate}, 1);
+  if ($form->{fromdate}) {
+    push @options, $locale->text('for Period') . " " . $locale->text('From') . " " .$locale->date(\%myconfig, $form->{fromdate}, 1) . " " . $locale->text('Bis') . " " . $locale->date(\%myconfig, $form->{todate}, 1);
+  } else {
+    push @options, $locale->text('for Period') . " " . $locale->text('Bis') . " " . $locale->date(\%myconfig, $form->{todate}, 1);
+  }
 
   my $attachment_basename = $form->{ct} eq 'customer' ? $locale->text('ar_aging_list') : $locale->text('ap_aging_list');
 
@@ -2342,6 +2346,8 @@ sub list_payments {
     $option = $locale->text('Department') . " : $department";
   }
 
+  report_generator_set_default_sort('transdate', 1);
+
   RP->payments(\%myconfig, \%$form);
 
   my @hidden_variables = qw(account title department reference source memo fromdate todate
@@ -2361,7 +2367,10 @@ sub list_payments {
   );
   my %column_alignment = ('paid' => 'right');
 
-  map { $column_defs{$_}->{link} = $href . "&sort=$_" } grep { $_ ne 'paid' } @columns;
+  foreach my $name (grep { $_ ne 'paid' } @columns) {
+    my $sortdir                 = $form->{sort} eq $name ? 1 - $form->{sortdir} : $form->{sortdir};
+    $column_defs{$name}->{link} = $href . "&sort=${name}&sortdir=$sortdir";
+  }
 
   my @options;
   if ($form->{fromdate}) {
@@ -2388,7 +2397,7 @@ sub list_payments {
 
   $report->set_export_options('list_payments', @hidden_variables);
 
-  $report->set_sort_indicator($form->{sort}, 1);
+  $report->set_sort_indicator($form->{sort}, $form->{sortdir});
 
   my $total_paid    = 0;