Aktualisierung
[kivitendo-erp.git] / SL / RC.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) 2002
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 # Account reconciliation routines
32 #
33 #======================================================================
34
35 package RC;
36
37 sub paymentaccounts {
38   $main::lxdebug->enter_sub();
39
40   my ($self, $myconfig, $form) = @_;
41
42   # connect to database
43   my $dbh = $form->dbconnect($myconfig);
44
45   my $query = qq|SELECT c.accno, c.description
46                  FROM chart c
47                  WHERE c.link LIKE '%_paid%'
48                  AND (c.category = 'A' OR c.category = 'L')
49                  ORDER BY c.accno|;
50   my $sth = $dbh->prepare($query);
51   $sth->execute || $form->dberror($query);
52
53   while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
54     push @{ $form->{PR} }, $ref;
55   }
56   $sth->finish;
57   $dbh->disconnect;
58
59   $main::lxdebug->leave_sub();
60 }
61
62 sub payment_transactions {
63   $main::lxdebug->enter_sub();
64
65   my ($self, $myconfig, $form) = @_;
66
67   # connect to database, turn AutoCommit off
68   my $dbh = $form->dbconnect_noauto($myconfig);
69
70   my ($query, $sth);
71
72   # get cleared balance
73   if ($form->{fromdate}) {
74     $query = qq|SELECT sum(a.amount),
75                      (SELECT DISTINCT c2.category FROM chart c2
76                       WHERE c2.accno = '$form->{accno}') AS category
77                 FROM acc_trans a
78                 JOIN chart c ON (c.id = a.chart_id)
79                 WHERE a.transdate < date '$form->{fromdate}'
80                 AND a.cleared = '1'
81                 AND c.accno = '$form->{accno}'
82                 |;
83   } else {
84     $query = qq|SELECT sum(a.amount),
85                      (SELECT DISTINCT c2.category FROM chart c2
86                       WHERE c2.accno = '$form->{accno}') AS category
87                 FROM acc_trans a
88                 JOIN chart c ON (c.id = a.chart_id)
89                 WHERE a.cleared = '1'
90                 AND c.accno = '$form->{accno}'
91                 |;
92   }
93
94   $sth = $dbh->prepare($query);
95   $sth->execute || $form->dberror($query);
96
97   ($form->{beginningbalance}, $form->{category}) = $sth->fetchrow_array;
98
99   $sth->finish;
100
101   my %oid = ('Pg'     => 'ac.oid',
102              'Oracle' => 'ac.rowid');
103
104   $query = qq|SELECT c.name, ac.source, ac.transdate, ac.cleared,
105               ac.fx_transaction, ac.amount, a.id,
106               $oid{$myconfig->{dbdriver}} AS oid
107               FROM customer c, acc_trans ac, ar a, chart ch
108               WHERE c.id = a.customer_id
109 --            AND NOT ac.fx_transaction
110               AND ac.cleared = '0'
111               AND ac.trans_id = a.id
112               AND ac.chart_id = ch.id
113               AND ch.accno = '$form->{accno}'
114               |;
115
116   $query .= " AND ac.transdate >= '$form->{fromdate}'" if $form->{fromdate};
117   $query .= " AND ac.transdate <= '$form->{todate}'"   if $form->{todate};
118
119   $query .= qq|
120
121       UNION
122               SELECT v.name, ac.source, ac.transdate, ac.cleared,
123               ac.fx_transaction, ac.amount, a.id,
124               $oid{$myconfig->{dbdriver}} AS oid
125               FROM vendor v, acc_trans ac, ap a, chart ch
126               WHERE v.id = a.vendor_id
127 --            AND NOT ac.fx_transaction
128               AND ac.cleared = '0'
129               AND ac.trans_id = a.id
130               AND ac.chart_id = ch.id
131               AND ch.accno = '$form->{accno}'
132              |;
133
134   $query .= " AND ac.transdate >= '$form->{fromdate}'" if $form->{fromdate};
135   $query .= " AND ac.transdate <= '$form->{todate}'"   if $form->{todate};
136
137   $query .= qq|
138
139       UNION
140               SELECT g.description, ac.source, ac.transdate, ac.cleared,
141               ac.fx_transaction, ac.amount, g.id,
142               $oid{$myconfig->{dbdriver}} AS oid
143               FROM gl g, acc_trans ac, chart ch
144               WHERE g.id = ac.trans_id
145 --            AND NOT ac.fx_transaction
146               AND ac.cleared = '0'
147               AND ac.trans_id = g.id
148               AND ac.chart_id = ch.id
149               AND ch.accno = '$form->{accno}'
150               |;
151
152   $query .= " AND ac.transdate >= '$form->{fromdate}'" if $form->{fromdate};
153   $query .= " AND ac.transdate <= '$form->{todate}'"   if $form->{todate};
154
155   $query .= " ORDER BY 3,7,8";
156
157   $sth = $dbh->prepare($query);
158   $sth->execute || $form->dberror($query);
159
160   while (my $pr = $sth->fetchrow_hashref(NAME_lc)) {
161     push @{ $form->{PR} }, $pr;
162   }
163   $sth->finish;
164
165   $dbh->disconnect;
166
167   $main::lxdebug->leave_sub();
168 }
169
170 sub reconcile {
171   $main::lxdebug->enter_sub();
172
173   my ($self, $myconfig, $form) = @_;
174
175   # connect to database
176   my $dbh = $form->dbconnect($myconfig);
177
178   my ($query, $i);
179   my %oid = ('Pg'     => 'oid',
180              'Oracle' => 'rowid');
181
182   # clear flags
183   for $i (1 .. $form->{rowcount}) {
184     if ($form->{"cleared_$i"}) {
185       $query = qq|UPDATE acc_trans SET cleared = '1'
186                   WHERE $oid{$myconfig->{dbdriver}} = $form->{"oid_$i"}|;
187       $dbh->do($query) || $form->dberror($query);
188
189       # clear fx_transaction
190       if ($form->{"fxoid_$i"}) {
191         $query = qq|UPDATE acc_trans SET cleared = '1'
192                     WHERE $oid{$myconfig->{dbdriver}} = $form->{"fxoid_$i"}|;
193         $dbh->do($query) || $form->dberror($query);
194       }
195     }
196   }
197
198   $dbh->disconnect;
199
200   $main::lxdebug->leave_sub();
201 }
202
203 1;