1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
#=====================================================================
# SQL-Ledger Accounting
# Copyright (C) 2003
#
# Author: Dieter Simader
# Email: dsimader@sql-ledger.org
# Web: http://www.sql-ledger.org
#
# Contributors:
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
#======================================================================
#
# Overpayment function
# used in AR, AP, IS, IR, OE, CP
#
#======================================================================
package OP;
sub overpayment {
my ($self, $myconfig, $form, $dbh, $amount, $ml) = @_;
my $fxamount = $form->round_amount($amount * $form->{exchangerate}, 2);
my ($paymentaccno) = split /--/, $form->{account};
my $vc_id = "$form->{vc}_id";
my $uid = time;
$uid .= $form->{login};
# add AR/AP header transaction with a payment
$query = qq|INSERT INTO $form->{arap} (invnumber, employee_id)
VALUES ('$uid', (SELECT id FROM employee
WHERE login = '$form->{login}'))|;
$dbh->do($query) || $form->dberror($query);
$query = qq|SELECT id FROM $form->{arap}
WHERE invnumber = '$uid'|;
$sth = $dbh->prepare($query);
$sth->execute || $form->dberror($query);
($uid) = $sth->fetchrow_array;
$sth->finish;
my $invnumber = $form->{invnumber};
if (! $invnumber) {
$invnumber = $form->update_defaults($myconfig, ($form->{arap} eq 'ar') ? "sinumber" : "vinumber", $dbh);
}
$query = qq|UPDATE $form->{arap} set
invnumber = |.$dbh->quote($invnumber).qq|,
$vc_id = $form->{"$form->{vc}_id"},
transdate = '$form->{datepaid}',
datepaid = '$form->{datepaid}',
duedate = '$form->{datepaid}',
netamount = 0,
amount = 0,
paid = $fxamount,
curr = '$form->{currency}',
department_id = $form->{department_id}
WHERE id = $uid|;
$dbh->do($query) || $form->dberror($query);
# add AR/AP
($accno) = split /--/, $form->{$form->{ARAP}};
$query = qq|INSERT INTO acc_trans (trans_id, chart_id, transdate, amount)
VALUES ($uid, (SELECT id FROM chart
WHERE accno = '$accno'),
'$form->{datepaid}', $fxamount * $ml)|;
$dbh->do($query) || $form->dberror($query);
# add payment
$query = qq|INSERT INTO acc_trans (trans_id, chart_id, transdate,
amount, source, memo)
VALUES ($uid, (SELECT id FROM chart
WHERE accno = '$paymentaccno'),
'$form->{datepaid}', $amount * $ml * -1, |
.$dbh->quote($form->{source}).qq|, |
.$dbh->quote($form->{memo}).qq|)|;
$dbh->do($query) || $form->dberror($query);
# add exchangerate difference
if ($fxamount != $amount) {
$query = qq|INSERT INTO acc_trans (trans_id, chart_id, transdate,
amount, cleared, fx_transaction)
VALUES ($uid, (SELECT id FROM chart
WHERE accno = '$paymentaccno'),
'$form->{datepaid}', ($fxamount - $amount) * $ml * -1,
'1', '1')|;
$dbh->do($query) || $form->dberror($query);
}
my %audittrail = ( tablename => $form->{arap},
reference => $invnumber,
formname => ($form->{arap} eq 'ar') ? 'deposit' : 'pre-payment',
action => 'posted',
id => $uid );
$form->audittrail($dbh, "", \%audittrail);
}
1;
|