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

use Carp;

use Data::Dumper;

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

use RPS::DB::Item::ArtistPayee;

use RPS::XMLObject;
use base 'RPS::XMLObject';

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

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

    if ( $args{_dbItem} ) {
        return $self->_initFromDBItem( $args{_dbItem} );
    } elsif ( $args{artistPayeeID} ) {
        return $self->_initFromDB( $args{artistPayeeID} );
    } else {
        return $self->_initWithDefaults();
    }
}

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

    my $dbItem = RPS::DB::Item::ArtistPayee->Lookup( artist_payee_id => $id );
    return $self->_initFromDBItem($dbItem);
}

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

    $self->_initProperties($dbItem);
    $self->_initSubs($dbItem);

    return $self;
}

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

    $self->{ArtistPayeeID} = RPS::XMLObject::Scalar::Integer->new( value => $dbItem->artist_payee_id, readOnly => 1 );
    $self->{Name}          = RPS::XMLObject::Scalar::String->new( value => $dbItem->name );
    $self->{Address1}      = RPS::XMLObject::Scalar::String->new( value => $dbItem->address1 );
    $self->{Address2}      = RPS::XMLObject::Scalar::String->new( value => $dbItem->address2 );
    $self->{Address3}      = RPS::XMLObject::Scalar::String->new( value => $dbItem->address3 );
    $self->{City}          = RPS::XMLObject::Scalar::String->new( value => $dbItem->city );
    $self->{StateProvince} = RPS::XMLObject::Scalar::String->new( value => $dbItem->state_province );
    $self->{CountryCode}   = RPS::XMLObject::Scalar::String->new( value => $dbItem->country_code );     # !!!
    $self->{PostalCode}    = RPS::XMLObject::Scalar::String->new( value => $dbItem->postal_code );      # !!!
    $self->{Email} = RPS::XMLObject::Scalar::EmailAddress->new( value => $dbItem->email );
    $self->{PhoneNumber} = RPS::XMLObject::Scalar::String->new( value => $dbItem->phone_number );       # !!!
    $self->{FaxNumber}   = RPS::XMLObject::Scalar::String->new( value => $dbItem->fax_number );         # !!!
    $self->{TaxID}       = RPS::XMLObject::Scalar::String->new( value => $dbItem->tax_id );
    $self->{CycleCode}      = RPS::XMLObject::Scalar::Integer->new( value => $dbItem->cycle_code );
    $self->{MinPayment}     = RPS::XMLObject::Scalar::Decimal->new( value => $dbItem->min_payment, format => '8.2' );
    $self->{BeginMonthCode} = RPS::XMLObject::Scalar::Integer->new( value => $dbItem->begin_month_code );
    $self->{Comments} = RPS::XMLObject::Scalar::String->new( value => $dbItem->comments );

    $self->{FinanceAccountID} = RPS::XMLObject::Scalar::Integer->new( value => $dbItem->finance_account_id, readOnly  => 1 );
    $self->{OpeningBalance}   = RPS::XMLObject::Scalar::Decimal->new( value => $dbItem->opening_balance,    precision => 8.2 );

    $self->{CreatedDate}  = RPS::XMLObject::Scalar::DateTime->new( value => $dbItem->date_created,  readOnly => 1 );
    $self->{ModifiedDate} = RPS::XMLObject::Scalar::DateTime->new( value => $dbItem->date_modified, readOnly => 1 );
    $self->{CreatedBy}    = RPS::XMLObject::Scalar::UserName->new( value => $dbItem->created_by,    readOnly => 1 );
    $self->{ModifiedBy}   = RPS::XMLObject::Scalar::UserName->new( value => $dbItem->modified_by,   readOnly => 1 );

    return $self;
}

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

    if ( $self->loadSubs() ) {

        # Account information (including current balance) will be held in a seperate class.
        #
        $self->{Account} = RPS::Finance::Account->new( accountID => $dbItem->finance_account_id );
    }

    return $self;
}

sub _initWithDefaults {
    my ($self) = @_;

    $self->{ArtistPayeeID}  = RPS::XMLObject::Scalar::Integer->new( readOnly => 1 );
    $self->{Name}           = RPS::XMLObject::Scalar::String->new();
    $self->{Address1}       = RPS::XMLObject::Scalar::String->new();
    $self->{Address2}       = RPS::XMLObject::Scalar::String->new();
    $self->{Address3}       = RPS::XMLObject::Scalar::String->new();
    $self->{City}           = RPS::XMLObject::Scalar::String->new();
    $self->{StateProvince}  = RPS::XMLObject::Scalar::String->new();
    $self->{CountryCode}    = RPS::XMLObject::Scalar::String->new();
    $self->{PostalCode}     = RPS::XMLObject::Scalar::String->new();
    $self->{Email}          = RPS::XMLObject::Scalar::EmailAddress->new();
    $self->{PhoneNumber}    = RPS::XMLObject::Scalar::String->new();
    $self->{FaxNumber}      = RPS::XMLObject::Scalar::String->new();
    $self->{TaxID}          = RPS::XMLObject::Scalar::String->new();
    $self->{CycleCode}      = RPS::XMLObject::Scalar::Integer->new();
    $self->{MinPayment}     = RPS::XMLObject::Scalar::Decimal->new( format => '8.2' );
    $self->{BeginMonthCode} = RPS::XMLObject::Scalar::Integer->new();
    $self->{Comments}       = RPS::XMLObject::Scalar::String->new();

    $self->{FinanceAccountID} = RPS::XMLObject::Scalar::Integer->new( readOnly  => 1 );
    $self->{OpeningBalance}   = RPS::XMLObject::Scalar::Decimal->new( precision => 8.2 );

    $self->{CreatedDate}  = RPS::XMLObject::Scalar::DateTime->new( readOnly => 1 );
    $self->{ModifiedDate} = RPS::XMLObject::Scalar::DateTime->new( readOnly => 1 );
    $self->{CreatedBy}    = RPS::XMLObject::Scalar::UserName->new( readOnly => 1 );
    $self->{ModifiedBy}   = RPS::XMLObject::Scalar::UserName->new( readOnly => 1 );

    if ( $self->loadSubs() ) {
        $self->{Account} = RPS::Finance::Account->new();
    }

    return $self;
}

###
1;    #
###