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

use strict;
use warnings;
use Carp;

use Data::Dumper;

use lib '/app/tools/common/lib';
use Common::Assert;

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

use RPS::DB::Item::MechanicalStatementItem;

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

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{mechanicalStatementItemID} ) {
        $self->_propertiesFromDB( \%properties, $args{mechanicalStatementItemID} );
    } else {
        $self->_propertiesFromDefaults( \%properties );
    }

    $self->_initProperties( \%properties );

    return $self;
}

sub _propertiesFromDB {
    my ( $self, $hrProperties, $id ) = @_;
    assert( 0, 'override this' );
}

sub _propertiesFromDBItem {
    my ( $self, $hrProperties, $dbItem ) = @_;
    assert( 0, 'override this' );
}

sub _getCurrencyCode {
    assert( 0, 'override this' );
}

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

    # !!! Assume USD for now...
    #
    my $currencyCode = $self->_getCurrencyCode();

    $self->{MechanicalStatementItemID} = Common::FormObject::Scalar->new( value => $props->{mechanical_statement_item_id}, readOnly => 1 );
    $self->{MechanicalStatementID}     = Common::FormObject::Scalar->new( value => $props->{mechanical_statement_id} );
    $self->{TrackLicenseID}            = Common::FormObject::Scalar->new( value => $props->{track_license_id} );
    $self->{ProductID}                 = Common::FormObject::Scalar->new( value => $props->{product_id} );
    $self->{IssueStatRateID}           = Common::FormObject::Scalar->new( value => $props->{issue_stat_rate_id} );
    $self->{SaleStatRateID}            = Common::FormObject::Scalar->new( value => $props->{sale_stat_rate_id} );
    $self->{AppliedStatRateID}         = Common::FormObject::Scalar->new( value => $props->{applied_stat_rate_id} );
    $self->{GrossUnits} = Common::FormObject::Scalar::Integer->new( value => $props->{gross_units} );
    $self->{NetUnits}   = Common::FormObject::Scalar::Integer->new( value => $props->{net_units} );
    $self->{Liquidated} = Common::FormObject::Scalar::Integer->new( value => $props->{liquidated} );
    $self->{BaseRate}   = Common::FormObject::Scalar::Decimal->new( value => $props->{base_rate}, precision => '.4' );
    $self->{NetRate}    = Common::FormObject::Scalar::Decimal->new( value => $props->{net_rate}, precision => '.4' );
    $self->{Total}      = Common::FormObject::Scalar::Money->new( value => $props->{total},       currencyCode => $currencyCode );
    $self->{AmountPaid} = Common::FormObject::Scalar::Money->new( value => $props->{amount_paid}, currencyCode => $currencyCode );
    $self->{Carryover}         = Common::FormObject::Scalar::Integer->new( value => $props->{carryover} );
    $self->{PreviousCarryover} = Common::FormObject::Scalar::Integer->new( value => $props->{previous_carryover} );

    #    $self->{FreeGoods}                  = Common::FormObject::Scalar::Decimal->new(value => 0);
    $self->{Sales} = Common::FormObject::Scalar::Integer->new( value => $props->{sales} );

    # These are stored as positive values in the database, but I want them to display as negative...
    $self->{Reserved} = Common::FormObject::Scalar::Integer->new( value => -1 * $props->{reserved} );
    $self->{Returns}  = Common::FormObject::Scalar::Integer->new( value => -1 * $props->{returns} );

    $self->{UPC}             = Common::FormObject::Scalar::String->new( value => $props->{upc},                  maxlength => 32 );
    $self->{ISRC}            = Common::FormObject::Scalar::String->new( value => $props->{isrc},                 maxlength => 32 );
    $self->{ReportingPeriod} = Common::FormObject::Scalar::String->new( value => $props->{hfa_reporting_period}, maxlength => 8 );

    $self->{DistributionService} = Common::FormObject::Scalar::String->new( value => $props->{service}, maxlength => 32 );

    $self->{TrackLicense} = $self->_getTrackLicense( $props->{track_license_id} );

    # JPK - The form will want some additional data regarding this track, such as album and product id.
    #
    my $trackID = $self->{TrackLicense}->TrackID();

    # then let's get the album info
    #
    my $album = RPS::DB::Item::Album->GetByTrackID($trackID);
    $self->{AlbumName} = Common::FormObject::Scalar::String->new( value => $album->title );
    $self->{AlbumID} = Common::FormObject::Scalar->new( value => $album->album_id );

    # then let's get the product info
    #
    my $product = RPS::DB::Item::Product->Lookup( product_id => $props->{product_id} );
    $self->{ProductCode} = Common::FormObject::Scalar::String->new( value => $product->product_code );
    $self->{ProductTypeID} = Common::FormObject::Scalar->new( value => $product->product_type_id );
}

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

###
1;    #
###