package RPS::Import::WMG::SprintMultiMonthTab;

use strict;

use lib '/app/tools/common/lib';
use Common::Util qw(normalize_isrc);

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

use lib '/app/tools/rps/lib';
use RPS::File::Sale;
use RPS::Import::WMG::Util;
use base 'RPS::Import::WMG::SprintBase';

my %field_map =
(
    13 => {
        units_adjust=> -1,
        month       => 0,
        year        => 1,
        cli_prod_id => 3,
        svc_prod_id => 4,
        description => 5,
        units       => 8,
        retail      => 9,
        rate        => 10,
        price       => 11,
        isrc        => 12,
    },
    14 => {
        units_adjust=> 1,
        date        => 6,
        cli_prod_id => 0,
        description => 3,
        svc_prod_id => 5,
        isrc        => 7,
        units       => 8,
        retail      => 10,
        rate        => 11,
        price       => 12,
    },
    15 => {
        units_adjust=> -1,
        cli_prod_id => 3,
        description => 5,
        isrc        => 6,
        svc_prod_id => 7,
        date        => 8,
        units       => 9,
        retail      => 11,
        price       => 12,
    },
    16 => {
        units_adjust=> -1,
        cli_prod_id => 1,
        svc_prod_id => 2,
        date        => 4,
        description => 7,
        isrc        => 8,
        units       => 9,
        retail      => 12,
        price       => 15,
    },
    17 => {
        units_adjust=> -1,
        cli_prod_id => 1,
        svc_prod_id => 2,
        date        => 4,
        description => 7,
        isrc        => 8,
        units       => 9,
        retail      => 11,
        price       => 14,
    },
    18 => {
        units_adjust=> -1,
        svc_prod_id => 1,
        cli_prod_id => 3,
        date        => 4,
        description => 7,
        isrc        => 8,
        units       => 9,
        retail      => 11,
        price       => 12,
    },
    19 => {
        units_adjust=> -1,
        cli_prod_id => 3,
        description => 4,
        isrc        => 5,
        svc_prod_id => 7,
        date        => 8,
        units       => 9,
        retail      => 11,
        price       => 12,
    },
    22 => {
        units_adjust=> -1,
        cli_prod_id => 4,
        description => 5,
        isrc        => 12,
        svc_prod_id => 2,
        date        => 7,
        units       => 8,
        retail      => 9,
        price       => 11,
    },
    23 => {
        units_adjust=> -1,
        cli_prod_id => 3,
        description => 5,
        date        => 7,
        units       => 8,
        price       => 11,
        isrc        => 12,
        retail      => 13,
    },
    24 => {
        units_adjust=> -1,
        cli_prod_id => 2,
        description => 5,
        date        => 7,
        units       => 8,
        retail      => 9,
        price       => 12,
        isrc        => 13,
    },
);


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

    my $sheets = $args{sheets};
    my $fileObj = $args{file};
    my $version = $self->_version;

    my ($billTo, $sellTo) = RPS::Import::WMG::Util::getWirelessInfo($self->{fileServiceID});
    unless ($billTo && $sellTo)
    {
        $self->warning();
        print STDERR "unknown billto/sellto mapping: $self->{fileServiceID}\n";
    }

    $fileObj->Atomic(1);
    $fileObj->Save();

    my $offsets = $field_map{$version};
    my $prodType = RPS::File::Sale::TYPE_TRACK;
    my %errors;
    my $i = 0;

    foreach my $sheet(@$sheets)
    {
        #my $linenum = 100000 * ($i + 1); # keeps linenum unique for each sheet
        my $linenum = 1;
        my ($dateBegin, $dateEnd);
        $self->_setDateRangeFromNumeric($sheet, $offsets->{date}) if ($version =~ /(14|17)/);
        my ($clientProdID, $formatName, $format);

        foreach my $line(@$sheet)
        {
        if($line->[$offsets->{cli_prod_id}] ne "" && $line->[$offsets->{cli_prod_id}] !~ /(content|partner)/i && $line->[$offsets->{description}] ne "" && $line->[$offsets->{price}] ne "" && $line->[$offsets->{units}] ne "") {
            my $prodID = $line->[$offsets->{cli_prod_id}];
            next if ($prodID =~ /(content|partner)/i);
            if ($prodID && $prodID =~ /^B\d+/ && $prodID ne $clientProdID)
            {
                $clientProdID = $prodID;
                $formatName = $self->_decodeSprintFormatID($clientProdID);
                $format =  RPS::Import::WMG::Util::getWirelessFormatTypeID($formatName);

                unless ($formatName && $format)
                {
                    unless ($errors{$clientProdID})
                    {
                        print STDERR "unknown format for $clientProdID\n";
                        $errors{$clientProdID} = 1;
                    }
                    $linenum++;
                    next;
                }
            }
            my $priceType = RPS::Import::WMG::Util::getWirelessPriceType($formatName);
            unless ($priceType)
            {
                unless ($errors{$formatName})
                {
                    $self->warning();
                    print STDERR "unknown format mapping: $formatName\n";
                    $errors{$formatName} = 1;
                }
            }

            my ($track, $artist);
            if ($version =~ /(13|14|24)/)
            {
                $formatName =~ /^(\w)/;
                ($track, $artist) = $self->_parseDescription($line->[$offsets->{description}], $1);
                $track =~ s/-$//;
            }
            else
            {
                $track = $line->[$offsets->{description}];
            }

            my $svcProdID = $line->[$offsets->{svc_prod_id}];
            next if ($svcProdID =~ m/\s+Total$/);
            my $units   = $self->numeric($line->[$offsets->{units}]);
            my $retail  = $self->numeric($line->[$offsets->{retail}]);
            my $ppdRate = exists $offsets->{rate} ? $self->numeric($line->[$offsets->{rate}]) : undef;
            my $price   = $self->numeric($line->[$offsets->{price}]);
            my $isrc    = defined $offsets->{isrc} ? normalize_isrc($line->[$offsets->{isrc}]) : '';

            ($dateBegin, $dateEnd) =
                $version =~ /(14|17|18)/ ? $self->_getDatesFromNumeric($line->[$offsets->{date}]) : 
                $version =~ /(15|16|19|22|23|24)/ ? $self->_getDates($line->[$offsets->{date}]) :
                $self->_getDatesMY($line->[$offsets->{month}], $line->[$offsets->{year}]);
            my $origDate =
                $version =~ /(14|17|18)/ ? $self->numericToDate($line->[$offsets->{date}]) : 
                $version =~ /(15|16|19|22|23|24)/ ? $line->[$offsets->{date}] :
                join('-', $line->[$offsets->{year}], $line->[$offsets->{month}], 1);

            if ($track && $units && $retail != 0 && $price =~ m/\d/)
            {
                unless ($dateBegin && $dateEnd)
                {
                    $self->errstr("couldn't get dates");
                    $linenum++;
                    next;
                }

                if ($ppdRate ne "")
                {
                    $ppdRate = $price / $retail;
                }
                else
                {
                    $retail /= $units;
                    $price /= $units;
                }

                $units *= $offsets->{units_adjust} unless ($units < 0);

                my $sale = RPS::Import::SaleRec->new();

                $sale->productType($prodType);
                $sale->formatType($format);
                $sale->dateBegin($dateBegin);
                $sale->dateEnd($dateEnd);
                $sale->serviceProductID($svcProdID);
                $sale->clientProductID($clientProdID);
                $sale->artistName($artist);
                $sale->trackName($track);
                $sale->isrc($isrc);
                $sale->units($units);
                $sale->price($price);
                $sale->retail($retail);
                $sale->wholesaleRate($ppdRate);
                $sale->priceType($priceType);
                $sale->payoutType($origDate); # had to stick this somewhere
                $sale->lineNum($linenum);

                #$args{dumper}($sale); # for cmd-line testing
                $self->_insertSale(sale => $sale);
            }else { print STDERR "skip l: $linenum r: $retail u: $units p: $price t: $track ($linenum)\n" }
    }
            $linenum++;
        }
        $i++;
    }

    return $i;
}

#
# Private methods
#

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