1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
|
package FS::part_pkg::bulk;
use base qw( FS::part_pkg::flat );
use strict;
use vars qw($DEBUG $me %info);
use Date::Format;
use FS::Conf;
$DEBUG = 0;
$me = '[FS::part_pkg::bulk_Common]';
%info = (
'disabled' => 1,
'inherit_fields' => [ 'global_Mixin' ],
'fields' => {
'svc_setup_fee' => { 'name' => 'Setup fee for each new service',
'default' => 0,
},
'svc_recur_fee' => { 'name' => 'Recurring fee for each service',
'default' => 0,
},
'summarize_svcs'=> { 'name' => 'Show a count of services on the invoice, '.
'instead of a detailed list',
'type' => 'checkbox',
},
'no_prorate' => { 'name' => 'Don\'t prorate recurring fees on services '.
'active for a partial month',
'type' => 'checkbox',
},
},
'fieldorder' => [ 'svc_setup_fee', 'svc_recur_fee',
'summarize_svcs', 'no_prorate' ],
'weight' => 51,
);
sub price_info {
my $self = shift;
my $str = $self->SUPER::price_info;
my $svc_setup_fee = $self->option('svc_setup_fee');
my $svc_recur_fee = $self->option('svc_recur_fee');
my $conf = new FS::Conf;
my $money_char = $conf->config('money_char') || '$';
$str .= " , bulk" if $str;
$str .= ": $money_char" . $svc_setup_fee . " one-time per service"
if $svc_setup_fee;
$str .= ", " if ($svc_setup_fee && $svc_recur_fee);
$str .= $money_char . $svc_recur_fee . " recurring per service"
if $svc_recur_fee;
$str;
}
#some false laziness-ish w/agent.pm... not a lot
sub calc_recur {
my($self, $cust_pkg, $sdate, $details ) = @_;
my $conf = new FS::Conf;
my $money_char = $conf->config('money_char') || '$';
my $svc_setup_fee = $self->option('svc_setup_fee');
my $last_bill = $cust_pkg->last_bill;
return sprintf("%.2f", $self->base_recur($cust_pkg, $sdate) )
unless $$sdate > $last_bill;
my $total_svc_charge = 0;
my %n_setup = ();
my %n_recur = ();
my %part_svc_label = ();
my $summarize = $self->option('summarize_svcs',1);
warn "$me billing for bulk services from ". time2str('%x', $last_bill).
" to ". time2str('%x', $$sdate). "\n"
if $DEBUG;
# END START
foreach my $h_cust_svc ( $cust_pkg->h_cust_svc( $$sdate, $last_bill ) ) {
my @label = $h_cust_svc->label_long( $$sdate, $last_bill );
die "fatal: no historical label found, wtf?" unless scalar(@label); #?
my $svc_details = $label[0]. ': '. $label[1]. ': ';
$part_svc_label{$h_cust_svc->svcpart} ||= $label[0];
my $svc_charge = 0;
my $svc_start = $h_cust_svc->date_inserted;
if ( $svc_start < $last_bill ) {
$svc_start = $last_bill;
} elsif ( $svc_setup_fee ) {
$svc_charge += $svc_setup_fee;
$svc_details .= $money_char. sprintf('%.2f setup, ', $svc_setup_fee);
$n_setup{$h_cust_svc->svcpart}++;
}
my $svc_end = $h_cust_svc->date_deleted;
$svc_end = ( !$svc_end || $svc_end > $$sdate ) ? $$sdate : $svc_end;
my $recur_charge;
if ( $self->option('no_prorate',1) ) {
$recur_charge = $self->option('svc_recur_fee');
}
else {
$recur_charge = $self->option('svc_recur_fee')
* ( $svc_end - $svc_start )
/ ( $$sdate - $last_bill );
}
$svc_details .= $money_char. sprintf('%.2f', $recur_charge ).
' ('. time2str('%x', $svc_start).
' - '. time2str('%x', $svc_end ). ')'
if $recur_charge;
$svc_charge += $recur_charge;
$n_recur{$h_cust_svc->svcpart}++;
push @$details, $svc_details if !$summarize;
$total_svc_charge += $svc_charge;
}
if ( $summarize ) {
foreach my $svcpart (keys %part_svc_label) {
push @$details, sprintf('Setup fee: %d @ '.$money_char.'%.2f',
$n_setup{$svcpart}, $svc_setup_fee )
if $svc_setup_fee and $n_setup{$svcpart};
push @$details, sprintf('%d services @ '.$money_char.'%.2f',
$n_recur{$svcpart}, $self->option('svc_recur_fee') )
if $n_recur{$svcpart};
}
}
sprintf('%.2f', $self->base_recur($cust_pkg, $sdate) + $total_svc_charge );
}
sub can_discount { 0; }
sub hide_svc_detail {
1;
}
sub is_free_options {
qw( setup_fee recur_fee svc_setup_fee svc_recur_fee );
}
1;
|
