1 #=====================================================================
4 # Based on SQL-Ledger Version 2.1.9
5 # Web http://www.lx-office.org
7 #=====================================================================
8 # SQL-Ledger Accounting
11 # Author: Dieter Simader
12 # Email: dsimader@sql-ledger.org
13 # Web: http://www.sql-ledger.org
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.
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 #======================================================================
31 # Overpayment function
32 # used in AR, AP, IS, IR, OE, CP
33 #======================================================================
40 $main::lxdebug->enter_sub();
42 my ($self, $myconfig, $form, $dbh, $amount, $ml) = @_;
44 my $fxamount = $form->round_amount($amount * $form->{exchangerate}, 2);
45 my ($paymentaccno) = split /--/, $form->{account};
47 my $vc_id = "$form->{vc}_id";
50 $uid .= $form->{login};
52 # add AR/AP header transaction with a payment
53 $query = qq|INSERT INTO $form->{arap} (invnumber, employee_id)
54 VALUES ('$uid', (SELECT e.id FROM employee e
55 WHERE e.login = '$form->{login}'))|;
56 $dbh->do($query) || $form->dberror($query);
58 $query = qq|SELECT a.id FROM $form->{arap} a
59 WHERE a.invnumber = '$uid'|;
60 $sth = $dbh->prepare($query);
61 $sth->execute || $form->dberror($query);
63 ($uid) = $sth->fetchrow_array;
66 my $invnumber = ($form->{invnumber}) ? $form->{invnumber} : $uid;
67 $query = qq|UPDATE $form->{arap} set
68 invnumber = '$invnumber',
69 $vc_id = $form->{"$form->{vc}_id"},
70 transdate = '$form->{datepaid}',
71 datepaid = '$form->{datepaid}',
72 duedate = '$form->{datepaid}',
76 curr = '$form->{currency}',
77 department_id = $form->{department_id}
79 $dbh->do($query) || $form->dberror($query);
82 ($accno) = split /--/, $form->{$form->{ARAP}};
84 $query = qq|INSERT INTO acc_trans (trans_id, chart_id, transdate, amount)
85 VALUES ($uid, (SELECT c.id FROM chart c
86 WHERE c.accno = '$accno'),
87 '$form->{datepaid}', $fxamount * $ml)|;
88 $dbh->do($query) || $form->dberror($query);
91 $query = qq|INSERT INTO acc_trans (trans_id, chart_id, transdate,
93 VALUES ($uid, (SELECT c.id FROM chart c
94 WHERE c.accno = '$paymentaccno'),
95 '$form->{datepaid}', $amount * $ml * -1,
96 '$form->{source}', '$form->{memo}')|;
97 $dbh->do($query) || $form->dberror($query);
99 # add exchangerate difference
100 if ($fxamount != $amount) {
101 $query = qq|INSERT INTO acc_trans (trans_id, chart_id, transdate,
102 amount, cleared, fx_transaction)
103 VALUES ($uid, (SELECT c.id FROM chart c
104 WHERE c.accno = '$paymentaccno'),
105 '$form->{datepaid}', ($fxamount - $amount) * $ml * -1,
107 $dbh->do($query) || $form->dberror($query);
110 $main::lxdebug->leave_sub();