20 lines
423 B
Perl
20 lines
423 B
Perl
use strict;
|
|
|
|
package TrsrDB::CurrentArrears;
|
|
use base qw/DBIx::Class::Core/;
|
|
|
|
__PACKAGE__->table('CurrentArrears');
|
|
__PACKAGE__->add_columns(qw/billId debtor targetCredit date purpose difference/);
|
|
__PACKAGE__->set_primary_key("billId");
|
|
|
|
__PACKAGE__->belongs_to(
|
|
debtor => 'TrsrDB::Account',
|
|
{ 'foreign.ID' => 'self.debtor' }
|
|
);
|
|
|
|
__PACKAGE__->many_to_many(
|
|
payable_with => debtor => 'available_credits'
|
|
);
|
|
|
|
1;
|