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
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
|
%if ( $error ) {
% $cgi->param('error', $error);
<% $cgi->redirect(popurl(2). "cust_refund.cgi?". $cgi->query_string ) %>
%} else {
%
% if ( $link eq 'popup' ) {
%
<% header('Refund entered') %>
<SCRIPT TYPE="text/javascript">
window.top.location.reload();
</SCRIPT>
</BODY></HTML>
% } else {
<% $cgi->redirect(popurl(3). "view/cust_main.cgi?custnum=$custnum;show=payment_history") %>
% }
%}
<%init>
die "access denied"
unless $FS::CurrentUser::CurrentUser->access_right('Refund payment')
|| $FS::CurrentUser::CurrentUser->access_right('Post refund');
my $conf = new FS::Conf;
$cgi->param('custnum') =~ /^(\d*)$/ or die "Illegal custnum!";
my $custnum = $1;
my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } )
or die "unknown custnum $custnum";
my $link = $cgi->param('popup') ? 'popup' : '';
my $payby = $cgi->param('payby');
die "access denied"
unless $FS::CurrentUser::CurrentUser->refund_access_right($payby);
$cgi->param('reasonnum') =~ /^(-?\d+)$/ or die "Illegal reasonnum";
my ($reasonnum, $error) = $m->comp('/misc/process/elements/reason');
$cgi->param('reasonnum', $reasonnum) unless $error;
if ( $cgi->param('batch') ) {
$error = "No batch download format configured that allows electronic refunds via batch processing."
unless (FS::pay_batch->can_handle_electronic_refunds && !$error);
}
#die "my error\n".$error;
if ( $error ) {
# do nothing
} elsif ( $payby =~ /^(CARD|CHEK)$/ ) {
my %options = ();
my $bop = $FS::payby::payby2bop{$1};
my %payby2fields = (
'CARD' => [ qw( address1 address2 city county state zip country ) ],
'CHEK' => [ qw( ss paytype paystate stateid stateid_state ) ],
);
my %type = ( 'CARD' => 'credit card',
'CHEK' => 'electronic check (ACH)',
);
my( $cust_pay, $cust_payby, $payinfo, $paycvv, $month, $year, $payname, $paycardtype );
my $paymask = '';
## get cust pay info if paynum exists
if ( $cgi->param('paynum') > 0) {
$cust_pay = qsearchs({
'table' => 'cust_pay',
'hashref' => { 'paynum' => $cgi->param('paynum') },
'select' => 'cust_pay.*, cust_pay_batch.payname ',
'addl_from' => "left join cust_pay_batch on cust_pay_batch.batchnum = cust_pay.batchnum and cust_pay_batch.custnum = $custnum ",
});
}
##
# now run the refund
##
$cgi->param('refund') =~ /^(\d*)(\.\d{2})?$/
or die "illegal refund amount ". $cgi->param('refund');
my $refund = "$1$2";
$cgi->param('paynum') =~ /^(\d*)$/ or die "Illegal paynum!";
my $paynum = $1;
my $paydate = $cgi->param('exp_year'). '-'. $cgi->param('exp_month'). '-01';
if ( $cgi->param('batch') ) {
$paydate = "2037-12-01" unless $paydate;
$error ||= $cust_main->batch_card(
'payby' => $payby,
'amount' => $refund,
#'payinfo' => $payinfo,
#'paydate' => $paydate,
#'payname' => $payname,
'paycode' => 'C',
map { $_ => scalar($cgi->param($_)) }
@{$payby2fields{$payby}}
);
errorpage($error) if $error;
my %hash = map {
$_, scalar($cgi->param($_))
} fields('cust_refund');
$hash{'payinfo'} = $cust_main->payinfo;
$hash{'paymask'} = $cust_main->paymask;
$hash{'paycardtype'} = $cust_main->paycardtype;
## unapply payment before creating refund.
while ( $cust_pay && $cust_pay->unapplied < $refund ) {
my @cust_bill_pay = $cust_pay->cust_bill_pay;
last unless @cust_bill_pay;
my $cust_bill_pay = pop @cust_bill_pay;
my $error = $cust_bill_pay->delete;
last if $error;
}
my $new = new FS::cust_refund ( { 'paynum' => $paynum,
%hash,
} );
$error = $new->insert;
# if not a batch refund run realtime.
} else {
$options{'paydate'} = $paydate if $paydate =~ /^\d{2,4}-\d{1,2}-01$/;
$error = $cust_main->realtime_refund_bop( $bop, 'amount' => $refund,
'paynum' => $paynum,
'reasonnum' => $reasonnum,
%options );
}
} else { # run cash refund.
my %hash = map {
$_, scalar($cgi->param($_))
} fields('cust_refund');
my $paynum = $cgi->param('paynum');
$paynum =~ /^(\d*)$/ or die "Illegal paynum!";
if ($paynum) {
my $cust_pay = qsearchs('cust_pay',{ 'paynum' => $paynum });
die "Could not find paynum $paynum" unless $cust_pay;
$error = $cust_pay->refund(\%hash);
} else {
my $new = new FS::cust_refund ( \%hash );
$error = $new->insert;
}
}
</%init>
|
