ikiwiki-upstream - Unnamed repository; edit this file to name it for gitweb.

summary refs log tree commit diff

path: root/IkiWiki/Setup

diff options

Diffstat (limited to 'IkiWiki/Setup')

0 files changed, 0 insertions, 0 deletions

# Author: DWS Systems Inc.

# Web: http://www.sql-ledger.org

# Contributors:

# Author: DWS Systems Inc.

# Web: http://www.ledgersmb.org/

# 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 LedgerSMB::GL;

use LedgerSMB::PE;

require "bin/arap.pl";

# 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 pos_adjust {

    $form->{rowcount} = 3;

    require "pos.conf.pl";

    $form->{accno_1} = $pos_config{'close_cash_accno'};

    $form->{accno_2} = $pos_config{'coa_prefix'};

    $form->{accno_3} = $pos_config{'coa_prefix'};

}

sub add_pos_adjust {

    $form->{pos_adjust} = 1;

    $form->{reference} =

      $locale->text("Adjusting Till: (till) Source: (source)");

    $form->{description} =

      $locale->text("Adjusting till due to data entry error.");

    $form->{callback} =

"$form->{script}?action=add_pos_adjust&transfer=$form->{transfer}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"

      unless $form->{callback};

&add;

}

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->{reference} = $form->update_defaults(\%myconfig, 'glnumber');

    $form->{rowcount} = ( $form->{transfer} ) ? 3 : 9;

    if ( $form->{pos_adjust} ) {

&pos_adjust;

}

    $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 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>&nbsp;|

          . $locale->text('Current') . qq|

    <input name=interval class=radio type=radio value=1>&nbsp;|

          . $locale->text('Month') . qq|

    <input name=interval class=radio type=radio value=3>&nbsp;|

          . $locale->text('Quarter') . qq|

    <input name=interval class=radio type=radio value=12>&nbsp;|

          . $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>&nbsp;|

      . $locale->text('All') . qq|

          <input name="category" class=radio type=radio value=A>&nbsp;|

      . $locale->text('Asset') . qq|

          <input name="category" class=radio type=radio value=L>&nbsp;|

      . $locale->text('Liability') . qq|

          <input name="category" class=radio type=radio value=Q>&nbsp;|

      . $locale->text('Equity') . qq|

          <input name="category" class=radio type=radio value=I>&nbsp;|

      . $locale->text('Income') . qq|

          <input name="category" class=radio type=radio value=E>&nbsp;|

      . $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>

<button class="submit" type="submit" name="action" value="continue">|

      . $locale->text('Continue')

      . qq|</button>

</form>

    if ( $form->{lynx} ) {

        require "bin/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     .= "&notes=" . $form->escape( $form->{notes} );

        $callback .= "&notes=" . $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>";


context:
space:
mode: