#------------------------------------------------------------
# Copyright (C) 2006 RoyaltyShare, Inc.   All Rights Reserved
# $Id$
#------------------------------------------------------------
package RPS::Statement::Mechanical::CA::StatementListWithPayments;

use strict;
use warnings;
use Carp;

use Data::Dumper;
use lib '/app/tools/common/lib';
use Common::FormObject;
use Common::Assert;

use lib '/app/tools/rps/lib';
use RPS::Statement::Mechanical::CA::StatementWithPayments;
use RPS::Statement::Mechanical::StatementListWithPayments;

use base qw(RPS::Statement::Mechanical::StatementListWithPayments);
#use base qw(RPS::Statement::Mechanical::StatementListWithPayments RPS::Statement::Mechanical::CA::BaseStatementList);
#use base qw(RPS::Statement::Mechanical::US::BaseStatementList);

sub _makeStatement
{
    my ($self, $dbItem) = @_;
    assert($dbItem);

    return RPS::Statement::Mechanical::CA::StatementWithPayments->new(_dbItem => $dbItem);
}

sub _getStatementCollection
{
    my ($self, $runID, $payorID, $filterBy) = @_;

    my $collection = RPS::DB::Item::CAMechanicalStatement->Get
    (
        runID => $runID,
        payorID => $payorID,
        sortByPublisherName => 1,
        filterBy => $filterBy,
    );
        
    return $collection;
}


1;