diff options
Diffstat (limited to 'sql-ledger/bin/mozilla/rc.pl')
| -rw-r--r-- | sql-ledger/bin/mozilla/rc.pl | 292 |
1 files changed, 215 insertions, 77 deletions
diff --git a/sql-ledger/bin/mozilla/rc.pl b/sql-ledger/bin/mozilla/rc.pl index cf2bc235b..ee6d86781 100644 --- a/sql-ledger/bin/mozilla/rc.pl +++ b/sql-ledger/bin/mozilla/rc.pl @@ -1,6 +1,6 @@ #===================================================================== # SQL-Ledger Accounting -# Copyright (c) 2002 +# Copyright (c) 2003 # # Author: Dieter Simader # Email: dsimader@sql-ledger.org @@ -25,13 +25,39 @@ # #====================================================================== - use SL::RC; - 1; # end of main +# this is for our long dates +# $locale->text('January') +# $locale->text('February') +# $locale->text('March') +# $locale->text('April') +# $locale->text('May ') +# $locale->text('June') +# $locale->text('July') +# $locale->text('August') +# $locale->text('September') +# $locale->text('October') +# $locale->text('November') +# $locale->text('December') + +# this is for our short month +# $locale->text('Jan') +# $locale->text('Feb') +# $locale->text('Mar') +# $locale->text('Apr') +# $locale->text('May') +# $locale->text('Jun') +# $locale->text('Jul') +# $locale->text('Aug') +# $locale->text('Sep') +# $locale->text('Oct') +# $locale->text('Nov') +# $locale->text('Dec') + sub reconciliation { @@ -42,6 +68,42 @@ sub reconciliation { $form->{title} = $locale->text('Reconciliation'); + if ($form->{report}) { + $form->{title} = $locale->text('Reconciliation Report'); + $cleared = qq| + <input type=hidden name=report value=1> + <tr> + <td align=right><input type=checkbox style=checkbox name=outstanding value=1 checked></td> + <td>|.$locale->text('Outstanding').qq|</td> + <td align=right><input type=checkbox style=checkbox name=cleared value=1></td> + <td>|.$locale->text('Cleared').qq|</td> + </tr> +|; + + } + + + # accounting years + $form->{selectaccountingyear} = "<option>\n"; + map { $form->{selectaccountingyear} .= qq|<option>$_\n| } @{ $form->{all_years} }; + $form->{selectaccountingmonth} = "<option>\n"; + map { $form->{selectaccountingmonth} .= qq|<option value=$_>|.$locale->text($form->{all_month}{$_}).qq|\n| } sort keys %{ $form->{all_month} }; + + $selectfrom = qq| + <tr> + <th align=right>|.$locale->text('Period').qq|</th> + <td colspan=3> + <select name=month>$form->{selectaccountingmonth}</select> + <select name=year>$form->{selectaccountingyear}</select> + <input name=interval class=radio type=radio value=0 checked>|.$locale->text('Current').qq| + <input name=interval class=radio type=radio value=1>|.$locale->text('Month').qq| + <input name=interval class=radio type=radio value=3>|.$locale->text('Quarter').qq| + <input name=interval class=radio type=radio value=12>|.$locale->text('Year').qq| + </td> + </tr> +|; + + $form->header; print qq| @@ -65,9 +127,21 @@ sub reconciliation { <tr> <th align=right>|.$locale->text('From').qq|</th> <td><input name=fromdate size=11 title="$myconfig{dateformat}"></td> - <th align=right>|.$locale->text('to').qq|</th> + <th align=right>|.$locale->text('To').qq|</th> <td><input name=todate size=11 title="$myconfig{dateformat}"></td> </tr> + $selectfrom + $cleared + <tr> + <td align=right><input type=radio style=radio name=summary value=1 checked></td> + <td>|.$locale->text('Summary').qq|</td> + <td align=right><input type=radio style=radio name=summary value=0></td> + <td>|.$locale->text('Detail').qq|</td> + </tr> + <tr> + <td align=right><input type=checkbox style=checkbox name=fx_transaction value=1 checked></td> + <td colspan=3>|.$locale->text('Include Exchange Rate Difference').qq|</td> + </tr> </table> </td> </tr> @@ -81,7 +155,7 @@ sub reconciliation { <input type=hidden name=path value=$form->{path}> <input type=hidden name=login value=$form->{login}> -<input type=hidden name=password value=$form->{password}> +<input type=hidden name=sessionid value=$form->{sessionid}> <input type=submit class=submit name=action value="|.$locale->text('Continue').qq|"> @@ -102,7 +176,15 @@ sub get_payments { ($form->{accno}, $form->{account}) = split /--/, $form->{accno}; RC->payment_transactions(\%myconfig, \%$form); - + + $ml = ($form->{category} eq 'A') ? -1 : 1; + $form->{statementbalance} = $form->{endingbalance} * $ml; + if (! $form->{fx_transaction}) { + $form->{statementbalance} = ($form->{endingbalance} - $form->{fx_endingbalance}) * $ml; + } + + $form->{statementbalance} = $form->format_amount(\%myconfig, $form->{statementbalance}, 2, 0); + &display_form; } @@ -110,15 +192,24 @@ sub get_payments { sub display_form { - @column_index = qw(cleared transdate source name credit debit balance); + if ($form->{report}) { + @column_index = qw(transdate source name cleared credit debit); + } else { + @column_index = qw(transdate source name cleared credit debit balance); + } - $column_header{cleared} = "<th class=listheading> </th>"; + $column_header{cleared} = qq|<th>|.$locale->text('R').qq|</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>"; - $column_header{debit} = "<th class=listheading>".$locale->text('Deposit')."</a></th>"; - $column_header{credit} = "<th class=listheading>".$locale->text('Payment')."</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>"; @@ -128,7 +219,7 @@ sub display_form { } if ($form->{todate}) { $option .= "\n<br>" if ($option); - $option .= $locale->text('to')." ".$locale->date(\%myconfig, $form->{todate}, 1); + $option .= $locale->text('To')." ".$locale->date(\%myconfig, $form->{todate}, 1); } $form->{title} = "$form->{accno}--$form->{account}"; @@ -151,7 +242,7 @@ sub display_form { <tr> <td> <table width=100%> - <tr> + <tr class=listheading> |; map { print "\n$column_header{$_}" } @column_index; @@ -160,64 +251,110 @@ sub display_form { </tr> |; - $form->{beginningbalance} *= -1; - $clearedbalance = $balance = $form->{beginningbalance}; + $ml = ($form->{category} eq 'A') ? -1 : 1; + $form->{beginningbalance} *= $ml; + $form->{fx_balance} *= $ml; + + if (! $form->{fx_transaction}) { + $form->{beginningbalance} -= $form->{fx_balance}; + } + $balance = $form->{beginningbalance}; + $i = 0; - $id = 0; + $j = 0; + + map { $column_data{$_} = "<td> </td>" } qw(cleared transdate source debit credit); - map { $column_data{$_} = "<td> </td>" } qw(cleared transdate source name debit credit); + if (! $form->{report}) { + $column_data{name} = qq|<td>|.$locale->text('Beginning Balance').qq|</td>|; $column_data{balance} = "<td align=right>".$form->format_amount(\%myconfig, $balance, 2, 0)."</td>"; - $j = 0; print qq| - <tr class=listrow$j> + <tr class=listrow$j> |; map { print "\n$column_data{$_}" } @column_index; print qq| - </tr> + </tr> |; - + } + foreach $ref (@{ $form->{PR} }) { - $balance += $ref->{amount} * -1; - $cleared += $ref->{amount} * -1 if $ref->{cleared}; + $i++; + + if (! $form->{fx_transaction}) { + next if $ref->{fx_transaction}; + } - $column_data{name} = "<td>$ref->{name} </td>"; - $column_data{source} = qq|<td>$ref->{source} </a> - </td>|; - $column_data{transdate} = "<td>$ref->{transdate} </td>"; + $checked = ($ref->{cleared}) ? "checked" : ""; + + $column_data{name} = "<td>"; + map { $column_data{name} .= "$_<br>" } @{ $ref->{name} }; + $column_data{name} .= "</td>"; + $column_data{source} = qq|<td>$ref->{source} </td> + <input type=hidden name="id_$i" value=$ref->{id}>|; $column_data{debit} = "<td> </td>"; $column_data{credit} = "<td> </td>"; + $balance += $ref->{amount} * $ml; + if ($ref->{amount} < 0) { + $totaldebits += $ref->{amount} * -1; + $column_data{debit} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{amount} * -1, 2, " ")."</td>"; + } else { + $totalcredits += $ref->{amount}; + $column_data{credit} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{amount}, 2, " ")."</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} * -1; - $column_data{cleared} = qq|<td align=center> - <input type=hidden name="fxoid_$i" value=$ref->{oid}> - </td>|; + + $column_data{cleared} = ($clearfx) ? qq|<td align=center>*</td>| : qq|<td> </td>|; + $cleared += $ref->{amount} * $ml if $clearfx; + } 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>|; + + if ($form->{report}) { + + if ($ref->{cleared}) { + $column_data{cleared} = qq|<td align=center>*</td>|; + $clearfx = 1; + } else { + $column_data{cleared} = qq|<td> </td>|; + $clearfx = 0; + } + + } else { + + if ($ref->{oldcleared}) { + $cleared += $ref->{amount} * $ml; + $clearfx = 1; + $column_data{cleared} = qq|<td align=center>*</td> + <input type=hidden name="cleared_$i" value=$ref->{cleared}> + <input type=hidden name="oldcleared_$i" value=$ref->{oldcleared}> + <input type=hidden name="source_$i" value="$ref->{source}">|; + } else { + $cleared += $ref->{amount} * $ml if $checked; + $clearfx = ($checked) ? 1 : 0; + $column_data{cleared} = qq|<td align=center><input name="cleared_$i" type=checkbox class=checkbox value=1 $checked> + <input type=hidden name="source_$i" value="$ref->{source}"></td>|; + } + + } } - $id = $ref->{id}; + + $column_data{transdate} = qq|<td>$ref->{transdate} </td> + <input type=hidden name="transdate_$i" value=$ref->{transdate}>|; $j++; $j %= 2; print qq| @@ -232,6 +369,8 @@ sub display_form { } + $form->{rowcount} = $i; + # print totals map { $column_data{$_} = "<td> </td>" } @column_index; @@ -243,44 +382,34 @@ sub display_form { |; map { print "\n$column_data{$_}" } @column_index; - + $form->{statementbalance} = $form->parse_amount(\%myconfig, $form->{statementbalance}); - $difference = $form->format_amount(\%myconfig, $form->{statementbalance} - $clearedbalance - $cleared, 2, 0); - + $difference = $form->format_amount(\%myconfig, $form->{beginningbalance} + $cleared - $form->{statementbalance}, 2, 0); $form->{statementbalance} = $form->format_amount(\%myconfig, $form->{statementbalance}, 2, 0); - $clearedbalance = $form->format_amount(\%myconfig, $clearedbalance, 2, 0); - - 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> -|; - } - print qq| </tr> </table> </td> </tr> +|; + + + if ($form->{report}) { + + print qq| + </tr> + </table> +|; + + } else { + + print qq| + <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> + <tr> <td align=right> <table> <tr> @@ -291,7 +420,7 @@ sub display_form { <tr> <th align=right nowrap>|.$locale->text('Difference').qq|</th> <td width=10%></td> - <td align=right><input name=none size=11 value=$difference></td> + <td align=right><input name=null size=11 value=$difference></td> <input type=hidden name=difference value=$difference> </tr> </table> @@ -305,8 +434,11 @@ sub display_form { </tr> </table> -<input type=hidden name=rowcount value=$i> -<input type=hidden name=accno value=$form->{accno}> +<input type=hidden name=fx_transaction value=$form->{fx_transaction}> +<input type=hidden name=summary value=$form->{summary}> + +<input type=hidden name=rowcount value=$form->{rowcount}> +<input type=hidden name=accno value="$form->{accno}"> <input type=hidden name=account value="$form->{account}"> <input type=hidden name=fromdate value=$form->{fromdate}> @@ -314,13 +446,20 @@ sub display_form { <input type=hidden name=path value=$form->{path}> <input type=hidden name=login value=$form->{login}> -<input type=hidden name=password value=$form->{password}> +<input type=hidden name=sessionid value=$form->{sessionid}> <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|"> +<input type=submit class=submit name=action value="|.$locale->text('Done').qq|">|; + } + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + print qq| </form> </body> @@ -334,11 +473,10 @@ sub update { RC->payment_transactions(\%myconfig, \%$form); + $i = 0; foreach $ref (@{ $form->{PR} }) { - if (!$ref->{fx_transaction}) { - $i++; - $ref->{cleared} = "checked" if $form->{"cleared_$i"}; - } + $i++; + $ref->{cleared} = ($form->{"cleared_$i"}) ? 1 : 0; } &display_form; @@ -350,7 +488,7 @@ sub select_all { RC->payment_transactions(\%myconfig, \%$form); - map { $_->{cleared} = "checked" unless $_->{fx_transaction} } @{ $form->{PR} }; + map { $_->{cleared} = 1 } @{ $form->{PR} }; &display_form; @@ -359,7 +497,7 @@ sub select_all { sub done { - $form->{callback} = "$form->{script}?path=$form->{path}&action=reconciliation&login=$form->{login}&password=$form->{password}"; + $form->{callback} = "$form->{script}?path=$form->{path}&action=reconciliation&login=$form->{login}&sessionid=$form->{sessionid}"; $form->error($locale->text('Out of balance!')) if ($form->{difference} *= 1); |