Einige Übersetzungen, einheitliche Bezeichnung
[kivitendo-erp.git] / SL / CA.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 # chart of accounts
31 #
32 # CHANGE LOG:
33 #   DS. 2000-07-04  Created
34 #
35 #======================================================================
36
37 package CA;
38 use Data::Dumper;
39
40 sub all_accounts {
41   $main::lxdebug->enter_sub();
42
43   my ($self, $myconfig, $form) = @_;
44
45   my $amount = ();
46
47   # connect to database
48   my $dbh = $form->dbconnect($myconfig);
49
50   my $query = qq|SELECT c.accno,
51                  SUM(a.amount) AS amount
52                  FROM chart c, acc_trans a
53                  WHERE c.id = a.chart_id
54                  GROUP BY c.accno|;
55   my $sth = $dbh->prepare($query);
56   $sth->execute || $form->dberror($query);
57
58   while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
59     $amount{ $ref->{accno} } = $ref->{amount};
60   }
61   $sth->finish;
62
63   $query = qq|SELECT accno, description
64               FROM gifi|;
65   $sth = $dbh->prepare($query);
66   $sth->execute || $form->dberror($query);
67
68   my $gifi = ();
69   while (my ($accno, $description) = $sth->fetchrow_array) {
70     $gifi{$accno} = $description;
71   }
72   $sth->finish;
73
74   $query = qq|SELECT c.id, c.accno, c.description, c.charttype, c.gifi_accno,
75               c.category, c.link
76               FROM chart c
77               ORDER BY accno|;
78   $sth = $dbh->prepare($query);
79   $sth->execute || $form->dberror($query);
80
81   while (my $ca = $sth->fetchrow_hashref(NAME_lc)) {
82     $ca->{amount}           = $amount{ $ca->{accno} };
83     $ca->{gifi_description} = $gifi{ $ca->{gifi_accno} };
84     if ($ca->{amount} < 0) {
85       $ca->{debit} = $ca->{amount} * -1;
86     } else {
87       $ca->{credit} = $ca->{amount};
88     }
89     push @{ $form->{CA} }, $ca;
90   }
91
92   $sth->finish;
93   $dbh->disconnect;
94
95   $main::lxdebug->leave_sub();
96 }
97
98 sub all_transactions {
99   $main::lxdebug->enter_sub();
100
101   my ($self, $myconfig, $form) = @_;
102
103   # connect to database
104   my $dbh = $form->dbconnect($myconfig);
105
106   # get chart_id
107   my $query = qq|SELECT c.id FROM chart c
108                  WHERE c.accno = '$form->{accno}'|;
109   if ($form->{accounttype} eq 'gifi') {
110     $query = qq|SELECT c.id FROM chart c
111                 WHERE c.gifi_accno = '$form->{gifi_accno}'|;
112   }
113   my $sth = $dbh->prepare($query);
114   $sth->execute || $form->dberror($query);
115
116   my @id = ();
117   while (my ($id) = $sth->fetchrow_array) {
118     push @id, $id;
119   }
120   $sth->finish;
121
122   my $fromdate_where;
123   my $todate_where;
124
125   my $where = '1 = 1';
126
127   # build WHERE clause from dates if any
128   #  if ($form->{fromdate}) {
129   #    $where .= " AND ac.transdate >= '$form->{fromdate}'";
130   #  }
131   #  if ($form->{todate}) {
132   #    $where .= " AND ac.transdate <= '$form->{todate}'";
133   #  }
134
135   if ($form->{fromdate}) {
136     $fromto = " AND ac.transdate >= '$form->{fromdate}'";
137     $subwhere .= " AND transdate >= '$form->{fromdate}'";
138     $glwhere = " AND ac.transdate >= '$form->{fromdate}'";
139   }
140
141   if ($form->{todate}) {
142     $fromto   .= " AND ac.transdate <= '$form->{todate}'";
143     $subwhere .= " AND transdate <= '$form->{todate}'";
144   }
145
146   if ($form->{eur}) {
147     $AR_PAID = qq|AND ac.trans_id IN
148                    (
149                      SELECT trans_id
150                      FROM acc_trans
151                      JOIN chart ON (chart_id = id)
152                      WHERE link LIKE '%AR_paid%'
153                      $subwhere
154                    )|;
155     $AP_PAID = qq|AND ac.trans_id IN
156                    (
157                      SELECT trans_id
158                      FROM acc_trans
159                      JOIN chart ON (chart_id = id)
160                      WHERE link LIKE '%AP_paid%'
161                      $subwhere
162                    )|;
163   } else {
164     $where .= $fromto;
165     $AR_PAID = "";
166     $AP_PAID = "";
167     $glwhere = "";    # note! gl will be aliased as "a" later...
168   }
169   my $sortorder = join ', ',
170     $form->sort_columns(qw(transdate reference description));
171   my $false = ($myconfig->{dbdriver} eq 'Pg') ? FALSE: q|'0'|;
172
173   # Oracle workaround, use ordinal positions
174   my %ordinal = (transdate   => 4,
175                  reference   => 2,
176                  description => 3);
177   map { $sortorder =~ s/$_/$ordinal{$_}/ } keys %ordinal;
178
179   my ($null, $department_id) = split /--/, $form->{department};
180   my $dpt_where;
181   my $dpt_join;
182   if ($department_id) {
183     $dpt_join = qq|
184                    JOIN department t ON (t.id = a.department_id)
185                   |;
186     $dpt_where = qq|
187                    AND t.id = $department_id
188                   |;
189   }
190
191   my $project;
192   if ($form->{project_id}) {
193     $project = qq|
194                  AND ac.project_id = $form->{project_id}
195                  |;
196   }
197
198   if ($form->{accno} || $form->{gifi_accno}) {
199
200     # get category for account
201     $query = qq|SELECT c.category
202                 FROM chart c
203                 WHERE c.accno = '$form->{accno}'|;
204
205     if ($form->{accounttype} eq 'gifi') {
206       $query = qq|SELECT c.category
207                 FROM chart c
208                 WHERE c.gifi_accno = '$form->{gifi_accno}'
209                 AND c.charttype = 'A'|;
210     }
211
212     $sth = $dbh->prepare($query);
213
214     $sth->execute || $form->dberror($query);
215     ($form->{category}) = $sth->fetchrow_array;
216     $sth->finish;
217
218     if ($form->{fromdate}) {
219
220       # get beginning balance
221       $query = qq|SELECT SUM(ac.amount)
222                   FROM acc_trans ac
223                   JOIN chart c ON (ac.chart_id = c.id)
224                   $dpt_join
225                   WHERE c.accno = '$form->{accno}'
226                   AND ac.transdate < '$form->{fromdate}'
227                   $dpt_where
228                   $project
229                   |;
230
231       if ($form->{project_id}) {
232
233         $query .= qq|
234
235                UNION
236
237                   SELECT SUM(ac.qty * ac.sellprice)
238                   FROM invoice ac
239                   JOIN ar a ON (ac.trans_id = a.id)
240                   JOIN parts p ON (ac.parts_id = p.id)
241                   JOIN chart c ON (p.income_accno_id = c.id)
242                   $dpt_join
243                   WHERE c.accno = '$form->{accno}'
244                   AND a.transdate < '$form->{fromdate}'
245                   AND c.category = 'I'
246                   $dpt_where
247                   $project
248
249                UNION
250
251                   SELECT SUM(ac.qty * ac.sellprice)
252                   FROM invoice ac
253                   JOIN ap a ON (ac.trans_id = a.id)
254                   JOIN parts p ON (ac.parts_id = p.id)
255                   JOIN chart c ON (p.expense_accno_id = c.id)
256                   $dpt_join
257                   WHERE c.accno = '$form->{accno}'
258                   AND a.transdate < '$form->{fromdate}'
259                   AND c.category = 'E'
260                   $dpt_where
261                   $project
262                   |;
263
264       }
265
266       if ($form->{accounttype} eq 'gifi') {
267         $query = qq|SELECT SUM(ac.amount)
268                   FROM acc_trans ac
269                   JOIN chart c ON (ac.chart_id = c.id)
270                   $dpt_join
271                   WHERE c.gifi_accno = '$form->{gifi_accno}'
272                   AND ac.transdate < '$form->{fromdate}'
273                   $dpt_where
274                   $project
275                   |;
276
277         if ($form->{project_id}) {
278
279           $query .= qq|
280
281                UNION
282
283                   SELECT SUM(ac.qty * ac.sellprice)
284                   FROM invoice ac
285                   JOIN ar a ON (ac.trans_id = a.id)
286                   JOIN parts p ON (ac.parts_id = p.id)
287                   JOIN chart c ON (p.income_accno_id = c.id)
288                   $dpt_join
289                   WHERE c.gifi_accno = '$form->{gifi_accno}'
290                   AND a.transdate < '$form->{fromdate}'
291                   AND c.category = 'I'
292                   $dpt_where
293                   $project
294
295                UNION
296
297                   SELECT SUM(ac.qty * ac.sellprice)
298                   FROM invoice ac
299                   JOIN ap a ON (ac.trans_id = a.id)
300                   JOIN parts p ON (ac.parts_id = p.id)
301                   JOIN chart c ON (p.expense_accno_id = c.id)
302                   $dpt_join
303                   WHERE c.gifi_accno = '$form->{gifi_accno}'
304                   AND a.transdate < '$form->{fromdate}'
305                   AND c.category = 'E'
306                   $dpt_where
307                   $project
308                   |;
309
310         }
311       }
312
313       $sth = $dbh->prepare($query);
314
315       $sth->execute || $form->dberror($query);
316       ($form->{balance}) = $sth->fetchrow_array;
317       $sth->finish;
318     }
319   }
320
321   $query = "";
322   my $union = "";
323
324   foreach my $id (@id) {
325
326     # NOTE:
327     #  Postgres is really picky about the order of implicit CROSS JOINs with ','
328     #  if you alias the  tables and want to use the alias later in another JOIN.
329     #  the alias you want to use has to be the most recent in the list, otherwise
330     #  Postgres will overwrite the alias internally and complain.
331     #  For this reason, in the next 3 SELECTs, the 'a' alias is last in the list.
332     #  Don't change this, and if you do, substitute the ',' with CROSS JOIN
333     #  ... that also works.
334
335     # get all transactions
336     $query .= qq|$union
337       SELECT a.id, a.reference, a.description, ac.transdate,
338              $false AS invoice, ac.amount, 'gl' as module
339                 FROM acc_trans ac, gl a $dpt_join
340                 WHERE $where
341                 $glwhere
342                 $dpt_where
343                 $project
344                 AND ac.chart_id = $id
345                 AND ac.trans_id = a.id
346       UNION
347       SELECT a.id, a.invnumber, c.name, ac.transdate,
348              a.invoice, ac.amount, 'ar' as module
349                 FROM acc_trans ac, customer c, ar a $dpt_join
350                 WHERE $where
351                 $dpt_where
352                 $project
353                 AND ac.chart_id = $id
354                 AND ac.trans_id = a.id
355                 $AR_PAID
356                 AND a.customer_id = c.id
357       UNION
358       SELECT a.id, a.invnumber, v.name, ac.transdate,
359              a.invoice, ac.amount, 'ap' as module
360                 FROM acc_trans ac, vendor v, ap a $dpt_join
361                 WHERE $where
362                 $dpt_where
363                 $project
364                 AND ac.chart_id = $id
365                 AND ac.trans_id = a.id
366                 $AP_PAID
367                 AND a.vendor_id = v.id
368                 |;
369     $union = qq|
370       UNION ALL
371       |;
372
373     if ($form->{project_id}) {
374
375       $fromdate_where =~ s/ac\./a\./;
376       $todate_where   =~ s/ac\./a\./;
377
378       $query .= qq|
379
380              UNION ALL
381
382                  SELECT a.id, a.invnumber, c.name, a.transdate,
383                  a.invoice, ac.qty * ac.sellprice AS sellprice, 'ar' as module
384                  FROM ar a
385                  JOIN invoice ac ON (ac.trans_id = a.id)
386                  JOIN parts p ON (ac.parts_id = p.id)
387                  JOIN customer c ON (a.customer_id = c.id)
388                  $dpt_join
389                  WHERE p.income_accno_id = $id
390                  $fromdate_where
391                  $todate_where
392                  $dpt_where
393                  $project
394
395              UNION ALL
396
397                  SELECT a.id, a.invnumber, v.name, a.transdate,
398                  a.invoice, ac.qty * ac.sellprice AS sellprice, 'ap' as module
399                  FROM ap a
400                  JOIN invoice ac ON (ac.trans_id = a.id)
401                  JOIN parts p ON (ac.parts_id = p.id)
402                  JOIN vendor v ON (a.vendor_id = v.id)
403                  $dpt_join
404                  WHERE p.expense_accno_id = $id
405                  $fromdate_where
406                  $todate_where
407                  $dpt_where
408                  $project
409                  |;
410
411       $fromdate_where =~ s/a\./ac\./;
412       $todate_where   =~ s/a\./ac\./;
413
414     }
415
416     $union = qq|
417              UNION ALL
418                  |;
419   }
420
421   $query .= qq|
422       ORDER BY $sortorder|;
423
424   $sth = $dbh->prepare($query);
425   $sth->execute || $form->dberror($query);
426
427   while (my $ca = $sth->fetchrow_hashref(NAME_lc)) {
428
429     # gl
430     if ($ca->{module} eq "gl") {
431       $ca->{module} = "gl";
432     }
433
434     # ap
435     if ($ca->{module} eq "ap") {
436       $ca->{module} = ($ca->{invoice}) ? 'ir' : 'ap';
437     }
438
439     # ar
440     if ($ca->{module} eq "ar") {
441       $ca->{module} = ($ca->{invoice}) ? 'is' : 'ar';
442     }
443
444     if ($ca->{amount} < 0) {
445       $ca->{debit}  = $ca->{amount} * -1;
446       $ca->{credit} = 0;
447     } else {
448       $ca->{credit} = $ca->{amount};
449       $ca->{debit}  = 0;
450     }
451
452     push @{ $form->{CA} }, $ca;
453
454   }
455
456   $sth->finish;
457   $dbh->disconnect;
458
459   $main::lxdebug->leave_sub();
460 }
461
462 1;