Fix für Bug 1136. Die Prüfung für not_discountable war zu früh. Zunächst muss form...
[kivitendo-erp.git] / 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., 675 Mass Ave, Cambridge, MA 02139, USA.
29 #======================================================================
30 #
31 # General ledger backend code
32 #
33 # CHANGE LOG:
34 #   DS. 2000-07-04  Created
35 #   DS. 2001-06-12  Changed relations from accno to chart_id
36 #
37 #======================================================================
38
39 package GL;
40
41 use Data::Dumper;
42 use SL::DBUtils;
43
44 sub delete_transaction {
45   my ($self, $myconfig, $form) = @_;
46   $main::lxdebug->enter_sub();
47
48   # connect to database
49   my $dbh = $form->dbconnect_noauto($myconfig);
50
51   my @values = (conv_i($form->{id}));
52   do_query($form, $dbh, qq|DELETE FROM acc_trans WHERE trans_id = ?|, @values);
53   do_query($form, $dbh, qq|DELETE FROM gl WHERE id = ?|, @values);
54
55   # commit and redirect
56   my $rc = $dbh->commit;
57   $dbh->disconnect;
58   $main::lxdebug->leave_sub();
59
60   $rc;
61
62 }
63
64 sub post_transaction {
65   my ($self, $myconfig, $form) = @_;
66   $main::lxdebug->enter_sub();
67
68   my ($debit, $credit) = (0, 0);
69   my $project_id;
70
71   my $i;
72
73   # connect to database, turn off AutoCommit
74   my $dbh = $form->dbconnect_noauto($myconfig);
75
76   # post the transaction
77   # make up a unique handle and store in reference field
78   # then retrieve the record based on the unique handle to get the id
79   # replace the reference field with the actual variable
80   # add records to acc_trans
81
82   # if there is a $form->{id} replace the old transaction
83   # delete all acc_trans entries and add the new ones
84
85   if (!$form->{taxincluded}) {
86     $form->{taxincluded} = 0;
87   }
88
89   my ($query, $sth);
90
91   if ($form->{id}) {
92
93     # delete individual transactions
94     $query = qq|DELETE FROM acc_trans WHERE trans_id = ?|;
95     @values = (conv_i($form->{id}));
96     do_query($form, $dbh, $query, @values);
97
98   } else {
99     $query = qq|SELECT nextval('glid')|;
100     ($form->{id}) = selectrow_query($form, $dbh, $query);
101
102     $query =
103       qq|INSERT INTO gl (id, employee_id) | .
104       qq|VALUES (?, (SELECT id FROM employee WHERE login = ?))|;
105     @values = ($form->{id}, $form->{login});
106     do_query($form, $dbh, $query, @values);
107   }
108
109   my ($null, $department_id) = split(/--/, $form->{department});
110   $department_id *= 1;
111
112   $form->{ob_transaction} *= 1;
113   $form->{cb_transaction} *= 1;
114
115   $query =
116     qq|UPDATE gl SET
117          reference = ?, description = ?, notes = ?,
118          transdate = ?, department_id = ?, taxincluded = ?,
119          storno = ?, storno_id = ?, ob_transaction = ?, cb_transaction = ?
120        WHERE id = ?|;
121
122   @values = ($form->{reference}, $form->{description}, $form->{notes},
123              conv_date($form->{transdate}), $department_id, $form->{taxincluded} ? 't' : 'f',
124              $form->{storno} ? 't' : 'f', conv_i($form->{storno_id}), $form->{ob_transaction} ? 't' : 'f', $form->{cb_transaction} ? 't' : 'f',
125              conv_i($form->{id}));
126   do_query($form, $dbh, $query, @values);
127
128   # insert acc_trans transactions
129   for $i (1 .. $form->{rowcount}) {
130     # extract accno
131     my ($accno) = split(/--/, $form->{"accno_$i"});
132     ($form->{"tax_id_$i"}) = split(/--/, $form->{"taxchart_$i"});
133     if ($form->{"tax_id_$i"} ne "") {
134       $query = qq|SELECT taxkey, rate FROM tax WHERE id = ?|;
135       ($taxkey, $rate) = selectrow_query($form, $dbh, $query, conv_i($form->{"tax_id_$i"}));
136     }
137
138     my $amount = 0;
139     my $debit  = $form->{"debit_$i"};
140     my $credit = $form->{"credit_$i"};
141     my $tax    = $form->{"tax_$i"};
142
143     if ($credit) {
144       $amount = $credit;
145       $posted = 0;
146     }
147     if ($debit) {
148       $amount = $debit * -1;
149       $tax    = $tax * -1;
150       $posted = 0;
151     }
152
153     $project_id = conv_i($form->{"project_id_$i"});
154
155     # if there is an amount, add the record
156     if ($amount != 0) {
157       $query =
158         qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate,
159                                   source, memo, project_id, taxkey, ob_transaction, cb_transaction)
160            VALUES (?, (SELECT id FROM chart WHERE accno = ?),
161                    ?, ?, ?, ?, ?, ?, ?, ?)|;
162       @values = (conv_i($form->{id}), $accno, $amount, conv_date($form->{transdate}),
163                  $form->{"source_$i"}, $form->{"memo_$i"}, $project_id, $taxkey, $form->{ob_transaction} ? 't' : 'f', $form->{cb_transaction} ? 't' : 'f');
164       do_query($form, $dbh, $query, @values);
165     }
166
167     if ($tax != 0) {
168       # add taxentry
169       $query =
170         qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate,
171                                   source, memo, project_id, taxkey)
172            VALUES (?, (SELECT chart_id FROM tax WHERE id = ?),
173                    ?, ?, ?, ?, ?, ?)|;
174       @values = (conv_i($form->{id}), conv_i($form->{"tax_id_$i"}),
175                  $tax, conv_date($form->{transdate}), $form->{"source_$i"},
176                  $form->{"memo_$i"}, $project_id, $taxkey);
177       do_query($form, $dbh, $query, @values);
178     }
179   }
180
181   if ($form->{storno} && $form->{storno_id}) {
182     do_query($form, $dbh, qq|UPDATE gl SET storno = 't' WHERE id = ?|, conv_i($form->{storno_id}));
183   }
184
185   # commit and redirect
186   my $rc = $dbh->commit;
187   $dbh->disconnect;
188   $main::lxdebug->leave_sub();
189
190   return $rc;
191 }
192
193 sub all_transactions {
194   my ($self, $myconfig, $form) = @_;
195   $main::lxdebug->enter_sub();
196
197   # connect to database
198   my $dbh = $form->dbconnect($myconfig);
199   my ($query, $sth, $source, $null);
200
201   my ($glwhere, $arwhere, $apwhere) = ("1 = 1", "1 = 1", "1 = 1");
202   my (@glvalues, @arvalues, @apvalues);
203
204   if ($form->{reference}) {
205     $glwhere .= qq| AND g.reference ILIKE ?|;
206     $arwhere .= qq| AND a.invnumber ILIKE ?|;
207     $apwhere .= qq| AND a.invnumber ILIKE ?|;
208     push(@glvalues, '%' . $form->{reference} . '%');
209     push(@arvalues, '%' . $form->{reference} . '%');
210     push(@apvalues, '%' . $form->{reference} . '%');
211   }
212
213   if ($form->{department}) {
214     my ($null, $department) = split /--/, $form->{department};
215     $glwhere .= qq| AND g.department_id = ?|;
216     $arwhere .= qq| AND a.department_id = ?|;
217     $apwhere .= qq| AND a.department_id = ?|;
218     push(@glvalues, $department);
219     push(@arvalues, $department);
220     push(@apvalues, $department);
221   }
222
223   if ($form->{source}) {
224     $glwhere .= " AND ac.trans_id IN (SELECT trans_id from acc_trans WHERE source ILIKE ?)";
225     $arwhere .= " AND ac.trans_id IN (SELECT trans_id from acc_trans WHERE source ILIKE ?)";
226     $apwhere .= " AND ac.trans_id IN (SELECT trans_id from acc_trans WHERE source ILIKE ?)";
227     push(@glvalues, '%' . $form->{source} . '%');
228     push(@arvalues, '%' . $form->{source} . '%');
229     push(@apvalues, '%' . $form->{source} . '%');
230   }
231
232   if ($form->{datefrom}) {
233     $glwhere .= " AND ac.transdate >= ?";
234     $arwhere .= " AND ac.transdate >= ?";
235     $apwhere .= " AND ac.transdate >= ?";
236     push(@glvalues, $form->{datefrom});
237     push(@arvalues, $form->{datefrom});
238     push(@apvalues, $form->{datefrom});
239   }
240
241   if ($form->{dateto}) {
242     $glwhere .= " AND ac.transdate <= ?";
243     $arwhere .= " AND ac.transdate <= ?";
244     $apwhere .= " AND ac.transdate <= ?";
245     push(@glvalues, $form->{dateto});
246     push(@arvalues, $form->{dateto});
247     push(@apvalues, $form->{dateto});
248   }
249
250   if ($form->{description}) {
251     $glwhere .= " AND g.description ILIKE ?";
252     $arwhere .= " AND ct.name ILIKE ?";
253     $apwhere .= " AND ct.name ILIKE ?";
254     push(@glvalues, '%' . $form->{description} . '%');
255     push(@arvalues, '%' . $form->{description} . '%');
256     push(@apvalues, '%' . $form->{description} . '%');
257   }
258
259   if ($form->{notes}) {
260     $glwhere .= " AND g.notes ILIKE ?";
261     $arwhere .= " AND a.notes ILIKE ?";
262     $apwhere .= " AND a.notes ILIKE ?";
263     push(@glvalues, '%' . $form->{notes} . '%');
264     push(@arvalues, '%' . $form->{notes} . '%');
265     push(@apvalues, '%' . $form->{notes} . '%');
266   }
267
268   if ($form->{accno}) {
269     $glwhere .= " AND c.accno = '$form->{accno}'";
270     $arwhere .= " AND c.accno = '$form->{accno}'";
271     $apwhere .= " AND c.accno = '$form->{accno}'";
272   }
273
274   if ($form->{category} ne 'X') {
275     $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 = ?))|;
276     $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 = ?))|;
277     $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 = ?))|;
278     push(@glvalues, $form->{category});
279     push(@arvalues, $form->{category});
280     push(@apvalues, $form->{category});
281   }
282
283   if ($form->{project_id}) {
284     $glwhere .= qq| AND g.id IN (SELECT DISTINCT trans_id FROM acc_trans WHERE project_id = ?)|;
285     $arwhere .=
286       qq| AND ((a.globalproject_id = ?) OR
287                (a.id IN (SELECT DISTINCT trans_id FROM acc_trans WHERE project_id = ?)))|;
288     $apwhere .=
289       qq| AND ((a.globalproject_id = ?) OR
290                (a.id IN (SELECT DISTINCT trans_id FROM acc_trans WHERE project_id = ?)))|;
291     my $project_id = conv_i($form->{project_id});
292     push(@glvalues, $project_id);
293     push(@arvalues, $project_id, $project_id);
294     push(@apvalues, $project_id, $project_id);
295   }
296
297   my ($project_columns, %project_join);
298   if ($form->{"l_projectnumbers"}) {
299     $project_columns = qq|, ac.project_id, pr.projectnumber|;
300     $project_join = qq|LEFT JOIN project pr ON (ac.project_id = pr.id)|;
301   }
302
303   if ($form->{accno}) {
304     # get category for account
305     $query = qq|SELECT category FROM chart WHERE accno = ?|;
306     ($form->{ml}) = selectrow_query($form, $dbh, $query, $form->{accno});
307
308     if ($form->{datefrom}) {
309       $query =
310         qq|SELECT SUM(ac.amount)
311            FROM acc_trans ac
312            LEFT JOIN chart c ON (ac.chart_id = c.id)
313            WHERE (c.accno = ?) AND (ac.transdate < ?)|;
314       ($form->{balance}) = selectrow_query($form, $dbh, $query, $form->{accno}, conv_date($form->{datefrom}));
315     }
316   }
317
318   my $false = ($myconfig->{dbdriver} eq 'Pg') ? FALSE: q|'0'|;
319
320   my %sort_columns =  (
321     'id'           => [ qw(id)                   ],
322     'transdate'    => [ qw(transdate id)         ],
323     'reference'    => [ qw(lower_reference id)   ],
324     'description'  => [ qw(lower_description id) ],
325     'accno'        => [ qw(accno transdate id)   ],
326     );
327   my %lowered_columns =  (
328     'reference'       => { 'gl' => 'g.reference',   'arap' => 'a.invnumber', },
329     'source'          => { 'gl' => 'ac.source',     'arap' => 'ac.source',   },
330     'description'     => { 'gl' => 'g.description', 'arap' => 'ct.name',     },
331     );
332
333   my $sortdir   = !defined $form->{sortdir} ? 'ASC' : $form->{sortdir} ? 'ASC' : 'DESC';
334   my $sortkey   = $sort_columns{$form->{sort}} ? $form->{sort} : 'transdate';
335   my $sortorder = join ', ', map { "$_ $sortdir" } @{ $sort_columns{$sortkey} };
336
337   my %columns_for_sorting = ( 'gl' => '', 'arap' => '', );
338   foreach my $spec (@{ $sort_columns{$sortkey} }) {
339     next if ($spec !~ m/^lower_(.*)$/);
340
341     my $column = $1;
342     map { $columns_for_sorting{$_} .= sprintf(', lower(%s) AS lower_%s', $lowered_columns{$column}->{$_}, $column) } qw(gl arap);
343   }
344
345   my $query =
346     qq|SELECT
347         ac.acc_trans_id, g.id, 'gl' AS type, $false AS invoice, g.reference, ac.taxkey, c.link,
348         g.description, ac.transdate, ac.source, ac.trans_id,
349         ac.amount, c.accno, g.notes, t.chart_id
350         $project_columns
351         $columns_for_sorting{gl}
352       FROM gl g, acc_trans ac $project_join, chart c
353       LEFT JOIN tax t ON (t.chart_id = c.id)
354       WHERE $glwhere
355         AND (ac.chart_id = c.id)
356         AND (g.id = ac.trans_id)
357
358       UNION
359
360       SELECT ac.acc_trans_id, a.id, 'ar' AS type, a.invoice, a.invnumber, ac.taxkey, c.link,
361         ct.name, ac.transdate, ac.source, ac.trans_id,
362         ac.amount, c.accno, a.notes, t.chart_id
363         $project_columns
364         $columns_for_sorting{arap}
365       FROM ar a, acc_trans ac $project_join, customer ct, chart c
366       LEFT JOIN tax t ON (t.chart_id=c.id)
367       WHERE $arwhere
368         AND (ac.chart_id = c.id)
369         AND (a.customer_id = ct.id)
370         AND (a.id = ac.trans_id)
371
372       UNION
373
374       SELECT ac.acc_trans_id, a.id, 'ap' AS type, a.invoice, a.invnumber, ac.taxkey, c.link,
375         ct.name, ac.transdate, ac.source, ac.trans_id,
376         ac.amount, c.accno, a.notes, t.chart_id
377         $project_columns
378         $columns_for_sorting{arap}
379       FROM ap a, acc_trans ac $project_join, vendor ct, chart c
380       LEFT JOIN tax t ON (t.chart_id=c.id)
381       WHERE $apwhere
382         AND (ac.chart_id = c.id)
383         AND (a.vendor_id = ct.id)
384         AND (a.id = ac.trans_id)
385
386       ORDER BY $sortorder, acc_trans_id $sortdir|;
387
388   my @values = (@glvalues, @arvalues, @apvalues);
389
390   # Show all $query in Debuglevel LXDebug::QUERY
391   $callingdetails = (caller (0))[3];
392   dump_query(LXDebug::QUERY, "$callingdetails", $query, @values);
393
394   $sth = prepare_execute_query($form, $dbh, $query, @values);
395   my $trans_id  = "";
396   my $trans_id2 = "";
397
398   my ($i, $j, $k, $l, $ref, $ref2);
399
400   $form->{GL} = [];
401   while (my $ref0 = $sth->fetchrow_hashref(NAME_lc)) {
402
403     $trans_id = $ref0->{id};
404
405     my $source = $ref0->{source};
406     undef($ref0->{source});
407
408     if ($trans_id != $trans_id2) { # first line of a booking
409
410       if ($trans_id2) {
411         push(@{ $form->{GL} }, $ref);
412         $balance = 0;
413       }
414
415       $ref       = $ref0;
416       $trans_id2 = $ref->{id};
417
418       # gl
419       if ($ref->{type} eq "gl") {
420         $ref->{module} = "gl";
421       }
422
423       # ap
424       if ($ref->{type} eq "ap") {
425         if ($ref->{invoice}) {
426           $ref->{module} = "ir";
427         } else {
428           $ref->{module} = "ap";
429         }
430       }
431
432       # ar
433       if ($ref->{type} eq "ar") {
434         if ($ref->{invoice}) {
435           $ref->{module} = "is";
436         } else {
437           $ref->{module} = "ar";
438         }
439       }
440
441       $ref->{"projectnumbers"} = {};
442       $ref->{"projectnumbers"}->{$ref->{"projectnumber"}} = 1 if ($ref->{"projectnumber"});
443
444       $balance = $ref->{amount};
445
446       # Linenumbers of General Ledger
447       $k       = 0; # Debit      # AP      # Soll
448       $l       = 0; # Credit     # AR      # Haben
449       $i       = 0; # Debit Tax  # AP_tax  # VSt
450       $j       = 0; # Credit Tax # AR_tax  # USt
451
452       if ($ref->{chart_id} > 0) { # all tax accounts first line, no line increasing
453         if ($ref->{amount} < 0) {
454           if ($ref->{link} =~ /AR_tax/) {
455             $ref->{credit_tax}{$j}       = $ref->{amount};
456             $ref->{credit_tax_accno}{$j} = $ref->{accno};
457          }
458           if ($ref->{link} =~ /AP_tax/) {
459             $ref->{debit_tax}{$i}       = $ref->{amount} * -1;
460             $ref->{debit_tax_accno}{$i} = $ref->{accno};
461           }
462         } else {
463           if ($ref->{link} =~ /AR_tax/) {
464             $ref->{credit_tax}{$j}       = $ref->{amount};
465             $ref->{credit_tax_accno}{$j} = $ref->{accno};
466           }
467           if ($ref->{link} =~ /AP_tax/) {
468             $ref->{debit_tax}{$i}       = $ref->{amount} * -1;
469             $ref->{debit_tax_accno}{$i} = $ref->{accno};
470           }
471         }
472       } else { #all other accounts first line
473
474         if ($ref->{amount} < 0) {
475           $ref->{debit}{$k}        = $ref->{amount} * -1;
476           $ref->{debit_accno}{$k}  = $ref->{accno};
477           $ref->{debit_taxkey}{$k} = $ref->{taxkey};
478           $ref->{ac_transdate}{$k} = $ref->{transdate};
479           $ref->{source}{$k}       = $source;
480         } else {
481           $ref->{credit}{$l}        = $ref->{amount} * 1;
482           $ref->{credit_accno}{$l}  = $ref->{accno};
483           $ref->{credit_taxkey}{$l} = $ref->{taxkey};
484           $ref->{ac_transdate}{$l}  = $ref->{transdate};
485           $ref->{source}{$l}        = $source;
486         }
487       }
488
489     } else { # following lines of a booking, line increasing
490
491       $ref2      = $ref0;
492       $trans_old = $trans_id2;
493       $trans_id2 = $ref2->{id};
494
495       $balance =
496         (int($balance * 100000) + int(100000 * $ref2->{amount})) / 100000;
497
498       $ref->{"projectnumbers"}->{$ref2->{"projectnumber"}} = 1 if ($ref2->{"projectnumber"});
499
500       if ($ref2->{chart_id} > 0) { # all tax accounts, following lines
501         if ($ref2->{amount} < 0) {
502           if ($ref2->{link} =~ /AR_tax/) {
503             if ($ref->{credit_tax_accno}{$j} ne "") {
504               $j++;
505             }
506             $ref->{credit_tax}{$j}       = $ref2->{amount};
507             $ref->{credit_tax_accno}{$j} = $ref2->{accno};
508           }
509           if ($ref2->{link} =~ /AP_tax/) {
510             if ($ref->{debit_tax_accno}{$i} ne "") {
511               $i++;
512             }
513             $ref->{debit_tax}{$i}       = $ref2->{amount} * -1;
514             $ref->{debit_tax_accno}{$i} = $ref2->{accno};
515           }
516         } else {
517           if ($ref2->{link} =~ /AR_tax/) {
518             if ($ref->{credit_tax_accno}{$j} ne "") {
519               $j++;
520             }
521             $ref->{credit_tax}{$j}       = $ref2->{amount};
522             $ref->{credit_tax_accno}{$j} = $ref2->{accno};
523           }
524           if ($ref2->{link} =~ /AP_tax/) {
525             if ($ref->{debit_tax_accno}{$i} ne "") {
526               $i++;
527             }
528             $ref->{debit_tax}{$i}       = $ref2->{amount} * -1;
529             $ref->{debit_tax_accno}{$i} = $ref2->{accno};
530           }
531         }
532       } else { # all other accounts, following lines
533         if ($ref2->{amount} < 0) {
534           if ($ref->{debit_accno}{$k} ne "") {
535             $k++;
536           }
537           if ($ref->{source}{$k} ne "") {
538             $space = " | ";
539           } else {
540             $space = "";
541           }
542           $ref->{debit}{$k}        = $ref2->{amount} * - 1;
543           $ref->{debit_accno}{$k}  = $ref2->{accno};
544           $ref->{debit_taxkey}{$k} = $ref2->{taxkey};
545           $ref->{ac_transdate}{$k} = $ref2->{transdate};
546           $ref->{source}{$k}       = $source . $space . $ref->{source}{$k};
547         } else {
548           if ($ref->{credit_accno}{$l} ne "") {
549             $l++;
550           }
551           if ($ref->{source}{$l} ne "") {
552             $space = " | ";
553           } else {
554             $space = "";
555           }
556           $ref->{credit}{$l}        = $ref2->{amount};
557           $ref->{credit_accno}{$l}  = $ref2->{accno};
558           $ref->{credit_taxkey}{$l} = $ref2->{taxkey};
559           $ref->{ac_transdate}{$l}  = $ref2->{transdate};
560           $ref->{source}{$l}        = $ref->{source}{$l} . $space . $source;
561         }
562       }
563     }
564   }
565
566   push @{ $form->{GL} }, $ref;
567   $sth->finish;
568
569   if ($form->{accno}) {
570     $query = qq|SELECT c.description FROM chart c WHERE c.accno = ?|;
571     ($form->{account_description}) = selectrow_query($form, $dbh, $query, $form->{accno});
572   }
573
574   $dbh->disconnect;
575
576   $main::lxdebug->leave_sub();
577 }
578
579 sub transaction {
580   my ($self, $myconfig, $form) = @_;
581   $main::lxdebug->enter_sub();
582
583   my ($query, $sth, $ref, @values);
584
585   # connect to database
586   my $dbh = $form->dbconnect($myconfig);
587
588   $query = qq|SELECT closedto, revtrans FROM defaults|;
589   ($form->{closedto}, $form->{revtrans}) = selectrow_query($form, $dbh, $query);
590
591   $query = qq|SELECT id, gldate
592               FROM gl
593               WHERE id = (SELECT max(id) FROM gl)|;
594   ($form->{previous_id}, $form->{previous_gldate}) = selectrow_query($form, $dbh, $query);
595
596   if ($form->{id}) {
597     $query =
598       qq|SELECT g.reference, g.description, g.notes, g.transdate, g.storno, g.storno_id,
599            d.description AS department, e.name AS employee, g.taxincluded, g.gldate, 
600          g.ob_transaction, g.cb_transaction
601          FROM gl g
602          LEFT JOIN department d ON (d.id = g.department_id)
603          LEFT JOIN employee e ON (e.id = g.employee_id)
604          WHERE g.id = ?|;
605     $ref = selectfirst_hashref_query($form, $dbh, $query, conv_i($form->{id}));
606     map { $form->{$_} = $ref->{$_} } keys %$ref;
607
608     # retrieve individual rows
609     $query =
610       qq|SELECT c.accno, t.taxkey AS accnotaxkey, a.amount, a.memo, a.source,
611            a.transdate, a.cleared, a.project_id, p.projectnumber,
612            a.taxkey, t.rate AS taxrate, t.id,
613            (SELECT c1.accno
614             FROM chart c1, tax t1
615             WHERE (t1.id = t.id) AND (c1.id = t.chart_id)) AS taxaccno,
616            (SELECT tk.tax_id
617             FROM taxkeys tk
618             WHERE (tk.chart_id = a.chart_id) AND (tk.startdate <= a.transdate)
619             ORDER BY tk.startdate desc LIMIT 1) AS tax_id
620          FROM acc_trans a
621          JOIN chart c ON (c.id = a.chart_id)
622          LEFT JOIN project p ON (p.id = a.project_id)
623          LEFT JOIN tax t ON
624            (t.id =
625              (SELECT tk.tax_id
626               FROM taxkeys tk
627               WHERE (tk.taxkey_id = a.taxkey) AND
628                 ((CASE WHEN a.chart_id IN
629                     (SELECT chart_id FROM taxkeys WHERE taxkey_id = a.taxkey)
630                   THEN tk.chart_id = a.chart_id
631                   ELSE 1 = 1
632                   END)
633                  OR (c.link LIKE '%tax%'))
634                 AND (startdate <= a.transdate)
635               ORDER BY startdate DESC LIMIT 1))
636          WHERE (a.trans_id = ?)
637            AND (a.fx_transaction = '0')
638          ORDER BY a.acc_trans_id, a.transdate|;
639     $form->{GL} = selectall_hashref_query($form, $dbh, $query, conv_i($form->{id}));
640
641   } else {
642     $query =
643       qq|SELECT COALESCE(
644            (SELECT transdate
645             FROM gl
646             WHERE id = (SELECT MAX(id) FROM gl)
647             LIMIT 1),
648            current_date)|;
649     ($form->{transdate}) = selectrow_query($form, $dbh, $query);
650   }
651
652   # get tax description
653   $query = qq|SELECT * FROM tax ORDER BY taxkey|;
654   $form->{TAX} = selectall_hashref_query($form, $dbh, $query);
655
656   # get chart of accounts
657   $query =
658     qq|SELECT c.accno, c.description, c.link, tk.taxkey_id, tk.tax_id
659        FROM chart c
660        LEFT JOIN taxkeys tk ON (tk.id =
661          (SELECT id
662           FROM taxkeys
663           WHERE (taxkeys.chart_id = c.id)
664             AND (startdate <= ?)
665           ORDER BY startdate DESC
666           LIMIT 1))
667        ORDER BY c.accno|;
668   $form->{chart} = selectall_hashref_query($form, $dbh, $query, conv_date($form->{transdate}));
669
670   $dbh->disconnect;
671
672   $main::lxdebug->leave_sub();
673 }
674
675 sub storno {
676   $main::lxdebug->enter_sub();
677
678   my ($self, $form, $myconfig, $id) = @_;
679
680   my ($query, $new_id, $storno_row, $acc_trans_rows);
681   my $dbh = $form->get_standard_dbh($myconfig);
682
683   $query = qq|SELECT nextval('glid')|;
684   ($new_id) = selectrow_query($form, $dbh, $query);
685
686   $query = qq|SELECT * FROM gl WHERE id = ?|;
687   $storno_row = selectfirst_hashref_query($form, $dbh, $query, $id);
688
689   $storno_row->{id}        = $new_id;
690   $storno_row->{storno_id} = $id;
691   $storno_row->{storno}    = 't';
692   $storno_row->{reference} = 'Storno-' . $storno_row->{reference};
693
694   delete @$storno_row{qw(itime mtime)};
695
696   $query = sprintf 'INSERT INTO gl (%s) VALUES (%s)', join(', ', keys %$storno_row), join(', ', map '?', values %$storno_row);
697   do_query($form, $dbh, $query, (values %$storno_row));
698
699   $query = qq|UPDATE gl SET storno = 't' WHERE id = ?|;
700   do_query($form, $dbh, $query, $id);
701
702   # now copy acc_trans entries
703   $query = qq|SELECT * FROM acc_trans WHERE trans_id = ?|;
704   my $rowref = selectall_hashref_query($form, $dbh, $query, $id); 
705
706   for my $row (@$rowref) {
707     delete @$row{qw(itime mtime)};
708     $query = sprintf 'INSERT INTO acc_trans (%s) VALUES (%s)', join(', ', keys %$row), join(', ', map '?', values %$row);
709     $row->{trans_id}   = $new_id;
710     $row->{amount}    *= -1;
711     do_query($form, $dbh, $query, (values %$row));
712   }
713
714   $dbh->commit;
715
716   $main::lxdebug->leave_sub();
717 }
718
719 sub get_chart_balances {
720   $main::lxdebug->enter_sub();
721
722   my $self     = shift;
723   my %params   = @_;
724
725   Common::check_params(\%params, qw(charts));
726
727   my $myconfig = \%main::myconfig;
728   my $form     = $main::form;
729
730   my $dbh      = $params{dbh} || $form->get_standard_dbh($myconfig);
731
732   my @ids      = map { $_->{id} } @{ $params{charts} };
733
734   if (!@ids) {
735     $main::lxdebug->leave_sub();
736     return;
737   }
738
739   my $query = qq|SELECT chart_id, SUM(amount) AS sum
740                  FROM acc_trans
741                  WHERE chart_id IN (| . join(', ', ('?') x scalar(@ids)) . qq|)
742                  GROUP BY chart_id|;
743
744   my %balances = selectall_as_map($form, $dbh, $query, 'chart_id', 'sum', @ids);
745
746   foreach my $chart (@{ $params{charts} }) {
747     $chart->{balance} = $balances{ $chart->{id} } || 0;
748   }
749
750   $main::lxdebug->leave_sub();
751 }
752
753
754 1;