#---------------------------------------------------------------
# ____                   _ _         ____  _
#|  _ \ ___  _   _  __ _| | |_ _   _/ ___|| |__   __ _ _ __ ___
#| |_) / _ \| | | |/ _` | | __| | | \___ \| '_ \ / _` | '__/ _ \
#|  _ < (_) | |_| | (_| | | |_| |_| |___) | | | | (_| | | |  __/
#|_| \_\___/ \__, |\__,_|_|\__|\__, |____/|_| |_|\__,_|_|  \___|
#            |___/             |___/
#
# Copyright (C) 2007 RoyaltyShare, Inc.   All Rights Reserved
# $Id$
#---------------------------------------------------------------
package RPS::Statement::UKMechanical::McpsStatementItem;

use strict;
use warnings;
use Carp;

use Data::Dumper;

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

use lib '/app/tools/rps/lib';
use RPS::DB::Item::McpsStatementItem;

use Common::FormObject;
use base 'Common::FormObject';

sub _init {
    my ( $self, %args ) = @_;

    $self->SUPER::_init(%args);

    my %properties;
    if ( $args{_dbItem} ) {
        $self->_propertiesFromDBItem( \%properties, $args{_dbItem} );
    } elsif ( $args{mcpsStatementItemID} ) {
        $self->_propertiesFromDB( \%properties, $args{mcpsStatementItemID} );
    } else {
        $self->_propertiesFromDefaults( \%properties );
    }

    $self->_initProperties( \%properties );

    return $self;
}

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

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

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

    $hrProperties->{mcps_statement_item_id} = $dbItem->mcps_statement_item_id;
    $hrProperties->{mcps_statement_id}      = $dbItem->mcps_statement_id;
    $hrProperties->{mcps_license_id}        = $dbItem->mcps_license_id;
    $hrProperties->{mcps_id}                = $dbItem->mcps_id;
    $hrProperties->{album_title}            = $dbItem->album_title;
    $hrProperties->{album_id}               = $dbItem->album_id;
    $hrProperties->{catalog_number}         = $dbItem->catalog_number;
    $hrProperties->{artist_name}            = $dbItem->artist_name;
    $hrProperties->{product_code}           = $dbItem->product_code;
    $hrProperties->{product_type_id}        = $dbItem->product_type_id;
    $hrProperties->{dvd_category}           = $dbItem->dvd_category;
    $hrProperties->{label_name}             = $dbItem->label_name;
    $hrProperties->{release_date}           = $dbItem->release_date;
    $hrProperties->{country_code}           = $dbItem->country_code;
    $hrProperties->{gross_units}            = $dbItem->gross_units;
    $hrProperties->{prior_units}            = $dbItem->prior_units;
    $hrProperties->{promo_units}            = $dbItem->promo_units;
    $hrProperties->{return_units}           = $dbItem->return_units;
    $hrProperties->{net_units}              = $dbItem->net_units;
    $hrProperties->{retentions}             = $dbItem->retentions;
    $hrProperties->{tv_retentions}          = $dbItem->tv_retentions;
    $hrProperties->{final_net_units}        = $dbItem->final_net_units;
    $hrProperties->{price}                  = $dbItem->price;
    $hrProperties->{mcps_price_type}        = $dbItem->mcps_price_type;
    $hrProperties->{adjustment}             = $dbItem->adjustment;
    $hrProperties->{deleted}                = $dbItem->deleted;
    $hrProperties->{deleted_date}           = $dbItem->deleted_date;
    $hrProperties->{comments}               = $dbItem->comments;
}

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

    my $currencyCode = 'GBP';

    $self->{McpsStatementItemID} = Common::FormObject::Scalar->new( value => $props->{mcps_statement_item_id}, readOnly => 1 );
    $self->{McpsStatementID}     = Common::FormObject::Scalar->new( value => $props->{mcps_statement_id} );
    $self->{McpsLicenseID}       = Common::FormObject::Scalar->new( value => $props->{mcps_license_id} );
    $self->{McpsID}              = Common::FormObject::Scalar->new( value => $props->{mcps_id} );
    $self->{AlbumTitle}          = Common::FormObject::Scalar->new( value => $props->{album_title} );
    $self->{AlbumID}             = Common::FormObject::Scalar->new( value => $props->{album_id} );
    $self->{CatalogNumber}       = Common::FormObject::Scalar->new( value => $props->{catalog_number} );
    $self->{ArtistName}          = Common::FormObject::Scalar->new( value => $props->{artist_name} );
    $self->{ProductCode}         = Common::FormObject::Scalar->new( value => $props->{product_code} );
    $self->{ProductTypeID}       = Common::FormObject::Scalar->new( value => $props->{product_type_id} );
    $self->{DVDCategory}         = Common::FormObject::Scalar->new( value => $props->{dvd_category} );
    $self->{LabelName}           = Common::FormObject::Scalar->new( value => $props->{label_name} );
    $self->{ReleaseDate} = Common::FormObject::Scalar::Date->new( value => $props->{release_date} );
    $self->{CountryCode} = Common::FormObject::Scalar->new( value => $props->{country_code} );
    $self->{GrossUnits}    = Common::FormObject::Scalar::Integer->new( value => $props->{gross_units} );
    $self->{PriorUnits}    = Common::FormObject::Scalar::Integer->new( value => $props->{prior_units} );
    $self->{PromoUnits}    = Common::FormObject::Scalar::Integer->new( value => ( -1 * $props->{promo_units} ) );
    $self->{ReturnUnits}   = Common::FormObject::Scalar::Integer->new( value => ( -1 * $props->{return_units} ) );
    $self->{NetUnits}      = Common::FormObject::Scalar::Integer->new( value => $props->{net_units} );
    $self->{Retentions}    = Common::FormObject::Scalar::Integer->new( value => ( -1 * $props->{retentions} ) );
    $self->{TVRetentions}  = Common::FormObject::Scalar::Integer->new( value => ( -1 * $props->{tv_retentions} ) );
    $self->{FinalNetUnits} = Common::FormObject::Scalar::Integer->new( value => $props->{final_net_units} );
    $self->{Price} = Common::FormObject::Scalar::Money->new( value => $props->{price}, currencyCode => $currencyCode );
    $self->{McpsPriceType} = Common::FormObject::Scalar->new( value => $props->{mcps_price_type} );
    $self->{Adjustment} = Common::FormObject::Scalar::Boolean->new( value => $props->{adjustment} );
    $self->{Deleted}    = Common::FormObject::Scalar::Boolean->new( value => $props->{deleted} );
    $self->{DeletedDate} = Common::FormObject::Scalar::Date->new( value => $props->{deleted_date} );
    $self->{Comments} = Common::FormObject::Scalar->new( value => $props->{comments} );
}

sub _propertiesFromDefaults {
    my ( $self, $hrProperties ) = @_;
}

###
1;    #
###