httemplate/edit/cust_credit_bill.cgi

   1 <%
   2 #<!-- $Id: cust_credit_bill.cgi,v 1.1 2001-09-01 21:52:20 jeff Exp $ -->
   3
   4 use strict;
   5 use vars qw( $cgi $query $custnum $invnum $otaker $p1 $crednum $_date $amount $reason $cust_credit );
   6 use Date::Format;
   7 use CGI;
   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);
  12 use FS::cust_credit;
  13 use FS::cust_bill;
  14
  15
  16 $cgi = new CGI;
  17 cgisuidsetup($cgi);
  18
  19 if ( $cgi->param('error') ) {
  20   #$cust_credit_bill = new FS::cust_credit_bill ( {
  21   #  map { $_, scalar($cgi->param($_)) } fields('cust_credit_bill')
  22   #} );
  23   $crednum = $cgi->param('crednum');
  24   $amount = $cgi->param('amount');
  25   #$refund = $cgi->param('refund');
  26   $invnum = $cgi->param('invnum');
  27 } else {
  28   ($query) = $cgi->keywords;
  29   $query =~ /^(\d+)$/;
  30   $crednum = $1;
  31   $amount = '';
  32   #$refund = 'yes';
  33   $invnum = '';
  34 }
  35 $_date = time;
  36
  37 $otaker = getotaker;
  38
  39 $p1 = popurl(1);
  40
  41 print $cgi->header( '-expires' => 'now' ), header("Apply Credit", '');
  42 print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !, $cgi->param('error'),
  43       "</FONT>"
  44   if $cgi->param('error');
  45 print <<END;
  46     <FORM ACTION="${p1}process/cust_credit_bill.cgi" METHOD=POST>
  47     <PRE>
  48 END
  49
  50 die unless $cust_credit = qsearchs('cust_credit', { 'crednum' => $crednum } );
  51
  52 print qq!Credit #<B>!, $crednum, qq!</B><INPUT TYPE="hidden" NAME="crednum" VALUE="$crednum">!;
  53
  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!)!;
  58 }
  59 print qq!<OPTION VALUE="Refund">Refund!;
  60 print "</SELECT>";
  61
  62 print qq!\nDate: <B>!, time2str("%D",$_date), qq!</B><INPUT TYPE="hidden" NAME="_date" VALUE="">!;
  63
  64 print qq!\nAmount \$<INPUT TYPE="text" NAME="amount" VALUE="$amount" SIZE=8 MAXLENGTH=8>!;
  65
  66 #print qq! <INPUT TYPE="checkbox" NAME="refund" VALUE="$refund">Also post refund!;
  67
  68 print <<END;
  69 </PRE>
  70 <BR>
  71 <CENTER><INPUT TYPE="submit" VALUE="Post"></CENTER>
  72 END
  73
  74 print <<END;
  75
  76     </FORM>
  77   </BODY>
  78 </HTML>
  79 END
  80
  81 %>