bin/mozilla/ca.pl

   1 #=====================================================================
   2 # LX-Office ERP
   3 # Copyright (C) 2004
   4 # Based on SQL-Ledger Version 2.1.9
   5 # Web http://www.lx-office.org
   6 #
   7 #=====================================================================
   8 # SQL-Ledger Accounting
   9 # Copyright (C) 2001
  10 #
  11 #  Author: Dieter Simader
  12 #   Email: dsimader@sql-ledger.org
  13 #     Web: http://www.sql-ledger.org
  14 #
  15 #
  16 # This program is free software; you can redistribute it and/or modify
  17 # it under the terms of the GNU General Public License as published by
  18 # the Free Software Foundation; either version 2 of the License, or
  19 # (at your option) any later version.
  20 #
  21 # This program is distributed in the hope that it will be useful,
  22 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  23 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  24 # GNU General Public License for more details.
  25 # You should have received a copy of the GNU General Public License
  26 # along with this program; if not, write to the Free Software
  27 # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  28 #======================================================================
  29 #
  30 # module for Chart of Accounts, Income Statement and Balance Sheet
  31 # search and edit transactions posted by the GL, AR and AP
  32 #
  33 #======================================================================
  34
  35 use POSIX qw(strftime);
  36
  37 use SL::CA;
  38 use SL::ReportGenerator;
  39
  40 require "bin/mozilla/reportgenerator.pl";
  41
  42 1;
  43
  44 # end of main
  45
  46 # this is for our long dates
  47 # $locale->text('January')
  48 # $locale->text('February')
  49 # $locale->text('March')
  50 # $locale->text('April')
  51 # $locale->text('May ')
  52 # $locale->text('June')
  53 # $locale->text('July')
  54 # $locale->text('August')
  55 # $locale->text('September')
  56 # $locale->text('October')
  57 # $locale->text('November')
  58 # $locale->text('December')
  59
  60 # this is for our short month
  61 # $locale->text('Jan')
  62 # $locale->text('Feb')
  63 # $locale->text('Mar')
  64 # $locale->text('Apr')
  65 # $locale->text('May')
  66 # $locale->text('Jun')
  67 # $locale->text('Jul')
  68 # $locale->text('Aug')
  69 # $locale->text('Sep')
  70 # $locale->text('Oct')
  71 # $locale->text('Nov')
  72 # $locale->text('Dec')
  73
  74 sub chart_of_accounts {
  75   $lxdebug->enter_sub();
  76
  77   $form->{title} = $locale->text('Chart of Accounts');
  78
  79   CA->all_accounts(\%myconfig, \%$form);
  80
  81   my @columns     = qw(accno description debit credit);
  82   my %column_defs = (
  83     'accno'       => { 'text' => $locale->text('Account'), },
  84     'description' => { 'text' => $locale->text('Description'), },
  85     'debit'       => { 'text' => $locale->text('Debit'), },
  86     'credit'      => { 'text' => $locale->text('Credit'), },
  87   );
  88
  89   my $report = SL::ReportGenerator->new(\%myconfig, $form);
  90
  91   $report->set_options('output_format'         => 'HTML',
  92                        'title'                 => $form->{title},
  93                        'attachment_basename'   => $locale->text('chart_of_accounts') . strftime('_%Y%m%d', localtime time),
  94                        'std_column_visibility' => 1,
  95     );
  96   $report->set_options_from_form();
  97
  98   $report->set_columns(%column_defs);
  99   $report->set_column_order(@columns);
 100
 101   $report->set_export_options('chart_of_accounts');
 102
 103   $report->set_sort_indicator($form->{sort}, 1);
 104
 105   my %totals = ('debit' => 0, 'credit' => 0);
 106
 107   foreach my $ca (@{ $form->{CA} }) {
 108     my $row = { };
 109
 110     foreach (qw(debit credit)) {
 111       $totals{$_} += $ca->{$_} * 1;
 112       $ca->{$_}    = $form->format_amount(\%myconfig, $ca->{$_}, 2) if ($ca->{$_});
 113     }
 114
 115     map { $row->{$_} = { 'data' => $ca->{$_} } } @columns;
 116
 117     map { $row->{$_}->{align} = 'right'       } qw(debit credit);
 118     map { $row->{$_}->{class} = 'listheading' } @columns if ($ca->{charttype} eq "H");
 119
 120     $row->{accno}->{link} = build_std_url('action=list', 'accno=' . E($ca->{accno}), 'description=' . E($ca->{description}));
 121
 122     $report->add_data($row);
 123   }
 124
 125   my $row = { map { $_ => { 'class' => 'listtotal', 'align' => 'right' } } @columns };
 126   map { $row->{$_}->{data} = $form->format_amount(\%myconfig, $totals{$_}, 2) } qw(debit credit);
 127
 128   $report->add_separator();
 129   $report->add_data($row);
 130
 131   $report->generate_with_headers();
 132
 133   $lxdebug->leave_sub();
 134 }
 135
 136 sub list {
 137   $lxdebug->enter_sub();
 138
 139   $form->{title} = $locale->text('List Transactions');
 140   $form->{title} .= " - " . $locale->text('Account') . " $form->{accno}";
 141
 142   # get departments
 143   $form->all_departments(\%myconfig);
 144   if (@{ $form->{all_departments} }) {
 145     $form->{selectdepartment} = "<option>\n";
 146
 147     map {
 148       $form->{selectdepartment} .=
 149         "<option>$_->{description}--$_->{id}\n"
 150     } (@{ $form->{all_departments} });
 151   }
 152
 153   $department = qq|
 154         <tr>
 155           <th align=right nowrap>| . $locale->text('Department') . qq|</th>
 156           <td colspan=3><select name=department>$form->{selectdepartment}</select></td>
 157         </tr>
 158 | if $form->{selectdepartment};
 159
 160   $form->header;
 161
 162   $form->{description} =~ s/\"/&quot;/g;
 163
 164   print qq|
 165 <body>
 166
 167 <form method=post action=$form->{script}>
 168
 169 <input type=hidden name=accno value=$form->{accno}>
 170 <input type=hidden name=description value="$form->{description}">
 171 <input type=hidden name=sort value=transdate>
 172 <input type=hidden name=eur value=$eur>
 173 <input type=hidden name=accounttype value=$form->{accounttype}>
 174
 175 <table border=0 width=100%>
 176   <tr><th class=listtop>$form->{title}</th></tr>
 177   <tr height="5"></tr
 178   <tr valign=top>
 179     <td>
 180       <table>
 181         $department
 182         <tr>
 183           <th align=right>| . $locale->text('From') . qq|</th>
 184           <td><input name=fromdate size=11 title="$myconfig{dateformat}"></td>
 185           <th align=right>| . $locale->text('To') . qq|</th>
 186           <td><input name=todate size=11 title="$myconfig{dateformat}"></td>
 187         </tr>
 188         <tr>
 189           <th align=right>| . $locale->text('Include in Report') . qq|</th>
 190           <td colspan=3>
 191           <input name=l_subtotal class=checkbox type=checkbox value=Y>&nbsp;|
 192     . $locale->text('Subtotal') . qq|</td>
 193         </tr>
 194       </table>
 195     </td>
 196   </tr>
 197   <tr><td><hr size=3 noshade></td></tr>
 198 </table>
 199
 200 <input type=hidden name=login value=$form->{login}>
 201 <input type=hidden name=password value=$form->{password}>
 202
 203 <br><input class=submit type=submit name=action value="|
 204     . $locale->text('List Transactions') . qq|">
 205 </form>
 206
 207 </body>
 208 </html>
 209 |;
 210
 211   $lxdebug->leave_sub();
 212 }
 213
 214 sub list_transactions {
 215   $lxdebug->enter_sub();
 216
 217   $form->{title} = $locale->text('Account') . " $form->{accno} - $form->{description}";
 218
 219   CA->all_transactions(\%myconfig, \%$form);
 220
 221   my @options;
 222   if ($form->{department}) {
 223     my ($department) = split /--/, $form->{department};
 224     push @options, $locale->text('Department') . " : $department";
 225   }
 226   if ($form->{projectnumber}) {
 227     push @options, $locale->text('Project Number') . " : $form->{projectnumber}<br>";
 228   }
 229
 230   my $period;
 231   if ($form->{fromdate} || $form->{todate}) {
 232     my ($fromdate, $todate);
 233
 234     if ($form->{fromdate}) {
 235       $fromdate = $locale->date(\%myconfig, $form->{fromdate}, 1);
 236     }
 237     if ($form->{todate}) {
 238       $todate = $locale->date(\%myconfig, $form->{todate}, 1);
 239     }
 240
 241     $period = "$fromdate - $todate";
 242
 243   } else {
 244     $period = $locale->date(\%myconfig, $form->current_date(\%myconfig), 1);
 245   }
 246
 247   push @options, $period;
 248
 249   my @columns     = qw(transdate reference description debit credit balance);
 250   my %column_defs = (
 251     'transdate'   => { 'text' => $locale->text('Date'), },
 252     'reference'   => { 'text' => $locale->text('Reference'), },
 253     'description' => { 'text' => $locale->text('Description'), },
 254     'debit'       => { 'text' => $locale->text('Debit'), },
 255     'credit'      => { 'text' => $locale->text('Credit'), },
 256     'balance'     => { 'text' => $locale->text('Balance'), },
 257   );
 258   my %column_alignment = map { $_ => 'right' } qw(debit credit balance);
 259
 260   my @hidden_variables = qw(accno fromdate todate description accounttype l_heading l_subtotal department projectnumber project_id sort);
 261
 262   my $link = build_std_url('action=list_transactions', grep { $form->{$_} } @hidden_variables);
 263   map { $column_defs{$_}->{link} = $link . "&sort=$_" } qw(transdate reference description);
 264
 265   $form->{callback} = $link . '&sort=' . E($form->{sort});
 266
 267   my $report = SL::ReportGenerator->new(\%myconfig, $form);
 268
 269   $report->set_options('top_info_text'         => join("\n", @options),
 270                        'output_format'         => 'HTML',
 271                        'title'                 => $form->{title},
 272                        'attachment_basename'   => $locale->text('list_of_transactions') . strftime('_%Y%m%d', localtime time),
 273                        'std_column_visibility' => 1,
 274     );
 275   $report->set_options_from_form();
 276
 277   $report->set_columns(%column_defs);
 278   $report->set_column_order(@columns);
 279
 280   $report->set_export_options('list_transactions', @hidden_variables);
 281
 282   $report->set_sort_indicator($form->{sort}, 1);
 283
 284   $column_defs->{balance}->{visible} = $form->{accno} ? 1 : 0;
 285
 286   my $ml = ($form->{category} =~ /(A|E)/) ? -1 : 1;
 287
 288   if ($form->{accno} && $form->{balance}) {
 289     my $row = {
 290       'balance' => {
 291         'data'  => $form->format_amount(\%myconfig, $form->{balance} * $ml, 2),
 292         'align' => 'right',
 293       },
 294     };
 295
 296     $report->add_data($row);
 297   }
 298
 299   my $idx       = 0;
 300   my %totals    = ( 'debit' => 0, 'credit' => 0 );
 301   my %subtotals = ( 'debit' => 0, 'credit' => 0 );
 302   my ($previous_index, $row_set);
 303
 304   foreach my $ca (@{ $form->{CA} }) {
 305     $form->{balance} += $ca->{amount};
 306
 307     foreach (qw(debit credit)) {
 308       $subtotals{$_} += $ca->{$_};
 309       $totals{$_}    += $ca->{$_};
 310       $ca->{$_}       = $form->format_amount(\%myconfig, $ca->{$_}, 2) if ($ca->{$_} != 0);
 311     }
 312
 313     $ca->{balance} = $form->format_amount(\%myconfig, $form->{balance} * $ml, 2);
 314
 315     my $row = { };
 316
 317     foreach (@columns) {
 318       $row->{$_} = {
 319         'data'  => $ca->{$_},
 320         'align' => $column_alignment{$_},
 321       };
 322     }
 323
 324     if ($ca->{index} ne $previous_index) {
 325       $report->add_data($row_set) if ($row_set);
 326
 327       $row_set         = [ ];
 328       $previous_index  = $ca->{index};
 329
 330       $row->{reference}->{link} = build_std_url("script=$ca->{module}.pl", 'action=edit', 'id=' . E($ca->{id}), 'callback');
 331
 332     } else {
 333       map { $row->{$_}->{data} = '' } qw(reference description);
 334       $row->{transdate}->{data} = '' if ($form->{sort} eq 'transdate');
 335     }
 336
 337     push @{ $row_set }, $row;
 338
 339     if (($form->{l_subtotal} eq 'Y')
 340         && (($idx == scalar @{ $form->{CA} } - 1)
 341             || ($ca->{$form->{sort}} ne $form->{CA}->[$idx + 1]->{$form->{sort}}))) {
 342       $report->add_data(create_subtotal_row(\%subtotals, \@columns, \%column_alignment, 'listsubtotal'));
 343     }
 344
 345     $idx++;
 346   }
 347
 348   $report->add_data($row_set) if ($row_set);
 349
 350   $report->add_separator();
 351
 352   my $row = create_subtotal_row(\%totals, \@columns, \%column_alignment, 'listtotal');
 353   $row->{balance}->{data} = $form->format_amount(\%myconfig, $form->{balance} * $ml, 2);
 354   $report->add_data($row);
 355
 356   $report->generate_with_headers();
 357
 358   $lxdebug->leave_sub();
 359 }
 360
 361 sub create_subtotal_row {
 362   $lxdebug->enter_sub();
 363
 364   my ($totals, $columns, $column_alignment, $class) = @_;
 365
 366   my $row = { map { $_ => { 'data' => '', 'class' => $class, 'align' => $column_alignment->{$_}, } } @{ $columns } };
 367
 368   map { $row->{$_}->{data} = $form->format_amount(\%myconfig, $totals->{$_}, 2) } qw(credit debit);
 369
 370   map { $totals->{$_} = 0 } qw(debit credit);
 371
 372   $lxdebug->leave_sub();
 373
 374   return $row;
 375 }