#------------------------------------------------------------
# Copyright (C) 2006 RoyaltyShare, Inc.   All Rights Reserved
# $Id$
#------------------------------------------------------------
package RPS::Statement::UKMechanical::BaseStatement;
use strict;
use warnings;

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

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

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

##  !!! This file has not been fully updated yet.
##


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

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

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

    $self->_initProperties(\%properties);

    return $self;
}






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

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


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

    assert($dbItem);

    $hrProperties->{mcps_statement_id}          = $dbItem->mcps_statement_id;
    $hrProperties->{uk_mechanical_run_id}       = $dbItem->uk_mechanical_run_id;
    $hrProperties->{status}                     = $dbItem->status;
    $hrProperties->{mcps_scheme}                = $dbItem->mcps_scheme;
    $hrProperties->{net_units}                  = $dbItem->net_units;
    $hrProperties->{gross_units}                = $dbItem->gross_units;
    $hrProperties->{royalty_payable_units}      = $dbItem->royalty_payable_units;
    $hrProperties->{retentions_held}            = $dbItem->retentions_held;
    $hrProperties->{retentions_liquidated}      = $dbItem->retentions_liquidated;
    $hrProperties->{estimated_liability}        = $dbItem->estimated_liability;
    $hrProperties->{date_created}               = $dbItem->date_created;
    $hrProperties->{date_modified}              = $dbItem->date_modified;
	$hrProperties->{created_by}                 = $dbItem->created_by;
	$hrProperties->{modified_by}                = $dbItem->modified_by;
}


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


    # !!! Eventually we're going to want to use the Publisher's currency code, but for
    # !!! now we'll assume GBP.
    #
    my $currencyCode = 'GBP';

    $self->{McpsStatementID}        = Common::FormObject::Scalar->new(value => $props->{mcps_statement_id}, readOnly => 1);
    $self->{UKMechanicalRunID}		= Common::FormObject::Scalar->new(value => $props->{uk_mechanical_run_id}, readOnly => 1);
    $self->{Status}                 = Common::FormObject::Scalar->new(value => $props->{status});
    $self->{McpsScheme}             = Common::FormObject::Scalar->new(value => $props->{mcps_scheme});
    $self->{NetUnits}               = Common::FormObject::Scalar::Integer->new(value => $props->{net_units});
    $self->{GrossUnits}             = Common::FormObject::Scalar::Integer->new(value => $props->{gross_units});
    $self->{RoyaltyPayableUnits}    = Common::FormObject::Scalar::Integer->new(value => $props->{royalty_payable_units});
    $self->{RetentionsHeld}         = Common::FormObject::Scalar::Integer->new(value => $props->{retentions_held});
    $self->{RetentionsLiquidated}   = Common::FormObject::Scalar::Integer->new(value => $props->{retentions_liquidated});
    $self->{EstimatedLiability}     = Common::FormObject::Scalar::Money->new(value => $props->{estimated_liability}, precision => '.4', currencyCode => $currencyCode);

    $self->{DateCreated}            = Common::FormObject::Scalar::DateTime->new(value => $props->{date_created}, readOnly => 1);
    $self->{DateModified}           = Common::FormObject::Scalar::DateTime->new(value => $props->{date_modified}, readOnly => 1);
	$self->{CreatedBy}              = Common::FormObject::Scalar::UserName->new(value => $props->{created_by}, readOnly => 1);
	$self->{ModifiedBy}             = Common::FormObject::Scalar::UserName->new(value => $props->{modified_by}, readOnly => 1);

}


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

###
1;#
###