Adds this cust_pay_refund to the database. If there is an error, returns the
error, otherwise returns false.
-=cut
-
-sub insert {
- my $self = shift;
- my $error = $self->SUPER::insert(@_);
- return $error if $error;
-
- '';
-}
-
=item delete
=cut
$self->SUPER::check;
}
-=item sub cust_credit
+=item sub cust_pay
-Returns the credit (see L<FS::cust_credit>)
+Returns the payment (see L<FS::cust_pay>)
=cut
-sub cust_credit {
+sub cust_pay {
my $self = shift;
- qsearchs( 'cust_credit', { 'crednum' => $self->crednum } );
+ qsearchs( 'cust_pay', { 'paynum' => $self->paynum } );
}
-=item cust_bill
+=item cust_refund
-Returns the invoice (see L<FS::cust_bill>)
+Returns the refund (see L<FS::cust_refund>)
=cut
-sub cust_bill {
+sub cust_refund {
my $self = shift;
- qsearchs( 'cust_bill', { 'invnum' => $self->invnum } );
+ qsearchs( 'cust_refund', { 'refundnum' => $self->refundnum } );
}
=back