diff options
Diffstat (limited to 'bin/lynx/gl.pl')
| -rwxr-xr-x | bin/lynx/gl.pl | 1147 |
1 files changed, 2 insertions, 1145 deletions
diff --git a/bin/lynx/gl.pl b/bin/lynx/gl.pl index a8d72d79..3e95b48d 100755 --- a/bin/lynx/gl.pl +++ b/bin/lynx/gl.pl @@ -1,1146 +1,3 @@ -#===================================================================== -# LedgerSMB Small Medium Business Accounting - -# Copyright (C) 2006 -# This work contains copyrighted information from a number of sources all used -# with permission. -# -# This file contains source code included with or based on SQL-Ledger which -# is Copyright Dieter Simader and DWS Systems Inc. 2000-2005 and licensed -# under the GNU General Public License version 2 or, at your option, any later -# version. For a full list including contact information of contributors, -# maintainers, and copyright holders, see the CONTRIBUTORS file. -# -# Original Copyright Notice from SQL-Ledger 2.6.17 (before the fork): -# Copyright (c) 2001 -# -# Author: DWS Systems Inc. -# Web: http://www.sql-ledger.org -# -# Contributors: -# -# -# Author: DWS Systems Inc. -# Web: http://sourceforge.net/projects/ledger-smb/ -# -# Contributors: -# -# This program is free software; you can redistribute it and/or modify -# it under the terms of the GNU General Public License as published by -# the Free Software Foundation; either version 2 of the License, or -# (at your option) any later version. -# -# This program is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU General Public License for more details. -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. -#====================================================================== -# -# Genereal Ledger -# -#====================================================================== - - -use SL::GL; -use SL::PE; - -require "$form->{path}/arap.pl"; - -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 add { - - $form->{title} = "Add"; - - $form->{callback} = "$form->{script}?action=add&transfer=$form->{transfer}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback}; - - &create_links; - - $form->{rowcount} = ($form->{transfer}) ? 3 : 9; - $form->{oldtransdate} = $form->{transdate}; - $form->{focus} = "reference"; - - # departments - if (@{ $form->{all_department} }) { - $form->{selectdepartment} = "<option>\n"; - - for (@{ $form->{all_department} }) { $form->{selectdepartment} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } - } - - &display_form(1); - -} - - -sub edit { - - &create_links; - - $form->{locked} = ($form->{revtrans}) ? '1' : ($form->datetonum(\%myconfig, $form->{transdate}) <= $form->datetonum(\%myconfig, $form->{closedto})); - - # readonly - if (! $form->{readonly}) { - $form->{readonly} = 1 if $myconfig{acs} =~ /General Ledger--Add Transaction/; - } - - $form->{title} = "Edit"; - - $i = 1; - foreach $ref (@{ $form->{GL} }) { - $form->{"accno_$i"} = "$ref->{accno}--$ref->{description}"; - - $form->{"projectnumber_$i"} = "$ref->{projectnumber}--$ref->{project_id}"; - for (qw(fx_transaction source memo)) { $form->{"${_}_$i"} = $ref->{$_} } - - if ($ref->{amount} < 0) { - $form->{totaldebit} -= $ref->{amount}; - $form->{"debit_$i"} = $ref->{amount} * -1; - } else { - $form->{totalcredit} += $ref->{amount}; - $form->{"credit_$i"} = $ref->{amount}; - } - - $i++; - } - - $form->{rowcount} = $i; - $form->{focus} = "debit_$i"; - - &form_header; - &display_rows; - &form_footer; - -} - - - -sub create_links { - - GL->transaction(\%myconfig, \%$form); - - for (@{ $form->{all_accno} }) { $form->{selectaccno} .= "<option>$_->{accno}--$_->{description}\n" } - - # projects - if (@{ $form->{all_project} }) { - $form->{selectprojectnumber} = "<option>\n"; - for (@{ $form->{all_project} }) { $form->{selectprojectnumber} .= qq|<option value="$_->{projectnumber}--$_->{id}">$_->{projectnumber}\n| } - } - - # departments - if (@{ $form->{all_department} }) { - $form->{department} = "$form->{department}--$form->{department_id}"; - $form->{selectdepartment} = "<option>\n"; - for (@{ $form->{all_department} }) { $form->{selectdepartment} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } - } - -} - - -sub search { - - $form->{title} = $locale->text('General Ledger')." ".$locale->text('Reports'); - - $colspan = 5; - $form->all_departments(\%myconfig); - # departments - if (@{ $form->{all_department} }) { - $form->{selectdepartment} = "<option>\n"; - for (@{ $form->{all_department} }) { $form->{selectdepartment} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } - - $l_department = qq|<input name="l_department" class=checkbox type=checkbox value=Y> |.$locale->text('Department'); - - $department = qq| - <tr> - <th align=right nowrap>|.$locale->text('Department').qq|</th> - <td colspan=$colspan><select name=department>$form->{selectdepartment}</select></td> - </tr> -|; - } - - if (@{ $form->{all_years} }) { - # accounting years - $form->{selectaccountingyear} = "<option>\n"; - for (@{ $form->{all_years} }) { $form->{selectaccountingyear} .= qq|<option>$_\n| } - $form->{selectaccountingmonth} = "<option>\n"; - for (sort keys %{ $form->{all_month} }) { $form->{selectaccountingmonth} .= qq|<option value=$_>|.$locale->text($form->{all_month}{$_}).qq|\n| } - - $selectfrom = qq| - <tr> - <th align=right>|.$locale->text('Period').qq|</th> - <td colspan=$colspan> - <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> -|; - } - - @a = (); - push @a, qq|<input name="l_id" class=checkbox type=checkbox value=Y> |.$locale->text('ID'); - push @a, qq|<input name="l_transdate" class=checkbox type=checkbox value=Y checked> |.$locale->text('Date'); - push @a, qq|<input name="l_reference" class=checkbox type=checkbox value=Y checked> |.$locale->text('Reference'); - push @a, qq|<input name="l_description" class=checkbox type=checkbox value=Y checked> |.$locale->text('Description'); - push @a, qq|<input name="l_notes" class=checkbox type=checkbox value=Y> |.$locale->text('Notes'); - push @a, $l_department if $l_department; - push @a, qq|<input name="l_debit" class=checkbox type=checkbox value=Y checked> |.$locale->text('Debit'); - push @a, qq|<input name="l_credit" class=checkbox type=checkbox value=Y checked> |.$locale->text('Credit'); - push @a, qq|<input name="l_source" class=checkbox type=checkbox value=Y checked> |.$locale->text('Source'); - push @a, qq|<input name="l_memo" class=checkbox type=checkbox value=Y> |.$locale->text('Memo'); - push @a, qq|<input name="l_accno" class=checkbox type=checkbox value=Y checked> |.$locale->text('Account'); - push @a, qq|<input name="l_gifi_accno" class=checkbox type=checkbox value=Y> |.$locale->text('GIFI'); - - - $form->header; - - print qq| -<body> - -<form method=post action=$form->{script}> - -<input type=hidden name=sort value=transdate> - -<table width=100%> - <tr> - <th class=listtop>$form->{title}</th> - </tr> - <tr height="5"></tr> - <tr> - <td> - <table> - <tr> - <th align=right>|.$locale->text('Reference').qq|</th> - <td><input name=reference size=20></td> - - </tr> - <tr> - <th align=right>|.$locale->text('Source').qq|</th> - <td><input name=source size=20></td> - <th align=right>|.$locale->text('Memo').qq|</th> - <td><input name=memo size=20></td> - </tr> - $department - <tr> - <th align=right>|.$locale->text('Description').qq|</th> - <td colspan=$colspan><input name=description size=60></td> - </tr> - <tr> - <th align=right>|.$locale->text('Notes').qq|</th> - <td colspan=$colspan><input name=notes size=60></td> - </tr> - <tr> - <th align=right>|.$locale->text('From').qq|</th> - <td><input name=datefrom size=11 title="$myconfig{dateformat}"></td> - <th align=right>|.$locale->text('To').qq|</th> - <td><input name=dateto size=11 title="$myconfig{dateformat}"></td> - </tr> - $selectfrom - <tr> - <th align=right>|.$locale->text('Amount').qq| >=</th> - <td><input name=amountfrom size=11></td> - <th align=right>|.$locale->text('Amount').qq| <=</th> - <td><input name=amountto size=11></td> - </tr> - <tr> - <th align=right>|.$locale->text('Include in Report').qq|</th> - <td colspan=$colspan> - <table> - <tr> - <td> - <input name="category" class=radio type=radio value=X checked> |.$locale->text('All').qq| - <input name="category" class=radio type=radio value=A> |.$locale->text('Asset').qq| - <input name="category" class=radio type=radio value=L> |.$locale->text('Liability').qq| - <input name="category" class=radio type=radio value=Q> |.$locale->text('Equity').qq| - <input name="category" class=radio type=radio value=I> |.$locale->text('Income').qq| - <input name="category" class=radio type=radio value=E> |.$locale->text('Expense').qq| - </td> - </tr> - <tr> - <table> -|; - - while (@a) { - print qq|<tr>\n|; - for (1 .. 5) { - print qq|<td nowrap>|. shift @a; - print qq|</td>\n|; - } - print qq|</tr>\n|; - } - - print qq| - <tr> - <td nowrap><input name="l_subtotal" class=checkbox type=checkbox value=Y> |.$locale->text('Subtotal').qq|</td> - </tr> - </table> - </tr> - </table> - </tr> - </table> - </td> - </tr> - <tr> - <td><hr size=3 noshade></td> - </tr> -</table> - -<input type=hidden name=nextsub value=generate_report> -|; - - $form->hide_form(qw(path login sessionid)); - - print qq| -<br> -<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|"> -</form> -|; - - if ($form->{menubar}) { - require "$form->{path}/menu.pl"; - &menubar; - } - - print qq| - -</body> -</html> -|; -} - - -sub generate_report { - - $form->{sort} = "transdate" unless $form->{sort}; - - GL->all_transactions(\%myconfig, \%$form); - - $href = "$form->{script}?action=generate_report&direction=$form->{direction}&oldsort=$form->{oldsort}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; - - $form->sort_order(); - - $callback = "$form->{script}?action=generate_report&direction=$form->{direction}&oldsort=$form->{oldsort}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; - - %acctype = ( 'A' => $locale->text('Asset'), - 'L' => $locale->text('Liability'), - 'Q' => $locale->text('Equity'), - 'I' => $locale->text('Income'), - 'E' => $locale->text('Expense'), - ); - - $form->{title} = $locale->text('General Ledger'); - - $ml = ($form->{category} =~ /(A|E)/) ? -1 : 1; - - unless ($form->{category} eq 'X') { - $form->{title} .= " : ".$locale->text($acctype{$form->{category}}); - } - if ($form->{accno}) { - $href .= "&accno=".$form->escape($form->{accno}); - $callback .= "&accno=".$form->escape($form->{accno},1); - $option = $locale->text('Account')." : $form->{accno} $form->{account_description}"; - } - if ($form->{gifi_accno}) { - $href .= "&gifi_accno=".$form->escape($form->{gifi_accno}); - $callback .= "&gifi_accno=".$form->escape($form->{gifi_accno},1); - $option .= "\n<br>" if $option; - $option .= $locale->text('GIFI')." : $form->{gifi_accno} $form->{gifi_account_description}"; - } - if ($form->{source}) { - $href .= "&source=".$form->escape($form->{source}); - $callback .= "&source=".$form->escape($form->{source},1); - $option .= "\n<br>" if $option; - $option .= $locale->text('Source')." : $form->{source}"; - } - if ($form->{memo}) { - $href .= "&memo=".$form->escape($form->{memo}); - $callback .= "&memo=".$form->escape($form->{memo},1); - $option .= "\n<br>" if $option; - $option .= $locale->text('Memo')." : $form->{memo}"; - } - if ($form->{reference}) { - $href .= "&reference=".$form->escape($form->{reference}); - $callback .= "&reference=".$form->escape($form->{reference},1); - $option .= "\n<br>" if $option; - $option .= $locale->text('Reference')." : $form->{reference}"; - } - if ($form->{department}) { - $href .= "&department=".$form->escape($form->{department}); - $callback .= "&department=".$form->escape($form->{department},1); - ($department) = split /--/, $form->{department}; - $option .= "\n<br>" if $option; - $option .= $locale->text('Department')." : $department"; - } - - if ($form->{description}) { - $href .= "&description=".$form->escape($form->{description}); - $callback .= "&description=".$form->escape($form->{description},1); - $option .= "\n<br>" if $option; - $option .= $locale->text('Description')." : $form->{description}"; - } - if ($form->{notes}) { - $href .= "¬es=".$form->escape($form->{notes}); - $callback .= "¬es=".$form->escape($form->{notes},1); - $option .= "\n<br>" if $option; - $option .= $locale->text('Notes')." : $form->{notes}"; - } - - if ($form->{datefrom}) { - $href .= "&datefrom=$form->{datefrom}"; - $callback .= "&datefrom=$form->{datefrom}"; - $option .= "\n<br>" if $option; - $option .= $locale->text('From')." ".$locale->date(\%myconfig, $form->{datefrom}, 1); - } - if ($form->{dateto}) { - $href .= "&dateto=$form->{dateto}"; - $callback .= "&dateto=$form->{dateto}"; - if ($form->{datefrom}) { - $option .= " "; - } else { - $option .= "\n<br>" if $option; - } - $option .= $locale->text('To')." ".$locale->date(\%myconfig, $form->{dateto}, 1); - } - - if ($form->{amountfrom}) { - $href .= "&amountfrom=$form->{amountfrom}"; - $callback .= "&amountfrom=$form->{amountfrom}"; - $option .= "\n<br>" if $option; - $option .= $locale->text('Amount')." >= ".$form->format_amount(\%myconfig, $form->{amountfrom}, 2); - } - if ($form->{amountto}) { - $href .= "&amountto=$form->{amountto}"; - $callback .= "&amountto=$form->{amountto}"; - if ($form->{amountfrom}) { - $option .= " <= "; - } else { - $option .= "\n<br>" if $option; - $option .= $locale->text('Amount')." <= "; - } - $option .= $form->format_amount(\%myconfig, $form->{amountto}, 2); - } - - - @columns = $form->sort_columns(qw(transdate id reference description notes source memo debit credit accno gifi_accno department)); - pop @columns if $form->{department}; - - if ($form->{link} =~ /_paid/) { - @columns = $form->sort_columns(qw(transdate id reference description notes source memo cleared debit credit accno gifi_accno)); - $form->{l_cleared} = "Y"; - } - - if ($form->{accno} || $form->{gifi_accno}) { - @columns = grep !/(accno|gifi_accno)/, @columns; - push @columns, "balance"; - $form->{l_balance} = "Y"; - } - - - foreach $item (@columns) { - if ($form->{"l_$item"} eq "Y") { - push @column_index, $item; - - # add column to href and callback - $callback .= "&l_$item=Y"; - $href .= "&l_$item=Y"; - } - } - - if ($form->{l_subtotal} eq 'Y') { - $callback .= "&l_subtotal=Y"; - $href .= "&l_subtotal=Y"; - } - - $callback .= "&category=$form->{category}"; - $href .= "&category=$form->{category}"; - - $column_header{id} = "<th><a class=listheading href=$href&sort=id>".$locale->text('ID')."</a></th>"; - $column_header{transdate} = "<th><a class=listheading href=$href&sort=transdate>".$locale->text('Date')."</a></th>"; - $column_header{reference} = "<th><a class=listheading href=$href&sort=reference>".$locale->text('Reference')."</a></th>"; - $column_header{source} = "<th><a class=listheading href=$href&sort=source>".$locale->text('Source')."</a></th>"; - $column_header{memo} = "<th><a class=listheading href=$href&sort=memo>".$locale->text('Memo')."</a></th>"; - $column_header{description} = "<th><a class=listheading href=$href&sort=description>".$locale->text('Description')."</a></th>"; - $column_header{department} = "<th><a class=listheading href=$href&sort=department>".$locale->text('Department')."</a></th>"; - $column_header{notes} = "<th class=listheading>".$locale->text('Notes')."</th>"; - $column_header{debit} = "<th class=listheading>".$locale->text('Debit')."</th>"; - $column_header{credit} = "<th class=listheading>".$locale->text('Credit')."</th>"; - $column_header{accno} = "<th><a class=listheading href=$href&sort=accno>".$locale->text('Account')."</a></th>"; - $column_header{gifi_accno} = "<th><a class=listheading href=$href&sort=gifi_accno>".$locale->text('GIFI')."</a></th>"; - $column_header{balance} = "<th>".$locale->text('Balance')."</th>"; - $column_header{cleared} = qq|<th>|.$locale->text('R').qq|</th>|; - - $form->header; - - print qq| -<body> - -<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> -|; - - for (@column_index) { print "$column_header{$_}\n" } - - print " - </tr> -"; - - # add sort to callback - $form->{callback} = "$callback&sort=$form->{sort}"; - $callback = $form->escape($form->{callback}); - - $cml = 1; - # initial item for subtotals - if (@{ $form->{GL} }) { - $sameitem = $form->{GL}->[0]->{$form->{sort}}; - $cml = -1 if $form->{contra}; - } - - if (($form->{accno} || $form->{gifi_accno}) && $form->{balance}) { - - for (@column_index) { $column_data{$_} = "<td> </td>" } - $column_data{balance} = "<td align=right>".$form->format_amount(\%myconfig, $form->{balance} * $ml * $cml, 2, 0)."</td>"; - - $i++; $i %= 2; - print qq| - <tr class=listrow$i> -|; - for (@column_index) { print "$column_data{$_}\n" } - - print qq| - </tr> -|; - } - - # reverse href - $direction = ($form->{direction} eq 'ASC') ? "ASC" : "DESC"; - $form->sort_order(); - $href =~ s/direction=$form->{direction}/direction=$direction/; - - $i = 0; - foreach $ref (@{ $form->{GL} }) { - - # if item ne sort print subtotal - if ($form->{l_subtotal} eq 'Y') { - if ($sameitem ne $ref->{$form->{sort}}) { - &gl_subtotal; - } - } - - $form->{balance} += $ref->{amount}; - - $subtotaldebit += $ref->{debit}; - $subtotalcredit += $ref->{credit}; - - $totaldebit += $ref->{debit}; - $totalcredit += $ref->{credit}; - - $ref->{debit} = $form->format_amount(\%myconfig, $ref->{debit}, 2, " "); - $ref->{credit} = $form->format_amount(\%myconfig, $ref->{credit}, 2, " "); - - for (qw(id transdate)) { $column_data{$_} = "<td>$ref->{$_}</td>" } - - $column_data{reference} = "<td><a href=$ref->{module}.pl?action=edit&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{reference}</td>"; - - $ref->{notes} =~ s/\r?\n/<br>/g; - for (qw(description source memo notes department)) { $column_data{$_} = "<td>$ref->{$_} </td>" } - - $column_data{debit} = "<td align=right>$ref->{debit}</td>"; - $column_data{credit} = "<td align=right>$ref->{credit}</td>"; - - $column_data{accno} = "<td><a href=$href&accno=$ref->{accno}&callback=$callback>$ref->{accno}</a></td>"; - $column_data{gifi_accno} = "<td><a href=$href&gifi_accno=$ref->{gifi_accno}&callback=$callback>$ref->{gifi_accno}</a> </td>"; - $column_data{balance} = "<td align=right>".$form->format_amount(\%myconfig, $form->{balance} * $ml * $cml, 2, 0)."</td>"; - $column_data{cleared} = ($ref->{cleared}) ? "<td>*</td>" : "<td> </td>"; - - if ($ref->{id} != $sameid) { - $i++; $i %= 2; - } - print " - <tr class=listrow$i>"; - for (@column_index) { print "$column_data{$_}\n" } - print "</tr>"; - - $sameid = $ref->{id}; - } - - - &gl_subtotal if ($form->{l_subtotal} eq 'Y'); - - - for (@column_index) { $column_data{$_} = "<td> </td>" } - - $column_data{debit} = "<th align=right class=listtotal>".$form->format_amount(\%myconfig, $totaldebit, 2, " ")."</th>"; - $column_data{credit} = "<th align=right class=listtotal>".$form->format_amount(\%myconfig, $totalcredit, 2, " ")."</th>"; - $column_data{balance} = "<th align=right class=listtotal>".$form->format_amount(\%myconfig, $form->{balance} * $ml * $cml, 2, 0)."</th>"; - - print qq| - <tr class=listtotal> -|; - - for (@column_index) { print "$column_data{$_}\n" } - - $i = 1; - if ($myconfig{acs} !~ /General Ledger--General Ledger/) { - $button{'General Ledger--Add Transaction'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('GL Transaction').qq|"> |; - $button{'General Ledger--Add Transaction'}{order} = $i++; - } - if ($myconfig{acs} !~ /AR--AR/) { - $button{'AR--Add Transaction'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('AR Transaction').qq|"> |; - $button{'AR--Add Transaction'}{order} = $i++; - $button{'AR--Sales Invoice'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Sales Invoice ').qq|"> |; - $button{'AR--Sales Invoice'}{order} = $i++; - } - if ($myconfig{acs} !~ /AP--AP/) { - $button{'AP--Add Transaction'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('AP Transaction').qq|"> |; - $button{'AP--Add Transaction'}{order} = $i++; - $button{'AP--Vendor Invoice'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Vendor Invoice ').qq|"> |; - $button{'AP--Vendor Invoice'}{order} = $i++; - } - - foreach $item (split /;/, $myconfig{acs}) { - delete $button{$item}; - } - - print qq| - </tr> - </table> - </td> - </tr> - <tr> - <td><hr size=3 noshade></td> - </tr> -</table> - -<br> - -<form method=post action=$form->{script}> -|; - - $form->hide_form(qw(callback path login sessionid)); - - foreach $item (sort { $a->{order} <=> $b->{order} } %button) { - print $item->{code}; - } - - if ($form->{menubar}) { - require "$form->{path}/menu.pl"; - &menubar; - } - - print qq| - -</form> - -</body> -</html> -|; - -} - - -sub gl_subtotal { - - $subtotaldebit = $form->format_amount(\%myconfig, $subtotaldebit, 2, " "); - $subtotalcredit = $form->format_amount(\%myconfig, $subtotalcredit, 2, " "); - - for (@column_index) { $column_data{$_} = "<td> </td>" } - - $column_data{debit} = "<th align=right class=listsubtotal>$subtotaldebit</td>"; - $column_data{credit} = "<th align=right class=listsubtotal>$subtotalcredit</td>"; - - - print "<tr class=listsubtotal>"; - for (@column_index) { print "$column_data{$_}\n" } - print "</tr>"; - - $subtotaldebit = 0; - $subtotalcredit = 0; - - $sameitem = $ref->{$form->{sort}}; - -} - - -sub update { - - if ($form->{transdate} ne $form->{oldtransdate}) { - if ($form->{selectprojectnumber}) { - $form->all_projects(\%myconfig, undef, $form->{transdate}); - if (@{ $form->{all_project} }) { - $form->{selectprojectnumber} = "<option>\n"; - for (@{ $form->{all_project} }) { $form->{selectprojectnumber} .= qq|<option value="$_->{projectnumber}--$_->{id}">$_->{projectnumber}\n| } - $form->{selectprojectnumber} = $form->escape($form->{selectprojectnumber},1); - } - } - $form->{oldtransdate} = $form->{transdate}; - } - - @a = (); - $count = 0; - @flds = qw(accno debit credit projectnumber fx_transaction source memo); - - for $i (1 .. $form->{rowcount}) { - unless (($form->{"debit_$i"} eq "") && ($form->{"credit_$i"} eq "")) { - for (qw(debit credit)) { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } - - push @a, {}; - $j = $#a; - - for (@flds) { $a[$j]->{$_} = $form->{"${_}_$i"} } - $count++; - } - } - - - for $i (1 .. $count) { - $j = $i - 1; - for (@flds) { $form->{"${_}_$i"} = $a[$j]->{$_} } - } - - for $i ($count + 1 .. $form->{rowcount}) { - for (@flds) { delete $form->{"${_}_$i"} } - } - - $form->{rowcount} = $count + 1; - - &display_form; - -} - - -sub display_form { - my ($init) = @_; - - &form_header; - &display_rows($init); - &form_footer; - -} - - -sub display_rows { - my ($init) = @_; - - $form->{selectprojectnumber} = $form->unescape($form->{selectprojectnumber}) if $form->{selectprojectnumber}; - - $form->{totaldebit} = 0; - $form->{totalcredit} = 0; - - for $i (1 .. $form->{rowcount}) { - - $source = qq| - <td><input name="source_$i" size=10 value="$form->{"source_$i"}"></td>|; - $memo = qq| - <td><input name="memo_$i" value="$form->{"memo_$i"}"></td>|; - - if ($init) { - $accno = qq| - <td><select name="accno_$i">$form->{selectaccno}</select></td>|; - - if ($form->{selectprojectnumber}) { - $project = qq| - <td><select name="projectnumber_$i">$form->{selectprojectnumber}</select></td>|; - } - - if ($form->{transfer}) { - $fx_transaction = qq| - <td><input name="fx_transaction_$i" class=checkbox type=checkbox value=1></td> - |; - } - - } else { - - $form->{totaldebit} += $form->{"debit_$i"}; - $form->{totalcredit} += $form->{"credit_$i"}; - - for (qw(debit credit)) { $form->{"${_}_$i"} = ($form->{"${_}_$i"}) ? $form->format_amount(\%myconfig, $form->{"${_}_$i"}, 2) : "" } - - if ($i < $form->{rowcount}) { - - $accno = qq|<td>$form->{"accno_$i"}</td>|; - - if ($form->{selectprojectnumber}) { - $form->{"projectnumber_$i"} = "" if $form->{selectprojectnumber} !~ /$form->{"projectnumber_$i"}/; - - $project = $form->{"projectnumber_$i"}; - $project =~ s/--.*//; - $project = qq|<td>$project</td>|; - } - - if ($form->{transfer}) { - $checked = ($form->{"fx_transaction_$i"}) ? "1" : ""; - $x = ($checked) ? "x" : ""; - $fx_transaction = qq| - <td><input type=hidden name="fx_transaction_$i" value="$checked">$x</td> - |; - } - - $form->hide_form("accno_$i", "projectnumber_$i"); - - } else { - - $accno = qq| - <td><select name="accno_$i">$form->{selectaccno}</select></td>|; - - if ($form->{selectprojectnumber}) { - $project = qq| - <td><select name="projectnumber_$i">$form->{selectprojectnumber}</select></td>|; - } - - if ($form->{transfer}) { - $fx_transaction = qq| - <td><input name="fx_transaction_$i" class=checkbox type=checkbox value=1></td> - |; - } - } - } - - print qq|<tr valign=top> - $accno - $fx_transaction - <td><input name="debit_$i" size=12 value="$form->{"debit_$i"}" accesskey=$i></td> - <td><input name="credit_$i" size=12 value=$form->{"credit_$i"}></td> - $source - $memo - $project - </tr> - - |; - } - - $form->hide_form(qw(rowcount selectaccno)); - - print qq| -<input type=hidden name=selectprojectnumber value="|.$form->escape($form->{selectprojectnumber},1).qq|">|; - -} - - -sub form_header { - - $title = $form->{title}; - if ($form->{transfer}) { - $form->{title} = $locale->text("$title Cash Transfer Transaction"); - } else { - $form->{title} = $locale->text("$title General Ledger Transaction"); - } - -# $locale->text('Add Cash Transfer Transaction') -# $locale->text('Edit Cash Transfer Transaction') -# $locale->text('Add General Ledger Transaction') -# $locale->text('Edit General Ledger Transaction') - - - $form->{selectdepartment} = $form->unescape($form->{selectdepartment}); - $form->{selectdepartment} =~ s/ selected//; - $form->{selectdepartment} =~ s/(<option value="\Q$form->{department}\E")/$1 selected/; - - for (qw(reference description notes)) { $form->{$_} = $form->quote($form->{$_}) } - - if (($rows = $form->numtextrows($form->{description}, 50)) > 1) { - $description = qq|<textarea name=description rows=$rows cols=50 wrap=soft>$form->{description}</textarea>|; - } else { - $description = qq|<input name=description size=50 value="$form->{description}">|; - } - - if (($rows = $form->numtextrows($form->{notes}, 50)) > 1) { - $notes = qq|<textarea name=notes rows=$rows cols=50 wrap=soft>$form->{notes}</textarea>|; - } else { - $notes = qq|<input name=notes size=50 value="$form->{notes}">|; - } - - $department = qq| - <tr> - <th align=right nowrap>|.$locale->text('Department').qq|</th> - <td><select name=department>$form->{selectdepartment}</select></td> - <input type=hidden name=selectdepartment value="|.$form->escape($form->{selectdepartment},1).qq|"> - </tr> -| if $form->{selectdepartment}; - - $project = qq| - <th class=listheading>|.$locale->text('Project').qq|</th> -| if $form->{selectprojectnumber}; - - if ($form->{transfer}) { - $fx_transaction = qq| - <th class=listheading>|.$locale->text('FX').qq|</th> -|; - } - - $focus = ($form->{focus}) ? $form->{focus} : "debit_$form->{rowcount}"; - - $form->header; - - print qq| -<body onload="document.forms[0].${focus}.focus()" /> - -<form method=post action=$form->{script}> -|; - - $form->hide_form(qw(id transfer selectaccno closedto locked oldtransdate recurring)); - - print qq| -<input type=hidden name=title value="$title"> - -<table width=100%> - <tr> - <th class=listtop>$form->{title}</th> - </tr> - <tr height="5"></tr> - <tr> - <td> - <table> - <tr> - <th align=right>|.$locale->text('Reference').qq|</th> - <td><input name=reference size=20 value="$form->{reference}"></td> - <th align=right>|.$locale->text('Date').qq|</th> - <td><input name=transdate size=11 title="$myconfig{dateformat}" value=$form->{transdate}></td> - </tr> - $department - <tr> - <th align=right>|.$locale->text('Description').qq|</th> - <td colspan=3>$description</td> - </tr> - <tr> - <th align=right>|.$locale->text('Notes').qq|</th> - <td colspan=3>$notes</td> - </tr> - </table> - </td> - </tr> - <tr> - <td> - <table width=100%> - <tr class=listheading> - <th class=listheading>|.$locale->text('Account').qq|</th> - $fx_transaction - <th class=listheading>|.$locale->text('Debit').qq|</th> - <th class=listheading>|.$locale->text('Credit').qq|</th> - <th class=listheading>|.$locale->text('Source').qq|</th> - <th class=listheading>|.$locale->text('Memo').qq|</th> - $project - </tr> -|; - -} - - -sub form_footer { - - for (qw(totaldebit totalcredit)) { $form->{$_} = $form->format_amount(\%myconfig, $form->{$_}, 2, " ") } - - - $project = qq| - <th> </th> -| if $form->{selectprojectnumber}; - - if ($form->{transfer}) { - $fx_transaction = qq| - <th> </th> -|; - } - - print qq| - <tr class=listtotal> - <th> </th> - $fx_transaction - <th class=listtotal align=right>$form->{totaldebit}</th> - <th class=listtotal align=right>$form->{totalcredit}</th> - <th> </th> - <th> </th> - $project - </tr> - </table> - </td> - </tr> - <tr> - <td><hr size=3 noshade></td> - </tr> -</table> -|; - - $form->hide_form(qw(path login sessionid callback)); - - $transdate = $form->datetonum(\%myconfig, $form->{transdate}); - $closedto = $form->datetonum(\%myconfig, $form->{closedto}); - -# type=submit $locale->text('Update') -# type=submit $locale->text('Post') -# type=submit $locale->text('Schedule') -# type=submit $locale->text('Post as new') -# type=submit $locale->text('Delete') - - if (! $form->{readonly}) { - - %button = ('Update' => { ndx => 1, key => 'U', value => $locale->text('Update') }, - 'Post' => { ndx => 3, key => 'O', value => $locale->text('Post') }, - 'Post as new' => { ndx => 6, key => 'N', value => $locale->text('Post as new') }, - 'Schedule' => { ndx => 7, key => 'H', value => $locale->text('Schedule') }, - 'Delete' => { ndx => 8, key => 'D', value => $locale->text('Delete') }, - ); - - %a = (); - - if ($form->{id}) { - for ('Update', 'Post as new', 'Schedule') { $a{$_} = 1 } - - if (! $form->{locked}) { - if ($transdate > $closedto) { - for ('Post', 'Delete') { $a{$_} = 1 } - } - } - - } else { - if ($transdate > $closedto) { - for ("Update", "Post", "Schedule") { $a{$_} = 1 } - } - } - - for (keys %button) { delete $button{$_} if ! $a{$_} } - for (sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button) { $form->print_button(\%button, $_) } - - } - - if ($form->{recurring}) { - print qq|<div align=right>|.$locale->text('Scheduled').qq|</div>|; - } - - if ($form->{menubar}) { - require "$form->{path}/menu.pl"; - &menubar; - } - - print qq| - </form> - -</body> -</html> -|; - -} - - -sub delete { - - $form->header; - - print qq| -<body> - -<form method=post action=$form->{script}> -|; - - delete $form->{action}; - - $form->hide_form; - - print qq| -<h2 class=confirm>|.$locale->text('Confirm!').qq|</h2> - -<h4>|.$locale->text('Are you sure you want to delete Transaction').qq| $form->{reference}</h4> - -<input name=action class=submit type=submit value="|.$locale->text('Yes').qq|"> -</form> -|; - -} - - -sub yes { - - if (GL->delete_transaction(\%myconfig, \%$form)) { - $form->redirect($locale->text('Transaction deleted!')); - } else { - $form->error($locale->text('Cannot delete transaction!')); - } - -} - - -sub post { - - $form->isblank("transdate", $locale->text('Transaction Date missing!')); - - $transdate = $form->datetonum(\%myconfig, $form->{transdate}); - $closedto = $form->datetonum(\%myconfig, $form->{closedto}); - - $form->error($locale->text('Cannot post transaction for a closed period!')) if ($transdate <= $closedto); - - # add up debits and credits - for $i (1 .. $form->{rowcount}) { - $dr = $form->parse_amount(\%myconfig, $form->{"debit_$i"}); - $cr = $form->parse_amount(\%myconfig, $form->{"credit_$i"}); - - if ($dr && $cr) { - $form->error($locale->text('Cannot post transaction with a debit and credit entry for the same account!')); - } - $debit += $dr; - $credit += $cr; - } - - if ($form->round_amount($debit, 2) != $form->round_amount($credit, 2)) { - $form->error($locale->text('Out of balance transaction!')); - } - - if (! $form->{repost}) { - if ($form->{id}) { - &repost; - exit; - } - } - - if (GL->post_transaction(\%myconfig, \%$form)) { - $form->redirect($locale->text('Transaction posted!')); - } else { - $form->error($locale->text('Cannot post transaction!')); - } - -} - +#!/bin/perl +require "bin/mozilla/gl.pl"; |