package RPS::Import::Fontana;

use strict;


use Date::Calc qw(Days_in_Month Decode_Month);

use lib '/app/tools/common/lib';
use Common::Util;
use Common::Consts;

use lib '/app/tools/data_classes/lib';

use lib '/app/tools/rps/lib';
use RPS::File::Sale;
use RPS::Import::Importer;
use base 'RPS::Import::Importer';

use constant FIELD_CATNO    => 1;
use constant FIELD_ALBUM    => 2;
use constant FIELD_ARTIST   => 3;
use constant FIELD_FORMAT   => 7;
use constant FIELD_SALES    => 12;
use constant FIELD_PSALES   => 13;
use constant FIELD_RETURNS  => 14;
use constant FIELD_PRETURNS => 15;

my %field_map = (
                 1 => {
                        'catno'         => 1,
                        'album'         => 2,
                        'artist'        => 3,
                        'format'        => 7,
                        'sales'         => 12,
                        'psales'        => 13,
                        'returns'       => 14,
                        'preturns'      => 15,
                        'discount'      => 16,
                        'penalty'       => 17,
                        'reward'        => 18,
                        },
                 2 => {
                        'catno'         => 2,
                        'album'         => 3,
                        'artist'        => 4,
                        'format'        => 5,
                        'sales'         => 12,
                        'psales'        => 9,
                        'returns'       => 13,
                        'preturns'      => 10,
                        'scode'         => 16,
                        },
                  3 => {
                        'catno'         => 2,
                        'album'         => 3,
                        'artist'        => 4,
                        'format'        => 5,
                        'sales'         => 12,
                        'psales'        => 9,
                        'returns'       => 13,
                        'preturns'      => 10,
                        'scode'         => 16,
                        },
                   4 => {
                        'catno'         => 2,
                        'album'         => 3,
                        'artist'        => 4,
                        'format'        => 5,
                        'sales'         => 12,
                        'psales'        => 9,
                        'returns'       => 13,
                        'preturns'      => 10,
                        'scode'         => 16,
                   },
                );


#public methods

sub _importLines
{
	my $self = shift;
	my %args = @_;

	my $retval = undef;
    my $lines = $args{lines};
    my $sheets = $args{sheets};
    my $fileObj = $args{file};
    my $fileName = $fileObj->OrigFileName;
    my $version = $fileObj->VersionNum;
    my $offsets = $field_map{$version};

    my $free = 0;
    my $dateBegin;
    my $dateEnd;
    $lines = $sheets->[1] if($version==3);
    ($dateBegin, $dateEnd) = $self->_getDates($fileName);
    
    unless ($dateBegin && $dateEnd) {
        $self->errstr("couldn't get dates from $fileName");
        return undef;
    }
    
    my $linenum = 1;
    foreach my $line(@$lines)
    {
        $free = 0;
        my $price_level = RPS::File::Sale::PLEVEL_FULL;
        my $channel     = RPS::File::Sale::CHANNEL_RETAIL;
        my $catno       = $line->[$offsets->{'catno'}];
        my $artist      = $line->[$offsets->{'artist'}];
        my $album       = $line->[$offsets->{'album'}];
        my $config      = $line->[$offsets->{'format'}];
        my $prodtype;
        if ($config eq 'CD') {
            $prodtype = RPS::File::Sale::TYPE_CD;
        } elsif ($config eq 'DV') {
            $prodtype = RPS::File::Sale::TYPE_DVD;
        } elsif ($config eq 'VH') {
            $prodtype = RPS::File::Sale::TYPE_VHS;
        } elsif ($config eq 'CF') {
            $prodtype = RPS::File::Sale::TYPE_CD;
        } elsif ($config eq 'S5') {
            $prodtype = RPS::File::Sale::TYPE_CD_SIN;
        } elsif ($config eq 'ST') {
            $prodtype = RPS::File::Sale::TYPE_LP;
        } elsif ($config eq 'DX') {
            #$prodtype = RPS::File::Sale::TYPE_DVD_CD_SET;
            $prodtype = RPS::File::Sale::TYPE_CD;
        }
   
        my $scode           = $line->[$offsets->{'scode'}] if(defined $offsets->{scode});
        $free               = 1 if(defined $offsets->{scode} && $scode =~ /(51|53|54|59|85|91)/);
        my ($sales)	    	= $line->[$offsets->{'sales'}] =~ m/^(-?\d+)$/;
        my ($returns)	   	= $line->[$offsets->{'returns'}] =~ m/^(-?\d+)$/;
        my ($sales_price) 	= $line->[$offsets->{'psales'}] =~ m/^(-?\d*\.?\d*)$/;
        my ($returns_price)	= $line->[$offsets->{'preturns'}] =~ m/^(-?\d*\.?\d*)$/;
        my $total;
        if ($version == 1) {
            my ($discount) 	= $line->[$offsets->{'discount'}] =~ m/^(-?\d*\.?\d*)$/;
            my ($penalty)  	= $line->[$offsets->{'penalty'}] =~ m/^(-?\d*\.?\d*)$/;
            my ($reward)   	= $line->[$offsets->{'reward'}] =~ m/^(-?\d*\.?\d*)$/;
            $total = $sales_price + $returns_price + $discount + $penalty + $reward;
        } elsif ($version > 1) {
            $total = $sales_price + $returns_price;
        }

        $returns       *= -1;
        $returns_price *= -1;

        if ($prodtype && ($sales || $returns) && $album && $free == 0)
        {
            my $sale = RPS::Import::SaleRec->new();
 
            $sale->productType($prodtype);
            $sale->dateBegin($dateBegin);
            $sale->dateEnd($dateEnd);
            $sale->artistName($artist);
            $sale->albumName($album);
            $sale->clientProductID($catno);
            $sale->sales($sales);
            $sale->salesRevenue($sales_price);
            $sale->returns($returns);
            $sale->returnsRevenue($returns_price);
            $sale->totalRevenue($total);
            $sale->priceLevel($price_level);
            $sale->channel($channel);
            $sale->configuration($config);
            $sale->countryCode('US');
            $sale->lineNum($linenum);
    
            ##$args{dumper}($sale);  ## for cmd-line testing
            $self->_insertSale(sale => $sale);
        }
        #else { print STDERR "l: ".$linenum. " p: " . $prodtype . " c:". $config." f:".$scode ." s: " . $sales . " r: ". $returns . " a:". $album. "\n"; }
        $linenum++;
    }
	return $linenum;
}

#
# Private methods
#


sub _getDates
{
	my $self = shift;
	my $date = shift;

    my ($dateBegin, $dateEnd);

    if ($date =~ m/^Detailed Sales ([A-Z][a-z]{2})(\d{2})\.xls$/) {

        my $month = Decode_Month($1);
        my $year  = $2 + 2000;

        $dateBegin = sprintf("%04d-%02d-%02d", $year, $month, 1);
        $dateEnd   = sprintf("%04d-%02d-%02d", $year, $month, Days_in_Month($year, $month));
    } elsif($date =~ m/Six Sales (\d{2})(\d{2})\.xls/) {
        my $month = $1;
        my $year = $2 + 2000;
        $dateBegin = sprintf("%04d-%02d-%02d", $year, $month, 1);
        $dateEnd   = sprintf("%04d-%02d-%02d", $year, $month, Days_in_Month($year, $month)); 
    } elsif ($date =~ m/([A-Z][a-z]{2,3})\.? (\d{2}) Sales\.xls$/) {

        my $month = Decode_Month($1);
        my $year  = $2 + 2000;

        $dateBegin = sprintf("%04d-%02d-%02d", $year, $month, 1);
        $dateEnd   = sprintf("%04d-%02d-%02d", $year, $month, Days_in_Month($year, $month));
    } elsif($date =~ m/Detail Sales (\d{2})(\d{2}) - USD\.xls/) {

        my $month = $1;
        my $year  = $2 + 2000;

        $dateBegin = sprintf("%04d-%02d-%02d", $year, $month, 1);
        $dateEnd   = sprintf("%04d-%02d-%02d", $year, $month, Days_in_Month($year, $month));
    
    } elsif ($date =~ m/(\d{4}) (\d+)/) {
        my $month = $2;
        my $year = $1;

        $dateBegin = sprintf("%04d-%02d-%02d", $year, $month, 1);
        $dateEnd   = sprintf("%04d-%02d-%02d", $year, $month, Days_in_Month($year, $month));
    } else {
        return undef;
    }

	return ($dateBegin, $dateEnd);
}

###
1;# Play nicely.
###