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
|
<%
#<!-- $Id: cust_pay.cgi,v 1.8 2001-12-26 04:25:04 ivan Exp $ -->
use strict;
use vars qw( $cgi $link $linknum $p1 $_date $payby $payinfo $paid );
use Date::Format;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use FS::Conf;
use FS::UID qw(cgisuidsetup);
use FS::CGI qw(header popurl ntable small_custview);
my $conf = new FS::Conf;
$cgi = new CGI;
cgisuidsetup($cgi);
if ( $cgi->param('error') ) {
$link = $cgi->param('link');
$linknum = $cgi->param('linknum');
$paid = $cgi->param('paid');
$payby = $cgi->param('payby');
$payinfo = $cgi->param('payinfo');
} elsif ($cgi->keywords) {
my($query) = $cgi->keywords;
$query =~ /^(\d+)$/;
$link = 'invnum';
$linknum = $1;
$paid = '';
$payby = 'BILL';
$payinfo = "";
} elsif ( $cgi->param('custnum') =~ /^(\d+)$/ ) {
$link = 'custnum';
$linknum = $1;
$paid = '';
$payby = 'BILL';
$payinfo = '';
} else {
die "illegal query ". $cgi->keywords;
}
$_date = time;
$p1 = popurl(1);
print header("Post payment", '');
print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !, $cgi->param('error'),
"</FONT><BR><BR>"
if $cgi->param('error');
print <<END, ntable("#cccccc",2);
<FORM ACTION="${p1}process/cust_pay.cgi" METHOD=POST>
<INPUT TYPE="hidden" NAME="link" VALUE="$link">
<INPUT TYPE="hidden" NAME="linknum" VALUE="$linknum">
END
my $custnum;
if ( $link eq 'invnum' ) {
my $cust_bill = qsearchs('cust_bill', { 'invnum' => $linknum } )
or die "unknown invnum $linknum";
print "Invoice #<B>$linknum</B>". ntable("#cccccc",2).
'<TR><TD ALIGN="right">Date</TD><TD BGCOLOR="#ffffff">'.
time2str("%D", $cust_bill->_date). '</TD></TR>'.
'<TR><TD ALIGN="right" VALIGN="top">Items</TD><TD BGCOLOR="#ffffff">';
foreach ( $cust_bill->cust_bill_pkg ) { #false laziness with FS::cust_bill
if ( $_->pkgnum ) {
my($cust_pkg)=qsearchs('cust_pkg', { 'pkgnum', $_->pkgnum } );
my($part_pkg)=qsearchs('part_pkg',{'pkgpart'=>$cust_pkg->pkgpart});
my($pkg)=$part_pkg->pkg;
if ( $_->setup != 0 ) {
print "$pkg Setup<BR>"; # $money_char. sprintf("%10.2f",$_->setup);
print join('<BR>',
map { " ". $_->[0]. ": ". $_->[1] } $cust_pkg->labels
). '<BR>';
}
if ( $_->recur != 0 ) {
print
"$pkg (" . time2str("%x",$_->sdate) . " - " .
time2str("%x",$_->edate) . ")<BR>";
#$money_char. sprintf("%10.2f",$_->recur)
print join('<BR>',
map { '--->'. $_->[0]. ": ". $_->[1] } $cust_pkg->labels
). '<BR>';
}
} else { #pkgnum Tax
print "Tax<BR>" # $money_char. sprintf("%10.2f",$_->setup)
if $_->setup != 0;
}
}
print '</TD></TR></TABLE>';
$custnum = $cust_bill->custnum;
} elsif ( $link eq 'custnum' ) {
$custnum = $linknum;
}
print small_custview($custnum, $conf->config('countrydefault'));
print qq!<INPUT TYPE="hidden" NAME="_date" VALUE="$_date">!;
print qq!<INPUT TYPE="hidden" NAME="payby" VALUE="$payby">!;
print '<BR><BR>Payment'. ntable("#cccccc", 2).
'<TR><TD ALIGN="right">Date</TD><TD BGCOLOR="#ffffff">'.
time2str("%D",$_date). '</TD></TR>';
print qq!<TR><TD ALIGN="right">Amount</TD><TD BGCOLOR="#ffffff">\$<INPUT TYPE="text" NAME="paid" VALUE="$paid" SIZE=8 MAXLENGTH=8></TD></TR>!;
print qq!<TR><TD ALIGN="right">Payby</TD><TD BGCOLOR="#ffffff">$payby</TD></TR>!;
#payinfo (check # now as payby="BILL" hardcoded.. what to do later?)
print qq!<TR><TD ALIGN="right">Check #</TD><TD BGCOLOR="#ffffff"><INPUT TYPE="text" NAME="payinfo" VALUE="$payinfo"></TD></TR>!;
print qq!<TR><TD ALIGN="right">Auto-apply<BR>to invoices</TD><TD><SELECT NAME="apply"><OPTION VALUE="yes" SELECTED>yes<OPTION>no</SELECT></TD>!;
#paybatch
print qq!<INPUT TYPE="hidden" NAME="paybatch" VALUE="">!;
print <<END;
</TABLE>
<BR>
<INPUT TYPE="submit" VALUE="Post payment">
</FORM>
</BODY>
</HTML>
END
%>
|
