Weitere Abfragen umformatiert.
[kivitendo-erp.git] / SL / CP.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 # Check and receipt printing payment module backend routines
32 # Number to text conversion routines are in
33 # locale/{countrycode}/Num2text
34 #
35 #======================================================================
36
37 package CP;
38
39 sub new {
40   $main::lxdebug->enter_sub();
41
42   my ($type, $countrycode) = @_;
43
44   $self = {};
45
46   if ($countrycode) {
47     if (-f "locale/$countrycode/Num2text") {
48       require "locale/$countrycode/Num2text";
49     } else {
50       use SL::Num2text;
51     }
52   } else {
53     use SL::Num2text;
54   }
55
56   $main::lxdebug->leave_sub();
57
58   bless $self, $type;
59 }
60
61 sub paymentaccounts {
62   $main::lxdebug->enter_sub();
63
64   my ($self, $myconfig, $form) = @_;
65
66   # connect to database
67   my $dbh = $form->dbconnect($myconfig);
68
69   my $query = qq|SELECT c.accno, c.description, c.link
70                  FROM chart c
71                  WHERE c.link LIKE '%$form->{ARAP}%'
72                  ORDER BY c.accno|;
73   my $sth = $dbh->prepare($query);
74   $sth->execute || $form->dberror($query);
75
76   $form->{PR}{ $form->{ARAP} } = ();
77   $form->{PR}{"$form->{ARAP}_paid"} = ();
78
79   while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
80     foreach my $item (split /:/, $ref->{link}) {
81       if ($item eq $form->{ARAP}) {
82         push @{ $form->{PR}{ $form->{ARAP} } }, $ref;
83       }
84       if ($item eq "$form->{ARAP}_paid") {
85         push @{ $form->{PR}{"$form->{ARAP}_paid"} }, $ref;
86       }
87     }
88   }
89   $sth->finish;
90
91   # get currencies and closedto
92   $query = qq|SELECT curr, closedto
93               FROM defaults|;
94   $sth = $dbh->prepare($query);
95   $sth->execute || $form->dberror($query);
96
97   ($form->{currencies}, $form->{closedto}) = $sth->fetchrow_array;
98   $sth->finish;
99
100   $dbh->disconnect;
101
102   $main::lxdebug->leave_sub();
103 }
104
105 sub get_openvc {
106   $main::lxdebug->enter_sub();
107
108   my ($self, $myconfig, $form) = @_;
109
110   my $dbh = $form->dbconnect($myconfig);
111
112   my $arap  = ($form->{vc} eq 'customer') ? 'ar' : 'ap';
113   my $query = qq|SELECT count(*)
114                  FROM $form->{vc} ct, $arap a
115                  WHERE a.$form->{vc}_id = ct.id
116                  AND a.amount != a.paid|;
117   my $sth = $dbh->prepare($query);
118   $sth->execute || $form->dberror($query);
119   my ($count) = $sth->fetchrow_array;
120   $sth->finish;
121
122   my $ref;
123
124   # build selection list
125   if ($count < $myconfig->{vclimit}) {
126     $query = qq|SELECT DISTINCT ct.id, ct.name
127                 FROM $form->{vc} ct, $arap a
128                 WHERE a.$form->{vc}_id = ct.id
129                 AND a.amount != a.paid
130                 ORDER BY ct.name|;
131     $sth = $dbh->prepare($query);
132     $sth->execute || $form->dberror($query);
133
134     while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
135       push @{ $form->{"all_$form->{vc}"} }, $ref;
136     }
137
138     $sth->finish;
139
140   }
141
142   if ($form->{ARAP} eq 'AR') {
143     $query = qq|SELECT d.id, d.description
144                 FROM department d
145                 WHERE d.role = 'P'
146                 ORDER BY 2|;
147   } else {
148     $query = qq|SELECT d.id, d.description
149                 FROM department d
150                 ORDER BY 2|;
151   }
152   $sth = $dbh->prepare($query);
153   $sth->execute || $form->dberror($query);
154
155   while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
156     push @{ $form->{all_departments} }, $ref;
157   }
158   $sth->finish;
159
160   $dbh->disconnect;
161
162   $main::lxdebug->leave_sub();
163 }
164
165 sub get_openinvoices {
166   $main::lxdebug->enter_sub();
167
168   my ($self, $myconfig, $form) = @_;
169
170   # connect to database
171   my $dbh = $form->dbconnect($myconfig);
172
173   my $where = qq|WHERE a.$form->{vc}_id = $form->{"$form->{vc}_id"}
174                  AND a.curr = '$form->{currency}'
175                  AND NOT a.amount = paid|;
176
177   my ($buysell);
178   if ($form->{vc} eq 'customer') {
179     $buysell = "buy";
180   } else {
181     $buysell = "sell";
182   }
183
184   my $query =
185     qq|SELECT a.id, a.invnumber, a.transdate, a.amount, a.paid, a.curr
186                  FROM $form->{arap} a
187                  $where
188                  ORDER BY a.id|;
189   my $sth = $dbh->prepare($query);
190   $sth->execute || $form->dberror($query);
191
192   while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
193
194     # if this is a foreign currency transaction get exchangerate
195     $ref->{exchangerate} =
196       $form->get_exchangerate($dbh, $ref->{curr}, $ref->{transdate}, $buysell)
197       if ($form->{currency} ne $form->{defaultcurrency});
198     push @{ $form->{PR} }, $ref;
199   }
200
201   $sth->finish;
202   $dbh->disconnect;
203
204   $main::lxdebug->leave_sub();
205 }
206
207 sub process_payment {
208   $main::lxdebug->enter_sub();
209
210   my ($self, $myconfig, $form) = @_;
211
212   # connect to database, turn AutoCommit off
213   my $dbh = $form->dbconnect_noauto($myconfig);
214
215   my ($paymentaccno) = split /--/, $form->{account};
216
217   # if currency ne defaultcurrency update exchangerate
218   if ($form->{currency} ne $form->{defaultcurrency}) {
219     $form->{exchangerate} =
220       $form->parse_amount($myconfig, $form->{exchangerate});
221
222     if ($form->{vc} eq 'customer') {
223       $form->update_exchangerate($dbh, $form->{currency}, $form->{datepaid},
224                                  $form->{exchangerate}, 0);
225     } else {
226       $form->update_exchangerate($dbh, $form->{currency}, $form->{datepaid}, 0,
227                                  $form->{exchangerate});
228     }
229   } else {
230     $form->{exchangerate} = 1;
231   }
232
233   my $query = qq|SELECT fxgain_accno_id, fxloss_accno_id
234                  FROM defaults|;
235   my $sth = $dbh->prepare($query);
236   $sth->execute || $form->dberror($query);
237
238   my ($fxgain_accno_id, $fxloss_accno_id) = $sth->fetchrow_array;
239   $sth->finish;
240
241   my ($buysell);
242
243   if ($form->{vc} eq 'customer') {
244     $buysell = "buy";
245   } else {
246     $buysell = "sell";
247   }
248
249   my $ml;
250   my $where;
251
252   if ($form->{ARAP} eq 'AR') {
253     $ml    = 1;
254     $where = qq|
255                 (c.link = 'AR'
256                 OR c.link LIKE 'AR:%')
257                 |;
258   } else {
259     $ml    = -1;
260     $where = qq|
261                 (c.link = 'AP'
262                 OR c.link LIKE '%:AP'
263                 OR c.link LIKE '%:AP:%')
264                 |;
265   }
266
267   $paymentamount = $form->{amount};
268
269   #  $paymentamount = $form->{amount};
270   my $null;
271   ($null, $form->{department_id}) = split /--/, $form->{department};
272   $form->{department_id} *= 1;
273
274   # query to retrieve paid amount
275   $query = qq|SELECT a.paid FROM ar a
276               WHERE a.id = ?
277               FOR UPDATE|;
278   my $pth = $dbh->prepare($query) || $form->dberror($query);
279
280   # go through line by line
281   for my $i (1 .. $form->{rowcount}) {
282
283     $form->{"paid_$i"} = $form->parse_amount($myconfig, $form->{"paid_$i"});
284     $form->{"due_$i"}  = $form->parse_amount($myconfig, $form->{"due_$i"});
285
286     if ($form->{"checked_$i"} && $form->{"paid_$i"}) {
287       $paymentamount =
288         (($paymentamount * 1000) - ($form->{"paid_$i"} * 1000)) / 1000;
289
290       # get exchangerate for original
291       $query = qq|SELECT $buysell
292                   FROM exchangerate e
293                   JOIN $form->{arap} a ON (a.transdate = e.transdate)
294                   WHERE e.curr = '$form->{currency}'
295                   AND a.id = $form->{"id_$i"}|;
296       $sth = $dbh->prepare($query);
297       $sth->execute || $form->dberror($query);
298
299       my ($exchangerate) = $sth->fetchrow_array;
300       $sth->finish;
301
302       $exchangerate = 1 unless $exchangerate;
303
304       $query = qq|SELECT c.id
305                   FROM chart c
306                   JOIN acc_trans a ON (a.chart_id = c.id)
307                   WHERE $where
308                   AND a.trans_id = $form->{"id_$i"}|;
309       $sth = $dbh->prepare($query);
310       $sth->execute || $form->dberror($query);
311
312       my ($id) = $sth->fetchrow_array;
313       $sth->finish;
314
315       $amount = $form->round_amount($form->{"paid_$i"} * $exchangerate, 2);
316
317       # add AR/AP
318       $query = qq|INSERT INTO acc_trans (trans_id, chart_id, transdate,
319                   amount)
320                   VALUES ($form->{"id_$i"}, $id, '$form->{datepaid}',
321                   $amount * $ml)|;
322       $dbh->do($query) || $form->dberror($query);
323
324       # add payment
325       $query = qq|INSERT INTO acc_trans (trans_id, chart_id, transdate,
326                   amount, source, memo)
327                   VALUES ($form->{"id_$i"},
328                          (SELECT c.id FROM chart c
329                           WHERE c.accno = '$paymentaccno'),
330                   '$form->{datepaid}', $form->{"paid_$i"} * $ml * -1,
331                   '$form->{source}', '$form->{memo}')|;
332       $dbh->do($query) || $form->dberror($query);
333
334       # add exchangerate difference if currency ne defaultcurrency
335       $amount =
336         $form->round_amount($form->{"paid_$i"} * ($form->{exchangerate} - 1),
337                             2);
338       if ($amount != 0) {
339
340         # exchangerate difference
341         $query = qq|INSERT INTO acc_trans (trans_id, chart_id, transdate,
342                     amount, cleared, fx_transaction)
343                     VALUES ($form->{"id_$i"},
344                            (SELECT c.id FROM chart c
345                             WHERE c.accno = '$paymentaccno'),
346                   '$form->{datepaid}', $amount * $ml * -1, '0', '1')|;
347         $dbh->do($query) || $form->dberror($query);
348
349         # gain/loss
350
351         $amount =
352           $form->round_amount(
353                   $form->{"paid_$i"} * ($exchangerate - $form->{exchangerate}),
354                   2);
355         if ($amount != 0) {
356           my $accno_id = ($amount < 0) ? $fxgain_accno_id : $fxloss_accno_id;
357           $query = qq|INSERT INTO acc_trans (trans_id, chart_id, transdate,
358                       amount, cleared, fx_transaction)
359                       VALUES ($form->{"id_$i"}, $accno_id,
360                       '$form->{datepaid}', $amount * $ml * -1, '0', '1')|;
361           $dbh->do($query) || $form->dberror($query);
362         }
363       }
364
365       $form->{"paid_$i"} =
366         $form->round_amount($form->{"paid_$i"} * $exchangerate, 2);
367
368       $pth->execute($form->{"id_$i"}) || $form->dberror;
369       ($amount) = $pth->fetchrow_array;
370       $pth->finish;
371
372       $amount += $form->{"paid_$i"};
373       
374       # BUG 324
375       if ($form->{arap} eq 'ap') {
376         $paid = "paid = paid + $amount";
377       } else {
378         $paid = "paid = $amount";
379       }
380
381       # update AR/AP transaction
382       $query = qq|UPDATE $form->{arap} set
383       $paid,
384                   datepaid = '$form->{datepaid}'
385                   WHERE id = $form->{"id_$i"}|;
386       $dbh->do($query) || $form->dberror($query);
387     }
388   }
389
390   # record a AR/AP with a payment
391   if ($form->round_amount($paymentamount, 2) > 0) {
392     $form->{invnumber} = "";
393     OP::overpayment("", $myconfig, $form, $dbh, $paymentamount, $ml, 1);
394   }
395
396   if ($form->round_amount($paymentamount, 2) < 0) {
397     $dbh->rollback;
398     $rc = 0;
399   }
400   if ($form->round_amount($paymentamount, 2) == 0) {
401     $rc = $dbh->commit;
402   }
403
404   $dbh->disconnect;
405
406   $main::lxdebug->leave_sub();
407
408   return $rc;
409 }
410
411 1;
412