diff options
author | ivan <ivan> | 2009-07-30 06:42:33 +0000 |
---|---|---|
committer | ivan <ivan> | 2009-07-30 06:42:33 +0000 |
commit | 4396080ed2829ae0595f1fd777f39d090c9bcd7c (patch) | |
tree | bf0b7e0fb2437873447d79d3c1291d62902c3be1 /FS/FS/cust_pay.pm | |
parent | 50f5d60aef5ee82be33c978db6424372bfd7995b (diff) |
experimental package balances, RT#4339
Diffstat (limited to 'FS/FS/cust_pay.pm')
-rw-r--r-- | FS/FS/cust_pay.pm | 50 |
1 files changed, 39 insertions, 11 deletions
diff --git a/FS/FS/cust_pay.pm b/FS/FS/cust_pay.pm index 4ff291934..e1e6df2a2 100644 --- a/FS/FS/cust_pay.pm +++ b/FS/FS/cust_pay.pm @@ -17,6 +17,7 @@ use FS::cust_bill; use FS::cust_bill_pay; use FS::cust_pay_refund; use FS::cust_main; +use FS::cust_pkg; use FS::cust_pay_void; @ISA = qw( FS::payinfo_transaction_Mixin FS::cust_main_Mixin FS::Record ); @@ -62,28 +63,54 @@ currently supported: =over 4 -=item paynum - primary key (assigned automatically for new payments) +=item paynum -=item custnum - customer (see L<FS::cust_main>) +primary key (assigned automatically for new payments) -=item _date - specified as a UNIX timestamp; see L<perlfunc/"time">. Also see +=item custnum + +customer (see L<FS::cust_main>) + +=item _date + +specified as a UNIX timestamp; see L<perlfunc/"time">. Also see L<Time::Local> and L<Date::Parse> for conversion functions. -=item paid - Amount of this payment +=item paid + +Amount of this payment + +=item otaker + +order taker (assigned automatically, see L<FS::UID>) + +=item payby + +Payment Type (See L<FS::payinfo_Mixin> for valid payby values) + +=item payinfo + +Payment Information (See L<FS::payinfo_Mixin> for data format) + +=item paymask + +Masked payinfo (See L<FS::payinfo_Mixin> for how this works) + +=item paybatch -=item otaker - order taker (assigned automatically, see L<FS::UID>) +text field for tracking card processing or other batch grouping -=item payby - Payment Type (See L<FS::payinfo_Mixin> for valid payby values) +=item payunique -=item payinfo - Payment Information (See L<FS::payinfo_Mixin> for data format) +Optional unique identifer to prevent duplicate transactions. -=item paymask - Masked payinfo (See L<FS::payinfo_Mixin> for how this works) +=item closed -=item paybatch - text field for tracking card processing or other batch grouping +books closed flag, empty or `Y' -=item payunique - Optional unique identifer to prevent duplicate transactions. +=item pkgnum -=item closed - books closed flag, empty or `Y' +Desired pkgnum when using experimental package balances. =back @@ -417,6 +444,7 @@ sub check { || $self->ut_textn('paybatch') || $self->ut_textn('payunique') || $self->ut_enum('closed', [ '', 'Y' ]) + || $self->ut_foreign_keyn('pkgnum', 'cust_pkg', 'pkgnum') || $self->payinfo_check() ; return $error if $error; |