X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/89834c120b851abcfa5e9ccb41750c4c81b2ed5f..da6943d46ec5b1aee6e69f928ac6f1417166e5ce:/bin/mozilla/rc.pl diff --git a/bin/mozilla/rc.pl b/bin/mozilla/rc.pl index b36f6e381..e07829528 100644 --- a/bin/mozilla/rc.pl +++ b/bin/mozilla/rc.pl @@ -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} = " "; - $column_header{source} = - "" . $locale->text('Source') . ""; - $column_header{name} = - "" . $locale->text('Description') . ""; - $column_header{transdate} = - "" . $locale->text('Date') . ""; - - if ($form->{category} eq 'A') { - $column_header{debit} = - "" . $locale->text('Deposit') . ""; - $column_header{credit} = - "" . $locale->text('Payment') . ""; - } else { - $column_header{debit} = - "" . $locale->text('Decrease') . ""; - $column_header{credit} = - "" . $locale->text('Increase') . ""; - } - - $column_header{balance} = - "" . $locale->text('Balance') . ""; - - my $option; - if ($form->{fromdate}) { - $option .= "\n
" if ($option); - $option .= - $locale->text('From') . " " - . $locale->date(\%myconfig, $form->{fromdate}, 0); - } - if ($form->{todate}) { - $option .= "\n
" if ($option); - $option .= - $locale->text('Until') . " " - . $locale->date(\%myconfig, $form->{todate}, 0); - } - - $form->{title} = "$form->{accno}--$form->{account}"; - - $form->header; - - print qq| - - -
{script}> - - - - - - - - - - - - - - - - - - -
$form->{title}
$option
- - -|; - - map { print "\n$column_header{$_}" } @column_index; - - print qq| - -|; - - 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{$_} = "" } - qw(cleared transdate source name debit credit); - $column_data{balance} = - ""; - my $j = 0; - print qq| - -|; - - map { print "\n$column_data{$_}" } @column_index; - - print qq| - -|; - - 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} = ""; - $column_data{source} = qq||; - $column_data{transdate} = ""; - - $column_data{debit} = ""; - $column_data{credit} = ""; - - if ($ref->{amount} < 0) { - $totaldebits += $ref->{amount} * -1; - $column_data{debit} = - ""; - } else { - $totalcredits += $ref->{amount}; - $column_data{credit} = - ""; - } - - $column_data{balance} = - ""; - - if ($ref->{fx_transaction}) { - $i++ unless $id == $ref->{id}; - $fx_transaction = 1; - $fx += $ref->{amount} * $ml; - $column_data{cleared} = qq||; - } else { - $i++ unless ($fx_transaction && $id == $ref->{id}); - $fx_transaction = 0; - $column_data{cleared} = qq||; - } - $id = $ref->{id}; - - $j++; - $j %= 2; - print qq| - -|; - - map { print "\n$column_data{$_}" } @column_index; - - print qq| - -|; + $::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{$_} = "" } @column_index; - - $column_data{debit} = - ""; - $column_data{credit} = - ""; - - print qq| - -|; - - 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| - - - -|; - } + my $statementbalance = $::form->parse_amount(\%::myconfig, $::form->{statementbalance}); + my $difference = $statementbalance - $clearedbalance - $cleared; - print qq| - -
 " - . $form->format_amount(\%myconfig, $balance, 2, 0) . "
$ref->{name} $ref->{source}  - $ref->{transdate}   " - . $form->format_amount(\%myconfig, $ref->{amount} * -1, 2, " ") - . "" - . $form->format_amount(\%myconfig, $ref->{amount}, 2, " ") - . "" - . $form->format_amount(\%myconfig, $balance, 2, 0) . "  - {oid}> - - {cleared}> - {oid}> -
 " - . $form->format_amount(\%myconfig, $totaldebits, 2, " ") . "" - . $form->format_amount(\%myconfig, $totalcredits, 2, " ") . "
| . $locale->text('Exchangerate Difference') . qq|$fx
-
- - - - - -
- - - - - - - - $exchdiff - -
| . $locale->text('Cleared Balance') . qq|$clearedbalance
- 		- - - - - - - - - - - - -
| . $locale->text('Statement Balance') . qq|{statementbalance}>
| . $locale->text('Difference') . qq|
-
-
- - -{accno}> - - -{fromdate}> -{todate}> - -
- - - - -
- - - -|; + $::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 {