httemplate/edit/cust_credit_bill.cgi

   1 <%
   2 #<!-- $Id: cust_credit_bill.cgi,v 1.5 2001-10-30 14:54:07 ivan Exp $ -->
   3
   4 use strict;
   5 use vars qw( $cgi $query $custnum $invnum $otaker $p1 $crednum $amount $reason $cust_credit );
   6 use Date::Format;
   7 use CGI;
   8 use CGI::Carp qw(fatalsToBrowser);
   9 use Date::Format;
  10 use FS::UID qw(cgisuidsetup getotaker);
  11 use FS::CGI qw(header popurl);
  12 use FS::Record qw(qsearch fields);
  13 use FS::cust_credit;
  14 use FS::cust_bill;
  15
  16
  17 $cgi = new CGI;
  18 cgisuidsetup($cgi);
  19
  20 if ( $cgi->param('error') ) {
  21   #$cust_credit_bill = new FS::cust_credit_bill ( {
  22   #  map { $_, scalar($cgi->param($_)) } fields('cust_credit_bill')
  23   #} );
  24   $crednum = $cgi->param('crednum');
  25   $amount = $cgi->param('amount');
  26   #$refund = $cgi->param('refund');
  27   $invnum = $cgi->param('invnum');
  28 } else {
  29   ($query) = $cgi->keywords;
  30   $query =~ /^(\d+)$/;
  31   $crednum = $1;
  32   $amount = '';
  33   #$refund = 'yes';
  34   $invnum = '';
  35 }
  36
  37 $otaker = getotaker;
  38
  39 $p1 = popurl(1);
  40
  41 print header("Apply Credit", '');
  42 print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !, $cgi->param('error'),
  43       "</FONT><BR><BR>"
  44   if $cgi->param('error');
  45 print <<END;
  46     <FORM ACTION="${p1}process/cust_credit_bill.cgi" METHOD=POST>
  47 END
  48
  49 die unless $cust_credit = qsearchs('cust_credit', { 'crednum' => $crednum } );
  50
  51 my $credited = $cust_credit->credited;
  52
  53 print "Credit # <B>$crednum</B>".
  54       qq!<INPUT TYPE="hidden" NAME="crednum" VALUE="$crednum">!.
  55       '<BR>Date: <B>'. time2str("%D", $cust_credit->_date). '</B>'.
  56       '<BR>Amount: $<B>'. $cust_credit->amount. '</B>'.
  57       "<BR>Unapplied amount: \$<B>$credited</B>".
  58       '<BR>Reason: <B>'. $cust_credit->reason. '</B>'
  59       ;
  60
  61 my @cust_bill = grep $_->owed != 0,
  62                 qsearch('cust_bill', { 'custnum' => $cust_credit->custnum } );
  63
  64 print <<END;
  65 <SCRIPT>
  66 function changed(what) {
  67   cust_bill = what.options[what.selectedIndex].value;
  68 END
  69
  70 foreach my $cust_bill ( @cust_bill ) {
  71   my $invnum = $cust_bill->invnum;
  72   my $changeto = $cust_bill->owed < $cust_credit->credited
  73                    ? $cust_bill->owed
  74                    : $cust_credit->credited;
  75   print <<END;
  76   if ( cust_bill == $invnum ) {
  77     what.form.amount.value = "$changeto";
  78   }
  79 END
  80 }
  81
  82 print <<END;
  83   if ( cust_bill == "Refund" ) {
  84     what.form.amount.value = "$credited";
  85   }
  86 }
  87 </SCRIPT>
  88 END
  89
  90 print qq!<BR>Invoice #<SELECT NAME="invnum" SIZE=1 onChange="changed(this)">!,
  91       '<OPTION VALUE="">';
  92 foreach my $cust_bill ( @cust_bill ) {
  93   print '<OPTION'. ( $cust_bill->invnum eq $invnum ? ' SELECTED' : '' ).
  94         ' VALUE="'. $cust_bill->invnum. '">'. $cust_bill->invnum.
  95         ' -  '. time2str("%D",$cust_bill->_date).
  96         ' - $'. $cust_bill->owed;
  97 }
  98 print qq!<OPTION VALUE="Refund">Refund!;
  99 print "</SELECT>";
 100
 101 print qq!<BR>Amount \$<INPUT TYPE="text" NAME="amount" VALUE="$amount" SIZE=8 MAXLENGTH=8>!;
 102
 103 print <<END;
 104 <BR>
 105 <INPUT TYPE="submit" VALUE="Apply">
 106 END
 107
 108 print <<END;
 109
 110     </FORM>
 111   </BODY>
 112 </HTML>
 113 END
 114
 115 %>