SL/RP.pm

   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) 1998-2002
  10 #
  11 #  Author: Dieter Simader
  12 #   Email: dsimader@sql-ledger.org
  13 #     Web: http://www.sql-ledger.org
  14 #
  15 #  Contributors: Benjamin Lee <benjaminlee@consultant.com>
  16 #
  17 # This program is free software; you can redistribute it and/or modify
  18 # it under the terms of the GNU General Public License as published by
  19 # the Free Software Foundation; either version 2 of the License, or
  20 # (at your option) any later version.
  21 #
  22 # This program is distributed in the hope that it will be useful,
  23 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  24 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  25 # GNU General Public License for more details.
  26 # You should have received a copy of the GNU General Public License
  27 # along with this program; if not, write to the Free Software
  28 # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  29 #======================================================================
  30 #
  31 # backend code for reports
  32 #
  33 #======================================================================
  34
  35 package RP;
  36
  37 use SL::DBUtils;
  38 use Data::Dumper;
  39 use List::Util qw(sum);
  40
  41 # use warnings;
  42 use strict;
  43
  44 # new implementation of balance sheet
  45 # readme!
  46 #
  47 # stuff missing from the original implementation:
  48 # - bold stuff
  49 # - subdescription
  50 # - proper testing for heading charts
  51 # - transmission from $form to TMPL realm is not as clear as i'd like
  52
  53 sub get_openbalance_date {
  54   my ($closedto, $target) = map { $::locale->parse_date_to_object(\%::myconfig, $_) } @_;
  55
  56   return unless $closedto;
  57
  58   $closedto->subtract(years => 1) while ($target - $closedto)->is_negative;
  59   $closedto->add(days => 1);
  60   return $::locale->format_date(\%::myconfig, $closedto);
  61 }
  62
  63 sub balance_sheet {
  64   $main::lxdebug->enter_sub();
  65
  66   my $myconfig = \%main::myconfig;
  67   my $form     = $main::form;
  68   my $dbh      = $::form->get_standard_dbh;
  69
  70   my $last_period = 0;
  71   my @categories  = qw(A C L Q);
  72
  73   # if there are any dates construct a where
  74   if ($form->{asofdate}) {
  75     $form->{period} = $form->{this_period} = conv_dateq($form->{asofdate});
  76   }
  77
  78   # get end of financial year and convert to Date format
  79   my ($closedto) = selectfirst_array_query($form, $dbh, 'SELECT closedto FROM defaults');
  80
  81   # get date of last opening balance
  82   my $startdate = get_openbalance_date($closedto, $form->{asofdate});
  83
  84   get_accounts($dbh, $last_period, $startdate, $form->{asofdate}, $form, \@categories);
  85
  86   # if there are any compare dates
  87   if ($form->{compareasofdate}) {
  88     $last_period = 1;
  89
  90     $startdate = get_openbalance_date($closedto, $form->{compareasofdate});
  91
  92     get_accounts($dbh, $last_period, $startdate, $form->{compareasofdate}, $form, \@categories);
  93     $form->{last_period} = conv_dateq($form->{compareasofdate});
  94   }
  95
  96   # now we got $form->{A}{accno}{ }    assets
  97   # and $form->{L}{accno}{ }           liabilities
  98   # and $form->{Q}{accno}{ }           equity
  99   # build asset accounts
 100
 101   my %account = ('A' => { 'ml'     => -1 },
 102                  'L' => { 'ml'     =>  1 },
 103                  'Q' => { 'ml'     =>  1 });
 104
 105   my $TMPL_DATA = {};
 106
 107   foreach my $category (grep { !/C/ } @categories) {
 108
 109     $TMPL_DATA->{$category} = [];
 110     my $ml  = $account{$category}{ml};
 111
 112     foreach my $key (sort keys %{ $form->{$category} }) {
 113
 114       my $row = { %{ $form->{$category}{$key} } };
 115
 116       # if charttype "heading" - calculate this entry, start a new batch of charts belonging to this heading and skip the rest bo the loop
 117       # header charts are not real charts. start a sub aggregation with them, but don't calculate anything with them
 118       if ($row->{charttype} eq "H") {
 119         if ($account{$category}{subtotal} && $form->{l_subtotal}) {
 120           $row->{subdescription} = $account{$category}{subdescription};
 121           $row->{this}           = $account{$category}{subthis} * $ml;                   # format: $dec, $dash
 122           $row->{last}           = $account{$category}{sublast} * $ml if $last_period;   # format: $dec, $dash
 123         }
 124
 125         $row->{subheader} = 1;
 126         $account{$category}{subthis}        = $row->{this};
 127         $account{$category}{sublast}        = $row->{last};
 128         $account{$category}{subdescription} = $row->{description};
 129         $account{$category}{subtotal} = 1;
 130
 131         $row->{this} = 0;
 132         $row->{last} = 0;
 133
 134         next unless $form->{l_heading};
 135       }
 136
 137       for my $period (qw(this last)) {
 138         next if ($period eq 'last' && !$last_period);
 139         # only add assets
 140         $row->{$period}                    *= $ml;
 141       }
 142
 143       push @{ $TMPL_DATA->{$category} }, $row;
 144     } # foreach
 145
 146     # resolve heading/subtotal
 147     if ($account{$category}{subtotal} && $form->{l_subtotal}) {
 148       $TMPL_DATA->{$category}[-1]{subdescription} = $account{$category}{subdescription};
 149       $TMPL_DATA->{$category}[-1]{this}           = $account{$category}{subthis} * $ml;                   # format: $dec, $dash
 150       $TMPL_DATA->{$category}[-1]{last}           = $account{$category}{sublast} * $ml if $last_period;   # format: $dec, $dash
 151     }
 152
 153     $TMPL_DATA->{total}{$category}{this} = sum map { $_->{this} } @{ $TMPL_DATA->{$category} };
 154     $TMPL_DATA->{total}{$category}{last} = sum map { $_->{last} } @{ $TMPL_DATA->{$category} };
 155   }
 156
 157   for my $period (qw(this last)) {
 158     next if ($period eq 'last' && !$last_period);
 159
 160     $form->{E}{$period}             = $TMPL_DATA->{total}{A}{$period} - $TMPL_DATA->{total}{L}{$period} - $TMPL_DATA->{total}{Q}{$period};
 161     $TMPL_DATA->{total}{Q}{$period}     += $form->{E}{$period};
 162     $TMPL_DATA->{total}{$period}    = $TMPL_DATA->{total}{L}{$period} + $TMPL_DATA->{total}{Q}{$period};
 163   }
 164     $form->{E}{description}='nicht verbuchter Gewinn/Verlust';
 165   push @{ $TMPL_DATA->{Q} }, $form->{E};
 166
 167   $main::lxdebug->leave_sub();
 168
 169   return $TMPL_DATA;
 170 }
 171
 172 sub get_accounts {
 173   $main::lxdebug->enter_sub();
 174
 175   my ($dbh, $last_period, $fromdate, $todate, $form, $categories) = @_;
 176
 177   my ($null, $department_id) = split /--/, $form->{department};
 178
 179   my $query;
 180   my $dpt_where = '';
 181   my $dpt_join  = '';
 182   my $project   = '';
 183   my $where     = "1 = 1";
 184   my $glwhere   = "";
 185   my $subwhere  = "";
 186   my $item;
 187   my $sth;
 188   my $dec = $form->{decimalplaces};
 189
 190   my $category = qq| AND (| . join(" OR ", map({ "(c.category = " . $dbh->quote($_) . ")" } @{$categories})) . qq|) |;
 191
 192   # get headings
 193   $query =
 194     qq|SELECT c.accno, c.description, c.category
 195        FROM chart c
 196        WHERE (c.charttype = 'H')
 197          $category
 198        ORDER by c.accno|;
 199
 200   $sth = prepare_execute_query($form, $dbh, $query);
 201
 202   my @headingaccounts = ();
 203   while (my $ref = $sth->fetchrow_hashref("NAME_lc")) {
 204     $form->{ $ref->{category} }{ $ref->{accno} }{description} =
 205       "$ref->{description}";
 206     $form->{ $ref->{category} }{ $ref->{accno} }{charttype} = "H";
 207     $form->{ $ref->{category} }{ $ref->{accno} }{accno}     = $ref->{accno};
 208
 209     push @headingaccounts, $ref->{accno};
 210   }
 211
 212   $sth->finish;
 213
 214   # if l_ob is selected l_cb is always ignored
 215   if ( $form->{l_ob} ) {
 216     $where .= ' AND ac.ob_transaction is true  '
 217   } elsif ( not $form->{l_cb} ) {
 218     $where .= ' AND ac.cb_transaction is false ';
 219   };
 220
 221   if ($fromdate) {
 222     $fromdate = conv_dateq($fromdate);
 223     if ($form->{method} eq 'cash') {
 224       $subwhere .= " AND (transdate >= $fromdate)";
 225       $glwhere = " AND (ac.transdate >= $fromdate)";
 226     } else {
 227       $where .= " AND (ac.transdate >= $fromdate)";
 228     }
 229   }
 230
 231   if ($todate) {
 232     $todate = conv_dateq($todate);
 233     $where    .= " AND (ac.transdate <= $todate)";
 234     $subwhere .= " AND (transdate <= $todate)";
 235   }
 236
 237   if ($department_id) {
 238     $dpt_join = qq| JOIN department t ON (a.department_id = t.id) |;
 239     $dpt_where = qq| AND (t.id = | . conv_i($department_id, 'NULL') . qq|)|;
 240   }
 241
 242   if ($form->{project_id}) {
 243     # Diese Bedingung wird derzeit niemals wahr sein, da man in Bericht->Bilanz keine
 244     # Projekte auswählen kann
 245     $project = qq| AND (ac.project_id = | . conv_i($form->{project_id}, 'NULL') . qq|) |;
 246   }
 247
 248   if ($form->{method} eq 'cash') {
 249     $query =
 250       qq|SELECT c.accno, sum(ac.amount) AS amount, c.description, c.category
 251          FROM acc_trans ac
 252          JOIN chart c ON (c.id = ac.chart_id)
 253          JOIN ar a ON (a.id = ac.trans_id)
 254          $dpt_join
 255          WHERE $where
 256            $dpt_where
 257            $category
 258            AND ac.trans_id IN
 259              (
 260                SELECT trans_id
 261                FROM acc_trans a
 262                JOIN chart c ON (a.chart_id = c.id)
 263                WHERE (link LIKE '%AR_paid%')
 264                $subwhere
 265              )
 266            $project
 267          GROUP BY c.accno, c.description, c.category
 268
 269          UNION ALL
 270
 271          SELECT c.accno, sum(ac.amount) AS amount, c.description, c.category
 272          FROM acc_trans ac
 273          JOIN chart c ON (c.id = ac.chart_id)
 274          JOIN ap a ON (a.id = ac.trans_id)
 275          $dpt_join
 276          WHERE $where
 277            $dpt_where
 278            $category
 279            AND ac.trans_id IN
 280              (
 281                SELECT trans_id
 282                FROM acc_trans a
 283                JOIN chart c ON (a.chart_id = c.id)
 284                WHERE (link LIKE '%AP_paid%')
 285                $subwhere
 286              )
 287            $project
 288          GROUP BY c.accno, c.description, c.category
 289
 290          UNION ALL
 291
 292          SELECT c.accno, sum(ac.amount) AS amount, c.description, c.category
 293          FROM acc_trans ac
 294          JOIN chart c ON (c.id = ac.chart_id)
 295          JOIN gl a ON (a.id = ac.trans_id)
 296          $dpt_join
 297          WHERE $where
 298            $glwhere
 299            $dpt_where
 300            $category
 301              AND NOT ((c.link = 'AR') OR (c.link = 'AP'))
 302            $project
 303          GROUP BY c.accno, c.description, c.category |;
 304
 305     if ($form->{project_id}) {
 306       # s.o. keine Projektauswahl in Bilanz
 307       $query .=
 308         qq|
 309          UNION ALL
 310
 311          SELECT c.accno AS accno, SUM(ac.sellprice * ac.qty) AS amount, c.description AS description, c.category
 312          FROM invoice ac
 313          JOIN ar a ON (a.id = ac.trans_id)
 314          JOIN parts p ON (ac.parts_id = p.id)
 315          JOIN chart c on (p.income_accno_id = c.id)
 316          $dpt_join
 317          -- use transdate from subwhere
 318          WHERE (c.category = 'I')
 319            $subwhere
 320            $dpt_where
 321            AND ac.trans_id IN
 322              (
 323                SELECT trans_id
 324                FROM acc_trans a
 325                JOIN chart c ON (a.chart_id = c.id)
 326                WHERE (link LIKE '%AR_paid%')
 327                $subwhere
 328              )
 329            $project
 330          GROUP BY c.accno, c.description, c.category
 331
 332          UNION ALL
 333
 334          SELECT c.accno AS accno, SUM(ac.sellprice) AS amount, c.description AS description, c.category
 335          FROM invoice ac
 336          JOIN ap a ON (a.id = ac.trans_id)
 337          JOIN parts p ON (ac.parts_id = p.id)
 338          JOIN chart c on (p.expense_accno_id = c.id)
 339          $dpt_join
 340          WHERE (c.category = 'E')
 341            $subwhere
 342            $dpt_where
 343            AND ac.trans_id IN
 344              (
 345                SELECT trans_id
 346                FROM acc_trans a
 347                JOIN chart c ON (a.chart_id = c.id)
 348                WHERE link LIKE '%AP_paid%'
 349                $subwhere
 350              )
 351            $project
 352          GROUP BY c.accno, c.description, c.category |;
 353     }
 354
 355   } else {                      # if ($form->{method} eq 'cash')
 356     if ($department_id) {
 357       $dpt_join = qq| JOIN dpt_trans t ON (t.trans_id = ac.trans_id) |;
 358       $dpt_where = qq| AND t.department_id = | . conv_i($department_id);
 359     }
 360
 361     $query = qq|
 362       SELECT c.accno, sum(ac.amount) AS amount, c.description, c.category
 363       FROM acc_trans ac
 364       JOIN chart c ON (c.id = ac.chart_id)
 365       $dpt_join
 366       WHERE $where
 367         $dpt_where
 368         $category
 369         $project
 370       GROUP BY c.accno, c.description, c.category |;
 371
 372     if ($form->{project_id}) {
 373       # s.o. keine Projektauswahl in Bilanz
 374       $query .= qq|
 375       UNION ALL
 376
 377       SELECT c.accno AS accno, SUM(ac.sellprice * ac.qty) AS amount, c.description AS description, c.category
 378       FROM invoice ac
 379       JOIN ar a ON (a.id = ac.trans_id)
 380       JOIN parts p ON (ac.parts_id = p.id)
 381       JOIN chart c on (p.income_accno_id = c.id)
 382       $dpt_join
 383       -- use transdate from subwhere
 384       WHERE (c.category = 'I')
 385         $subwhere
 386         $dpt_where
 387         $project
 388       GROUP BY c.accno, c.description, c.category
 389
 390       UNION ALL
 391
 392       SELECT c.accno AS accno, SUM(ac.sellprice * ac.qty) * -1 AS amount, c.description AS description, c.category
 393       FROM invoice ac
 394       JOIN ap a ON (a.id = ac.trans_id)
 395       JOIN parts p ON (ac.parts_id = p.id)
 396       JOIN chart c on (p.expense_accno_id = c.id)
 397       $dpt_join
 398       WHERE (c.category = 'E')
 399         $subwhere
 400         $dpt_where
 401         $project
 402       GROUP BY c.accno, c.description, c.category |;
 403     }
 404   }
 405
 406   my @accno;
 407   my $accno;
 408   my $ref;
 409
 410   $sth = prepare_execute_query($form, $dbh, $query);
 411
 412   while ($ref = $sth->fetchrow_hashref("NAME_lc")) {
 413
 414     if ($ref->{category} eq 'C') {
 415       $ref->{category} = 'A';
 416     }
 417
 418     # get last heading account
 419     @accno = grep { $_ le "$ref->{accno}" } @headingaccounts;
 420     $accno = pop @accno;
 421     if ($accno) {
 422       if ($last_period) {
 423         $form->{ $ref->{category} }{$accno}{last} += $ref->{amount};
 424       } else {
 425         $form->{ $ref->{category} }{$accno}{this} += $ref->{amount};
 426       }
 427     }
 428
 429     $form->{ $ref->{category} }{ $ref->{accno} }{accno}       = $ref->{accno};
 430     $form->{ $ref->{category} }{ $ref->{accno} }{description} = $ref->{description};
 431     $form->{ $ref->{category} }{ $ref->{accno} }{charttype} = "A";
 432
 433     if ($last_period) {
 434       $form->{ $ref->{category} }{ $ref->{accno} }{last} += $ref->{amount};
 435     } else {
 436       $form->{ $ref->{category} }{ $ref->{accno} }{this} += $ref->{amount};
 437     }
 438   }
 439   $sth->finish;
 440
 441   # remove accounts with zero balance
 442   foreach $category (@{$categories}) {
 443     foreach $accno (keys %{ $form->{$category} }) {
 444       $form->{$category}{$accno}{last} = $form->round_amount($form->{$category}{$accno}{last}, $dec);
 445       $form->{$category}{$accno}{this} = $form->round_amount($form->{$category}{$accno}{this}, $dec);
 446
 447       delete $form->{$category}{$accno}
 448         if (   $form->{$category}{$accno}{this} == 0
 449             && $form->{$category}{$accno}{last} == 0);
 450     }
 451   }
 452
 453   $main::lxdebug->leave_sub();
 454 }
 455
 456 sub get_accounts_g {
 457   $main::lxdebug->enter_sub();
 458
 459   my ($dbh, $last_period, $fromdate, $todate, $form, $category) = @_;
 460
 461   my ($null, $department_id) = split /--/, $form->{department};
 462
 463   my $query;
 464   my $dpt_where;
 465   my $dpt_join;
 466   my $project;
 467   my $where    = "1 = 1";
 468   my $glwhere  = "";
 469   my $prwhere  = "";
 470   my $subwhere = "";
 471   my $inwhere = "";
 472   my $item;
 473
 474   $where .= ' AND ac.cb_transaction is false ' unless $form->{l_cb};
 475
 476   if ($fromdate) {
 477     $fromdate = conv_dateq($fromdate);
 478     if ($form->{method} eq 'cash') {
 479       $subwhere .= " AND (transdate    >= $fromdate)";
 480       $glwhere   = " AND (ac.transdate >= $fromdate)";
 481       $prwhere   = " AND (a.transdate  >= $fromdate)";
 482       $inwhere   = " AND (acc.transdate >= $fromdate)";
 483     } else {
 484       $where    .= " AND (ac.transdate >= $fromdate)";
 485     }
 486   }
 487
 488   if ($todate) {
 489     $todate = conv_dateq($todate);
 490     $subwhere   .= " AND (transdate    <= $todate)";
 491     $where      .= " AND (ac.transdate <= $todate)";
 492     $prwhere    .= " AND (a.transdate  <= $todate)";
 493     $inwhere    .= " AND (acc.transdate <= $todate)";
 494   }
 495
 496   if ($department_id) {
 497     $dpt_join = qq| JOIN department t ON (a.department_id = t.id) |;
 498     $dpt_where = qq| AND (t.id = | . conv_i($department_id, 'NULL') . qq|) |;
 499   }
 500
 501   if ($form->{project_id}) {
 502     $project = qq| AND (ac.project_id = | . conv_i($form->{project_id}) . qq|) |;
 503   }
 504
 505 #
 506 # GUV patch by Ronny Rentner (Bug 1190)
 507 #
 508 # GUV IST-Versteuerung
 509 #
 510 # Alle tatsaechlichen _Zahlungseingaenge_
 511 # im Zeitraum erfassen
 512 # (Teilzahlungen werden prozentual auf verschiedene Steuern aufgeteilt)
 513 #
 514 #
 515
 516   if ($form->{method} eq 'cash') {
 517     $query =
 518       qq|
 519        SELECT SUM( ac.amount * CASE WHEN COALESCE((SELECT amount FROM ar WHERE id = ac.trans_id and amount != 0 ), 0) != 0 THEN
 520                     (SELECT SUM(acc.amount) * -1
 521                      FROM acc_trans acc
 522                      INNER JOIN chart c ON (acc.chart_id = c.id AND c.link LIKE '%AR_paid%')
 523                      WHERE 1=1 $inwhere AND acc.trans_id = ac.trans_id)
 524                   / (SELECT amount FROM ar WHERE id = ac.trans_id and amount != 0 ) ELSE 1 END
 525                 ) AS amount, c.$category
 526        FROM acc_trans ac
 527        LEFT JOIN chart c ON (c.id  = ac.chart_id)
 528        LEFT JOIN ar      ON (ar.id = ac.trans_id)
 529        LEFT JOIN taxkeys tk ON (tk.id = (
 530                                   SELECT id FROM taxkeys
 531                                   WHERE chart_id = ac.chart_id
 532                                   AND startdate <= COALESCE(ar.deliverydate,ar.transdate)
 533                                   ORDER BY startdate DESC LIMIT 1
 534                                   )
 535                                 )
 536       WHERE ac.trans_id IN (SELECT DISTINCT trans_id FROM acc_trans WHERE 1=1 $subwhere)
 537
 538       GROUP BY c.$category
 539
 540 /*
 541        SELECT SUM(ac.amount * chart_category_to_sgn(c.category)) AS amount, c.$category
 542          FROM acc_trans ac
 543          JOIN chart c ON (c.id = ac.chart_id)
 544          JOIN ar a ON (a.id = ac.trans_id)
 545          $dpt_join
 546          WHERE $where $dpt_where
 547            AND ac.trans_id IN ( SELECT trans_id FROM acc_trans a JOIN chart c ON (a.chart_id = c.id) WHERE (link LIKE '%AR_paid%') $subwhere)
 548            $project
 549          GROUP BY c.$category
 550 */
 551          UNION
 552
 553          SELECT SUM(ac.amount * chart_category_to_sgn(c.category)) AS amount, c.$category
 554          FROM acc_trans ac
 555          JOIN chart c ON (c.id = ac.chart_id)
 556          JOIN ap a ON (a.id = ac.trans_id)
 557          $dpt_join
 558          WHERE $where $dpt_where
 559            AND ac.trans_id IN ( SELECT trans_id FROM acc_trans a JOIN chart c ON (a.chart_id = c.id) WHERE (link LIKE '%AP_paid%') $subwhere)
 560            $project
 561          GROUP BY c.$category
 562
 563          UNION
 564
 565          SELECT SUM(ac.amount * chart_category_to_sgn(c.category)) AS amount, c.$category
 566          FROM acc_trans ac
 567          JOIN chart c ON (c.id = ac.chart_id)
 568          JOIN gl a ON (a.id = ac.trans_id)
 569          $dpt_join
 570          WHERE $where $dpt_where $glwhere
 571            AND NOT ((c.link = 'AR') OR (c.link = 'AP'))
 572            $project
 573          GROUP BY c.$category
 574         |;
 575
 576     if ($form->{project_id}) {
 577       $query .= qq|
 578          UNION
 579
 580          SELECT SUM(ac.sellprice * ac.qty * chart_category_to_sgn(c.category)) AS amount, c.$category
 581          FROM invoice ac
 582          JOIN ar a ON (a.id = ac.trans_id)
 583          JOIN parts p ON (ac.parts_id = p.id)
 584          JOIN chart c on (p.income_accno_id = c.id)
 585          $dpt_join
 586          WHERE (c.category = 'I') $prwhere $dpt_where
 587            AND ac.trans_id IN ( SELECT trans_id FROM acc_trans a JOIN chart c ON (a.chart_id = c.id) WHERE (link LIKE '%AR_paid%') $subwhere)
 588            $project
 589          GROUP BY c.$category
 590
 591          UNION
 592
 593          SELECT SUM(ac.sellprice * chart_category_to_sgn(c.category)) AS amount, c.$category
 594          FROM invoice ac
 595          JOIN ap a ON (a.id = ac.trans_id)
 596          JOIN parts p ON (ac.parts_id = p.id)
 597          JOIN chart c on (p.expense_accno_id = c.id)
 598          $dpt_join
 599          WHERE (c.category = 'E') $prwhere $dpt_where
 600            AND ac.trans_id IN ( SELECT trans_id FROM acc_trans a JOIN chart c ON (a.chart_id = c.id) WHERE (link LIKE '%AP_paid%') $subwhere)
 601          $project
 602          GROUP BY c.$category
 603          |;
 604     }
 605
 606   } else {                      # if ($form->{method} eq 'cash')
 607     if ($department_id) {
 608       $dpt_join = qq| JOIN dpt_trans t ON (t.trans_id = ac.trans_id) |;
 609       $dpt_where = qq| AND (t.department_id = | . conv_i($department_id, 'NULL') . qq|) |;
 610     }
 611
 612     $query = qq|
 613         SELECT sum(ac.amount * chart_category_to_sgn(c.category)) AS amount, c.$category
 614         FROM acc_trans ac
 615         JOIN chart c ON (c.id = ac.chart_id)
 616         $dpt_join
 617         WHERE $where
 618           $dpt_where
 619           $project
 620         GROUP BY c.$category |;
 621
 622     if ($form->{project_id}) {
 623       $query .= qq|
 624         UNION
 625
 626         SELECT SUM(ac.sellprice * ac.qty * chart_category_to_sgn(c.category)) AS amount, c.$category
 627         FROM invoice ac
 628         JOIN ar a ON (a.id = ac.trans_id)
 629         JOIN parts p ON (ac.parts_id = p.id)
 630         JOIN chart c on (p.income_accno_id = c.id)
 631         $dpt_join
 632         WHERE (c.category = 'I')
 633           $prwhere
 634           $dpt_where
 635           $project
 636         GROUP BY c.$category
 637
 638         UNION
 639
 640         SELECT SUM(ac.sellprice * ac.qty * chart_category_to_sgn(c.category)) AS amount, c.$category
 641         FROM invoice ac
 642         JOIN ap a ON (a.id = ac.trans_id)
 643         JOIN parts p ON (ac.parts_id = p.id)
 644         JOIN chart c on (p.expense_accno_id = c.id)
 645         $dpt_join
 646         WHERE (c.category = 'E')
 647           $prwhere
 648           $dpt_where
 649           $project
 650         GROUP BY c.$category |;
 651     }
 652   }
 653
 654   my @accno;
 655   my $accno;
 656   my $ref;
 657
 658   foreach my $ref (selectall_hashref_query($form, $dbh, $query)) {
 659     if ($category eq "pos_bwa") {
 660       if ($last_period) {
 661         $form->{ $ref->{$category} }{kumm} += $ref->{amount};
 662       } else {
 663         $form->{ $ref->{$category} }{jetzt} += $ref->{amount};
 664       }
 665     } else {
 666       $form->{ $ref->{$category} } += $ref->{amount};
 667     }
 668   }
 669
 670   $main::lxdebug->leave_sub();
 671 }
 672
 673 sub trial_balance {
 674   $main::lxdebug->enter_sub();
 675
 676   my ($self, $myconfig, $form, %options) = @_;
 677
 678   my $dbh = $form->dbconnect($myconfig);
 679
 680   my ($query, $sth, $ref);
 681   my %balance = ();
 682   my %trb     = ();
 683   my ($null, $department_id) = split /--/, $form->{department};
 684   my @headingaccounts = ();
 685   my $dpt_where;
 686   my $dpt_join;
 687   my $project;
 688
 689   my $where    = "1 = 1";
 690   my $invwhere = $where;
 691
 692   if ($department_id) {
 693     $dpt_join = qq| JOIN dpt_trans t ON (ac.trans_id = t.trans_id) |;
 694     $dpt_where = qq| AND (t.department_id = | . conv_i($department_id, 'NULL') . qq|) |;
 695   }
 696
 697   # project_id only applies to getting transactions
 698   # it has nothing to do with a trial balance
 699   # but we use the same function to collect information
 700
 701   if ($form->{project_id}) {
 702     $project = qq| AND (ac.project_id = | . conv_i($form->{project_id}, 'NULL') . qq|) |;
 703   }
 704
 705   my $acc_cash_where = "";
 706 #  my $ar_cash_where = "";
 707 #  my $ap_cash_where = "";
 708
 709
 710   if ($form->{method} eq "cash") {
 711     $acc_cash_where =
 712       qq| AND (ac.trans_id IN (
 713             SELECT id
 714             FROM ar
 715             WHERE datepaid >= '$form->{fromdate}'
 716               AND datepaid <= '$form->{todate}'
 717
 718             UNION
 719
 720             SELECT id
 721             FROM ap
 722             WHERE datepaid >= '$form->{fromdate}'
 723               AND datepaid <= '$form->{todate}'
 724
 725             UNION
 726
 727             SELECT id
 728             FROM gl
 729             WHERE transdate >= '$form->{fromdate}'
 730               AND transdate <= '$form->{todate}'
 731           )) |;
 732 #    $ar_ap_cash_where = qq| AND (a.datepaid>='$form->{fromdate}' AND a.datepaid<='$form->{todate}') |;
 733   }
 734
 735   if ($options{beginning_balances}) {
 736     foreach my $prefix (qw(from to)) {
 737       next if ($form->{"${prefix}date"});
 738
 739       my $min_max = $prefix eq 'from' ? 'min' : 'max';
 740       $query      = qq|SELECT ${min_max}(transdate)
 741                        FROM acc_trans ac
 742                        $dpt_join
 743                        WHERE (1 = 1)
 744                          $dpt_where
 745                          $project|;
 746       ($form->{"${prefix}date"}) = selectfirst_array_query($form, $dbh, $query);
 747     }
 748
 749     # get beginning balances
 750     $query =
 751       qq|SELECT c.accno, c.category, SUM(ac.amount) AS amount, c.description
 752           FROM acc_trans ac
 753           LEFT JOIN chart c ON (ac.chart_id = c.id)
 754           $dpt_join
 755           WHERE ((select date_trunc('year', ac.transdate::date)) = (select date_trunc('year', ?::date))) AND ac.ob_transaction
 756             $dpt_where
 757             $project
 758           GROUP BY c.accno, c.category, c.description |;
 759
 760     $sth = prepare_execute_query($form, $dbh, $query, $form->{fromdate});
 761
 762     while (my $ref = $sth->fetchrow_hashref("NAME_lc")) {
 763
 764       if ($ref->{amount} != 0 || $form->{all_accounts}) {
 765         $trb{ $ref->{accno} }{description} = $ref->{description};
 766         $trb{ $ref->{accno} }{charttype}   = 'A';
 767         $trb{ $ref->{accno} }{beginning_balance} = $ref->{amount};
 768
 769         if ($ref->{amount} > 0) {
 770           $trb{ $ref->{accno} }{haben_eb}   = $ref->{amount};
 771         } else {
 772           $trb{ $ref->{accno} }{soll_eb}   = $ref->{amount} * -1;
 773         }
 774         $trb{ $ref->{accno} }{category}    = $ref->{category};
 775       }
 776
 777     }
 778     $sth->finish;
 779   }
 780
 781   # get headings
 782   $query =
 783     qq|SELECT c.accno, c.description, c.category
 784        FROM chart c
 785        WHERE c.charttype = 'H'
 786        ORDER by c.accno|;
 787
 788   $sth = prepare_execute_query($form, $dbh, $query);
 789
 790   while ($ref = $sth->fetchrow_hashref("NAME_lc")) {
 791     $trb{ $ref->{accno} }{description} = $ref->{description};
 792     $trb{ $ref->{accno} }{charttype}   = 'H';
 793     $trb{ $ref->{accno} }{category}    = $ref->{category};
 794
 795     push @headingaccounts, $ref->{accno};
 796   }
 797
 798   $sth->finish;
 799
 800   $where = " 1 = 1 ";
 801   my $saldowhere    = " 1 = 1 ";
 802   my $sumwhere      = " 1 = 1 ";
 803   my $subwhere      = '';
 804   my $sumsubwhere   = '';
 805   my $saldosubwhere = '';
 806   my $glsaldowhere  = '';
 807   my $glsubwhere    = '';
 808   my $glwhere       = '';
 809   my $glsumwhere    = '';
 810   my $tofrom;
 811   my ($fromdate, $todate);
 812
 813   if ($form->{fromdate} || $form->{todate}) {
 814     if ($form->{fromdate}) {
 815       $fromdate = conv_dateq($form->{fromdate});
 816       $tofrom        .= " AND (ac.transdate >= $fromdate)";
 817       $subwhere      .= " AND (ac.transdate >= $fromdate)";
 818       $sumsubwhere   .= " AND (ac.transdate >= (select date_trunc('year', date $fromdate))) ";
 819       $saldosubwhere .= " AND (ac,transdate>=(select date_trunc('year', date $fromdate)))  ";
 820       $invwhere      .= " AND (a.transdate >= $fromdate)";
 821       $glsaldowhere  .= " AND ac.transdate>=(select date_trunc('year', date $fromdate)) ";
 822       $glwhere        = " AND (ac.transdate >= $fromdate)";
 823       $glsumwhere     = " AND (ac.transdate >= (select date_trunc('year', date $fromdate))) ";
 824     }
 825     if ($form->{todate}) {
 826       $todate = conv_dateq($form->{todate});
 827       $tofrom        .= " AND (ac.transdate <= $todate)";
 828       $invwhere      .= " AND (a.transdate <= $todate)";
 829       $saldosubwhere .= " AND (ac.transdate <= $todate)";
 830       $sumsubwhere   .= " AND (ac.transdate <= $todate)";
 831       $subwhere      .= " AND (ac.transdate <= $todate)";
 832       $glwhere       .= " AND (ac.transdate <= $todate)";
 833       $glsumwhere    .= " AND (ac.transdate <= $todate) ";
 834       $glsaldowhere  .= " AND (ac.transdate <= $todate) ";
 835    }
 836   }
 837
 838   if ($form->{method} eq "cash") {
 839     $where .=
 840       qq| AND(ac.trans_id IN (SELECT id FROM ar WHERE datepaid>= $fromdate AND datepaid<= $todate UNION SELECT id FROM ap WHERE datepaid>= $fromdate AND datepaid<= $todate UNION SELECT id FROM gl WHERE transdate>= $fromdate AND transdate<= $todate)) AND (NOT ac.ob_transaction OR ac.ob_transaction IS NULL) AND (NOT ac.cb_transaction OR ac.cb_transaction IS NULL) |;
 841     $saldowhere .= qq| AND(ac.trans_id IN (SELECT id FROM ar WHERE datepaid>= $fromdate AND datepaid<= $todate UNION SELECT id FROM ap WHERE datepaid>= $fromdate AND datepaid<= $todate UNION SELECT id FROM gl WHERE transdate>= $fromdate AND transdate<= $todate))  AND (NOT ac.cb_transaction OR ac.cb_transaction IS NULL) |;
 842
 843     $sumwhere .= qq| AND(ac.trans_id IN (SELECT id FROM ar WHERE datepaid>= $fromdate AND datepaid<= $todate UNION SELECT id FROM ap WHERE datepaid>= $fromdate AND datepaid<= $todate UNION SELECT id FROM gl WHERE transdate>= $fromdate AND transdate<= $todate)) AND (NOT ac.ob_transaction OR ac.ob_transaction IS NULL) AND (NOT ac.cb_transaction OR ac.cb_transaction IS NULL) |;
 844   } else {
 845     $where .= $tofrom . " AND (NOT ac.ob_transaction OR ac.ob_transaction IS NULL) AND (NOT ac.cb_transaction OR ac.cb_transaction IS NULL)";
 846     $saldowhere .= $glsaldowhere . " AND (NOT ac.cb_transaction OR ac.cb_transaction IS NULL)";
 847     $sumwhere .= $glsumwhere . " AND (NOT ac.ob_transaction OR ac.ob_transaction IS NULL) AND (NOT ac.cb_transaction OR ac.cb_transaction IS NULL)";
 848   }
 849
 850   $query = qq|
 851        SELECT c.accno, c.description, c.category, SUM(ac.amount) AS amount
 852        FROM acc_trans ac
 853        JOIN chart c ON (c.id = ac.chart_id)
 854        $dpt_join
 855        WHERE $where
 856          $dpt_where
 857          $project
 858        GROUP BY c.accno, c.description, c.category |;
 859
 860   if ($form->{project_id}) {
 861     $query .= qq|
 862       -- add project transactions from invoice
 863
 864       UNION ALL
 865
 866       SELECT c.accno, c.description, c.category, SUM(ac.sellprice * ac.qty) AS amount
 867       FROM invoice ac
 868       JOIN ar a ON (ac.trans_id = a.id)
 869       JOIN parts p ON (ac.parts_id = p.id)
 870       JOIN chart c ON (p.income_accno_id = c.id)
 871       $dpt_join
 872       WHERE $invwhere
 873         $dpt_where
 874         $project
 875       GROUP BY c.accno, c.description, c.category
 876
 877       UNION ALL
 878
 879       SELECT c.accno, c.description, c.category, SUM(ac.sellprice * ac.qty) * -1 AS amount
 880       FROM invoice ac
 881       JOIN ap a ON (ac.trans_id = a.id)
 882       JOIN parts p ON (ac.parts_id = p.id)
 883       JOIN chart c ON (p.expense_accno_id = c.id)
 884       $dpt_join
 885       WHERE $invwhere
 886         $dpt_where
 887         $project
 888       GROUP BY c.accno, c.description, c.category
 889       |;
 890     }
 891
 892   $query .= qq| ORDER BY accno|;
 893
 894   $sth = prepare_execute_query($form, $dbh, $query);
 895
 896   # calculate the debit and credit in the period
 897   while ($ref = $sth->fetchrow_hashref("NAME_lc")) {
 898     $trb{ $ref->{accno} }{description} = $ref->{description};
 899     $trb{ $ref->{accno} }{charttype}   = 'A';
 900     $trb{ $ref->{accno} }{category}    = $ref->{category};
 901     $trb{ $ref->{accno} }{amount} += $ref->{amount};
 902   }
 903   $sth->finish;
 904
 905   # prepare query for each account
 906   my ($q_drcr, $drcr, $q_project_drcr, $project_drcr);
 907
 908   $q_drcr =
 909     qq|SELECT
 910          (SELECT SUM(ac.amount) * -1
 911           FROM acc_trans ac
 912           JOIN chart c ON (c.id = ac.chart_id)
 913           $dpt_join
 914           WHERE $where
 915             $dpt_where
 916             $project
 917           AND (ac.amount < 0)
 918           AND (c.accno = ?)) AS debit,
 919
 920          (SELECT SUM(ac.amount)
 921           FROM acc_trans ac
 922           JOIN chart c ON (c.id = ac.chart_id)
 923           $dpt_join
 924           WHERE $where
 925             $dpt_where
 926             $project
 927           AND ac.amount > 0
 928           AND c.accno = ?) AS credit,
 929         (SELECT SUM(ac.amount)
 930          FROM acc_trans ac
 931          JOIN chart c ON (ac.chart_id = c.id)
 932          $dpt_join
 933          WHERE $saldowhere
 934            $dpt_where
 935            $project
 936          AND c.accno = ? AND (NOT ac.ob_transaction OR ac.ob_transaction IS NULL)) AS saldo,
 937
 938         (SELECT SUM(ac.amount)
 939          FROM acc_trans ac
 940          JOIN chart c ON (ac.chart_id = c.id)
 941          $dpt_join
 942          WHERE $sumwhere
 943            $dpt_where
 944            $project
 945          AND amount > 0
 946          AND c.accno = ?) AS sum_credit,
 947
 948         (SELECT SUM(ac.amount)
 949          FROM acc_trans ac
 950          JOIN chart c ON (ac.chart_id = c.id)
 951          $dpt_join
 952          WHERE $sumwhere
 953            $dpt_where
 954            $project
 955          AND amount < 0
 956          AND c.accno = ?) AS sum_debit,
 957
 958         (SELECT max(ac.transdate) FROM acc_trans ac
 959         JOIN chart c ON (ac.chart_id = c.id)
 960         $dpt_join
 961         WHERE $where
 962           $dpt_where
 963           $project
 964         AND c.accno = ?) AS last_transaction
 965
 966
 967  |;
 968
 969   $drcr = prepare_query($form, $dbh, $q_drcr);
 970
 971   if ($form->{project_id}) {
 972     # prepare query for each account
 973     $q_project_drcr =
 974       qq|SELECT
 975           (SELECT SUM(ac.sellprice * ac.qty) * -1
 976            FROM invoice ac
 977            JOIN parts p ON (ac.parts_id = p.id)
 978            JOIN ap a ON (ac.trans_id = a.id)
 979            JOIN chart c ON (p.expense_accno_id = c.id)
 980            $dpt_join
 981            WHERE $invwhere
 982              $dpt_where
 983              $project
 984            AND c.accno = ?) AS debit,
 985
 986           (SELECT SUM(ac.sellprice * ac.qty)
 987            FROM invoice ac
 988            JOIN parts p ON (ac.parts_id = p.id)
 989            JOIN ar a ON (ac.trans_id = a.id)
 990            JOIN chart c ON (p.income_accno_id = c.id)
 991            $dpt_join
 992            WHERE $invwhere
 993              $dpt_where
 994              $project
 995            AND c.accno = ?) AS credit,
 996
 997         (SELECT SUM(ac.amount)
 998          FROM acc_trans ac
 999          JOIN chart c ON (ac.chart_id = c.id)
1000          $dpt_join
1001          WHERE $saldowhere
1002            $dpt_where
1003            $project
1004          AND c.accno = ? AND (NOT ac.ob_transaction OR ac.ob_transaction IS NULL)) AS saldo,
1005
1006         (SELECT SUM(ac.amount)
1007          FROM acc_trans ac
1008          JOIN chart c ON (ac.chart_id = c.id)
1009          $dpt_join
1010          WHERE $sumwhere
1011            $dpt_where
1012            $project
1013          AND amount > 0
1014          AND c.accno = ?) AS sum_credit,
1015
1016         (SELECT SUM(ac.amount)
1017          FROM acc_trans ac
1018          JOIN chart c ON (ac.chart_id = c.id)
1019          $dpt_join
1020          WHERE $sumwhere
1021            $dpt_where
1022            $project
1023          AND amount < 0
1024          AND c.accno = ?) AS sum_debit,
1025
1026
1027         (SELECT max(ac.transdate) FROM acc_trans ac
1028         JOIN chart c ON (ac.chart_id = c.id)
1029         $dpt_join
1030         WHERE $where
1031           $dpt_where
1032           $project
1033         AND c.accno = ?) AS last_transaction
1034  |;
1035
1036     $project_drcr = prepare_query($form, $dbh, $q_project_drcr);
1037   }
1038
1039
1040   my ($debit, $credit, $saldo, $soll_saldo, $haben_saldo,$soll_kummuliert, $haben_kummuliert, $last_transaction);
1041
1042   foreach my $accno (sort keys %trb) {
1043     $ref = {};
1044
1045     $ref->{accno} = $accno;
1046     map { $ref->{$_} = $trb{$accno}{$_} }
1047       qw(description category charttype amount soll_eb haben_eb beginning_balance);
1048
1049     $ref->{balance} = $form->round_amount($balance{ $ref->{accno} }, 2);
1050
1051     if ($trb{$accno}{charttype} eq 'A') {
1052
1053       # get DR/CR
1054       do_statement($form, $drcr, $q_drcr, $ref->{accno}, $ref->{accno}, $ref->{accno}, $ref->{accno}, $ref->{accno}, $ref->{accno});
1055
1056       ($debit, $credit, $saldo, $haben_saldo, $soll_saldo) = (0, 0, 0, 0, 0);
1057       my ($soll_kumuliert, $haben_kumuliert) = (0, 0);
1058       $last_transaction = "";
1059       while (($debit, $credit, $saldo, $haben_kumuliert, $soll_kumuliert, $last_transaction) = $drcr->fetchrow_array) {
1060         $ref->{debit}  += $debit;
1061         $ref->{credit} += $credit;
1062         if ($saldo >= 0) {
1063           $ref->{haben_saldo} += $saldo;
1064         } else {
1065           $ref->{soll_saldo} += $saldo * -1;
1066         }
1067         $ref->{last_transaction} = $last_transaction;
1068         $ref->{soll_kumuliert} = $soll_kumuliert * -1;
1069         $ref->{haben_kumuliert} = $haben_kumuliert;
1070       }
1071       $drcr->finish;
1072
1073       if ($form->{project_id}) {
1074
1075         # get DR/CR
1076         do_statement($form, $project_drcr, $q_project_drcr, $ref->{accno}, $ref->{accno}, $ref->{accno}, $ref->{accno}, $ref->{accno}, $ref->{accno});
1077
1078         ($debit, $credit) = (0, 0);
1079         while (($debit, $credit, $saldo, $haben_kumuliert, $soll_kumuliert, $last_transaction) = $project_drcr->fetchrow_array) {
1080           $ref->{debit}  += $debit;
1081           $ref->{credit} += $credit;
1082           if ($saldo >= 0) {
1083             $ref->{haben_saldo} += $saldo;
1084           } else {
1085             $ref->{soll_saldo} += $saldo * -1;
1086           }
1087           $ref->{soll_kumuliert} += $soll_kumuliert * -1;
1088           $ref->{haben_kumuliert} += $haben_kumuliert;
1089         }
1090         $project_drcr->finish;
1091       }
1092
1093       $ref->{debit}  = $form->round_amount($ref->{debit},  2);
1094       $ref->{credit} = $form->round_amount($ref->{credit}, 2);
1095
1096       if ($ref->{haben_saldo} != 0) {
1097         $ref->{haben_saldo}  = $ref->{haben_saldo} + $ref->{beginning_balance};
1098         if ($ref->{haben_saldo} < 0) {
1099           $ref->{soll_saldo} = $form->round_amount(($ref->{haben_saldo} *- 1), 2);
1100           $ref->{haben_saldo} = 0;
1101         }
1102       } else {
1103         $ref->{soll_saldo} = $ref->{soll_saldo} - $ref->{beginning_balance};
1104         if ($ref->{soll_saldo} < 0) {
1105           $ref->{haben_saldo} = $form->round_amount(($ref->{soll_saldo} * -1), 2);
1106           $ref->{soll_saldo} = 0;
1107         }
1108      }
1109       $ref->{haben_saldo} = $form->round_amount($ref->{haben_saldo}, 2);
1110       $ref->{soll_saldo} = $form->round_amount($ref->{soll_saldo}, 2);
1111       $ref->{haben_kumuliert}  = $form->round_amount($ref->{haben_kumuliert},  2);
1112       $ref->{soll_kumuliert} = $form->round_amount($ref->{soll_kumuliert}, 2);
1113     }
1114
1115     # add subtotal
1116     my @accno;
1117     @accno = grep { $_ le "$ref->{accno}" } @headingaccounts;
1118     $accno = pop @accno;
1119     if ($accno) {
1120       $trb{$accno}{debit}  += $ref->{debit};
1121       $trb{$accno}{credit} += $ref->{credit};
1122       $trb{$accno}{soll_saldo}  += $ref->{soll_saldo};
1123       $trb{$accno}{haben_saldo} += $ref->{haben_saldo};
1124       $trb{$accno}{soll_kumuliert}  += $ref->{soll_kumuliert};
1125       $trb{$accno}{haben_kumuliert} += $ref->{haben_kumuliert};
1126     }
1127
1128     push @{ $form->{TB} }, $ref;
1129
1130   }
1131
1132   $dbh->disconnect;
1133
1134   # debits and credits for headings
1135   foreach my $accno (@headingaccounts) {
1136     foreach $ref (@{ $form->{TB} }) {
1137       if ($accno eq $ref->{accno}) {
1138         $ref->{debit}           = $trb{$accno}{debit};
1139         $ref->{credit}          = $trb{$accno}{credit};
1140         $ref->{soll_saldo}      = $trb{$accno}{soll_saldo};
1141         $ref->{haben_saldo}     = $trb{$accno}{haben_saldo};
1142         $ref->{soll_kumuliert}  = $trb{$accno}{soll_kumuliert};
1143         $ref->{haben_kumuliert} = $trb{$accno}{haben_kumuliert};
1144       }
1145     }
1146   }
1147
1148   $main::lxdebug->leave_sub();
1149 }
1150
1151 sub get_storno {
1152   $main::lxdebug->enter_sub();
1153   my ($self, $dbh, $form) = @_;
1154   my $arap = $form->{arap} eq "ar" ? "ar" : "ap";
1155   my $query = qq|SELECT invnumber FROM $arap WHERE invnumber LIKE "Storno zu "|;
1156   my $sth =  $dbh->prepare($query);
1157   while(my $ref = $sth->fetchrow_hashref()) {
1158     $ref->{invnumer} =~ s/Storno zu //g;
1159     $form->{storno}{$ref->{invnumber}} = 1;
1160   }
1161   $main::lxdebug->leave_sub();
1162 }
1163
1164 sub aging {
1165   $main::lxdebug->enter_sub();
1166
1167   my ($self, $myconfig, $form) = @_;
1168
1169   # connect to database
1170   my $dbh     = $form->dbconnect($myconfig);
1171
1172   my ($invoice, $arap, $buysell, $ct, $ct_id, $ml);
1173
1174   if ($form->{ct} eq "customer") {
1175     $invoice = "is";
1176     $arap = "ar";
1177     $buysell = "buy";
1178     $ct = "customer";
1179     $ml = -1;
1180   } else {
1181     $invoice = "ir";
1182     $arap = "ap";
1183     $buysell = "sell";
1184     $ct = "vendor";
1185     $ml = 1;
1186   }
1187   $ct_id = "${ct}_id";
1188
1189   $form->{todate} = $form->current_date($myconfig) unless ($form->{todate});
1190   my $todate = conv_dateq($form->{todate});
1191   my $fromdate = conv_dateq($form->{fromdate});
1192
1193   my $fromwhere = ($form->{fromdate} ne "") ? " AND (transdate >= (date $fromdate)) " : "";
1194
1195   my $where = " 1 = 1 ";
1196   my ($name, $null);
1197
1198   if ($form->{$ct_id}) {
1199     $where .= qq| AND (ct.id = | . conv_i($form->{$ct_id}) . qq|)|;
1200   } elsif ($form->{ $form->{ct} }) {
1201     $where .= qq| AND (ct.name ILIKE | . $dbh->quote('%' . $form->{$ct} . '%') . qq|)|;
1202   }
1203
1204   my $dpt_join;
1205   my $where_dpt;
1206   if ($form->{department}) {
1207     my ($null, $department_id) = split /--/, $form->{department};
1208     $dpt_join = qq| JOIN department d ON (a.department_id = d.id) |;
1209     $where .= qq| AND (a.department_id = | . conv_i($department_id, 'NULL') . qq|)|;
1210     $where_dpt = qq| AND (${arap}.department_id = | . conv_i($department_id, 'NULL') . qq|)|;
1211   }
1212   my $review_of_aging_list;
1213   if ($form->{review_of_aging_list}) {
1214     if ($form->{review_of_aging_list} =~ m "-"){
1215       my @period = split(/-/, $form->{review_of_aging_list});
1216       $review_of_aging_list = " AND $period[0] < date_part('days', now() - duedate)
1217                                 AND date_part('days', now() - duedate)  < $period[1]";
1218     } else {
1219       $form->{review_of_aging_list} =~ s/[^0-9]//g;
1220       $review_of_aging_list = " AND $form->{review_of_aging_list} < date_part('days', now() - duedate)";
1221     }
1222   }
1223
1224   my $q_details = qq|
1225
1226     SELECT ${ct}.id AS ctid, ${ct}.name,
1227       street, zipcode, city, country, contact, email,
1228       phone as customerphone, fax as customerfax, ${ct}number,
1229       "invnumber", "transdate",
1230       (amount - COALESCE((SELECT sum(amount)*$ml FROM acc_trans LEFT JOIN chart ON (acc_trans.chart_id=chart.id) WHERE link ilike '%paid%' AND acc_trans.trans_id=${arap}.id AND acc_trans.transdate <= (date $todate)),0)) as "open", "amount",
1231       "duedate", invoice, ${arap}.id, date_part('days', now() - duedate) as overduedays,
1232       (SELECT $buysell
1233        FROM exchangerate
1234        WHERE (${arap}.curr = exchangerate.curr)
1235          AND (exchangerate.transdate = ${arap}.transdate)) AS exchangerate
1236     FROM ${arap}, ${ct}
1237     WHERE ((paid != amount) OR (datepaid > (date $todate) AND datepaid is not null))
1238       AND NOT COALESCE (${arap}.storno, 'f')
1239       AND (${arap}.${ct}_id = ${ct}.id)
1240       $where_dpt
1241       AND (${ct}.id = ?)
1242       AND (transdate <= (date $todate) $fromwhere )
1243       $review_of_aging_list
1244     ORDER BY ctid, transdate, invnumber |;
1245
1246   my $sth_details = prepare_query($form, $dbh, $q_details);
1247
1248   # select outstanding vendors or customers, depends on $ct
1249   my $query =
1250     qq|SELECT DISTINCT ct.id, ct.name
1251        FROM $ct ct, $arap a
1252        $dpt_join
1253        WHERE $where
1254          AND (a.${ct_id} = ct.id)
1255          AND ((a.paid != a.amount) OR ((a.datepaid > $todate) AND (datepaid is NOT NULL)))
1256          AND (a.transdate <= $todate $fromwhere)
1257        ORDER BY ct.name|;
1258
1259   my $sth = prepare_execute_query($form, $dbh, $query);
1260
1261   $form->{AG} = [];
1262   # for each company that has some stuff outstanding
1263   while (my ($id) = $sth->fetchrow_array) {
1264     do_statement($form, $sth_details, $q_details, $id);
1265
1266     while (my $ref = $sth_details->fetchrow_hashref("NAME_lc")) {
1267       $ref->{module} = ($ref->{invoice}) ? $invoice : $arap;
1268       $ref->{exchangerate} = 1 unless $ref->{exchangerate};
1269       push @{ $form->{AG} }, $ref;
1270     }
1271
1272     $sth_details->finish;
1273
1274   }
1275
1276   $sth->finish;
1277
1278   # disconnect
1279   $dbh->disconnect;
1280
1281   $main::lxdebug->leave_sub();
1282 }
1283
1284 sub get_customer {
1285   $main::lxdebug->enter_sub();
1286
1287   my ($self, $myconfig, $form) = @_;
1288
1289   # connect to database
1290   my $dbh = $form->dbconnect($myconfig);
1291
1292   my $ct = $form->{ct} eq "customer" ? "customer" : "vendor";
1293
1294   my $query =
1295     qq|SELECT ct.name, ct.email, ct.cc, ct.bcc
1296        FROM $ct ct
1297        WHERE ct.id = ?|;
1298   ($form->{ $form->{ct} }, $form->{email}, $form->{cc}, $form->{bcc}) =
1299     selectrow_query($form, $dbh, $query, $form->{"${ct}_id"});
1300   $dbh->disconnect;
1301
1302   $main::lxdebug->leave_sub();
1303 }
1304
1305 sub tax_report {
1306   $main::lxdebug->enter_sub();
1307
1308   my ($self, $myconfig, $form) = @_;
1309
1310   # connect to database
1311   my $dbh = $form->dbconnect($myconfig);
1312
1313   my ($null, $department_id) = split /--/, $form->{department};
1314
1315   # build WHERE
1316   my $where = "1 = 1";
1317
1318   if ($department_id) {
1319     $where .= qq| AND (a.department_id = | . conv_i($department_id, 'NULL') . qq|) |;
1320   }
1321
1322   my ($accno, $rate);
1323
1324   if ($form->{accno}) {
1325     $accno = $form->{accno};
1326     $rate  = $form->{"$form->{accno}_rate"};
1327     $accno = qq| AND (ch.accno = | . $dbh->quote($accno) . qq|)|;
1328   }
1329   $rate *= 1;
1330
1331   my ($table, $ARAP);
1332
1333   if ($form->{db} eq 'ar') {
1334     $table = "customer";
1335     $ARAP  = "AR";
1336   } else {
1337     $table = "vendor";
1338     $ARAP  = "AP";
1339   }
1340
1341   my $arap = lc($ARAP);
1342
1343   my $transdate = "a.transdate";
1344
1345   if ($form->{method} eq 'cash') {
1346     $transdate = "a.datepaid";
1347
1348     my $todate = conv_dateq($form->{todate} ? $form->{todate} : $form->current_date($myconfig));
1349
1350     $where .= qq|
1351       AND ac.trans_id IN
1352         (
1353           SELECT trans_id
1354           FROM acc_trans a
1355           JOIN chart c ON (a.chart_id = c.id)
1356           WHERE (link LIKE '%${ARAP}_paid%')
1357           AND (transdate <= $todate)
1358         )
1359       |;
1360   }
1361
1362   # if there are any dates construct a where
1363   $where .= " AND ($transdate >= " . conv_dateq($form->{fromdate}) . ") " if ($form->{fromdate});
1364   $where .= " AND ($transdate <= " . conv_dateq($form->{todate}) . ") " if ($form->{todate});
1365
1366   my $ml = ($form->{db} eq 'ar') ? 1 : -1;
1367
1368   my $sortorder = join ', ', $form->sort_columns(qw(transdate invnumber name));
1369   $sortorder = $form->{sort} if ($form->{sort} && grep({ $_ eq $form->{sort} } qw(id transdate invnumber name netamount tax)));
1370
1371   my $query = '';
1372   if ($form->{report} !~ /nontaxable/) {
1373     $query =
1374       qq|SELECT a.id, '0' AS invoice, $transdate AS transdate, a.invnumber, n.name, a.netamount,
1375           ac.amount * $ml AS tax
1376          FROM acc_trans ac
1377          JOIN ${arap} a ON (a.id = ac.trans_id)
1378          JOIN chart ch ON (ch.id = ac.chart_id)
1379          JOIN $table n ON (n.id = a.${table}_id)
1380          WHERE
1381            $where
1382            $accno
1383            AND (a.invoice = '0')
1384
1385          UNION
1386
1387          SELECT a.id, '1' AS invoice, $transdate AS transdate, a.invnumber, n.name, i.sellprice * i.qty AS netamount,
1388            i.sellprice * i.qty * $rate * $ml AS tax
1389          FROM acc_trans ac
1390          JOIN ${arap} a ON (a.id = ac.trans_id)
1391          JOIN chart ch ON (ch.id = ac.chart_id)
1392          JOIN $table n ON (n.id = a.${table}_id)
1393          JOIN ${table}tax t ON (t.${table}_id = n.id)
1394          JOIN invoice i ON (i.trans_id = a.id)
1395          JOIN partstax p ON (p.parts_id = i.parts_id)
1396          WHERE
1397            $where
1398            $accno
1399            AND (a.invoice = '1')
1400          ORDER BY $sortorder|;
1401   } else {
1402     # only gather up non-taxable transactions
1403     $query =
1404       qq|SELECT a.id, '0' AS invoice, $transdate AS transdate, a.invnumber, n.name, a.netamount
1405          FROM acc_trans ac
1406          JOIN ${arap} a ON (a.id = ac.trans_id)
1407          JOIN $table n ON (n.id = a.${table}_id)
1408          WHERE
1409            $where
1410            AND (a.invoice = '0')
1411            AND (a.netamount = a.amount)
1412
1413          UNION
1414
1415          SELECT a.id, '1' AS invoice, $transdate AS transdate, a.invnumber, n.name, i.sellprice * i.qty AS netamount
1416          FROM acc_trans ac
1417          JOIN ${arap} a ON (a.id = ac.trans_id)
1418          JOIN $table n ON (n.id = a.${table}_id)
1419          JOIN invoice i ON (i.trans_id = a.id)
1420          WHERE
1421            $where
1422            AND (a.invoice = '1')
1423            AND (
1424              a.${table}_id NOT IN (SELECT ${table}_id FROM ${table}tax t (${table}_id))
1425              OR
1426              i.parts_id NOT IN (SELECT parts_id FROM partstax p (parts_id))
1427            )
1428          GROUP BY a.id, a.invnumber, $transdate, n.name, i.sellprice, i.qty
1429          ORDER by $sortorder|;
1430   }
1431
1432   $form->{TR} = selectall_hashref_query($form, $dbh, $query);
1433
1434   $dbh->disconnect;
1435
1436   $main::lxdebug->leave_sub();
1437 }
1438
1439 sub paymentaccounts {
1440   $main::lxdebug->enter_sub();
1441
1442   my ($self, $myconfig, $form) = @_;
1443
1444   # connect to database, turn AutoCommit off
1445   my $dbh = $form->dbconnect_noauto($myconfig);
1446
1447   my $ARAP = $form->{db} eq "ar" ? "AR" : "AP";
1448
1449   # get A(R|P)_paid accounts
1450   my $query =
1451     qq|SELECT accno, description
1452        FROM chart
1453        WHERE link LIKE '%${ARAP}_paid%'|;
1454   $form->{PR} = selectall_hashref_query($form, $dbh, $query);
1455
1456   $dbh->disconnect;
1457
1458   $main::lxdebug->leave_sub();
1459 }
1460
1461 sub payments {
1462   $main::lxdebug->enter_sub();
1463
1464   my ($self, $myconfig, $form) = @_;
1465
1466   # connect to database, turn AutoCommit off
1467   my $dbh = $form->dbconnect_noauto($myconfig);
1468
1469   my $ml = 1;
1470   my $arap;
1471   my $table;
1472   if ($form->{db} eq 'ar') {
1473     $table = 'customer';
1474     $ml = -1;
1475     $arap = 'ar';
1476   } else {
1477     $table = 'vendor';
1478     $arap = 'ap';
1479   }
1480
1481   my ($query, $sth);
1482   my $dpt_join;
1483   my $where;
1484
1485   if ($form->{department_id}) {
1486     $dpt_join = qq| JOIN dpt_trans t ON (t.trans_id = ac.trans_id) |;
1487     $where = qq| AND (t.department_id = | . conv_i($form->{department_id}, 'NULL') . qq|) |;
1488   }
1489
1490   if ($form->{fromdate}) {
1491     $where .= " AND (ac.transdate >= " . $dbh->quote($form->{fromdate}) . ") ";
1492   }
1493   if ($form->{todate}) {
1494     $where .= " AND (ac.transdate <= " . $dbh->quote($form->{todate}) . ") ";
1495   }
1496   if (!$form->{fx_transaction}) {
1497     $where .= " AND ac.fx_transaction = '0'";
1498   }
1499
1500   my $invnumber;
1501   my $reference;
1502   if ($form->{reference}) {
1503     $reference = $dbh->quote('%' . $form->{reference} . '%');
1504     $invnumber = " AND (a.invnumber LIKE $reference)";
1505     $reference = " AND (g.reference LIKE $reference)";
1506   }
1507   if ($form->{source}) {
1508     $where .= " AND (ac.source ILIKE " . $dbh->quote('%' . $form->{source} . '%') . ") ";
1509   }
1510   if ($form->{memo}) {
1511     $where .= " AND (ac.memo ILIKE " . $dbh->quote('%' . $form->{memo} . '%') . ") ";
1512   }
1513
1514   my %sort_columns =  (
1515     'transdate'    => [ qw(transdate lower_invnumber lower_name) ],
1516     'invnumber'    => [ qw(lower_invnumber lower_name transdate) ],
1517     'name'         => [ qw(lower_name transdate)                 ],
1518     'source'       => [ qw(lower_source)                         ],
1519     'memo'         => [ qw(lower_memo)                           ],
1520     );
1521   my %lowered_columns =  (
1522     'invnumber'       => { 'gl' => 'g.reference',   'arap' => 'a.invnumber', },
1523     'memo'            => { 'gl' => 'ac.memo',       'arap' => 'ac.memo',     },
1524     'source'          => { 'gl' => 'ac.source',     'arap' => 'ac.source',   },
1525     'name'            => { 'gl' => 'g.description', 'arap' => 'c.name',      },
1526     );
1527
1528   my $sortdir   = !defined $form->{sortdir} ? 'ASC' : $form->{sortdir} ? 'ASC' : 'DESC';
1529   my $sortkey   = $sort_columns{$form->{sort}} ? $form->{sort} : 'transdate';
1530   my $sortorder = join ', ', map { "$_ $sortdir" } @{ $sort_columns{$sortkey} };
1531
1532
1533   my %columns_for_sorting = ( 'gl' => '', 'arap' => '', );
1534   foreach my $spec (@{ $sort_columns{$sortkey} }) {
1535     next if ($spec !~ m/^lower_(.*)$/);
1536
1537     my $column = $1;
1538     map { $columns_for_sorting{$_} .= sprintf(', lower(%s) AS lower_%s', $lowered_columns{$column}->{$_}, $column) } qw(gl arap);
1539   }
1540
1541   $query = qq|SELECT id, accno, description FROM chart WHERE accno = ?|;
1542   $sth = prepare_query($form, $dbh, $query);
1543
1544   my $q_details =
1545       qq|SELECT c.name, a.invnumber, a.ordnumber,
1546            ac.transdate, ac.amount * $ml AS paid, ac.source,
1547            a.invoice, a.id, ac.memo, '${arap}' AS module
1548            $columns_for_sorting{arap}
1549          FROM acc_trans ac
1550          JOIN $arap a ON (ac.trans_id = a.id)
1551          JOIN $table c ON (c.id = a.${table}_id)
1552          $dpt_join
1553          WHERE (ac.chart_id = ?)
1554            $where
1555            $invnumber
1556
1557          UNION
1558
1559          SELECT g.description, g.reference, NULL AS ordnumber,
1560            ac.transdate, ac.amount * $ml AS paid, ac.source,
1561            '0' as invoice, g.id, ac.memo, 'gl' AS module
1562            $columns_for_sorting{gl}
1563          FROM acc_trans ac
1564          JOIN gl g ON (g.id = ac.trans_id)
1565          $dpt_join
1566          WHERE (ac.chart_id = ?)
1567            $where
1568            $reference
1569            AND (ac.amount * $ml) > 0
1570
1571          ORDER BY $sortorder|;
1572   my $sth_details = prepare_query($form, $dbh, $q_details);
1573
1574   $form->{PR} = [];
1575
1576   # cycle through each id
1577   foreach my $accno (split(/ /, $form->{paymentaccounts})) {
1578     do_statement($form, $sth, $query, $accno);
1579     my $ref = $sth->fetchrow_hashref();
1580     push(@{ $form->{PR} }, $ref);
1581     $sth->finish();
1582
1583     $form->{ $ref->{id} } = [] unless ($form->{ $ref->{id} });
1584
1585     do_statement($form, $sth_details, $q_details, $ref->{id}, $ref->{id});
1586     while (my $pr = $sth_details->fetchrow_hashref()) {
1587       push(@{ $form->{ $ref->{id} } }, $pr);
1588     }
1589     $sth_details->finish();
1590   }
1591
1592   $dbh->disconnect;
1593
1594   $main::lxdebug->leave_sub();
1595 }
1596
1597 sub bwa {
1598   $main::lxdebug->enter_sub();
1599
1600   my ($self, $myconfig, $form) = @_;
1601
1602   # connect to database
1603   my $dbh = $form->dbconnect($myconfig);
1604
1605   my $last_period = 0;
1606   my $category;
1607   my @categories  =
1608     qw(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40);
1609
1610   $form->{decimalplaces} *= 1;
1611
1612   &get_accounts_g($dbh, $last_period, $form->{fromdate}, $form->{todate}, $form, "pos_bwa");
1613
1614   # if there are any compare dates
1615   my $year;
1616   if ($form->{fromdate} || $form->{todate}) {
1617     $last_period = 1;
1618     if ($form->{fromdate}) {
1619       $form->{fromdate} =~ /[0-9]*\.[0-9]*\.([0-9]*)/;
1620       $year = $1;
1621     } else {
1622       $form->{todate} =~ /[0-9]*\.[0-9]*\.([0-9]*)/;
1623       $year = $1;
1624     }
1625     my $kummfromdate = $form->{comparefromdate};
1626     my $kummtodate   = $form->{comparetodate};
1627     &get_accounts_g($dbh, $last_period, $kummfromdate, $kummtodate, $form, "pos_bwa");
1628   }
1629
1630   my @periods        = qw(jetzt kumm);
1631   my @gesamtleistung = qw(1 3);
1632   my @gesamtkosten   = qw (10 11 12 13 14 15 16 17 18 19 20);
1633   my @ergebnisse     =
1634     qw (rohertrag betriebrohertrag betriebsergebnis neutraleraufwand neutralerertrag ergebnisvorsteuern ergebnis gesamtleistung gesamtkosten);
1635
1636   foreach my $key (@periods) {
1637     $form->{ "$key" . "gesamtleistung" } = 0;
1638     $form->{ "$key" . "gesamtkosten" }   = 0;
1639
1640     foreach $category (@categories) {
1641
1642       if (defined($form->{$category}{$key})) {
1643         $form->{"$key$category"} =
1644           $form->format_amount($myconfig,
1645                                $form->round_amount($form->{$category}{$key}, 2
1646                                ),
1647                                $form->{decimalplaces},
1648                                '0');
1649       }
1650     }
1651     foreach my $item (@gesamtleistung) {
1652       $form->{ "$key" . "gesamtleistung" } += $form->{$item}{$key};
1653     }
1654     $form->{ "$key" . "gesamtleistung" } -= $form->{2}{$key};
1655
1656     foreach my $item (@gesamtkosten) {
1657       $form->{ "$key" . "gesamtkosten" } += $form->{$item}{$key};
1658     }
1659     $form->{ "$key" . "rohertrag" } =
1660       $form->{ "$key" . "gesamtleistung" } - $form->{4}{$key};
1661     $form->{ "$key" . "betriebrohertrag" } =
1662       $form->{ "$key" . "rohertrag" } + $form->{5}{$key};
1663     $form->{ "$key" . "betriebsergebnis" } =
1664       $form->{ "$key" . "betriebrohertrag" } -
1665       $form->{ "$key" . "gesamtkosten" };
1666     $form->{ "$key" . "neutraleraufwand" } =
1667       $form->{30}{$key} + $form->{31}{$key};
1668     $form->{ "$key" . "neutralertrag" } =
1669       $form->{32}{$key} + $form->{33}{$key} + $form->{34}{$key};
1670     $form->{ "$key" . "ergebnisvorsteuern" } =
1671       $form->{ "$key" . "betriebsergebnis" } -
1672       $form->{ "$key" . "neutraleraufwand" } +
1673       $form->{ "$key" . "neutralertrag" };
1674     $form->{ "$key" . "ergebnis" } =
1675       $form->{ "$key" . "ergebnisvorsteuern" } - $form->{35}{$key};
1676
1677     if ($form->{ "$key" . "gesamtleistung" } > 0) {
1678       foreach $category (@categories) {
1679         if (defined($form->{$category}{$key})) {
1680           $form->{ "$key" . "gl" . "$category" } =
1681             $form->format_amount(
1682                                $myconfig,
1683                                $form->round_amount(
1684                                  ($form->{$category}{$key} /
1685                                     $form->{ "$key" . "gesamtleistung" } * 100
1686                                  ),
1687                                  $form->{decimalplaces}
1688                                ),
1689                                $form->{decimalplaces},
1690                                '0');
1691         }
1692       }
1693       foreach my $item (@ergebnisse) {
1694         $form->{ "$key" . "gl" . "$item" } =
1695           $form->format_amount($myconfig,
1696                                $form->round_amount(
1697                                  ( $form->{ "$key" . "$item" } /
1698                                      $form->{ "$key" . "gesamtleistung" } * 100
1699                                  ),
1700                                  $form->{decimalplaces}
1701                                ),
1702                                $form->{decimalplaces},
1703                                '0');
1704       }
1705     }
1706
1707     if ($form->{ "$key" . "gesamtkosten" } > 0) {
1708       foreach $category (@categories) {
1709         if (defined($form->{$category}{$key})) {
1710           $form->{ "$key" . "gk" . "$category" } =
1711             $form->format_amount($myconfig,
1712                                  $form->round_amount(
1713                                    ($form->{$category}{$key} /
1714                                       $form->{ "$key" . "gesamtkosten" } * 100
1715                                    ),
1716                                    $form->{decimalplaces}
1717                                  ),
1718                                  $form->{decimalplaces},
1719                                  '0');
1720         }
1721       }
1722       foreach my $item (@ergebnisse) {
1723         $form->{ "$key" . "gk" . "$item" } =
1724           $form->format_amount($myconfig,
1725                                $form->round_amount(
1726                                    ($form->{ "$key" . "$item" } /
1727                                       $form->{ "$key" . "gesamtkosten" } * 100
1728                                    ),
1729                                    $form->{decimalplaces}
1730                                ),
1731                                $form->{decimalplaces},
1732                                '0');
1733       }
1734     }
1735
1736     if ($form->{10}{$key} > 0) {
1737       foreach $category (@categories) {
1738         if (defined($form->{$category}{$key})) {
1739           $form->{ "$key" . "pk" . "$category" } =
1740             $form->format_amount(
1741                         $myconfig,
1742                         $form->round_amount(
1743                           ($form->{$category}{$key} / $form->{10}{$key} * 100),
1744                           $form->{decimalplaces}
1745                         ),
1746                         $form->{decimalplaces},
1747                         '0');
1748         }
1749       }
1750       foreach my $item (@ergebnisse) {
1751         $form->{ "$key" . "pk" . "$item" } =
1752           $form->format_amount($myconfig,
1753                                $form->round_amount(
1754                                                 ($form->{ "$key" . "$item" } /
1755                                                    $form->{10}{$key} * 100
1756                                                 ),
1757                                                 $form->{decimalplaces}
1758                                ),
1759                                $form->{decimalplaces},
1760                                '0');
1761       }
1762     }
1763
1764     if ($form->{4}{$key} > 0) {
1765       foreach $category (@categories) {
1766         if (defined($form->{$category}{$key})) {
1767           $form->{ "$key" . "auf" . "$category" } =
1768             $form->format_amount(
1769                          $myconfig,
1770                          $form->round_amount(
1771                            ($form->{$category}{$key} / $form->{4}{$key} * 100),
1772                            $form->{decimalplaces}
1773                          ),
1774                          $form->{decimalplaces},
1775                          '0');
1776         }
1777       }
1778       foreach my $item (@ergebnisse) {
1779         $form->{ "$key" . "auf" . "$item" } =
1780           $form->format_amount($myconfig,
1781                                $form->round_amount(
1782                                                 ($form->{ "$key" . "$item" } /
1783                                                    $form->{4}{$key} * 100
1784                                                 ),
1785                                                 $form->{decimalplaces}
1786                                ),
1787                                $form->{decimalplaces},
1788                                '0');
1789       }
1790     }
1791
1792     foreach my $item (@ergebnisse) {
1793       $form->{ "$key" . "$item" } =
1794         $form->format_amount($myconfig,
1795                              $form->round_amount($form->{ "$key" . "$item" },
1796                                                  $form->{decimalplaces}
1797                              ),
1798                              $form->{decimalplaces},
1799                              '0');
1800     }
1801
1802   }
1803   $dbh->disconnect;
1804
1805   $main::lxdebug->leave_sub();
1806 }
1807
1808 sub ustva {
1809   $main::lxdebug->enter_sub();
1810
1811   my ($self, $myconfig, $form) = @_;
1812
1813   # connect to database
1814   my $dbh = $form->dbconnect($myconfig);
1815
1816   my $last_period     = 0;
1817   my @categories_cent = qw(51r 511 86r 861 97r 971 93r 931
1818     96 66 43 45 53 62 65 67);
1819   my @categories_euro = qw(48 51 86 91 97 93 94);
1820   $form->{decimalplaces} *= 1;
1821
1822   foreach my $item (@categories_cent) {
1823     $form->{"$item"} = 0;
1824   }
1825   foreach my $item (@categories_euro) {
1826     $form->{"$item"} = 0;
1827   }
1828
1829   &get_accounts_g($dbh, $last_period, $form->{fromdate}, $form->{todate}, $form, "pos_ustva");
1830
1831   #   foreach $item (@categories_cent) {
1832   #     if ($form->{$item}{"jetzt"} > 0) {
1833   #       $form->{$item} = $form->{$item}{"jetzt"};
1834   #       delete $form->{$item}{"jetzt"};
1835   #     }
1836   #   }
1837   #   foreach $item (@categories_euro) {
1838   #     if ($form->{$item}{"jetzt"} > 0) {
1839   #       $form->{$item} = $form->{$item}{"jetzt"};
1840   #       delete $form->{$item}{"jetzt"};
1841   #     }  foreach $item (@categories_cent) {
1842   #     if ($form->{$item}{"jetzt"} > 0) {
1843   #       $form->{$item} = $form->{$item}{"jetzt"};
1844   #       delete $form->{$item}{"jetzt"};
1845   #     }
1846   #   }
1847   #   foreach $item (@categories_euro) {
1848   #     if ($form->{$item}{"jetzt"} > 0) {
1849   #       $form->{$item} = $form->{$item}{"jetzt"};
1850   #       delete $form->{$item}{"jetzt"};
1851   #     }
1852   #   }
1853   #
1854   #    }
1855
1856   #
1857   # Berechnung der USTVA Formularfelder
1858   #
1859   $form->{"51r"} = $form->{"511"};
1860   $form->{"86r"} = $form->{"861"};
1861   $form->{"97r"} = $form->{"971"};
1862   $form->{"93r"} = $form->{"931"};
1863
1864   #$form->{"96"}  = $form->{"94"} * 0.16;
1865   $form->{"43"} =
1866     $form->{"51r"} + $form->{"86r"} + $form->{"97r"} + $form->{"93r"} +
1867     $form->{"96"};
1868   $form->{"45"} = $form->{"43"};
1869   $form->{"53"} = $form->{"43"};
1870   $form->{"62"} = $form->{"43"} - $form->{"66"};
1871   $form->{"65"} = $form->{"43"} - $form->{"66"};
1872   $form->{"67"} = $form->{"43"} - $form->{"66"};
1873
1874   foreach my $item (@categories_cent) {
1875     $form->{$item} =
1876       $form->format_amount($myconfig, $form->round_amount($form->{$item}, 2),
1877                            2, '0');
1878   }
1879
1880   foreach my $item (@categories_euro) {
1881     $form->{$item} =
1882       $form->format_amount($myconfig, $form->round_amount($form->{$item}, 0),
1883                            0, '0');
1884   }
1885
1886   $dbh->disconnect;
1887
1888   $main::lxdebug->leave_sub();
1889 }
1890
1891 sub income_statement {
1892   $main::lxdebug->enter_sub();
1893
1894   my ($self, $myconfig, $form) = @_;
1895
1896   # connect to database
1897   my $dbh = $form->dbconnect($myconfig);
1898
1899   my $last_period          = 0;
1900   my @categories_einnahmen = qw(1 2 3 4 5 6 7);
1901   my @categories_ausgaben  =
1902     qw(8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31);
1903
1904   my @ergebnisse = qw(sumeura sumeurb guvsumme);
1905
1906   $form->{decimalplaces} *= 1;
1907
1908
1909
1910   &get_accounts_g($dbh, $last_period, $form->{fromdate}, $form->{todate},
1911                   $form, "pos_eur");
1912
1913
1914   foreach my $item (@categories_einnahmen) {
1915     $form->{"eur${item}"} =
1916       $form->format_amount($myconfig, $form->round_amount($form->{$item}, 2),2);
1917     $form->{"sumeura"} += $form->{$item};
1918   }
1919   foreach my $item (@categories_ausgaben) {
1920     $form->{"eur${item}"} =
1921       $form->format_amount($myconfig, $form->round_amount($form->{$item}, 2),2);
1922     $form->{"sumeurb"} += $form->{$item};
1923   }
1924
1925   $form->{"guvsumme"} = $form->{"sumeura"} - $form->{"sumeurb"};
1926
1927   foreach my $item (@ergebnisse) {
1928     $form->{$item} =
1929       $form->format_amount($myconfig, $form->round_amount($form->{$item}, 2),2);
1930   }
1931   $main::lxdebug->leave_sub();
1932 }
1933 1;