#------------------------------------------------------------
# Copyright (C) 2006 RoyaltyShare, Inc.   All Rights Reserved
# $Id$
#------------------------------------------------------------
package RPS::DB::Item::CAMechanicalStatementAdjustmentItem;
use strict;
use warnings;
use lib '/app/tools/common/lib';
use Common::Assert;
use Common::DB::Item;
use base 'Common::DB::Item';

use constant kTable => 'ca_mechanical_statement_adjustment_item';
use constant kDB    => Common::DB::Item::kClientDB();

use constant kAdjustmentTypeCCompNewLicense => 1;
#
# This code is used for adjustments triggered by a new license
# being added to a product, causing previously unallocated
# funds to be adjusted.

sub GetLastStatementAdjustment {
    my ( $class, $statementItemID ) = @_;

    # JPK - We apparently cannot rely on 'previous_ca_mechanical_statement_adjustment_item_id' anymore.
    # Going to re-write this query to sort by run id instead to find the last adjustment.
    #
    #    my $sql = "select * from ca_mechanical_statement_adjustment_item where original_ca_mechanical_statement_item_id=$statementItemID "
    #            . " and ca_mechanical_statement_adjustment_item_id NOT IN "
    #            . " ("
    #            . "  select previous_ca_mechanical_statement_adjustment_item_id from ca_mechanical_statement_adjustment_item "
    #            . "  where original_ca_mechanical_statement_item_id=$statementItemID"
    #            . " )";
    my $sql =
" select ca_mechanical_statement_adjustment_item.*, ca_mechanical_run.ca_mechanical_run_id from ca_mechanical_statement_adjustment_item"
      . " join ca_mechanical_statement using (ca_mechanical_statement_id)"
      . " join ca_mechanical_run using (ca_mechanical_run_id)"
      . "where original_ca_mechanical_statement_item_id=$statementItemID"
      . " and ca_mechanical_run.status in (0,2,5)"
      . " order by ca_mechanical_run.ca_mechanical_run_id desc";

    my $collection = $class->GetAll($sql);

    return undef unless $collection->hasNext();

    # JPK - Don't need this assertion anymore.
    #    assert($collection->size == 1);

    my $item = $collection->next;
    return $item;
}

sub GetByMechanicalStatementID {
    my ( $class, $statementID ) = @_;

    my $sql = "SELECT * FROM ca_mechanical_statement_adjustment_item WHERE ca_mechanical_statement_id=$statementID";
    return $class->GetAll($sql);
}

sub GetByMechanicalStatementIDPublisherID {
    my ( $class, $statementID, $publisherID ) = @_;

    my $sql = "SELECT * FROM ca_mechanical_statement_adjustment_item WHERE ca_mechanical_statement_id=$statementID"
      . " AND ca_track_license_id in (select ca_track_license_id from ca_track_license where ca_publisher_id=$publisherID)";
    return $class->GetAll($sql);
}

sub GetByMechanicalStatementIDTrackLicenseID {
    my ( $class, $statementID, $trackLicenseID ) = @_;

    my $sql =
        "SELECT * FROM ca_mechanical_statement_adjustment_item"
      . " WHERE ca_mechanical_statement_id=$statementID"
      . " AND ca_track_license_id=$trackLicenseID";

    return $class->GetAll($sql);
}

sub DeleteByMechanicalStatementID {
    my ( $class, $id ) = @_;

    my $sql = "DELETE from ca_mechanical_statement_adjustment_item WHERE ca_mechanical_statement_id=$id";
    my $dbo = Common::RSApp::GetClientDB();
    $dbo->DoCmd($sql);
}

1;