1 <& /elements/header.html, mt('Credit application report') &>
3 <FORM ACTION="cust_credit_bill_pkg.html" METHOD="GET">
4 <!--<INPUT TYPE="hidden" NAME="magic" VALUE="_date">-->
6 <TABLE BGCOLOR="#cccccc" CELLSPACING=0>
8 <& /elements/tr-select-user.html,
9 'label' => emt('Employee: '),
10 'access_user' => \%access_user,
13 <& /elements/tr-select-agent.html,
14 curr_value => scalar( $cgi->param('agentnum') ),
15 #label => emt('Line items for agent: '),
20 <& /elements/tr-select-cust_main-status.html,
21 label => emt('Customer status'),
26 <& /elements/tr-select-cust_class.html,
27 'label' => emt('Class'),
29 'pre_options' => [ '' => emt('(none)') ],
34 <!-- some sort of label saying this is the credit date... -->
35 <& /elements/tr-input-beginning_ending.html,
39 <& /elements/tr-input-lessthan_greaterthan.html,
40 label => emt('Amount'),
44 <!-- customer payment method i guess
45 <& /elements/tr-select-payby.html,
46 label => emt('Payment method:'),
55 <TD ALIGN="right"><INPUT TYPE="checkbox" NAME="nottax" VALUE="Y" onClick="nottax_changed(this)" onChange="nottax_change(thid)"></TD>
56 <TD><% mt('Omit taxes') |h %></TD>
60 <TD ALIGN="right"><INPUT TYPE="checkbox" NAME="istax" VALUE="Y" onClick="istax_changed(this)" onChange="istax_change(thid)"></TD>
61 <TD><% mt('Taxes only') |h %></TD>
64 <SCRIPT TYPE="text/javascript">
65 function nottax_changed (what) {
66 if (what.checked && what.form.istax.checked) {
67 what.form.istax.checked = false;
70 function istax_changed (what) {
71 if (what.checked && what.form.nottax.checked) {
72 what.form.nottax.checked = false;
81 <INPUT TYPE="submit" VALUE="<% mt('Get Report') |h %>">
85 <& /elements/footer.html &>
90 unless $FS::CurrentUser::CurrentUser->access_right('Financial reports');
92 #false laziness w/report_cust_credit.html
93 my $sth = dbh->prepare("SELECT DISTINCT usernum FROM cust_credit")
95 $sth->execute or die $sth->errstr;
96 my @usernum = map $_->[0], @{$sth->fetchall_arrayref};
98 map { $_ => qsearchs('access_user',{'usernum'=>$_})->username }
101 my $conf = new FS::Conf;