1 <& /elements/header.html, mt('Credit package source report') &>
3 <FORM ACTION="cust_credit_source_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'),
28 'field' => 'cust_classnum',
30 'pre_options' => [ '' => emt('(none)') ],
35 <!-- some sort of label saying this is the credit date... -->
36 <& /elements/tr-input-beginning_ending.html,
41 <& /elements/tr-input-lessthan_greaterthan.html,
42 label => emt('Amount'),
47 <!-- customer payment method in a 4.x world? huh. how's that work?
48 <& /elements/tr-select-payby.html,
49 label => emt('Payment method:'),
59 <INPUT TYPE="submit" VALUE="<% mt('Get Report') |h %>">
63 <& /elements/footer.html &>
68 unless $FS::CurrentUser::CurrentUser->access_right('Financial reports');
70 #false laziness w/report_cust_credit.html
71 my $sth = dbh->prepare("SELECT DISTINCT usernum FROM cust_credit")
73 $sth->execute or die $sth->errstr;
74 my @usernum = map $_->[0], @{$sth->fetchall_arrayref};
76 map { $_ => qsearchs('access_user',{'usernum'=>$_})->username }
79 my $conf = new FS::Conf;