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

use strict;
use warnings;
use Carp;

use Data::Dumper;

use lib '/app/tools/common/lib';

use lib '/app/tools/rps/lib';

use RPS::License::CA::TrackLicense;
use RPS::DB::Item::CAMechanicalStatementItem;

use RPS::DB::Item::Album;
use RPS::DB::Item::Product;
use RPS::DB::Item::CAStatRate;

use RPS::Statement::Mechanical::StatementItem;
use base 'RPS::Statement::Mechanical::StatementItem';


sub _getTrackLicense
{
    my ($self, $trackLicenseID) = @_;
    return RPS::License::CA::TrackLicense->new(trackLicenseID => $trackLicenseID);
}

sub _getCurrencyCode
{
    my ($self) = @_;
    return 'CAD';
}

sub _propertiesFromDB
{
    my ($self, $hrProperties, $id) = @_;

    my $dbItem = RPS::DB::Item::CAMechanicalStatementItem->Lookup(ca_mechanical_statement_item_id => $id);
    $self->_propertiesFromDBItem($hrProperties, $dbItem);
}


sub _propertiesFromDBItem
{
	my ($self, $hrProperties, $dbItem) = @_;

    $hrProperties->{mechanical_statement_item_id}   = $dbItem->ca_mechanical_statement_item_id;
    $hrProperties->{mechanical_statement_id}        = $dbItem->ca_mechanical_statement_id;
    $hrProperties->{track_license_id}               = $dbItem->ca_track_license_id;
    $hrProperties->{product_id}                     = $dbItem->product_id;
    $hrProperties->{issue_stat_rate_id}             = $dbItem->issue_stat_rate_id;
    $hrProperties->{sale_stat_rate_id}              = $dbItem->sale_stat_rate_id;
    $hrProperties->{applied_stat_rate_id}           = $dbItem->applied_stat_rate_id;
    $hrProperties->{sales}                          = $dbItem->sales;
    $hrProperties->{returns}                        = $dbItem->returns;
    $hrProperties->{previous_carryover}             = $dbItem->previous_carryover;
    $hrProperties->{carryover}                      = $dbItem->carryover;
    $hrProperties->{gross_units}                    = $dbItem->gross_units;
    $hrProperties->{net_units}                      = $dbItem->net_units;
    $hrProperties->{reserved}                       = $dbItem->reserved;
    $hrProperties->{liquidated}                     = $dbItem->liquidated;
    $hrProperties->{base_rate}                      = $dbItem->base_rate;
    $hrProperties->{net_rate}                       = $dbItem->net_rate;
    $hrProperties->{total}                          = $dbItem->total;
    $hrProperties->{amount_paid}                    = $dbItem->amount_paid;
    $hrProperties->{upc}                            = $dbItem->upc;
    $hrProperties->{isrc}                           = $dbItem->isrc;
    $hrProperties->{service}                        = $dbItem->service;
    $hrProperties->{hfa_reporting_period}           = $dbItem->hfa_reporting_period;
}


sub _initProperties
{
    my ($self, $props) = @_;

    $self->SUPER::_initProperties($props);

    # Some HFA-related stuff
    #
    # Use the applied stat rate ID if we have one, otherwise use the sale stat rate id.
    #
    my $statRateIDToUse = $props->{applied_stat_rate_id};
    if (! $statRateIDToUse)
    {
        $statRateIDToUse = $props->{sale_stat_rate_id};
    }
    my $ratePeriod = _getRatePeriod($statRateIDToUse);
    $self->{RatePeriod}                 = Common::FormObject::Scalar::String->new(value => $ratePeriod, maxlength => 32);


    my $configurationCode;
    if (RPS::DB::Item::Product::kProductTypeDigitalTrack == $self->{ProductTypeID})
    {
        $configurationCode = 'SP';
    }
    elsif (RPS::DB::Item::Product::kProductTypeDigital == $self->{ProductTypeID})
    {
        $configurationCode = 'DP';
    }
    else
    {
        # assume physical - I don't see a code for this in the spec.
        #
        $configurationCode = 'CD';
    }
    $self->{ConfigurationCode}          = Common::FormObject::Scalar::String->new(value => $configurationCode);
}



my $gRatePeriodMap;
sub _getRatePeriod
{
    my ($id) = @_;

    return "" unless $id;

    if (! $gRatePeriodMap)
    {
        $gRatePeriodMap = RPS::DB::Item::StatRate->GetRatePeriodMap();
    }

    return $gRatePeriodMap->{$id};
}


###
1;#
###