#------------------------------------------------------------
# Copyright (C) 2012 RoyaltyShare, Inc.   All Rights Reserved
# $Id$
#------------------------------------------------------------
package RPS::Report::CAMechanicalReservePipeline;
use strict;
use warnings;

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

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

use base 'RPS::Report';

sub _baseXMLName { 'Line' }

sub _getDBItem() {
    my $self     = shift;
    my %args     = @_;
    my $runID    = $args{runID};
    my $regionID = $args{regionID};

    return RPS::DB::Item::ReportQueries::CAMechanicalReservePipeline->GetByMechanicalRunID( $runID, $regionID );
}

sub _reportColumns {
    my $self = shift;

    #my $currency = Common::Client::Current()->Locale()->currencyFormat()->currencyCode();
    my $currency = "CAD";

    return (
        "TrackTitle"    => "Track",
        "AlbumTitle"    => "Album Title",
        "UPC"           => "UPC",
        "PublisherName" => "Publisher",
        "AccountNumber" => "Client Account #",
        "RegionName"    => "Region",
        "TotalUnits"    => "Total Reserves Held: Units",
        "TotalRevenue"  => "Total Reserves Held: $currency",
        "Units0"        => "Current Period Taken: Units",
        "Revenue0"      => "Current Period Taken: $currency",
        "Units1"        => "Current Period Liquidated: Units",
        "Revenue1"      => "Current Period Liquidated: $currency",
        "Units2"        => "C+1: Units",
        "Revenue2"      => "C+1: $currency",
        "Units3"        => "C+2: Units",
        "Revenue3"      => "C+2: $currency",
        "Units4"        => "C+3: Units",
        "Revenue4"      => "C+3: $currency",
        "Units5"        => "C+4: Units",
        "Revenue5"      => "C+4: $currency",
        "Units6"        => "C+5: Units",
        "Revenue6"      => "C+5: $currency",
        "Units7"        => "C+6: Units",
        "Revenue7"      => "C+6: $currency",
        "Units8"        => "C+7: Units",
        "Revenue8"      => "C+7: $currency",
        "Units9"        => "C+8: Units",
        "Revenue9"      => "C+8: $currency",
    );
}

sub _fillInHash {
    my ( $self, $data ) = @_;

    my $locale = Common::Client::Current()->Locale();

    my %hash;
    $hash{RegionName}    = $data->region_name;
    $hash{RegionID}      = $data->region_id;
    $hash{PublisherName} = $data->publisher_name;
    $hash{CAPublisherID} = $data->ca_publisher_id;
    $hash{AccountNumber} = $data->client_account_id;
    $hash{UPC}           = $data->upc;
    $hash{CatalogNumber} = $data->catalog_number;
    $hash{AlbumID}       = $data->album_id;
    $hash{AlbumTitle}    = $data->album_title;
    $hash{TrackID}       = $data->track_id;
    $hash{TrackTitle}    = $data->track_title;

    $hash{TotalRevenue}        = $locale->formatNumber( $data->total_revenue );
    $hash{TotalRevenueRounded} = $locale->formatNumber( $data->total_revenue, '.2' );
    $hash{TotalUnits}          = $locale->formatNumber( $data->total_units );
    $hash{Revenue0}            = $locale->formatNumber( $data->revenue_0 );
    $hash{Revenue0Rounded}     = $locale->formatNumber( $data->revenue_0, '.2' );
    $hash{Units0}              = $locale->formatNumber( $data->units_0 );
    $hash{Revenue1}            = $locale->formatNumber( $data->revenue_1 );
    $hash{Revenue1Rounded}     = $locale->formatNumber( $data->revenue_1, '.2' );
    $hash{Units1}              = $locale->formatNumber( $data->units_1 );
    $hash{Revenue2}            = $locale->formatNumber( $data->revenue_2 );
    $hash{Revenue2Rounded}     = $locale->formatNumber( $data->revenue_2, '.2' );
    $hash{Units2}              = $locale->formatNumber( $data->units_2 );
    $hash{Revenue3}            = $locale->formatNumber( $data->revenue_3 );
    $hash{Revenue3Rounded}     = $locale->formatNumber( $data->revenue_3, '.2' );
    $hash{Units3}              = $locale->formatNumber( $data->units_3 );
    $hash{Revenue4}            = $locale->formatNumber( $data->revenue_4 );
    $hash{Revenue4Rounded}     = $locale->formatNumber( $data->revenue_4, '.2' );
    $hash{Units4}              = $locale->formatNumber( $data->units_4 );
    $hash{Revenue5}            = $locale->formatNumber( $data->revenue_5 );
    $hash{Units5}              = $locale->formatNumber( $data->units_5 );
    $hash{Revenue6}            = $locale->formatNumber( $data->revenue_6 );
    $hash{Units6}              = $locale->formatNumber( $data->units_6 );
    $hash{Revenue7}            = $locale->formatNumber( $data->revenue_7 );
    $hash{Units7}              = $locale->formatNumber( $data->units_7 );
    $hash{Revenue8}            = $locale->formatNumber( $data->revenue_8 );
    $hash{Units8}              = $locale->formatNumber( $data->units_8 );
    $hash{Revenue9}            = $locale->formatNumber( $data->revenue_9 );
    $hash{Units9}              = $locale->formatNumber( $data->units_9 );

    return \%hash;
}

###
1;    #
###