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
173
174
175
176
177
178
179
180
181
182
183
184
185
|
package FS::payby;
use strict;
use vars qw(%hash %payby2bop);
use Tie::IxHash;
use Business::CreditCard;
=head1 NAME
FS::payby - Object methods for payment type records
=head1 SYNOPSIS
use FS::payby;
#for now...
my @payby = FS::payby->payby;
my $bool = FS::payby->can_payby('cust_main', 'CARD');
tie my %payby, 'Tie::IxHash', FS::payby->payby2longname
my @cust_payby = FS::payby->cust_payby;
tie my %payby, 'Tie::IxHash', FS::payby->cust_payby2longname
=head1 DESCRIPTION
Payment types.
=head1 METHODS
=over 4
=item
=cut
# paybys can be any/all of:
# - a customer payment type (cust_main.payby)
# - a payment or refund type (cust_pay.payby, cust_pay_batch.payby, cust_refund.payby)
# - an event type (part_bill_event.payby)
tie %hash, 'Tie::IxHash',
'CARD' => {
tinyname => 'card',
shortname => 'Credit card',
longname => 'Credit card (automatic)',
},
'DCRD' => {
tinyname => 'card',
shortname => 'Credit card',
longname => 'Credit card (on-demand)',
cust_pay => 'CARD', #this is a customer type only, payments are CARD...
},
'CHEK' => {
tinyname => 'check',
shortname => 'Electronic check',
longname => 'Electronic check (automatic)',
},
'DCHK' => {
tinyname => 'check',
shortname => 'Electronic check',
longname => 'Electronic check (on-demand)',
cust_pay => 'CHEK', #this is a customer type only, payments are CHEK...
},
'LECB' => {
tinyname => 'phone bill',
shortname => 'Phone bill billing',
longname => 'Phone bill billing',
},
'BILL' => {
tinyname => 'billing',
shortname => 'Billing',
longname => 'Billing',
},
'PREP' => {
tinyname => 'prepaid card',
shortname => 'Prepaid card',
longname => 'Prepaid card',
cust_main => 'BILL', #this is a payment type only, customers go to BILL...
},
'CASH' => {
tinyname => 'cash',
shortname => 'Cash', # initial payment, then billing
longname => 'Cash',
cust_main => 'BILL', #this is a payment type only, customers go to BILL...
},
'WEST' => {
tinyname => 'western union',
shortname => 'Western Union', # initial payment, then billing
longname => 'Western Union',
cust_main => 'BILL', #this is a payment type only, customers go to BILL...
},
'MCRD' => { #not the same as DCRD
tinyname => 'card',
shortname => 'Manual credit card', # initial payment, then billing
longname => 'Manual credit card',
cust_main => 'BILL', #this is a payment type only, customers go to BILL...
},
'COMP' => {
tinyname => 'comp',
shortname => 'Complimentary',
longname => 'Complimentary',
cust_pay => '', # (free) is depricated as a payment type in cust_pay
},
'CBAK' => {
tinyname => 'chargeback',
shortname => 'Chargeback',
longname => 'Chargeback',
cust_main => '', # not a customer type
},
;
sub payby {
keys %hash;
}
sub can_payby {
my( $self, $table, $payby ) = @_;
#return "Illegal payby" unless $hash{$payby};
return 0 unless $hash{$payby};
$table = 'cust_pay' if $table eq 'cust_pay_batch' || $table eq 'cust_refund';
return 0 if exists( $hash{$payby}->{$table} );
return 1;
}
sub payby2longname {
my $self = shift;
map { $_ => $hash{$_}->{longname} } $self->payby;
}
sub shortname {
my( $self, $payby ) = @_;
$hash{$payby}->{shortname};
}
sub longname {
my( $self, $payby ) = @_;
$hash{$payby}->{longname};
}
%payby2bop = (
'CARD' => 'CC',
'CHEK' => 'ECHECK',
);
sub payby2bop {
my( $self, $payby ) = @_;
$payby2bop{ $self->payby2payment($payby) };
}
sub payby2payment {
my( $self, $payby ) = @_;
$hash{$payby}{'cust_pay'} || $payby;
}
sub cust_payby {
my $self = shift;
grep { ! exists $hash{$_}->{cust_main} } $self->payby;
}
sub cust_payby2longname {
my $self = shift;
map { $_ => $hash{$_}->{longname} } $self->cust_payby;
}
=back
=head1 BUGS
This should eventually be an actual database table, and all tables that
currently have a char payby field should have a foreign key into here instead.
=head1 SEE ALSO
=cut
1;
|
