quick payment entry improvements, RT8121
[freeside.git] / httemplate / misc / batch-cust_pay.html
1 <% include('/elements/header.html', 'Quick payment entry') %>
2
3 <% include('/elements/error.html') %>
4
5 <SCRIPT TYPE="text/javascript">
6 function warnUnload() {
7   if(document.getElementById("OneTrueTable").rows.length > 3 &&
8      !document.OneTrueForm.submit.disabled) {
9     return "The current batch will be lost.";
10   }
11   else {
12     return null;
13   }
14 }
15 window.onbeforeunload = warnUnload;
16
17 function select_discount_term(row, prefix) {
18   var custnum_obj = document.getElementById('custnum'+prefix+row);
19   var select_obj = document.getElementById('discount_term'+prefix+row);
20
21   var value = '';
22   if (select_obj.type == 'hidden') {
23     value = select_obj.value;
24   }
25
26   var term_select = document.createElement('SELECT');
27   term_select.setAttribute('name', 'discount_term'+row);
28   term_select.setAttribute('id',   'discount_term'+row);
29   term_select.setAttribute('rownum', row);
30   term_select.style.display = '';
31   select_obj.parentNode.replaceChild(term_select, select_obj);
32   opt(term_select, '', '1 month');
33   
34   function select_discount_term_update(discount_terms) {
35
36     var termArray = eval('(' + discount_terms + ')');
37     for ( var t = 0; t < termArray.length; t++ ) {
38       opt(term_select, termArray[t][0], termArray[t][1]);
39       if (termArray[t][0] == value) {
40         term_select.selectedIndex = t+1;
41       }
42     }
43
44   }
45
46   discount_terms(custnum_obj.value, select_discount_term_update);
47
48 }
49 </SCRIPT>
50
51 <% include('/elements/xmlhttp.html',
52               'url'  => $p. 'misc/xmlhttp-cust_main-discount_terms.cgi',
53               'subs' => [qw( discount_terms )],
54            )
55 %>
56
57 <FORM ACTION="process/batch-cust_pay.cgi" NAME="OneTrueForm" METHOD="POST" onsubmit="document.OneTrueForm.submit.disabled=true;window.onbeforeunload = null;">
58
59 <!-- <B>Batch</B> <INPUT TYPE="text" NAME="paybatch"><BR><BR> -->
60
61 <% include( "/elements/customer-table.html",
62               name_singular => 'payment',
63               header  => \@header,
64               fields  => \@fields,
65               types   => \@types,
66               align   => \@align,
67               sizes   => \@sizes,
68               colors  => \@colors,
69               param   => \%param,
70               footer  => \@footer,
71               footer_align => \@footer_align,
72               custnum_update_callback => $custnum_update_callback,
73           )
74 %>
75
76 <!-- <BR>
77 <INPUT TYPE="button" VALUE="TEST addrow" onclick="addRow()"> -->
78
79 <BR>
80 <INPUT TYPE="submit" NAME="submit" VALUE="Post payment batch">
81
82 </FORM>
83
84 %if ( $cgi->param('error') ) {
85 <SCRIPT TYPE="text/javascript">
86 %  for ( my $row = 0; defined($cgi->param("custnum$row")); $row++ ) {
87      select_discount_term(<% $row %>, '');
88 %  }
89 </SCRIPT>
90 %}
91
92 <% include('/elements/footer.html') %>
93
94 <%init>
95
96 die "access denied"
97   unless $FS::CurrentUser::CurrentUser->access_right('Post payment batch');
98
99 my $conf = new FS::Conf;
100 my $money_char = $conf->config('money_char') || '$';
101
102 my @header  = ( '', 'Amount', 'Check #' );
103 my @fields  = ( sub { "$money_char" }, 'paid', 'payinfo' );
104 my @types   = ( 'immutable', '', '' );
105 my @align   = ( 'c', 'r', 'r' );
106 my @sizes   = ( 0, 8, 10 );
107 my @colors  = ( '', '', '' );
108 my %param   = ();
109 my @footer  = ( "$money_char", '_TOTAL', '' );
110 my @footer_align = ( 'c', 'r', 'r' );
111 my $custnum_update_callback = '';
112
113 if ( FS::Record->scalar_sql('SELECT COUNT(*) FROM part_pkg_discount') ) {
114   push @header, '';
115   push @fields, 'discount_term';
116   push @types, 'immutable';
117   push @align, 'r';
118   push @sizes, '0';
119   push @colors, '';
120   push @footer, '';
121   push @footer_align, '';
122   $custnum_update_callback = 'select_discount_term';
123 }
124
125 push @header, '';
126 push @fields, 'error';
127 push @types, 'immutable';
128 push @align, 'l';
129 push @sizes, '0';
130 push @colors, '#ff0000';
131 push @footer, '';
132 push @footer_align, '';
133
134 $m->comp('/elements/handle_uri_query');
135
136 </%init>