<TR>
<TD ALIGN="right">For </TD>
<TD>
- <SELECT NAME="payby">
+ <SELECT NAME="payby" <% $hashref->{eventpart} ? '' : 'MULTIPLE SIZE=7'%>>
% tie my %payby, 'Tie::IxHash', FS::payby->cust_payby2longname;
% foreach my $payby ( keys %payby ) {
-%
-
-
<OPTION VALUE="<% $payby %>"<% ($part_bill_event->payby eq $payby) ? ' SELECTED' : '' %>><% $payby{$payby} %></OPTION>
% }
-
-
</SELECT> customers
</TD>
</TR>
%if ( $conf->exists('enable_taxclasses') ) {
% $late_taxclass =
% '<BR>Taxclass '.
-% include('/elements/select-taxclass.html', '%%%late_taxclass%%%',
+% include('/elements/select-taxclass.html',
+% 'curr_value' => '%%%late_taxclass%%%',
% 'name' => 'late_taxclass' );
% $late_percent_taxclass =
% '<BR>Taxclass '.
-% include('/elements/select-taxclass.html', '%%%late_percent_taxclass%%%',
+% include('/elements/select-taxclass.html',
+% 'curr_value' => '%%%late_percent_taxclass%%%',
% 'name' => 'late_percent_taxclass' );
%}
%
%
% 'send_agent' => {
% 'name' => 'Send invoice (email/print/fax) ',
-% 'code' => '$cust_bill->send(\'%%%agent_templatename%%%\', [ %%%agentnum%%% ], \'%%%agent_invoice_from%%%\');',
+% 'code' => '$cust_bill->send( \'%%%agent_templatename%%%\',
+% [ %%%agentnum%%% ],
+% \'%%%agent_invoice_from%%%\',
+% %%%agent_balanceover%%%
+% );',
% 'html' => sub {
% '<TABLE BORDER=0>
% <TR>
% <INPUT TYPE="text" NAME="agent_invoice_from" VALUE="%%%agent_invoice_from%%%">
% </TD>
% </TR>
+% <TR>
+% <TD ALIGN="right">if balance (this invoice and previous) over
+% </TD>
+% <TD>
+% '. $money_char. '<INPUT TYPE="text" SIZE="7" NAME="agent_balanceover" VALUE="%%%agent_balanceover%%%">
+% </TD>
+% </TR>
% </TABLE>';
% },
% 'weight' => 50,
% 'weight' => 70,
% },
%
-% 'collect' => {
-% 'name' => 'Collect on invoices (normally only used with a <i>Late Fee</i> and <i>Generate Invoice</i> events)',
-% 'code' => '$cust_main->collect();',
-% 'weight' => 80,
-% },
-%
%;
%
<SCRIPT TYPE="text/javascript">var myreasons = new Array();</SCRIPT>
% print '<TD>'. $html. '</TD>' if $html;
% print qq!</TR>!;
% print '</TABLE>';
+% print qq!<HR WIDTH="90%">!;
%}
%
% if ($currentreasonclass eq 'C'){