voiding of echeck payments instead of refunds

1 files changed, 32 insertions, 0 deletions

diff --git a/httemplate/view/cust_main/quick-charge.html b/httemplate/view/cust_main/quick-charge.html
new file mode 100644
index 000000000..e62949e56
--- /dev/null
+++ b/httemplate/view/cust_main/quick-charge.html
@@ -0,0 +1,32 @@
+<%
+  my( $cust_main ) = @_;
+  my $conf = new FS::Conf;
+%>
+
+<FORM ACTION="${p}edit/process/quick-charge.cgi" METHOD="POST">
+<INPUT TYPE="hidden" NAME="custnum" VALUE="<%= $cust_main->custnum %>">
+Description:<INPUT TYPE="text" NAME="pkg">
+&nbsp;Amount:<INPUT TYPE="text" NAME="amount" SIZE=6>
+&nbsp;<% 
+  
+  #false laziness w/ edit/part_pkg.cgi
+  if ( $conf->exists('enable_taxclasses') ) {
+    print '<SELECT NAME="taxclass">';
+    my $sth = dbh->prepare('SELECT DISTINCT taxclass FROM cust_main_county')
+      or die dbh->errstr;
+    $sth->execute or die $sth->errstr;
+    foreach my $taxclass ( map $_->[0], @{$sth->fetchall_arrayref} ) {
+      print qq!<OPTION VALUE="$taxclass"!;
+      #print ' SELECTED' if $taxclass eq $hashref->{taxclass};
+      print qq!>$taxclass</OPTION>!;
+    }
+    print '</SELECT>';
+  } else {
+    print '<INPUT TYPE="hidden" NAME="taxclass" VALUE="">';
+  }
+
+%>
+  
+<INPUT TYPE="submit" VALUE="One-time charge">
+</FORM>
+