httemplate/view/cust_main/billing.html

   1 Billing information
   2 %# If we can't see the unencrypted card, then bill now is an exercise in
   3 %# frustration (without some sort of job queue magic to send it to a secure
   4 %# machine, anyway)
   5 %if (  $FS::CurrentUser::CurrentUser->access_right('Bill customer now')
   6 %      && ! $cust_main->is_encrypted($cust_main->payinfo)
   7 %   ) {
   8   (<A HREF="<% $p %>misc/bill.cgi?<% $cust_main->custnum %>">Bill now</A>)
   9 % }
  10
  11 <% ntable("#cccccc") %><TR><TD><% ntable("#cccccc",2) %>
  12
  13 %( my $balance = $cust_main->balance )
  14 %  =~ s/^(\-?)(.*)$/<FONT SIZE=+1>$1<\/FONT>$money_char$2/;
  15
  16 <TR>
  17   <TD ALIGN="right">Balance due</TD>
  18   <TD BGCOLOR="#ffffff"><B><% $balance %></B></TD>
  19 </TR>
  20
  21 <TR>
  22   <TD ALIGN="right">Billing&nbsp;type</TD>
  23   <TD BGCOLOR="#ffffff">
  24 % if ( $cust_main->payby eq 'CARD' || $cust_main->payby eq 'DCRD' ) {
  25
  26
  27     Credit&nbsp;card&nbsp;<% $cust_main->payby eq 'CARD' ? '(automatic)' : '(on-demand)' %>
  28   </TD>
  29 </TR>
  30 <TR>
  31   <TD ALIGN="right">Card number</TD>
  32   <TD BGCOLOR="#ffffff"><% $cust_main->paymask %></TD>
  33 </TR>
  34 %
  35 %#false laziness w/elements/select-month_year.html & edit/cust_main/billing.html
  36 %my( $mon, $year );
  37 %my $date = $cust_main->paydate || '12-2037';
  38 %if ( $date  =~ /^(\d{4})-(\d{1,2})-\d{1,2}$/ ) { #PostgreSQL date format
  39 %  ( $mon, $year ) = ( $2, $1 );
  40 %} elsif ( $date =~ /^(\d{1,2})-(\d{1,2}-)?(\d{4}$)/ ) {
  41 %  ( $mon, $year ) = ( $1, $3 );
  42 %} else {
  43 %  warn "unrecognized expiration date format: $date";
  44 %  ( $mon, $year ) = ( '', '' );
  45 %}
  46 %
  47
  48 <TR>
  49   <TD ALIGN="right">Expiration</TD>
  50   <TD BGCOLOR="#ffffff"><% "$mon/$year" %></TD>
  51 </TR>
  52 % if ( $cust_main->paystart_month ) {
  53
  54   <TR>
  55     <TD ALIGN="right">Start date</TD>
  56     <TD BGCOLOR="#ffffff"><% $cust_main->paystart_month. '/'. $cust_main->paystart_year %>
  57   </TR>
  58 % } elsif ( $cust_main->payissue ) {
  59
  60   <TR>
  61     <TD ALIGN="right">Issue #</TD>
  62     <TD BGCOLOR="#ffffff"><% $cust_main->payissue %>
  63   </TR>
  64 % }
  65
  66
  67 <TR>
  68   <TD ALIGN="right">Name on card</TD>
  69   <TD BGCOLOR="#ffffff"><% $cust_main->payname %></TD>
  70 </TR>
  71 % } elsif ( $cust_main->payby eq 'CHEK' || $cust_main->payby eq 'DCHK') {
  72 %     my( $account, $aba ) = split('@', $cust_main->payinfo );
  73 %
  74
  75
  76     Electronic&nbsp;check&nbsp;<% $cust_main->payby eq 'CHEK' ? '(automatic)' : '(on-demand)' %>
  77   </TD>
  78 </TR>
  79 <TR>
  80   <TD ALIGN="right">ABA/Routing code</TD>
  81   <TD BGCOLOR="#ffffff"><% $aba %></TD>
  82 </TR>
  83 <TR>
  84   <TD ALIGN="right">Account number</TD>
  85   <TD BGCOLOR="#ffffff"><% 'x'x(length($account)-2). substr($account,(length($account)-2)) %></TD>
  86 </TR>
  87 <TR>
  88   <TD ALIGN="right">Account type</TD>
  89   <TD BGCOLOR="#ffffff"><% $cust_main->paytype %></TD>
  90 </TR>
  91 <TR>
  92   <TD ALIGN="right">Bank name</TD>
  93   <TD BGCOLOR="#ffffff"><% $cust_main->payname %></TD>
  94 </TR>
  95 % if ( $conf->exists('show_bankstate') ) {
  96 <TR>
  97   <TD ALIGN="right"><% $paystate_label %></TD>
  98   <TD BGCOLOR="#ffffff"><% $cust_main->paystate || '&nbsp;&nbsp;&nbsp;' %></TD>
  99 </TR>
 100 % }
 101 % } elsif ( $cust_main->payby eq 'LECB' ) {
 102 %     $cust_main->payinfo =~ /^(\d{3})(\d{3})(\d{4})$/;
 103 %     my $payinfo = "$1-$2-$3";
 104 %
 105
 106
 107     Phone&nbsp;bill&nbsp;billing
 108   </TD>
 109 </TR>
 110 <TR>
 111   <TD ALIGN="right">Phone number</TD>
 112   <TD BGCOLOR="#ffffff"><% $payinfo %></TD>
 113 </TR>
 114 % } elsif ( $cust_main->payby eq 'BILL' ) {
 115
 116
 117     Billing
 118   </TD>
 119 </TR>
 120 % if ( $cust_main->payinfo ) {
 121
 122 <TR>
 123   <TD ALIGN="right">P.O. </TD>
 124   <TD BGCOLOR="#ffffff"><% $cust_main->payinfo %></TD>
 125 </TR>
 126 % }
 127
 128
 129 <TR>
 130   <TD ALIGN="right">Attention</TD>
 131   <TD BGCOLOR="#ffffff"><% $cust_main->payname %></TD>
 132 </TR>
 133 % } elsif ( $cust_main->payby eq 'COMP' ) {
 134
 135
 136     Complimentary
 137   </TD>
 138 </TR>
 139 <TR>
 140   <TD ALIGN="right">Authorized&nbsp;by</TD>
 141   <TD BGCOLOR="#ffffff"><% $cust_main->payinfo %></TD>
 142 </TR>
 143 %
 144 %#false laziness w/above etc.
 145 %my( $mon, $year );
 146 %my $date = $cust_main->paydate || '12-2037';
 147 %if ( $date  =~ /^(\d{4})-(\d{1,2})-\d{1,2}$/ ) { #PostgreSQL date format
 148 %  ( $mon, $year ) = ( $2, $1 );
 149 %} elsif ( $date =~ /^(\d{1,2})-(\d{1,2}-)?(\d{4}$)/ ) {
 150 %  ( $mon, $year ) = ( $1, $3 );
 151 %} else {
 152 %  warn "unrecognized expiration date format: $date";
 153 %  ( $mon, $year ) = ( '', '' );
 154 %}
 155 %
 156
 157 <TR>
 158   <TD ALIGN="right">Expiration</TD>
 159   <TD BGCOLOR="#ffffff"><% "$mon/$year" %></TD>
 160 </TR>
 161 % }
 162
 163
 164 <TR>
 165   <TD ALIGN="right">Tax&nbsp;exempt</TD>
 166   <TD BGCOLOR="#ffffff"><% $cust_main->tax ? 'yes' : 'no' %></TD>
 167 </TR>
 168 <TR>
 169   <TD ALIGN="right">Postal&nbsp;invoices</TD>
 170   <TD BGCOLOR="#ffffff">
 171     <% ( grep { $_ eq 'POST' } @invoicing_list ) ? 'yes' : 'no' %>
 172   </TD>
 173 </TR>
 174 <TR>
 175   <TD ALIGN="right">FAX&nbsp;invoices</TD>
 176   <TD BGCOLOR="#ffffff">
 177     <% ( grep { $_ eq 'FAX' } @invoicing_list ) ? 'yes' : 'no' %>
 178   </TD>
 179 </TR>
 180 <TR>
 181   <TD ALIGN="right">Email&nbsp;invoices</TD>
 182   <TD BGCOLOR="#ffffff">
 183     <% join(', ', grep { $_ !~ /^(POST|FAX)$/ } @invoicing_list ) || 'no' %>
 184   </TD>
 185 </TR>
 186 <TR>
 187   <TD ALIGN="right">Invoice&nbsp;terms</TD>
 188   <TD BGCOLOR="#ffffff">
 189     <% $cust_main->invoice_terms || 'Default ('. ( $conf->config('invoice_default_terms') || 'Payable upon receipt' ). ')' %>
 190   </TD>
 191 </TR>
 192
 193 % if ( $conf->exists('voip-cust_cdr_spools') ) {
 194   <TR>
 195     <TD ALIGN="right">Spool&nbsp;CDRs</TD>
 196     <TD BGCOLOR="#ffffff"><% $cust_main->spool_cdr ? 'yes' : 'no' %></TD>
 197   </TR>
 198 % }
 199
 200 </TABLE></TD></TR></TABLE>
 201 <%once>
 202
 203 my $paystate_label = FS::Msgcat::_gettext('paystate');
 204 $paystate_label = 'Bank state' if $paystate_label =~/^paystate$/;
 205
 206 </%once>
 207 <%init>
 208
 209 my( $cust_main ) = @_;
 210 my @invoicing_list = $cust_main->invoicing_list;
 211 my $conf = new FS::Conf;
 212 my $money_char = $conf->config('money_char') || '$';
 213
 214 </%init>