rc.pl display_form in template ausgelagert.
authorSven Schöling <s.schoeling@linet-services.de>
Tue, 20 Sep 2011 09:38:06 +0000 (11:38 +0200)
committerSven Schöling <s.schoeling@linet-services.de>
Tue, 20 Sep 2011 09:38:06 +0000 (11:38 +0200)
Warnung: Muss nochmal gut durchgetestet werden.

bin/mozilla/rc.pl
templates/webpages/rc/step2.html [new file with mode: 0644]

index b36f6e3..e078295 100644 (file)
@@ -75,278 +75,57 @@ sub get_payments {
 }
 
 sub display_form {
-  $main::lxdebug->enter_sub();
-
-  my $form     = $main::form;
-  my %myconfig = %main::myconfig;
-  my $locale   = $main::locale;
-
-  $main::auth->assert('cash');
-
-  my @column_index = qw(cleared transdate source name credit debit balance);
-  my %column_header;
-  $column_header{cleared} = "<th>&nbsp;</th>";
-  $column_header{source}  =
-    "<th class=listheading>" . $locale->text('Source') . "</a></th>";
-  $column_header{name} =
-    "<th class=listheading>" . $locale->text('Description') . "</a></th>";
-  $column_header{transdate} =
-    "<th class=listheading>" . $locale->text('Date') . "</a></th>";
-
-  if ($form->{category} eq 'A') {
-    $column_header{debit} =
-      "<th class=listheading>" . $locale->text('Deposit') . "</a></th>";
-    $column_header{credit} =
-      "<th class=listheading>" . $locale->text('Payment') . "</a></th>";
-  } else {
-    $column_header{debit} =
-      "<th class=listheading>" . $locale->text('Decrease') . "</a></th>";
-    $column_header{credit} =
-      "<th class=listheading>" . $locale->text('Increase') . "</a></th>";
-  }
-
-  $column_header{balance} =
-    "<th class=listheading>" . $locale->text('Balance') . "</a></th>";
-
-  my $option;
-  if ($form->{fromdate}) {
-    $option .= "\n<br>" if ($option);
-    $option .=
-        $locale->text('From') . "&nbsp;"
-      . $locale->date(\%myconfig, $form->{fromdate}, 0);
-  }
-  if ($form->{todate}) {
-    $option .= "\n<br>" if ($option);
-    $option .=
-        $locale->text('Until') . "&nbsp;"
-      . $locale->date(\%myconfig, $form->{todate}, 0);
-  }
-
-  $form->{title} = "$form->{accno}--$form->{account}";
-
-  $form->header;
-
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>$option</td>
-  </tr>
-  <tr>
-    <td>
-      <table width=100%>
-        <tr class=listheading>
-|;
-
-  map { print "\n$column_header{$_}" } @column_index;
-
-  print qq|
-        </tr>
-|;
-
-  my $ml = ($form->{category} eq 'A') ? -1 : 1;
-  $form->{beginningbalance} *= $ml;
-  my $balance        = $form->{beginningbalance};
-  my $clearedbalance = $balance;
-  my $i              = 0;
-  my $id             = 0;
-
-  my %column_data;
-  map { $column_data{$_} = "<td>&nbsp;</td>" }
-    qw(cleared transdate source name debit credit);
-  $column_data{balance} =
-    "<td align=right>"
-    . $form->format_amount(\%myconfig, $balance, 2, 0) . "</td>";
-  my $j = 0;
-  print qq|
-        <tr class=listrow$j>
-|;
-
-  map { print "\n$column_data{$_}" } @column_index;
-
-  print qq|
-        </tr>
-|;
-
-  my $cleared;
-  my $totaldebits;
-  my $totalcredits;
-  my $fx_transaction;
-  my $fx;
-  foreach my $ref (@{ $form->{PR} }) {
-
-    $balance += $ref->{amount} * $ml;
-    $cleared += $ref->{amount} * $ml if $ref->{cleared};
-
-    $column_data{name}   = "<td>$ref->{name}&nbsp;</td>";
-    $column_data{source} = qq|<td>$ref->{source}&nbsp;</a>
-    </td>|;
-    $column_data{transdate} = "<td>$ref->{transdate}&nbsp;</td>";
-
-    $column_data{debit}  = "<td>&nbsp;</td>";
-    $column_data{credit} = "<td>&nbsp;</td>";
-
-    if ($ref->{amount} < 0) {
-      $totaldebits += $ref->{amount} * -1;
-      $column_data{debit} =
-          "<td align=right>"
-        . $form->format_amount(\%myconfig, $ref->{amount} * -1, 2, "&nbsp;")
-        . "</td>";
-    } else {
-      $totalcredits += $ref->{amount};
-      $column_data{credit} =
-          "<td align=right>"
-        . $form->format_amount(\%myconfig, $ref->{amount}, 2, "&nbsp;")
-        . "</td>";
-    }
-
-    $column_data{balance} =
-      "<td align=right>"
-      . $form->format_amount(\%myconfig, $balance, 2, 0) . "</td>";
-
-    if ($ref->{fx_transaction}) {
-      $i++ unless $id == $ref->{id};
-      $fx_transaction = 1;
-      $fx += $ref->{amount} * $ml;
-      $column_data{cleared} = qq|<td align=center>&nbsp;
-      <input type=hidden name="fxoid_$i" value=$ref->{oid}>
-      </td>|;
-    } else {
-      $i++ unless ($fx_transaction && $id == $ref->{id});
-      $fx_transaction = 0;
-      $column_data{cleared} = qq|<td>
-      <input name="cleared_$i" type=checkbox class=checkbox value=1 $ref->{cleared}>
-      <input type=hidden name="oid_$i" value=$ref->{oid}>
-      </td>|;
-    }
-    $id = $ref->{id};
-
-    $j++;
-    $j %= 2;
-    print qq|
-        <tr class=listrow$j>
-|;
-
-    map { print "\n$column_data{$_}" } @column_index;
-
-    print qq|
-        </tr>
-|;
+  $::lxdebug->enter_sub;
+  $::auth->assert('cash');
 
+  my @options;
+  push @options, $::locale->text('From') . " " . $::locale->date(\%::myconfig, $::form->{fromdate}, 0) if $::form->{fromdate};
+  push @options, $::locale->text('Until') . " " . $::locale->date(\%::myconfig, $::form->{todate}, 0) if $::form->{todate};
+
+  my $ml = ($::form->{category} eq 'A') ? -1 : 1;
+  my $beginningbalance = $::form->{beginningbalance} * $ml;
+  my $clearedbalance   =
+  my $balance          = $beginningbalance;
+  my $i                = 0;
+  my $last_id          = 0;
+  my ($last_fx, @rows, $cleared, $totaldebits, $totalcredits, $fx);
+
+  for my $ref (@{ $::form->{PR} }) {
+    $balance      += $ref->{amount} * $ml;
+    $cleared      += $ref->{amount} * $ml if $ref->{cleared};
+    $totaldebits  += $ref->{amount} * -1  if $ref->{amount} < 0;
+    $totalcredits += $ref->{amount}       if $ref->{amount} >= 0;
+    $fx           += $ref->{amount} * $ml if $ref->{fx_transaction};
+    $i++                                  if (!$ref->{fx_transaction} && !$last_fx) || $last_id != $ref->{id};
+    $last_fx       = $ref->{fx_transaction};
+    $last_id       = $ref->{id};
+
+    push @rows, { %$ref, balance => $balance, i => $i };
   }
 
-  # print totals
-  map { $column_data{$_} = "<td>&nbsp;</td>" } @column_index;
-
-  $column_data{debit} =
-    "<th class=listtotal align=right>"
-    . $form->format_amount(\%myconfig, $totaldebits, 2, "&nbsp;") . "</th>";
-  $column_data{credit} =
-    "<th class=listtotal align=right>"
-    . $form->format_amount(\%myconfig, $totalcredits, 2, "&nbsp;") . "</th>";
-
-  print qq|
-        <tr class=listtotal>
-|;
-
-  map { print "\n$column_data{$_}" } @column_index;
-
-  $form->{statementbalance} =
-    $form->parse_amount(\%myconfig, $form->{statementbalance});
-  my $difference =
-    $form->format_amount(\%myconfig,
-                        $form->{statementbalance} - $clearedbalance - $cleared,
-                        2, 0);
-
-  $form->{statementbalance} =
-    $form->format_amount(\%myconfig, $form->{statementbalance}, 2, 0);
-
-  $clearedbalance = $form->format_amount(\%myconfig, $clearedbalance, 2, 0);
-
-  my $exchdiff;
-  if ($fx) {
-    $fx       = $form->format_amount(\%myconfig, $fx, 2, 0);
-    $exchdiff = qq|
-          <th align=right nowrap>| . $locale->text('Exchangerate Difference') . qq|</th>
-          <td width=10%></td>
-          <td align=right>$fx</td>
-|;
-  }
+  my $statementbalance = $::form->parse_amount(\%::myconfig, $::form->{statementbalance});
+  my $difference       = $statementbalance - $clearedbalance - $cleared;
 
-  print qq|
-        </tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td>
-      <table width=100%>
-        <tr valign=top>
-          <td>
-            <table>
-              <tr>
-                <th align=right nowrap>| . $locale->text('Cleared Balance') . qq|</th>
-                <td width=10%></td>
-                <td align=right>$clearedbalance</td>
-              </tr>
-              <tr>
-                $exchdiff
-              </tr>
-            </table>
-          </td>
-          <td align=right>
-            <table>
-              <tr>
-                <th align=right nowrap>| . $locale->text('Statement Balance') . qq|</th>
-                <td width=10%></td>
-                <td align=right><input name=statementbalance size=11 value=$form->{statementbalance}></td>
-              </tr>
-              <tr>
-                <th align=right nowrap>| . $locale->text('Difference') . qq|</th>
-                <td width=10%></td>
-                <td align=right><input name=null size=11 value=$difference></td>
-                <input type=hidden name=difference value=$difference>
-              </tr>
-            </table>
-          </td>
-        </tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<input type=hidden name=rowcount value=$i>
-<input type=hidden name=accno value=$form->{accno}>
-<input type=hidden name=account value="$form->{account}">
-
-<input type=hidden name=fromdate value=$form->{fromdate}>
-<input type=hidden name=todate value=$form->{todate}>
-
-<br>
-<input type=submit class=submit name=action value="|
-    . $locale->text('Update') . qq|">
-<input type=submit class=submit name=action value="|
-    . $locale->text('Select all') . qq|">
-<input type=submit class=submit name=action value="|
-    . $locale->text('Done') . qq|">
-
-</form>
-
-</body>
-</html>
-|;
+  $::form->header;
+  print $::form->parse_html_template('rc/step2', {
+    is_asset         => $::form->{category} eq 'A',
+    option           => \@options,
+    DATA             => \@rows,
+    total            => {
+      credit => $totalcredits,
+      debit  => $totaldebits,
+    },
+    balance          => {
+      beginning => $beginningbalance,
+      cleared   => $clearedbalance,
+      statement => $statementbalance,
+    },
+    difference       => $difference,
+    rowcount         => $i,
+    fx               => $fx,
+  });
 
-  $main::lxdebug->leave_sub();
+  $::lxdebug->leave_sub;
 }
 
 sub update {
diff --git a/templates/webpages/rc/step2.html b/templates/webpages/rc/step2.html
new file mode 100644 (file)
index 0000000..75ec83c
--- /dev/null
@@ -0,0 +1,120 @@
+[%- USE HTML  %]
+[%- USE L  %]
+[%- USE T8 %]
+[%- USE LxERP  %]
+<body>
+
+<h1>[% accno | html %]--[% account | html %]</h1>
+
+<p>[% FOREACH row IN option %][% row %][% ', ' UNLESS loop.last %][% END %]</p>
+
+<form method=post action="[% script %]">
+
+<table width=100%>
+  <tr class=listheading>
+   <th>&nbsp;</th>
+   <th>[% 'Date' | $T8 %]</th>
+   <th>[% 'Source' | $T8 %]</th>
+   <th>[% 'Description' | $T8 %]</th>
+[%- IF is_asset %]
+   <th>[% 'Deposit' | $T8 %]</th>
+   <th>[% 'Payment' | $T8 %]</th>
+[%- ELSE %]
+   <th>[% 'Decrease' | $T8 %]</th>
+   <th>[% 'Increase' | $T8 %]</th>
+[%- END %]
+   <th>[% 'Balance' | $T8 %]</th>
+  </tr>
+  <tr class="listrow[% row.j %]">
+   <td></td>
+   <td></td>
+   <td></td>
+   <td></td>
+   <td class='numeric'></td>
+   <td class='numeric'></td>
+   <td class='numeric'>[% LxERP.format_amount(balance.beginning, 2, 0) %]</td>
+  </tr>
+[% FOREACH row = DATA %]
+  <tr class="listrow[% loop.count % 2 %]">
+   <td>
+[%- IF row.fx_transaction %]
+     [% L.hidden_tag('fxoid_' _ row.i, row.oid) %]
+[%- ELSE %]
+     [% L.checkbox_tag('cleared_' _ row.i, checked=row.cleared) %]
+     [% L.hidden_tag('oid_' _ row.i, row.oid) %]
+[%- END %]
+   </td>
+   <td>[% row.transdate %]</td>
+   <td>[% row.source %]</td>
+   <td>[% row.name %]</td>
+   <td class='numeric'>[% LxERP.format_amount(row.amount, 2)  IF row.amount > 0 %]</td>
+   <td class='numeric'>[% LxERP.format_amount(row.amount * -1, 2) IF row.amount < 0 %]</td>
+   <td class='numeric'>[% LxERP.format_amount(row.balance, 2, 0) %]</td>
+  </tr>
+[% END %]
+  <tr class=listtotal>
+   <td></td>
+   <td></td>
+   <td></td>
+   <td></td>
+   <td class='numeric'>[% LxERP.format_amount(total.credit, 2, 0) %]</td>
+   <td class='numeric'>[% LxERP.format_amount(total.debit, 2, 0) %]</td>
+   <td class='numeric'></td>
+  </tr>
+</table>
+
+      <table width=100%>
+        <tr valign=top>
+          <td>
+            <table>
+              <tr>
+                <th align=right nowrap>[% 'Cleared Balance' | $T8 %]</th>
+                <td width=10%></td>
+                <td align=right>[% LxERP.format_amount(balance.cleared, 2, 0) %]</td>
+              </tr>
+              <tr>
+[%- IF fx %]
+                <th align=right nowrap>[% 'Exchangerate Difference' | $T8 %]</th>
+                <td width=10%></td>
+                <td align=right>[% LxERP.format_amount(fx, 2, 0) %]</td>
+[%- END %]
+              </tr>
+            </table>
+          </td>
+          <td align=right>
+            <table>
+              <tr>
+                <th align=right nowrap>[% 'Statement Balance' | $T8 %]</th>
+                <td width=10%></td>
+                <td align=right><input name="statementbalance" size=11 value="[% LxERP.format_amount(balance.statement, 2, 0) %]"></td>
+              </tr>
+              <tr>
+                <th align=right nowrap>[% 'Difference' | $T8 %]</th>
+                <td width=10%></td>
+                <td align=right><input name=null size=11 value="[% LxERP.format_amount(difference, 2, 0) %]"></td>
+                <input type=hidden name=difference value="[% LxERP.format_amount(difference, 2, 0) %]">
+              </tr>
+            </table>
+          </td>
+        </tr>
+      </table>
+
+<hr size=3 noshade>
+<br>
+
+<input type=hidden name=rowcount value="[% rowcount %]">
+<input type=hidden name=accno value="[% accno %]">
+<input type=hidden name=account value="[% account %]">
+
+<input type=hidden name=fromdate value="[% fromdate %]">
+<input type=hidden name=todate value="[% todate %]">
+
+<br>
+<input type=submit class=submit name=action value="[% 'Update' | $T8 %]">
+<input type=submit class=submit name=action value="[% 'Select all' | $T8 %]">
+<input type=submit class=submit name=action value="[% 'Done' | $T8 %]">
+
+</form>
+
+</body>
+</html>