httemplate/edit/quick-charge.html

   1 <& /elements/header-popup.html, mt('One-time charge'), '',
   2             ( $cgi->param('error') ? '' : 'onload="addRow()"' ),
   3 &>
   4
   5 <LINK REL="stylesheet" TYPE="text/css" HREF="<%$fsurl%>elements/calendar-win2k-2.css" TITLE="win2k-2">
   6 <SCRIPT TYPE="text/javascript" SRC="<%$fsurl%>elements/calendar_stripped.js"></SCRIPT>
   7 <SCRIPT TYPE="text/javascript" SRC="<%$fsurl%>elements/calendar-en.js"></SCRIPT>
   8 <SCRIPT TYPE="text/javascript" SRC="<%$fsurl%>elements/calendar-setup.js"></SCRIPT>
   9
  10 <& /elements/error.html &>
  11
  12 <SCRIPT TYPE="text/javascript">
  13
  14 function enable_quick_charge () {
  15   if (    document.QuickChargeForm.amount.value
  16        && document.QuickChargeForm.pkg.value    ) {
  17     document.QuickChargeForm.submit.disabled = false;
  18   } else {
  19     document.QuickChargeForm.submit.disabled = true;
  20   }
  21 }
  22
  23 function validate_quick_charge () {
  24   var pkg = document.QuickChargeForm.pkg.value;
  25   var pkg_regex = /^([\w \!\@\#\$\%\&\(\)\-\+\;\:\'\"\,\.\?\/\=\[\]]*)$/ ;
  26   var amount = document.QuickChargeForm.amount.value;
  27   var amount_regex = /^\s*\$?\s*(\d*(\.?\d{1,2}))\s*$/ ;
  28   var rval = true;
  29
  30   if ( ! amount_regex.test(amount) ) {
  31     alert('Illegal amount - enter an amount to charge, for example, "5" or "43" or "21.46".');
  32     return false;
  33   }
  34   if ( String(pkg).length < 1 ) {
  35     rval = false;
  36   }
  37   if ( ! pkg_regex.test(pkg) ) {
  38     rval = false;
  39   }
  40   var i=0;
  41   for (i=0; i < rownum; i++) {
  42     if (! eval('pkg_regex.test(document.QuickChargeForm.description' + i + '.value)')){
  43       rval = false;
  44       break;
  45     }
  46   }
  47   if (rval == true) {
  48     return true;
  49   }
  50
  51   if ( ! pkg ) {
  52     alert('Enter a description for the one-time charge');
  53     return false;
  54   }
  55
  56   alert('Illegal description - spaces, letters, numbers, and the following punctuation characters are allowed: . , ! ? @ # $ % & ( ) - + ; : ' + "'" + ' " = [ ]' );
  57   return false;
  58 }
  59
  60 function bill_now_changed (what) {
  61   var form = what.form;
  62   if ( what.checked ) {
  63     form.start_date_text.disabled = true;
  64     form.start_date.style.backgroundColor = '#dddddd';
  65     form.start_date_button.style.display = 'none';
  66     form.start_date_button_disabled.style.display = '';
  67     form.invoice_terms.disabled = false;
  68   } else {
  69     form.start_date_text.disabled = false;
  70     form.start_date.style.backgroundColor = '#ffffff';
  71     form.start_date_button.style.display = '';
  72     form.start_date_button_disabled.style.display = 'none';
  73     form.invoice_terms.disabled = true;
  74   }
  75 }
  76
  77 </SCRIPT>
  78
  79 <FORM ACTION="process/quick-charge.cgi" NAME="QuickChargeForm" ID="QuickChargeForm" METHOD="POST" onsubmit="document.QuickChargeForm.submit.disabled=true;return validate_quick_charge();">
  80
  81 <INPUT TYPE="hidden" NAME="custnum" VALUE="<% $custnum %>">
  82
  83 <TABLE ID="QuickChargeTable" BGCOLOR="#cccccc" BORDER=0 CELLSPACING=0 STYLE="background-color: #cccccc">
  84
  85 <TR>
  86   <TD ALIGN="right"><% mt('Amount') |h %> </TD>
  87   <TD>
  88     <% $money_char %><INPUT TYPE="text" NAME="amount" SIZE=6 VALUE="<% $amount %>" onChange="enable_quick_charge()" onKeyPress="enable_quick_charge()">
  89   </TD>
  90 </TR>
  91
  92 % if ( $conf->exists('invoice-unitprice') ) {
  93     <TR>
  94       <TD ALIGN="right"><% mt('Quantity') |h %> </TD>
  95       <TD>
  96         <INPUT TYPE="text" NAME="quantity" SIZE=4 VALUE="<% $quantity %>">
  97       </TD>
  98     </TR>
  99 % }
 100
 101 <& /elements/tr-select-pkg_class.html, 'curr_value' => $cgi->param('classnum')  &>
 102
 103 <TR>
 104   <TD ALIGN="right"><% mt('Invoice now') |h %></TD>
 105   <TD>
 106     <INPUT TYPE  = "checkbox"
 107            NAME  = "bill_now"
 108            VALUE = "1"
 109            <% $cgi->param('bill_now') ? 'CHECKED' : '' %>
 110            onChange = "bill_now_changed(this);"
 111     >
 112     <% mt('with terms') |h %>
 113     <& /elements/select-terms.html,
 114                  'curr_value'  => scalar($cgi->param('invoice_terms')),
 115                  'empty_value' => $default_terms,
 116                  'disabled'    => ( $cgi->param('bill_now') ? 0 : 1 ),
 117     &>
 118   </TD>
 119 </TR>
 120
 121 %# false laziness w/misc/order_pkg.html
 122 <TR>
 123   <TD ALIGN="right"><% mt('Charge date') |h %> </TD>
 124   <TD>
 125     <INPUT TYPE  = "text"
 126            NAME  = "start_date"
 127            SIZE  = 32
 128            ID    = "start_date_text"
 129            VALUE = "<% $start_date %>"
 130            <% $cgi->param('bill_now') ? 'STYLE = "background-color:#dddddd" DISABLED' : '' %>
 131     >
 132     <IMG SRC   = "<%$fsurl%>images/calendar.png"
 133          ID    = "start_date_button"
 134          TITLE = "<% mt('Select date') |h %>"
 135          STYLE = "cursor:pointer<% $cgi->param('bill_now') ? ';display:none' : '' %>"
 136     >
 137     <IMG SRC   = "<%$fsurl%>images/calendar-disabled.png"
 138          ID    = "start_date_button_disabled"
 139          <% $cgi->param('bill_now') ? '' : 'STYLE="display:none"' %>
 140     >
 141     <FONT SIZE=-1>(<% mt('leave blank to charge immediately') |h %>)</FONT>
 142   </TD>
 143 </TR>
 144
 145 <SCRIPT TYPE="text/javascript">
 146   Calendar.setup({
 147     inputField: "start_date_text",
 148     ifFormat:   "<% $date_format %>",
 149     button:     "start_date_button",
 150     align:      "BR"
 151   });
 152 </SCRIPT>
 153
 154 % if ( $cust_main->payby =~ /^(CARD|CHEK)$/ ) {
 155 %   my $what = lc(FS::payby->shortname($cust_main->payby));
 156     <TR>
 157       <TD ALIGN="right"><% mt("Disable automatic $what charge") |h %> </TD>
 158       <TD COLSPAN=6><INPUT TYPE="checkbox" NAME="no_auto" VALUE="Y"></TD>
 159     </TR>
 160 % }
 161
 162 <TR>
 163   <TD ALIGN="right"><% mt('Tax exempt') |h %> </TD>
 164   <TD><INPUT TYPE="checkbox" NAME="setuptax" VALUE="Y" <% $cgi->param('setuptax') ? 'CHECKED' : '' %>></TD>
 165 </TR>
 166
 167 <& /elements/tr-select-taxclass.html, 'curr_value' => $cgi->param('taxclass')  &>
 168
 169 <& /elements/tr-select-taxproduct.html, 'label' => emt('Tax product'), 'onclick' => 'parent.taxproductmagic(this);', 'curr_value' => $cgi->param('taxproductnum')  &>
 170
 171 <& /elements/tr-select-taxoverride.html, 'onclick' => 'parent.taxoverridemagic(this);', 'curr_value' => $cgi->param('tax_override')  &>
 172
 173 <TR>
 174   <TD ALIGN="right"><% mt('Description') |h %> </TD>
 175   <TD>
 176     <INPUT TYPE="text" NAME="pkg" SIZE="50" MAXLENGTH="50" VALUE="<% $pkg %>" onChange="enable_quick_charge()" onKeyPress="enable_quick_charge()">
 177   </TD>
 178 </TR>
 179
 180 <TR>
 181   <TD></TD>
 182   <TD><FONT SIZE="-1"><% mt('Optional additional description (also printed on invoice):') |h %> </FONT></TD>
 183 </TR>
 184
 185 % my $row = 0;
 186 %   if ( $cgi->param('error') || $cgi->param('magic') ) {
 187 %     my $param = $cgi->Vars;
 188 %
 189 % for ( $row = 0; exists($param->{"description$row"}); $row++ ) {
 190
 191     <TR>
 192       <TD></TD>
 193       <TD>
 194         <INPUT TYPE="text" NAME="description<% $row %>" SIZE="60" MAXLENGTH="65" VALUE="<% $param->{"description$row"} |h %>" rownum="<% $row %>" onkeyup = "possiblyAddRow;" >
 195       </TD>
 196     </TR>
 197 % }
 198 % }
 199
 200
 201 </TABLE>
 202
 203 <BR>
 204 <INPUT TYPE="submit" ID="submit" NAME="submit" VALUE="<% mt('Add one-time charge') |h %>" <% $cgi->param('error') ? '' :' DISABLED' %>>
 205
 206 </FORM>
 207
 208
 209 <SCRIPT TYPE="text/javascript">
 210
 211   var rownum = <% $row %>;
 212
 213   function possiblyAddRow() {
 214     if ( ( rownum - this.getAttribute('rownum') ) == 1 ) {
 215       addRow();
 216     }
 217   }
 218
 219   function addRow() {
 220
 221     var table = document.getElementById('QuickChargeTable');
 222     var tablebody = table.getElementsByTagName('tbody').item(0);
 223
 224     var row = document.createElement('TR');
 225
 226     var empty_cell = document.createElement('TD');
 227     row.appendChild(empty_cell);
 228
 229     var description_cell = document.createElement('TD');
 230
 231       var description_input = document.createElement('INPUT');
 232       description_input.setAttribute('name', 'description'+rownum);
 233       description_input.setAttribute('id',   'description'+rownum);
 234       description_input.setAttribute('size', 60);
 235       description_input.setAttribute('maxLength', 65);
 236       description_input.setAttribute('rownum',   rownum);
 237       description_input.onkeyup = possiblyAddRow;
 238       description_cell.appendChild(description_input);
 239
 240     row.appendChild(description_cell);
 241
 242     tablebody.appendChild(row);
 243
 244     rownum++;
 245
 246   }
 247
 248 </SCRIPT>
 249
 250 </BODY>
 251 </HTML>
 252 <%init>
 253
 254 die "access denied"
 255   unless $FS::CurrentUser::CurrentUser->access_right('One-time charge');
 256
 257 my $conf = new FS::Conf;
 258 my $date_format = $conf->config('date_format') || '%m/%d/%Y';
 259 my $money_char = $conf->config('money_char') || '$';
 260
 261 $cgi->param('custnum') =~ /^(\d+)$/ or die 'illegal custnum';
 262 my $custnum = $1;
 263 my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } ); #XXX agent-virt
 264
 265 my $format = "%m/%d/%Y %T %z (%Z)"; #false laziness w/REAL_cust_pkg.cgi?
 266 my $start_date = $cust_main->next_bill_date;
 267 $start_date = $start_date ? time2str($format, $start_date) : '';
 268
 269 my $amount = '';
 270 if ( $cgi->param('amount') =~ /^\s*\$?\s*(\d+(\.\d{1,2})?)\s*$/ ) {
 271   $amount = $1;
 272 }
 273
 274 my $quantity = 1;
 275 if ( $cgi->param('quantity') =~ /^\s*(\d+)\s*$/ ) {
 276   $quantity = $1;
 277 }
 278
 279 $cgi->param('pkg') =~ /^([\w \!\@\#\$\%\&\(\)\-\+\;\:\'\"\,\.\?\/\=\[\]]*)$/
 280   or die 'illegal description';
 281 my $pkg = $1;
 282
 283 my $default_terms;
 284 if ( $cust_main->invoice_terms ) {
 285   $default_terms = emt("Customer default ([_1])", $cust_main->invoice_terms);
 286 } else {
 287   $default_terms = emt("Default ([_1])",
 288             ($conf->config('invoice_default_terms') || emt('Payable upon receipt'))
 289                       );
 290 }
 291
 292 </%init>