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
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
|
package FS::part_pkg::agent;
use strict;
use vars qw(@ISA $DEBUG $me %info);
use Date::Format;
use FS::Record qw( qsearch );
use FS::agent;
use FS::cust_main;
#use FS::part_pkg::recur_Common;;
#@ISA = qw(FS::part_pkg::recur_Common);
use FS::part_pkg::prorate;
@ISA = qw(FS::part_pkg::prorate);
$DEBUG = 0;
$me = '[FS::part_pkg::agent]';
%info = (
'name' => 'Wholesale bulk billing, for master customers of an agent.',
'shortname' => 'Wholesale bulk billing for agent.',
'inherit_fields' => [qw( prorate global_Mixin)],
'fields' => {
#'recur_method' => { 'name' => 'Recurring fee method',
# #'type' => 'radio',
# #'options' => \%recur_method,
# 'type' => 'select',
# 'select_options' => \%recur_Common::recur_method,
# },
'cutoff_day' => { 'name' => 'Billing Day (1 - 28)',
'default' => '1',
},
'add_full_period'=> { 'name' => 'When prorating first month, also bill '.
'for one full period after that',
'type' => 'checkbox',
},
'no_pkg_prorate' => { 'name' => 'Disable prorating bulk packages (charge full price for packages active only a portion of the month)',
'type' => 'checkbox',
},
},
'fieldorder' => [qw( cutoff_day add_full_period no_pkg_prorate ) ],
'weight' => 51,
);
#some false laziness-ish w/bulk.pm... not a lot
sub calc_recur {
my $self = shift;
my($cust_pkg, $sdate, $details, $param ) = @_;
my $last_bill = $cust_pkg->last_bill;
return sprintf("%.2f", $self->SUPER::calc_recur(@_) )
unless $$sdate > $last_bill;
my $conf = new FS::Conf;
my $money_char = $conf->config('money_char') || '$';
my $total_agent_charge = 0;
warn "$me billing for agent packages from ". time2str('%x', $last_bill).
" to ". time2str('%x', $$sdate). "\n"
if $DEBUG;
my $prorate_ratio = ( $$sdate - $last_bill )
/ ( $self->add_freq($last_bill) - $last_bill );
#almost always just one,
#unless you have multiple agents with same master customer0
my @agents = qsearch('agent', { 'agent_custnum' => $cust_pkg->custnum } );
foreach my $agent (@agents) {
warn "$me billing for agent ". $agent->agent. "\n"
if $DEBUG;
#not the most efficient to load them all into memory,
#but good enough for our current needs
my @cust_main = qsearch('cust_main', { 'agentnum' => $agent->agentnum } );
foreach my $cust_main (@cust_main) {
warn "$me billing agent charges for ". $cust_main->name_short. "\n"
if $DEBUG;
#make sure setup dates are filled in
my $error = $cust_main->bill; #options don't propogate from freeside-daily
die "Error pre-billing agent customer: $error" if $error;
my @cust_pkg = grep { my $setup = $_->get('setup');
my $cancel = $_->get('cancel');
$setup < $$sdate # END
&& ( ! $cancel || $cancel > $last_bill ) #START
}
$cust_main->all_pkgs;
foreach my $cust_pkg ( @cust_pkg ) {
warn "$me billing agent charges for pkgnum ". $cust_pkg->pkgnum. "\n"
if $DEBUG;
my $pkg_details = $cust_main->name_short. ': '; #name?
# + something to identify package... primary service probably
my $pkg_charge = 0;
my $part_pkg = $cust_pkg->part_pkg;
#option to not fallback? via options above
my $pkg_setup_fee =
$part_pkg->setup_cost || $part_pkg->option('setup_fee');
my $pkg_base_recur =
$part_pkg->recur_cost || $part_pkg->base_recur_permonth($cust_pkg);
my $pkg_start = $cust_pkg->get('setup');
if ( $pkg_start < $last_bill ) {
$pkg_start = $last_bill;
} elsif ( $pkg_setup_fee ) {
$pkg_charge += $pkg_setup_fee;
$pkg_details .= $money_char. sprintf('%.2f setup, ', $pkg_setup_fee );
}
my $pkg_end = $cust_pkg->get('cancel');
$pkg_end = ( !$pkg_end || $pkg_end > $$sdate ) ? $$sdate : $pkg_end;
my $pkg_recur_charge = $prorate_ratio * $pkg_base_recur;
$pkg_recur_charge *= ( $pkg_end - $pkg_start )
/ ( $$sdate - $last_bill )
unless $self->option('no_pkg_prorate');
my $recur_charge += $pkg_recur_charge;
$pkg_details .= $money_char. sprintf('%.2f', $recur_charge ).
' ('. time2str('%x', $pkg_start).
' - '. time2str('%x', $pkg_end ). ')'
if $recur_charge;
$pkg_charge += $recur_charge;
push @$details, $pkg_details
if $pkg_charge;
$total_agent_charge += $pkg_charge;
} #foreach $cust_pkg
} #foreach $cust_main
} #foreach $agent;
my $charges = $total_agent_charge + $self->SUPER::calc_recur(@_); #prorate
sprintf('%.2f', $charges );
}
sub can_discount { 0; }
sub hide_svc_detail {
1;
}
sub is_free {
0;
}
1;
|
