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

use Carp;

use Data::Dumper;
use Date::Calc;

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

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

use RPS::Label;
use RPS::Payor::Payor;
use RPS::Statement::Mechanical::StatementTrackList;
use RPS::Statement::Mechanical::StatementTransactionList;
use RPS::Statement::Mechanical::StatementPublisherList;
use RPS::DB::Item::MechanicalStatement;


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


sub _init
{
    my ($self, %args) = @_;
    my $timer = Common::Timer->new();

    $self->{_hfa} = $args{hfa};
    $self->{_focusPublisherID} = $args{focusPublisherID};

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


#    $self->_postProcess();

    return $self;
}


# !!! This absolutely seems pointless now..
#
#sub _postProcess
#{
#    if ($self->{_hfa})
#    {
#        my $digitalTotal = 0;
#        my $physicalTotal = 0;
#
#        if ($self->{Publisher}->IsAdmin()
#         || $self->{Publisher}->IsAgency())
#        {
#            my $pubList = $self->{MechanicalStatementPublisherList}->getList();
#            foreach my $publisher (@$pubList)
#            {
#                my $trackList = $publisher->getTrackList();
#                my ($pubDigitalTotal, $pubPhysicalTotal) = _getTrackListTotal($trackList);
#                $digitalTotal += $pubDigitalTotal;
#                $physicalTotal += $pubPhysicalTotal;
#            }
#        }
#        else
#        {
#            my $trackList = $self->{MechanicalStatementTrackList}->getList();
#            ($digitalTotal, $physicalTotal) = _getTrackListTotal($trackList);
#        }
#
#
#        # Now replace the previously calculated totals with these.
#        #
#        $self->{PhysicalSubtotal}       = Common::FormObject::Scalar::Decimal->new(value => $digitalTotal, format => '.4');
#        $self->{DigitalSubtotal}        = Common::FormObject::Scalar::Decimal->new(value => $physicalTotal, format => '.4');
#    }
#}
#
#
#sub _getTrackListTotal
#{
#    my ($trackList) = @_;
#
#    my $physicalTotal;
#    my $digitalTotal;
#
#    foreach my $track (@$trackList)
#    {
#        my ($trackD, $trackP) = $track->getDigitalPhysicalTotals();
#    }
#    return ($digitalTotal, $physicalTotal);
#}
#


sub _initProperties
{
    my ($self, $props) = @_;
    my $timer = Common::Timer->new();

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


    # jpk - the ManufacturerNumber is assigned by hfa, and is based on client id.
    # !!! Why look this up now?  why not put this in the mechanical_statement table?
    #
    my $manufacturerCode = Common::Client::Current()->HFAManufacturerCode();
    $self->{ManufacturerNumber}     = Common::FormObject::Scalar::String->new(value => $manufacturerCode, readOnly => 1);


    # jpk - transaction date is supposed to be the date this statement is submitted to hfa.
    #      So, we'll just use the current date.
    #
    my (undef,undef,undef,$mday,$mon,$year,undef,undef,$isdst)=localtime(time);
    my $now = sprintf("%4d%02d%02d", $year+1900, $mon+1, $mday);
    $self->{TransactionDate}        = Common::FormObject::Scalar->new(value => $now, readOnly => 1);


    # jpk - report the number of items
    #
    my $numLines;
    if ($self->{_hfa})
    {
        $numLines = RPS::DB::Item::MechanicalStatementItem->GetNumPositiveItemsByStatementID($props->{mechanical_statement_id});
    }
    else
    {
        $numLines = RPS::DB::Item::MechanicalStatementItem->GetNumItemsByStatementID($props->{mechanical_statement_id});
    }
    $self->{NumLines}               = Common::FormObject::Scalar->new(value => $numLines);

    if ($self->{Publisher}->IsAdmin()
     || $self->{Publisher}->IsAgency())
    {
        $self->{MechanicalStatementPublisherList} = RPS::Statement::Mechanical::StatementPublisherList->new
        (
            mechanicalStatementID => $props->{mechanical_statement_id},
            hfa => $self->{_hfa},
            focusPublisherID => $self->{_focusPublisherID},
        );
    }
    else
    {
        # Load the list of statement lines.
        #
        $self->{MechanicalStatementTrackList}
         = RPS::Statement::Mechanical::StatementTrackList->new(mechanicalStatementID => $props->{mechanical_statement_id},
          hfa => $self->{_hfa});
    }

    $self->{MechanicalStatementTransactionList}
     = RPS::Statement::Mechanical::StatementTransactionList->new(mechanicalStatementID => $props->{mechanical_statement_id});

    $self->{Payor} = RPS::Payor::Payor->new(payorID => $props->{payor_id}, loadSubs => 0);
}


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

sub _calculateReportingPeriod
{
    my ($startDate, $endDate) = @_;

    my ($startYear, $startMonth, $startDay) = split('-', $startDate);
    my ($endYear, $endMonth, $endDay) = split('-', $endDate);

    my ($dy, $dm, $dd) = Date::Calc::Delta_YMD($startYear, $startMonth, $startDay, $endYear, $endMonth, $endDay);

    my $months = (12 * $dy) + $dm;
    if ($dd > 0)
    {
        $months++;
    }

    # Good ole' harry fox assumes the year is >= 2000.
    #
    my $period = sprintf("%02d%02d%02d", $months, $endMonth, ($endYear - 2000));
    return $period;
}


###
1;#
###