package RPS::Import::ADAPhys;

use strict;

use lib '/app/tools/common/lib';
use Common::Util qw(normalize_date normalize_upc);
use Date::Calc qw(Days_in_Month);

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

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

# header record
use constant ROW_DATES => 2;
use constant COL_DATES => 0;

# detail records
my %field_map = (
    1 => {
        SFIELD_LABEL     => 0,
        SFIELD_CONFIG    => 2,
        SFIELD_UPC       => 5,
        SFIELD_ARTIST    => 7,
        SFIELD_TITLE     => 8,
        SFIELD_UNITS     => 10,
        SFIELD_PRICE     => 12,
        RFIELD_LABEL     => 0,
        RFIELD_CONFIG    => 2,
        RFIELD_UPC       => 3,
        RFIELD_ARTIST    => 5,
        RFIELD_TITLE     => 6,
        RFIELD_UNITS     => 8,
        RFIELD_PRICE     => 10,
        RFIELD_RETAIL    => 15,
        RFIELD_WHOLESALE => 16,
    },
    2 => {
        SFIELD_LABEL  => 0,
        SFIELD_CONFIG => 2,
        SFIELD_UPC    => 5,
        SFIELD_ARTIST => 7,
        SFIELD_TITLE  => 8,
        SFIELD_UNITS  => 10,
        SFIELD_PRICE  => 12,
        RFIELD_LABEL  => 0,
        RFIELD_CONFIG => 2,
        RFIELD_UPC    => 5,
        RFIELD_ARTIST => 7,
        RFIELD_TITLE  => 8,
        RFIELD_UNITS  => 10,
        RFIELD_PRICE  => 12,
    },
);

#
# Private methods
#

sub _importLines {
    my $self     = shift;
    my %args     = @_;
    my $fileObj  = $args{file};
    my $version  = $args{file}->VersionNum();
    my $fileName = $fileObj->OrigFileName;
    my $sheets   = $args{sheets};

    return undef unless ($sheets);

    my $sales_sheet   = $$sheets[0];
    my $returns_sheet = $$sheets[1];

    my $lineNum = 0;

    ### process sales ###
    my ( $dateBegin, $dateEnd ) = $self->_getDates( $sales_sheet->[ROW_DATES][COL_DATES] );
    unless ( $dateBegin && $dateEnd ) {
        $self->errstr("couldn't get dates from sales tab");
        return undef;
    }

    $lineNum = 1;
    foreach my $line (@$sales_sheet) {
        my $artist      = $line->[ $field_map{$version}{SFIELD_ARTIST} ];
        my $album       = $line->[ $field_map{$version}{SFIELD_TITLE} ];
        my $upc         = Common::Util::normalize_upc( $line->[ $field_map{$version}{SFIELD_UPC} ] );
        my $label       = $line->[ $field_map{$version}{SFIELD_LABEL} ];
        my $config      = $line->[ $field_map{$version}{SFIELD_CONFIG} ];
        my $retailPrice = $line->[ $field_map{$version}{RFIELD_RETAIL} ];
        my $wholesale   = $line->[ $field_map{$version}{RFIELD_WHOLESALE} ];
        my $prodType;

        if ( $config eq "CD" ) {
            $prodType = RPS::File::Sale::TYPE_CD;
        } elsif ( $config eq "A" ) {
            $prodType = RPS::File::Sale::TYPE_LP;
        } elsif ( $config eq "DV" ) {
            $prodType = RPS::File::Sale::TYPE_DVD;
        } elsif ( $config eq "MS" ) {
            $prodType = RPS::File::Sale::TYPE_CAS_SIN;
        } elsif ( $config eq "TC" ) {
            $prodType = RPS::File::Sale::TYPE_CASS;
        } elsif ( $config eq "CM" ) {
            $prodType = RPS::File::Sale::TYPE_CD_SIN;
        } elsif ( $config eq "" || $config =~ m/^cfg$/i ) {
            $lineNum++;
            next;
        } else {
            $self->errstr("unknown format $config line: $lineNum");

            #return undef;
        }

        my ($units) = $line->[ $field_map{$version}{SFIELD_UNITS} ] =~ m/^(-?\d+)$/;
        my ($price) = $line->[ $field_map{$version}{SFIELD_PRICE} ] =~ m/^(-?\d*\.?\d*)$/;

        if ( $prodType && $price && $artist && $album ) {
            my $sale = RPS::Import::SaleRec->new();

            $sale->productType($prodType);
            $sale->dateBegin($dateBegin);
            $sale->dateEnd($dateEnd);
            $sale->upc($upc);
            $sale->artistName($artist);
            $sale->albumName($album);
            $sale->labelName($album);

            $sale->retailPrice($retailPrice);
            $sale->wholesalePrice($wholesale);

            if ( $units < 0 || $price < 0 ) {

                # returns on the sales tab
                $units *= -1 if ( $units < 0 );
                $price *= -1 if ( $price < 0 );

                $sale->returns($units);
                $sale->returnsRevenue($price);
                $sale->totalRevenue( $price * -1 );

            } else {

                # normal sale
                $sale->sales($units);
                $sale->salesRevenue($price);
                $sale->totalRevenue($price);
            }

            $sale->channel(RPS::File::Sale::CHANNEL_RETAIL);
            $sale->priceLevel(RPS::File::Sale::PLEVEL_FULL);
            $sale->countryCode('US');
            $sale->lineNum($lineNum);

            $self->_insertSale( sale => $sale );
        }
        $lineNum++;
    }

    ### process returns ###
    ( $dateBegin, $dateEnd ) = $self->_getDates( $returns_sheet->[ROW_DATES][COL_DATES] );
    unless ( $dateBegin && $dateEnd ) {
        $self->errstr("couldn't get dates from returns tab");
        return undef;
    }

    $lineNum = 1;
    foreach my $line (@$returns_sheet) {
        my $artist      = $line->[ $field_map{$version}{RFIELD_ARTIST} ];
        my $album       = $line->[ $field_map{$version}{RFIELD_TITLE} ];
        my $upc         = Common::Util::normalize_upc( $line->[ $field_map{$version}{RFIELD_UPC} ] );
        my $label       = $line->[ $field_map{$version}{RFIELD_LABEL} ];
        my $config      = $line->[ $field_map{$version}{RFIELD_CONFIG} ];
        my $retailPrice = $line->[ $field_map{$version}{RFIELD_RETAIL} - 2 ];
        my $wholesale   = $line->[ $field_map{$version}{RFIELD_WHOLESALE} - 2 ];
        my $prodType;

        if ( $config eq "CD" ) {
            $prodType = RPS::File::Sale::TYPE_CD;
        } elsif ( $config eq "A" ) {
            $prodType = RPS::File::Sale::TYPE_LP;
        } elsif ( $config eq "DV" ) {
            $prodType = RPS::File::Sale::TYPE_DVD;
        } elsif ( $config eq "MS" ) {
            $prodType = RPS::File::Sale::TYPE_CAS_SIN;
        } elsif ( $config eq "TC" ) {
            $prodType = RPS::File::Sale::TYPE_CASS;
        } elsif ( $config eq "CM" ) {
            $prodType = RPS::File::Sale::TYPE_CD_SIN;
        } elsif ( $config eq "" || $config =~ m/^cfg$/i ) {
            $lineNum++;
            next;
        } else {
            $self->errstr("unknown format $config");
            return undef;
        }

        my ($units) = $line->[ $field_map{$version}{RFIELD_UNITS} ];    # =~ m/^(-?\d+)$/;
        my ($price) = $line->[ $field_map{$version}{RFIELD_PRICE} ];    # =~ m/^(-?\d*\.?\d*)$/;

        $units *= -1 if ( $units < 0 );
        $price *= -1 if ( $price < 0 );

        if ( $prodType && $price != 0 && $artist && $album ) {
            my $sale = RPS::Import::SaleRec->new();

            $sale->productType($prodType);
            $sale->dateBegin($dateBegin);
            $sale->dateEnd($dateEnd);
            $sale->upc($upc);
            $sale->artistName($artist);
            $sale->albumName($album);
            $sale->labelName($label);
            $sale->returns($units);
            $sale->returnsRevenue($price);
            $sale->totalRevenue( $price * -1 );

            #$sale->totalRevenue($price);
            $sale->channel(RPS::File::Sale::CHANNEL_RETAIL);
            $sale->priceLevel(RPS::File::Sale::PLEVEL_FULL);
            $sale->countryCode('US');
            $sale->lineNum($lineNum);

            $sale->retailPrice($retailPrice);
            $sale->wholesalePrice($wholesale);

            $self->_insertSale( sale => $sale );
        }
        $lineNum++;
    }

    return $lineNum;
}

sub _getDates {
    my $self      = shift;
    my $dateField = shift || return undef;
    my %dateIndex = (
        January   => 1,
        February  => 2,
        March     => 3,
        April     => 4,
        May       => 5,
        June      => 6,
        July      => 7,
        August    => 8,
        September => 9,
        October   => 10,
        November  => 11,
        December  => 12
    );

    $dateField =~ m#-([\d/]+)\)#;
    my $dateEnd = normalize_date($1);
    my $dateStart;

    # If the dateField is Month Year ( date range )
    if ($dateEnd) {
        return undef unless $dateEnd;

        substr( $dateEnd, -2 ) = Days_in_Month( substr( $dateEnd, 0, 4 ), substr( $dateEnd, 5, 2 ) );
        $dateStart = normalize_date( sprintf( "%d%02d01", substr( $dateEnd, 0, 4 ), substr( $dateEnd, 5, 2 ) ) );
    }

    # Does not have a date range
    else {
        $dateField =~ /(\w+) (\d+)/;
        my $month = $dateIndex{$1} if ($1);
        my $year = $2;

        return unless ( $month && $year );

        my $daysInMonth = Days_in_Month( $year, $month );

        $dateStart = sprintf( "%04d-%02d-%02d", $year, $month, 1 );
        $dateEnd   = sprintf( "%04d-%02d-%02d", $year, $month, $daysInMonth );
    }

    return ( $dateStart, $dateEnd );
}

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