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
146
147
148
149
|
package FS::part_pkg::bulk_Common;
use base qw( FS::part_pkg::flat );
use strict;
use vars qw($DEBUG $me %info);
use Date::Format;
use FS::Conf;
use FS::Record qw(qsearchs);
$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',
},
'only_svcs' => {
'name' => 'Only charge fees for these services',
'type' => 'select_multiple',
'select_table' => 'part_svc',
'select_key' => 'svcpart',
'select_label' => 'svc',
'disable_empty' => 1,
'parse' => sub { @_ }, #should this be the default in /edit/process/part_pkg.cgi?
},
},
'fieldorder' => [ 'svc_setup_fee', 'svc_recur_fee', 'only_svcs',
'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, $param ) = @_;
my $conf = new FS::Conf;
my $money_char = $conf->config('money_char') || '$';
my $last_bill = $cust_pkg->last_bill;
my $total_svc_charge = 0;
my %n_setup = ();
my %n_recur = ();
my %part_svc_label = ();
my %pkg_svc = ();
my $summarize = $self->option('summarize_svcs',1);
foreach my $cust_svc ( $self->_bulk_cust_svc( $cust_pkg, $sdate ) ) {
my $pkg_svc = $pkg_svc{ $cust_pkg->pkgpart. '_'. $cust_svc->svcpart }
||= qsearchs('pkg_svc', { 'pkgpart' => $cust_pkg->pkgpart,
'svcpart' => $cust_svc->svcpart});
next if $pkg_svc->bulk_skip;
my @label = $cust_svc->label_long( $$sdate, $last_bill );
die "fatal: no label found for svcnum ". $cust_svc->svcnum
unless scalar(@label); #?
my $svc_details = $label[0]. ': '. $label[1]. ': ';
$part_svc_label{$cust_svc->svcpart} ||= $label[0];
my $svc_charge = 0;
my $setup = $self->_bulk_setup($cust_pkg, $cust_svc);
if ( $setup ) {
$svc_charge += $setup;
$svc_details .= $money_char. sprintf('%.2f setup, ', $setup);
$n_setup{$cust_svc->svcpart}++;
}
my( $recur, $r_details ) = $self->_bulk_recur($cust_pkg, $cust_svc, $sdate);
if ( $recur ) {
$svc_charge += $recur;
$svc_details .= $money_char. sprintf('%.2f', $recur). $r_details;
$n_recur{$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}, $self->option('svc_setup_fee') )
if $self->option('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};
}
}
my $charge = $self->base_recur($cust_pkg, $sdate) + $total_svc_charge;
$param->{'override_charges'} = $total_svc_charge / $self->freq;
my $discount = $self->calc_discount($cust_pkg, $sdate, $details, $param);
sprintf('%.2f', $charge - $discount );
}
sub hide_svc_detail { 1; }
sub is_free_options {
qw( setup_fee recur_fee svc_setup_fee svc_recur_fee );
}
sub can_usageprice { 0; }
sub _only_svcs_filter {
my ($self, @cust_svc) = @_;
my @only_svcs = split(', ',$self->option('only_svcs',1));
if (@only_svcs) {
@cust_svc = grep {
my $svcpart = $_->svcpart;
grep(/^$svcpart$/,@only_svcs);
} @cust_svc;
}
return @cust_svc;
}
1;
|
