projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
RT# 82992 - Added new cdr import format ThinQ
[freeside.git]
/
FS
/
FS
/
cust_bill_void.pm
diff --git
a/FS/FS/cust_bill_void.pm
b/FS/FS/cust_bill_void.pm
index
b9db81b
..
60abc73
100644
(file)
--- a/
FS/FS/cust_bill_void.pm
+++ b/
FS/FS/cust_bill_void.pm
@@
-1,13
+1,18
@@
package FS::cust_bill_void;
package FS::cust_bill_void;
-use base qw( FS::Template_Mixin FS::cust_main_Mixin FS::otaker_Mixin FS::Record );
+use base qw( FS::Template_Mixin FS::cust_main_Mixin FS::otaker_Mixin
+ FS::reason_Mixin FS::Record );
use strict;
use strict;
+use vars qw( $me $DEBUG );
use FS::Record qw( qsearch qsearchs dbh fields );
use FS::cust_statement;
use FS::access_user;
use FS::cust_bill_pkg_void;
use FS::cust_bill;
use FS::Record qw( qsearch qsearchs dbh fields );
use FS::cust_statement;
use FS::access_user;
use FS::cust_bill_pkg_void;
use FS::cust_bill;
+$me = '[ FS::cust_bill_void ]';
+$DEBUG = 0;
+
=head1 NAME
FS::cust_bill_void - Object methods for cust_bill_void records
=head1 NAME
FS::cust_bill_void - Object methods for cust_bill_void records
@@
-82,9
+87,13
@@
promised_date
void_date
void_date
-=item reason
+=item reason
+
+freeform string (deprecated)
+
+=item reasonnum
-reason
+reason
for voiding the payment (see L<FS::reason>)
=item void_usernum
=item void_usernum
@@
-108,7
+117,8
@@
points to. You can ask the object for a copy with the I<hash> method.
sub table { 'cust_bill_void'; }
sub notice_name { 'VOIDED Invoice'; }
sub table { 'cust_bill_void'; }
sub notice_name { 'VOIDED Invoice'; }
-#XXXsub template_conf { 'quotation_'; }
+sub template_conf { 'invoice_'; }
+
=item insert
=item insert
@@
-206,6
+216,7
@@
sub check {
|| $self->ut_numbern('void_date')
|| $self->ut_textn('reason')
|| $self->ut_numbern('void_usernum')
|| $self->ut_numbern('void_date')
|| $self->ut_textn('reason')
|| $self->ut_numbern('void_usernum')
+ || $self->ut_foreign_keyn('reasonnum', 'reason', 'reasonnum')
;
return $error if $error;
;
return $error if $error;
@@
-249,6
+260,10
@@
sub void_access_user {
=item cust_bill_pkg
=item cust_bill_pkg
+=item reason
+
+Returns the text of the associated void reason (see L<FS::reason>) for this.
+
=cut
sub cust_bill_pkg { #actually cust_bill_pkg_void objects
=cut
sub cust_bill_pkg { #actually cust_bill_pkg_void objects
@@
-277,7
+292,7
@@
sub cust_pkg {
Class method which returns an SQL WHERE fragment to search for parameters
specified in HASHREF. Accepts the following parameters for
Class method which returns an SQL WHERE fragment to search for parameters
specified in HASHREF. Accepts the following parameters for
-L<FS::cust_bill
::
search_sql_where>: C<_date>, C<invnum_min>, C<invnum_max>,
+L<FS::cust_bill
/
search_sql_where>: C<_date>, C<invnum_min>, C<invnum_max>,
C<agentnum>, C<custnum>, C<cust_classnum>, C<refnum>. Also
accepts the following:
C<agentnum>, C<custnum>, C<cust_classnum>, C<refnum>. Also
accepts the following:
@@
-329,6
+344,17
@@
sub search_sql_where {
sub enable_previous { 0 }
sub enable_previous { 0 }
+# _upgrade_data
+#
+# Used by FS::Upgrade to migrate to a new database.
+sub _upgrade_data { # class method
+ my ($class, %opts) = @_;
+
+ warn "$me upgrading $class\n" if $DEBUG;
+
+ $class->_upgrade_reasonnum(%opts);
+}
+
=back
=head1 BUGS
=back
=head1 BUGS
@@
-340,4
+366,3
@@
L<FS::Record>, schema.html from the base documentation.
=cut
1;
=cut
1;
-