#------------------------------------------------------------
# Copyright (C) 2006 RoyaltyShare, Inc.   All Rights Reserved
#------------------------------------------------------------
package RPS::Report::UKMechMissedSales;
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::MechanicalRunMissedSaleLog;
use RPS::DB::Item::SaleRunMap;

use base 'RPS::Report';

sub _baseXMLName { 'MissedSale' }

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

    return RPS::DB::Item::MechanicalRunMissedSaleLog->GetByRunIDAndType($runID, RPS::DB::Item::SaleRunMap::kRunTypeUKMechanical);
}

sub _reportColumns {
    my $self = shift;

    return (
             "CatalogNumber"         => "Catalog #",
             "AlbumTitle"            => "Album Title",
             "ArtistName"            => "Artist",
             "ProductType"           => "Product",
             "Units"                 => "Units",
             "Reason"                => "Reason",
             "Details"               => "Details",
    );
}

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

    my %data;


    $data{ArtistName}       = $logLine->artist_name;
    $data{CatalogNumber}    = $logLine->catalog_number;
    $data{AlbumTitle}       = $logLine->album_title;
    $data{AlbumID}          = $logLine->album_id;
    $data{ProductID}        = $logLine->product_id;
    $data{ProductType}      = $logLine->product_type;
    $data{ProductTypeID}    = $logLine->product_type_id;
    $data{Units}            = Common::Client::Current()->Locale()->formatNumber($logLine->units);
    $data{TotalRevenue}     = Common::Client::Current()->Locale()->formatMoney($logLine->total_revenue);
    $data{Reason}           = $logLine->reason;
    $data{Details}          = $logLine->details;

    return \%data;
}








###
1;#
###