2 #<!-- $Id: cust_credit_bill.cgi,v 1.1 2001-09-01 21:52:20 jeff Exp $ -->
5 use vars qw( $cgi $query $custnum $invnum $otaker $p1 $crednum $_date $amount $reason $cust_credit );
8 use CGI::Carp qw(fatalsToBrowser);
9 use FS::UID qw(cgisuidsetup getotaker);
10 use FS::CGI qw(header popurl);
11 use FS::Record qw(qsearch fields);
19 if ( $cgi->param('error') ) {
20 #$cust_credit_bill = new FS::cust_credit_bill ( {
21 # map { $_, scalar($cgi->param($_)) } fields('cust_credit_bill')
23 $crednum = $cgi->param('crednum');
24 $amount = $cgi->param('amount');
25 #$refund = $cgi->param('refund');
26 $invnum = $cgi->param('invnum');
28 ($query) = $cgi->keywords;
41 print $cgi->header( '-expires' => 'now' ), header("Apply Credit", '');
42 print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !, $cgi->param('error'),
44 if $cgi->param('error');
46 <FORM ACTION="${p1}process/cust_credit_bill.cgi" METHOD=POST>
50 die unless $cust_credit = qsearchs('cust_credit', { 'crednum' => $crednum } );
52 print qq!Credit #<B>!, $crednum, qq!</B><INPUT TYPE="hidden" NAME="crednum" VALUE="$crednum">!;
54 print qq!\nInvoice # <SELECT NAME="invnum" SIZE=1>!;
55 foreach $_ (grep $_->owed, qsearch('cust_bill', { 'custnum' => $cust_credit->custnum } ) ) {
56 print "<OPTION", (($_->invnum eq $invnum) ? " SELECTED" : ""),
57 qq! VALUE="! .$_->invnum. qq!">!. $_->invnum. qq! (! . $_->owed . qq!)!;
59 print qq!<OPTION VALUE="Refund">Refund!;
62 print qq!\nDate: <B>!, time2str("%D",$_date), qq!</B><INPUT TYPE="hidden" NAME="_date" VALUE="">!;
64 print qq!\nAmount \$<INPUT TYPE="text" NAME="amount" VALUE="$amount" SIZE=8 MAXLENGTH=8>!;
66 #print qq! <INPUT TYPE="checkbox" NAME="refund" VALUE="$refund">Also post refund!;
71 <CENTER><INPUT TYPE="submit" VALUE="Post"></CENTER>