opretter mærkatside tag/debian - jones/content - Unnamed repository; edit this file 'description' to name the repository.

diff options

author	Jonas Smedegaard <jonas@mail.bitbase.dk>	2010-10-27 18:48:59 +0200
committer	Jonas Smedegaard <jonas@mail.bitbase.dk>	2010-10-27 18:48:59 +0200
commit	87f856f65c730897c3a6403e4fc3d31d6acc04b0 (patch)
tree	c4a802eed626e5cdf72bf289ab4580b291543208 /info
parent	438099f58fce14904b8b8484491d8a3767aa5444 (diff)

opretter mærkatside tag/debian

Diffstat (limited to 'info')

0 files changed, 0 insertions, 0 deletions

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

#======================================================================

# module for preparing Income Statement and Balance Sheet

#======================================================================

require "bin/arap.pl";

use LedgerSMB::PE;

use LedgerSMB::RP;

# 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')

# $locale->text('Balance Sheet')

# $locale->text('Income Statement')

# $locale->text('Trial Balance')

# $locale->text('AR Aging')

# $locale->text('AP Aging')

# $locale->text('Tax collected')

# $locale->text('Tax paid')

# $locale->text('Receipts')

# $locale->text('Payments')

# $locale->text('Project Transactions')

# $locale->text('Non-taxable Sales')

# $locale->text('Non-taxable Purchases')

sub report {

  %report = ( balance_sheet => { title => 'Balance Sheet' },

             income_statement   => { title => 'Income Statement' },

             trial_balance  => { title => 'Trial Balance' },

         ar_aging       => { title => 'AR Aging', vc => 'customer' },

         ap_aging       => { title => 'AP Aging', vc => 'vendor' },

         tax_collected  => { title => 'Tax collected', vc => 'customer' },

         tax_paid       => { title => 'Tax paid' },

         nontaxable_sales   => { title => 'Non-taxable Sales', vc => 'customer' },

         nontaxable_purchases => { title => 'Non-taxable Purchases' },

         receipts       => { title => 'Receipts', vc => 'customer' },

         payments       => { title => 'Payments' },

         projects       => { title => 'Project Transactions' },

         inv_activity   => { title => 'Inventory Activity'},

);

  $form->{title} = $locale->text($report{$form->{report}}->{title});

  $gifi = qq|

<tr>

  <th align=right>|.$locale->text('Accounts').qq|</th>

  <td><input name=accounttype class=radio type=radio value=standard checked> |.$locale->text('Standard').qq|

      <input name=accounttype class=radio type=radio value=gifi> |.$locale->text('GIFI').qq|

</td>

</tr>

# get departments

  $form->all_departments(\%myconfig, undef, $report{$form->{report}}->{vc});

  if (@{ $form->{all_department} }) {

    $form->{selectdepartment} = "<option>\n";

    for (@{ $form->{all_department} }) { $form->{selectdepartment} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| }

}

  $department = qq|

<tr>

      <th align=right nowrap>|.$locale->text('Department').qq|</th>

      <td colspan=3><select name=department>$form->{selectdepartment}</select></td>

</tr>

| if $form->{selectdepartment};

  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=3>

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

    $selectto = qq|

<tr>

      <th align=right></th>

<td>

      <select name=month>$form->{selectaccountingmonth}</select>

      <select name=year>$form->{selectaccountingyear}</select>

</td>

</tr>

}

  $summary = qq|

<tr>

      <th></th>

      <td><input name=summary type=radio class=radio value=1 checked> |.$locale->text('Summary').qq|

      <input name=summary type=radio class=radio value=0> |.$locale->text('Detail').qq|

</td>

</tr>

# get projects

  $form->all_projects(\%myconfig);

  if (@{ $form->{all_project} }) {

    $form->{selectproject} = "<option>\n";

    for (@{ $form->{all_project} }) { $form->{selectproject} .= qq|<option value="$_->{projectnumber}--$_->{id}">$_->{projectnumber}\n| }

    $project = qq|

<tr>

      <th align=right nowrap>|.$locale->text('Project').qq|</th>

      <td colspan=3><select name=projectnumber>$form->{selectproject}</select></td>

</tr>|;

}

  $form->header;

print qq|

<body>

<form method=post action=$form->{script}>

<input type=hidden name=title value="$form->{title}">

<table width=100%>

<tr>

    <th class=listtop>$form->{title}</th>

</tr>

  <tr height="5"></tr>

<tr>

<td>

<table>

$department

  if ($form->{report} eq "projects") {

print qq|

$project

        <input type=hidden name=nextsub value=generate_projects>

<tr>

      <th align=right>|.$locale->text('From').qq|</th>

      <td><input name=fromdate size=11 title="$myconfig{dateformat}" value=$form->{fromdate}></td>

      <th align=right>|.$locale->text('To').qq|</th>


context:
space:
mode: