SL/GL.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) 2001
  10 #
  11 #  Author: Dieter Simader
  12 #   Email: dsimader@sql-ledger.org
  13 #     Web: http://www.sql-ledger.org
  14 #
  15 #  Contributors:
  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., 51 Franklin Street, Fifth Floor, Boston,
  29 # MA 02110-1335, USA.
  30 #======================================================================
  31 #
  32 # General ledger backend code
  33 #
  34 # CHANGE LOG:
  35 #   DS. 2000-07-04  Created
  36 #   DS. 2001-06-12  Changed relations from accno to chart_id
  37 #
  38 #======================================================================
  39
  40 package GL;
  41
  42 use List::Util qw(first);
  43
  44 use Data::Dumper;
  45 use SL::DATEV qw(:CONSTANTS);
  46 use SL::DBUtils;
  47 use SL::DB::Chart;
  48 use SL::DB::Draft;
  49 use SL::Util qw(trim);
  50 use SL::DB;
  51
  52 use strict;
  53
  54 sub delete_transaction {
  55   my ($self, $myconfig, $form) = @_;
  56   $main::lxdebug->enter_sub();
  57
  58   SL::DB->client->with_transaction(sub {
  59     do_query($form, SL::DB->client->dbh, qq|DELETE FROM gl WHERE id = ?|, conv_i($form->{id}));
  60     1;
  61   }) or do { die SL::DB->client->error };
  62
  63   $main::lxdebug->leave_sub();
  64 }
  65
  66 sub post_transaction {
  67   my ($self, $myconfig, $form) = @_;
  68   $main::lxdebug->enter_sub();
  69
  70   my $rc = SL::DB->client->with_transaction(\&_post_transaction, $self, $myconfig, $form);
  71
  72   $::lxdebug->leave_sub;
  73   return $rc;
  74 }
  75
  76 sub _post_transaction {
  77   my ($self, $myconfig, $form) = @_;
  78   $main::lxdebug->enter_sub();
  79
  80   my ($debit, $credit) = (0, 0);
  81   my $project_id;
  82
  83   my $i;
  84
  85   my $dbh = SL::DB->client->dbh;
  86
  87   # post the transaction
  88   # make up a unique handle and store in reference field
  89   # then retrieve the record based on the unique handle to get the id
  90   # replace the reference field with the actual variable
  91   # add records to acc_trans
  92
  93   # if there is a $form->{id} replace the old transaction
  94   # delete all acc_trans entries and add the new ones
  95
  96   if (!$form->{taxincluded}) {
  97     $form->{taxincluded} = 0;
  98   }
  99
 100   my ($query, $sth, @values, $taxkey, $rate, $posted);
 101
 102   if ($form->{id}) {
 103
 104     # delete individual transactions
 105     $query = qq|DELETE FROM acc_trans WHERE trans_id = ?|;
 106     @values = (conv_i($form->{id}));
 107     do_query($form, $dbh, $query, @values);
 108
 109   } else {
 110     $query = qq|SELECT nextval('glid')|;
 111     ($form->{id}) = selectrow_query($form, $dbh, $query);
 112
 113     $query =
 114       qq|INSERT INTO gl (id, employee_id) | .
 115       qq|VALUES (?, (SELECT id FROM employee WHERE login = ?))|;
 116     @values = ($form->{id}, $::myconfig{login});
 117     do_query($form, $dbh, $query, @values);
 118   }
 119
 120   $form->{ob_transaction} *= 1;
 121   $form->{cb_transaction} *= 1;
 122
 123   $query =
 124     qq|UPDATE gl SET
 125          reference = ?, description = ?, notes = ?,
 126          transdate = ?, deliverydate = ?, tax_point = ?, department_id = ?, taxincluded = ?,
 127          storno = ?, storno_id = ?, ob_transaction = ?, cb_transaction = ?
 128        WHERE id = ?|;
 129
 130   @values = ($form->{reference}, $form->{description}, $form->{notes},
 131              conv_date($form->{transdate}), conv_date($form->{deliverydate}), conv_date($form->{tax_point}), conv_i($form->{department_id}), $form->{taxincluded} ? 't' : 'f',
 132              $form->{storno} ? 't' : 'f', conv_i($form->{storno_id}), $form->{ob_transaction} ? 't' : 'f', $form->{cb_transaction} ? 't' : 'f',
 133              conv_i($form->{id}));
 134   do_query($form, $dbh, $query, @values);
 135
 136   # insert acc_trans transactions
 137   for $i (1 .. $form->{rowcount}) {
 138     ($form->{"tax_id_$i"}) = split(/--/, $form->{"taxchart_$i"});
 139     if ($form->{"tax_id_$i"} ne "") {
 140       $query = qq|SELECT taxkey, rate FROM tax WHERE id = ?|;
 141       ($taxkey, $rate) = selectrow_query($form, $dbh, $query, conv_i($form->{"tax_id_$i"}));
 142     }
 143
 144     my $amount = 0;
 145     my $debit  = $form->{"debit_$i"};
 146     my $credit = $form->{"credit_$i"};
 147     my $tax    = $form->{"tax_$i"};
 148
 149     if ($credit) {
 150       $amount = $credit;
 151       $posted = 0;
 152     }
 153     if ($debit) {
 154       $amount = $debit * -1;
 155       $tax    = $tax * -1;
 156       $posted = 0;
 157     }
 158
 159     $project_id = conv_i($form->{"project_id_$i"});
 160
 161     # if there is an amount, add the record
 162     if ($amount != 0) {
 163       $query =
 164         qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate,
 165                                   source, memo, project_id, taxkey, ob_transaction, cb_transaction, tax_id, chart_link)
 166            VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, (SELECT link FROM chart WHERE id = ?))|;
 167       @values = (conv_i($form->{id}), $form->{"accno_id_$i"}, $amount, conv_date($form->{transdate}),
 168                  $form->{"source_$i"}, $form->{"memo_$i"}, $project_id, $taxkey, $form->{ob_transaction} ? 't' : 'f', $form->{cb_transaction} ? 't' : 'f', conv_i($form->{"tax_id_$i"}), $form->{"accno_id_$i"});
 169       do_query($form, $dbh, $query, @values);
 170     }
 171
 172     if ($tax != 0) {
 173       # add taxentry
 174       $query =
 175         qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate,
 176                                   source, memo, project_id, taxkey, tax_id, chart_link)
 177            VALUES (?, (SELECT chart_id FROM tax WHERE id = ?),
 178                    ?, ?, ?, ?, ?, ?, ?, (SELECT link
 179                                          FROM chart
 180                                          WHERE id = (SELECT chart_id
 181                                                      FROM tax
 182                                                      WHERE id = ?)))|;
 183       @values = (conv_i($form->{id}), conv_i($form->{"tax_id_$i"}),
 184                  $tax, conv_date($form->{transdate}), $form->{"source_$i"},
 185                  $form->{"memo_$i"}, $project_id, $taxkey, conv_i($form->{"tax_id_$i"}), conv_i($form->{"tax_id_$i"}));
 186       do_query($form, $dbh, $query, @values);
 187     }
 188   }
 189
 190   if ($form->{storno} && $form->{storno_id}) {
 191     do_query($form, $dbh, qq|UPDATE gl SET storno = 't' WHERE id = ?|, conv_i($form->{storno_id}));
 192   }
 193
 194   if ($form->{draft_id}) {
 195     SL::DB::Manager::Draft->delete_all(where => [ id => delete($form->{draft_id}) ]);
 196   }
 197
 198   # safety check datev export
 199   if ($::instance_conf->get_datev_check_on_gl_transaction) {
 200
 201     # create datev object
 202     my $datev = SL::DATEV->new(
 203       dbh        => $dbh,
 204       trans_id   => $form->{id},
 205     );
 206
 207     $datev->generate_datev_data;
 208
 209     if ($datev->errors) {
 210       die join "\n", $::locale->text('DATEV check returned errors:'), $datev->errors;
 211     }
 212   }
 213
 214   return 1;
 215 }
 216
 217 sub all_transactions {
 218   my ($self, $myconfig, $form) = @_;
 219   $main::lxdebug->enter_sub();
 220
 221   my $dbh = SL::DB->client->dbh;
 222   my ($query, $sth, $source, $null, $space);
 223
 224   my ($glwhere, $arwhere, $apwhere) = ("1 = 1", "1 = 1", "1 = 1");
 225   my (@glvalues, @arvalues, @apvalues);
 226
 227   if ($form->{reference}) {
 228     $glwhere .= qq| AND g.reference ILIKE ?|;
 229     $arwhere .= qq| AND a.invnumber ILIKE ?|;
 230     $apwhere .= qq| AND a.invnumber ILIKE ?|;
 231     push(@glvalues, like($form->{reference}));
 232     push(@arvalues, like($form->{reference}));
 233     push(@apvalues, like($form->{reference}));
 234   }
 235
 236   if ($form->{department_id}) {
 237     $glwhere .= qq| AND g.department_id = ?|;
 238     $arwhere .= qq| AND a.department_id = ?|;
 239     $apwhere .= qq| AND a.department_id = ?|;
 240     push(@glvalues, $form->{department_id});
 241     push(@arvalues, $form->{department_id});
 242     push(@apvalues, $form->{department_id});
 243   }
 244
 245   if ($form->{source}) {
 246     $glwhere .= " AND ac.trans_id IN (SELECT trans_id from acc_trans WHERE source ILIKE ?)";
 247     $arwhere .= " AND ac.trans_id IN (SELECT trans_id from acc_trans WHERE source ILIKE ?)";
 248     $apwhere .= " AND ac.trans_id IN (SELECT trans_id from acc_trans WHERE source ILIKE ?)";
 249     push(@glvalues, like($form->{source}));
 250     push(@arvalues, like($form->{source}));
 251     push(@apvalues, like($form->{source}));
 252   }
 253
 254   # default Datumseinschränkung falls nicht oder falsch übergeben (sollte nie passieren)
 255   $form->{datesort} = 'transdate' unless $form->{datesort} =~ /^(transdate|gldate)$/;
 256
 257   if (trim($form->{datefrom})) {
 258     $glwhere .= " AND ac.$form->{datesort} >= ?";
 259     $arwhere .= " AND ac.$form->{datesort} >= ?";
 260     $apwhere .= " AND ac.$form->{datesort} >= ?";
 261     push(@glvalues, trim($form->{datefrom}));
 262     push(@arvalues, trim($form->{datefrom}));
 263     push(@apvalues, trim($form->{datefrom}));
 264   }
 265
 266   if (trim($form->{dateto})) {
 267     $glwhere .= " AND ac.$form->{datesort} <= ?";
 268     $arwhere .= " AND ac.$form->{datesort} <= ?";
 269     $apwhere .= " AND ac.$form->{datesort} <= ?";
 270     push(@glvalues, trim($form->{dateto}));
 271     push(@arvalues, trim($form->{dateto}));
 272     push(@apvalues, trim($form->{dateto}));
 273   }
 274
 275   if (trim($form->{description})) {
 276     $glwhere .= " AND g.description ILIKE ?";
 277     $arwhere .= " AND ct.name ILIKE ?";
 278     $apwhere .= " AND ct.name ILIKE ?";
 279     push(@glvalues, like($form->{description}));
 280     push(@arvalues, like($form->{description}));
 281     push(@apvalues, like($form->{description}));
 282   }
 283
 284   if ($form->{employee_id}) {
 285     $glwhere .= " AND g.employee_id = ? ";
 286     $arwhere .= " AND a.employee_id = ? ";
 287     $apwhere .= " AND a.employee_id = ? ";
 288     push(@glvalues, conv_i($form->{employee_id}));
 289     push(@arvalues, conv_i($form->{employee_id}));
 290     push(@apvalues, conv_i($form->{employee_id}));
 291   }
 292
 293   if (trim($form->{notes})) {
 294     $glwhere .= " AND g.notes ILIKE ?";
 295     $arwhere .= " AND a.notes ILIKE ?";
 296     $apwhere .= " AND a.notes ILIKE ?";
 297     push(@glvalues, like($form->{notes}));
 298     push(@arvalues, like($form->{notes}));
 299     push(@apvalues, like($form->{notes}));
 300   }
 301
 302   if ($form->{accno}) {
 303     $glwhere .= " AND c.accno = '$form->{accno}'";
 304     $arwhere .= " AND c.accno = '$form->{accno}'";
 305     $apwhere .= " AND c.accno = '$form->{accno}'";
 306   }
 307
 308   if ($form->{category} ne 'X') {
 309     $glwhere .= qq| AND g.id in (SELECT trans_id FROM acc_trans ac2 WHERE ac2.chart_id IN (SELECT id FROM chart c2 WHERE c2.category = ?))|;
 310     $arwhere .= qq| AND a.id in (SELECT trans_id FROM acc_trans ac2 WHERE ac2.chart_id IN (SELECT id FROM chart c2 WHERE c2.category = ?))|;
 311     $apwhere .= qq| AND a.id in (SELECT trans_id FROM acc_trans ac2 WHERE ac2.chart_id IN (SELECT id FROM chart c2 WHERE c2.category = ?))|;
 312     push(@glvalues, $form->{category});
 313     push(@arvalues, $form->{category});
 314     push(@apvalues, $form->{category});
 315   }
 316
 317   if ($form->{project_id}) {
 318     $glwhere .= qq| AND g.id IN (SELECT DISTINCT trans_id FROM acc_trans WHERE project_id = ?)|;
 319     $arwhere .=
 320       qq| AND ((a.globalproject_id = ?) OR
 321                (a.id IN (SELECT DISTINCT trans_id FROM acc_trans WHERE project_id = ?)))|;
 322     $apwhere .=
 323       qq| AND ((a.globalproject_id = ?) OR
 324                (a.id IN (SELECT DISTINCT trans_id FROM acc_trans WHERE project_id = ?)))|;
 325     my $project_id = conv_i($form->{project_id});
 326     push(@glvalues, $project_id);
 327     push(@arvalues, $project_id, $project_id);
 328     push(@apvalues, $project_id, $project_id);
 329   }
 330
 331   my ($project_columns, $project_join);
 332   if ($form->{"l_projectnumbers"}) {
 333     $project_columns = qq|, ac.project_id, pr.projectnumber|;
 334     $project_join = qq|LEFT JOIN project pr ON (ac.project_id = pr.id)|;
 335   }
 336
 337   if ($form->{accno}) {
 338     # get category for account
 339     $query = qq|SELECT category FROM chart WHERE accno = ?|;
 340     ($form->{ml}) = selectrow_query($form, $dbh, $query, $form->{accno});
 341
 342     if ($form->{datefrom}) {
 343       $query =
 344         qq|SELECT SUM(ac.amount)
 345            FROM acc_trans ac
 346            LEFT JOIN chart c ON (ac.chart_id = c.id)
 347            WHERE (c.accno = ?) AND (ac.$form->{datesort} < ?)|;
 348       ($form->{balance}) = selectrow_query($form, $dbh, $query, $form->{accno}, conv_date($form->{datefrom}));
 349     }
 350   }
 351
 352   my %sort_columns =  (
 353     'id'           => [ qw(id)                   ],
 354     'transdate'    => [ qw(transdate id)         ],
 355     'gldate'       => [ qw(gldate id)         ],
 356     'reference'    => [ qw(lower_reference id)   ],
 357     'description'  => [ qw(lower_description id) ],
 358     'accno'        => [ qw(accno transdate id)   ],
 359     );
 360   my %lowered_columns =  (
 361     'reference'       => { 'gl' => 'g.reference',   'arap' => 'a.invnumber', },
 362     'source'          => { 'gl' => 'ac.source',     'arap' => 'ac.source',   },
 363     'description'     => { 'gl' => 'g.description', 'arap' => 'ct.name',     },
 364     );
 365
 366   # sortdir = sort direction (ascending or descending)
 367   my $sortdir   = !defined $form->{sortdir} ? 'ASC' : $form->{sortdir} ? 'ASC' : 'DESC';
 368   my $sortkey   = $sort_columns{$form->{sort}} ? $form->{sort} : $form->{datesort};  # default used to be transdate
 369   my $sortorder = join ', ', map { "$_ $sortdir" } @{ $sort_columns{$sortkey} };
 370
 371   my %columns_for_sorting = ( 'gl' => '', 'arap' => '', );
 372   foreach my $spec (@{ $sort_columns{$sortkey} }) {
 373     next if ($spec !~ m/^lower_(.*)$/);
 374
 375     my $column = $1;
 376     map { $columns_for_sorting{$_} .= sprintf(', lower(%s) AS lower_%s', $lowered_columns{$column}->{$_}, $column) } qw(gl arap);
 377   }
 378
 379   $query =
 380     qq|SELECT
 381         ac.acc_trans_id, g.id, 'gl' AS type, FALSE AS invoice, g.reference, ac.taxkey, c.link,
 382         g.description, ac.transdate, ac.gldate, ac.source, ac.trans_id,
 383         ac.amount, c.accno, g.notes, t.chart_id,
 384         CASE WHEN (COALESCE(e.name, '') = '') THEN e.login ELSE e.name END AS employee
 385         $project_columns
 386         $columns_for_sorting{gl}
 387       FROM gl g
 388       LEFT JOIN employee e ON (g.employee_id = e.id),
 389       acc_trans ac $project_join, chart c
 390       LEFT JOIN tax t ON (t.chart_id = c.id)
 391       WHERE $glwhere
 392         AND (ac.chart_id = c.id)
 393         AND (g.id = ac.trans_id)
 394
 395       UNION
 396
 397       SELECT ac.acc_trans_id, a.id, 'ar' AS type, a.invoice, a.invnumber, ac.taxkey, c.link,
 398         ct.name, ac.transdate, ac.gldate, ac.source, ac.trans_id,
 399         ac.amount, c.accno, a.notes, t.chart_id,
 400         CASE WHEN (COALESCE(e.name, '') = '') THEN e.login ELSE e.name END AS employee
 401         $project_columns
 402         $columns_for_sorting{arap}
 403       FROM ar a
 404       LEFT JOIN employee e ON (a.employee_id = e.id),
 405       acc_trans ac $project_join, customer ct, chart c
 406       LEFT JOIN tax t ON (t.chart_id=c.id)
 407       WHERE $arwhere
 408         AND (ac.chart_id = c.id)
 409         AND (a.customer_id = ct.id)
 410         AND (a.id = ac.trans_id)
 411
 412       UNION
 413
 414       SELECT ac.acc_trans_id, a.id, 'ap' AS type, a.invoice, a.invnumber, ac.taxkey, c.link,
 415         ct.name, ac.transdate, ac.gldate, ac.source, ac.trans_id,
 416         ac.amount, c.accno, a.notes, t.chart_id,
 417         CASE WHEN (COALESCE(e.name, '') = '') THEN e.login ELSE e.name END AS employee
 418         $project_columns
 419         $columns_for_sorting{arap}
 420       FROM ap a
 421       LEFT JOIN employee e ON (a.employee_id = e.id),
 422       acc_trans ac $project_join, vendor ct, chart c
 423       LEFT JOIN tax t ON (t.chart_id=c.id)
 424       WHERE $apwhere
 425         AND (ac.chart_id = c.id)
 426         AND (a.vendor_id = ct.id)
 427         AND (a.id = ac.trans_id)
 428
 429       ORDER BY $sortorder, acc_trans_id $sortdir|;
 430 #      ORDER BY gldate DESC, id DESC, acc_trans_id DESC
 431
 432   my @values = (@glvalues, @arvalues, @apvalues);
 433
 434   # Show all $query in Debuglevel LXDebug::QUERY
 435   my $callingdetails = (caller (0))[3];
 436   dump_query(LXDebug->QUERY(), "$callingdetails", $query, @values);
 437
 438   $sth = prepare_execute_query($form, $dbh, $query, @values);
 439   my $trans_id  = "";
 440   my $trans_id2 = "";
 441   my $balance;
 442
 443   my ($i, $j, $k, $l, $ref, $ref2);
 444
 445   $form->{GL} = [];
 446   while (my $ref0 = $sth->fetchrow_hashref("NAME_lc")) {
 447
 448     $trans_id = $ref0->{id};
 449
 450     my $source = $ref0->{source};
 451     undef($ref0->{source});
 452
 453     if ($trans_id != $trans_id2) { # first line of a booking
 454
 455       if ($trans_id2) {
 456         push(@{ $form->{GL} }, $ref);
 457         $balance = 0;
 458       }
 459
 460       $ref       = $ref0;
 461       $trans_id2 = $ref->{id};
 462
 463       # gl
 464       if ($ref->{type} eq "gl") {
 465         $ref->{module} = "gl";
 466       }
 467
 468       # ap
 469       if ($ref->{type} eq "ap") {
 470         if ($ref->{invoice}) {
 471           $ref->{module} = "ir";
 472         } else {
 473           $ref->{module} = "ap";
 474         }
 475       }
 476
 477       # ar
 478       if ($ref->{type} eq "ar") {
 479         if ($ref->{invoice}) {
 480           $ref->{module} = "is";
 481         } else {
 482           $ref->{module} = "ar";
 483         }
 484       }
 485
 486       $ref->{"projectnumbers"} = {};
 487       $ref->{"projectnumbers"}->{$ref->{"projectnumber"}} = 1 if ($ref->{"projectnumber"});
 488
 489       $balance = $ref->{amount};
 490
 491       # Linenumbers of General Ledger
 492       $k       = 0; # Debit      # AP      # Soll
 493       $l       = 0; # Credit     # AR      # Haben
 494       $i       = 0; # Debit Tax  # AP_tax  # VSt
 495       $j       = 0; # Credit Tax # AR_tax  # USt
 496
 497       if ($ref->{chart_id} > 0) { # all tax accounts first line, no line increasing
 498         if ($ref->{amount} < 0) {
 499           if ($ref->{link} =~ /AR_tax/) {
 500             $ref->{credit_tax}{$j}       = $ref->{amount};
 501             $ref->{credit_tax_accno}{$j} = $ref->{accno};
 502          }
 503           if ($ref->{link} =~ /AP_tax/) {
 504             $ref->{debit_tax}{$i}       = $ref->{amount} * -1;
 505             $ref->{debit_tax_accno}{$i} = $ref->{accno};
 506           }
 507         } else {
 508           if ($ref->{link} =~ /AR_tax/) {
 509             $ref->{credit_tax}{$j}       = $ref->{amount};
 510             $ref->{credit_tax_accno}{$j} = $ref->{accno};
 511           }
 512           if ($ref->{link} =~ /AP_tax/) {
 513             $ref->{debit_tax}{$i}       = $ref->{amount} * -1;
 514             $ref->{debit_tax_accno}{$i} = $ref->{accno};
 515           }
 516         }
 517       } else { #all other accounts first line
 518
 519         if ($ref->{amount} < 0) {
 520           $ref->{debit}{$k}        = $ref->{amount} * -1;
 521           $ref->{debit_accno}{$k}  = $ref->{accno};
 522           $ref->{debit_taxkey}{$k} = $ref->{taxkey};
 523           $ref->{ac_transdate}{$k} = $ref->{transdate};
 524           $ref->{source}{$k}       = $source;
 525         } else {
 526           $ref->{credit}{$l}        = $ref->{amount} * 1;
 527           $ref->{credit_accno}{$l}  = $ref->{accno};
 528           $ref->{credit_taxkey}{$l} = $ref->{taxkey};
 529           $ref->{ac_transdate}{$l}  = $ref->{transdate};
 530           $ref->{source}{$l}        = $source;
 531         }
 532       }
 533
 534     } else { # following lines of a booking, line increasing
 535
 536       $ref2      = $ref0;
 537 #      $trans_old = $trans_id2;   # doesn't seem to be used anymore
 538       $trans_id2 = $ref2->{id};
 539
 540       $balance =
 541         (int($balance * 100000) + int(100000 * $ref2->{amount})) / 100000;
 542
 543       $ref->{"projectnumbers"}->{$ref2->{"projectnumber"}} = 1 if ($ref2->{"projectnumber"});
 544
 545       if ($ref2->{chart_id} > 0) { # all tax accounts, following lines
 546         if ($ref2->{amount} < 0) {
 547           if ($ref2->{link} =~ /AR_tax/) {
 548             if ($ref->{credit_tax_accno}{$j} ne "") {
 549               $j++;
 550             }
 551             $ref->{credit_tax}{$j}       = $ref2->{amount};
 552             $ref->{credit_tax_accno}{$j} = $ref2->{accno};
 553           }
 554           if ($ref2->{link} =~ /AP_tax/) {
 555             if ($ref->{debit_tax_accno}{$i} ne "") {
 556               $i++;
 557             }
 558             $ref->{debit_tax}{$i}       = $ref2->{amount} * -1;
 559             $ref->{debit_tax_accno}{$i} = $ref2->{accno};
 560           }
 561         } else {
 562           if ($ref2->{link} =~ /AR_tax/) {
 563             if ($ref->{credit_tax_accno}{$j} ne "") {
 564               $j++;
 565             }
 566             $ref->{credit_tax}{$j}       = $ref2->{amount};
 567             $ref->{credit_tax_accno}{$j} = $ref2->{accno};
 568           }
 569           if ($ref2->{link} =~ /AP_tax/) {
 570             if ($ref->{debit_tax_accno}{$i} ne "") {
 571               $i++;
 572             }
 573             $ref->{debit_tax}{$i}       = $ref2->{amount} * -1;
 574             $ref->{debit_tax_accno}{$i} = $ref2->{accno};
 575           }
 576         }
 577       } else { # all other accounts, following lines
 578         if ($ref2->{amount} < 0) {
 579           if ($ref->{debit_accno}{$k} ne "") {
 580             $k++;
 581           }
 582           if ($ref->{source}{$k} ne "") {
 583             $space = " | ";
 584           } else {
 585             $space = "";
 586           }
 587           $ref->{debit}{$k}        = $ref2->{amount} * - 1;
 588           $ref->{debit_accno}{$k}  = $ref2->{accno};
 589           $ref->{debit_taxkey}{$k} = $ref2->{taxkey};
 590           $ref->{ac_transdate}{$k} = $ref2->{transdate};
 591           $ref->{source}{$k}       = $source . $space . $ref->{source}{$k};
 592         } else {
 593           if ($ref->{credit_accno}{$l} ne "") {
 594             $l++;
 595           }
 596           if ($ref->{source}{$l} ne "") {
 597             $space = " | ";
 598           } else {
 599             $space = "";
 600           }
 601           $ref->{credit}{$l}        = $ref2->{amount};
 602           $ref->{credit_accno}{$l}  = $ref2->{accno};
 603           $ref->{credit_taxkey}{$l} = $ref2->{taxkey};
 604           $ref->{ac_transdate}{$l}  = $ref2->{transdate};
 605           $ref->{source}{$l}        = $ref->{source}{$l} . $space . $source;
 606         }
 607       }
 608     }
 609   }
 610
 611   push @{ $form->{GL} }, $ref;
 612   $sth->finish;
 613
 614   if ($form->{accno}) {
 615     $query = qq|SELECT c.description FROM chart c WHERE c.accno = ?|;
 616     ($form->{account_description}) = selectrow_query($form, $dbh, $query, $form->{accno});
 617   }
 618
 619   $main::lxdebug->leave_sub();
 620 }
 621
 622 sub transaction {
 623   my ($self, $myconfig, $form) = @_;
 624   $main::lxdebug->enter_sub();
 625
 626   my ($query, $sth, $ref, @values);
 627
 628   my $dbh = SL::DB->client->dbh;
 629
 630   $query = qq|SELECT closedto, revtrans FROM defaults|;
 631   ($form->{closedto}, $form->{revtrans}) = selectrow_query($form, $dbh, $query);
 632
 633   $query = qq|SELECT id, gldate
 634               FROM gl
 635               WHERE id = (SELECT max(id) FROM gl)|;
 636   ($form->{previous_id}, $form->{previous_gldate}) = selectrow_query($form, $dbh, $query);
 637
 638   if ($form->{id}) {
 639     $query =
 640       qq|SELECT g.reference, g.description, g.notes, g.transdate, g.deliverydate, g.tax_point,
 641            g.storno, g.storno_id,
 642            g.department_id, d.description AS department,
 643            e.name AS employee, g.taxincluded, g.gldate,
 644          g.ob_transaction, g.cb_transaction
 645          FROM gl g
 646          LEFT JOIN department d ON (d.id = g.department_id)
 647          LEFT JOIN employee e ON (e.id = g.employee_id)
 648          WHERE g.id = ?|;
 649     $ref = selectfirst_hashref_query($form, $dbh, $query, conv_i($form->{id}));
 650     map { $form->{$_} = $ref->{$_} } keys %$ref;
 651
 652     # retrieve individual rows
 653     $query =
 654       qq|SELECT c.accno, t.taxkey AS accnotaxkey, a.amount, a.memo, a.source,
 655            a.transdate, a.cleared, a.project_id, p.projectnumber,
 656            a.taxkey, t.rate AS taxrate, t.id, a.chart_id,
 657            (SELECT c1.accno
 658             FROM chart c1, tax t1
 659             WHERE (t1.id = t.id) AND (c1.id = t.chart_id)) AS taxaccno,
 660            (SELECT tk.tax_id
 661             FROM taxkeys tk
 662             WHERE (tk.chart_id = a.chart_id) AND (tk.startdate <= a.transdate)
 663             ORDER BY tk.startdate desc LIMIT 1) AS tax_id
 664          FROM acc_trans a
 665          JOIN chart c ON (c.id = a.chart_id)
 666          LEFT JOIN project p ON (p.id = a.project_id)
 667          LEFT JOIN tax t ON (t.id = a.tax_id)
 668          WHERE (a.trans_id = ?)
 669            AND (a.fx_transaction = '0')
 670          ORDER BY a.acc_trans_id, a.transdate|;
 671     $form->{GL} = selectall_hashref_query($form, $dbh, $query, conv_i($form->{id}));
 672
 673   } else {
 674     $query =
 675       qq|SELECT COALESCE(
 676            (SELECT transdate
 677             FROM gl
 678             WHERE id = (SELECT MAX(id) FROM gl)
 679             LIMIT 1),
 680            current_date)|;
 681     ($form->{transdate}) = selectrow_query($form, $dbh, $query);
 682   }
 683
 684   # get tax description
 685   $query = qq|SELECT * FROM tax ORDER BY taxkey|;
 686   $form->{TAX} = selectall_hashref_query($form, $dbh, $query);
 687
 688   # get chart of accounts
 689   $query =
 690     qq|SELECT c.accno, c.description, c.link, tk.taxkey_id, tk.tax_id
 691        FROM chart c
 692        LEFT JOIN taxkeys tk ON (tk.id =
 693          (SELECT id
 694           FROM taxkeys
 695           WHERE (taxkeys.chart_id = c.id)
 696             AND (startdate <= ?)
 697           ORDER BY startdate DESC
 698           LIMIT 1))
 699        ORDER BY c.accno|;
 700   $form->{chart} = selectall_hashref_query($form, $dbh, $query, conv_date($form->{transdate}));
 701
 702   $main::lxdebug->leave_sub();
 703 }
 704
 705 sub storno {
 706   my ($self, $form, $myconfig, $id) = @_;
 707   $main::lxdebug->enter_sub();
 708
 709   my $rc = SL::DB->client->with_transaction(\&_storno, $self, $form, $myconfig, $id);
 710
 711   $::lxdebug->leave_sub;
 712   return $rc;
 713 }
 714
 715 sub _storno {
 716   my ($self, $form, $myconfig, $id) = @_;
 717
 718   my ($query, $new_id, $storno_row, $acc_trans_rows);
 719   my $dbh = SL::DB->client->dbh;
 720
 721   $query = qq|SELECT nextval('glid')|;
 722   ($new_id) = selectrow_query($form, $dbh, $query);
 723
 724   $query = qq|SELECT * FROM gl WHERE id = ?|;
 725   $storno_row = selectfirst_hashref_query($form, $dbh, $query, $id);
 726
 727   $storno_row->{id}          = $new_id;
 728   $storno_row->{storno_id}   = $id;
 729   $storno_row->{storno}      = 't';
 730   $storno_row->{reference}   = 'Storno-' . $storno_row->{reference};
 731
 732   $query = qq|SELECT id FROM employee WHERE login = ?|;
 733   my ($employee_id) = selectrow_query($form, $dbh, $query, $::myconfig{login});
 734   $storno_row->{employee_id} = $employee_id;
 735
 736   delete @$storno_row{qw(itime mtime gldate)};
 737
 738   $query = sprintf 'INSERT INTO gl (%s) VALUES (%s)', join(', ', keys %$storno_row), join(', ', map '?', values %$storno_row);
 739   do_query($form, $dbh, $query, (values %$storno_row));
 740
 741   $query = qq|UPDATE gl SET storno = 't' WHERE id = ?|;
 742   do_query($form, $dbh, $query, $id);
 743
 744   # now copy acc_trans entries
 745   $query = qq|SELECT * FROM acc_trans WHERE trans_id = ?|;
 746   my $rowref = selectall_hashref_query($form, $dbh, $query, $id);
 747
 748   for my $row (@$rowref) {
 749     delete @$row{qw(itime mtime acc_trans_id gldate)};
 750     $query = sprintf 'INSERT INTO acc_trans (%s) VALUES (%s)', join(', ', keys %$row), join(', ', map '?', values %$row);
 751     $row->{trans_id}   = $new_id;
 752     $row->{amount}    *= -1;
 753     do_query($form, $dbh, $query, (values %$row));
 754   }
 755
 756   return 1;
 757 }
 758
 759 sub get_chart_balances {
 760   my ($self, @chart_ids) = @_;
 761
 762   return () unless @chart_ids;
 763
 764   my $placeholders = join ', ', ('?') x scalar(@chart_ids);
 765   my $query = qq|SELECT chart_id, SUM(amount) AS sum
 766                  FROM acc_trans
 767                  WHERE chart_id IN (${placeholders})
 768                  GROUP BY chart_id|;
 769
 770   my %balances = selectall_as_map($::form, $::form->get_standard_dbh(\%::myconfig), $query, 'chart_id', 'sum', @chart_ids);
 771
 772   return %balances;
 773 }
 774
 775 sub get_active_taxes_for_chart {
 776   my ($self, $chart_id, $transdate, $tax_id) = @_;
 777
 778   my $chart         = SL::DB::Chart->new(id => $chart_id)->load;
 779   my $active_taxkey = $chart->get_active_taxkey($transdate);
 780
 781   my $where = [ chart_categories => { like => '%' . $chart->category . '%' } ];
 782
 783   if ( defined $tax_id && $tax_id >= 0 ) {
 784     $where = [ or => [ chart_categories => { like => '%' . $chart->category . '%' },
 785                        id               => $tax_id
 786                      ]
 787              ];
 788   }
 789
 790   my $taxes         = SL::DB::Manager::Tax->get_all(
 791     where   => $where,
 792     sort_by => 'taxkey, rate',
 793   );
 794
 795   my $default_tax            = first { $active_taxkey->tax_id == $_->id } @{ $taxes };
 796   $default_tax->{is_default} = 1 if $default_tax;
 797
 798   return @{ $taxes };
 799 }
 800
 801 1;
 802
 803 __END__
 804
 805 =pod
 806
 807 =encoding utf8
 808
 809 =head1 NAME
 810
 811 SL::GL - some useful GL functions
 812
 813 =head1 FUNCTIONS
 814
 815 =over 4
 816
 817 =item C<get_active_taxes_for_chart> $transdate $tax_id
 818
 819 Returns a list of valid taxes for a certain chart.
 820
 821 If the optional param transdate exists one entry in the returning list
 822 may get the attribute C<is_default> for this specific tax-dependent date.
 823 The possible entries are filtered by the charttype of the tax, i.e. only taxes
 824 whose chart_categories match the category of the chart will be shown.
 825
 826 In the case of existing records, e.g. when opening an old ar record, due to
 827 changes in the configurations the desired tax might not be available in the
 828 dropdown anymore. If we are loading an old record and know its tax_id (from
 829 acc_trans), we can pass $tax_id as the third parameter and be sure that the
 830 original tax always appears in the dropdown.
 831
 832 The functions returns an array which may be used for building dropdowns in ar/ap/gl code.
 833
 834 =back
 835
 836 =head1 TODO
 837
 838 =head1 BUGS
 839
 840 Nothing here yet.
 841
 842 =head1 AUTHOR
 843
 844 G. Richardson E<lt>grichardson@kivitec.de<gt>
 845
 846 =cut