#------------------------------------------------------------
# Copyright (C) 2006 RoyaltyShare, Inc.   All Rights Reserved
# $Id$
#------------------------------------------------------------
package RPS::Statement::Mechanical::US::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::US::StatementWithPayments;
use RPS::Statement::Mechanical::StatementListWithPayments;

use base qw(RPS::Statement::Mechanical::StatementListWithPayments);

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

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

    my $skipTransactionsList = $args{skipTransactionsList} || 0;
    return RPS::Statement::Mechanical::US::StatementWithPayments->new( _dbItem => $dbItem, (skipTransactionsList => $skipTransactionsList)  );
}

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

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

    return $collection;
}



1;