package RPS::Import::Fusion;

use strict;

use Data::Dumper;
use Date::Calc qw(Days_in_Month Decode_Month);

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

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 DATE_ROW       => 3;
use constant DATE_START_COL => 14;
use constant DATE_END_COL   => 18;

use constant FIELD_CATNO     => 0;
use constant FIELD_ALBUM     => 1;
use constant FIELD_FORMAT    => 2;
use constant FIELD_SALES     => 10;
use constant FIELD_RETURNS   => 11;
use constant FIELD_DEFECTS   => 12;
use constant FIELD_RETAIL    => 14;
use constant FIELD_WHOLESALE => 18;
use constant FIELD_PRICE     => 19;
use constant FIELD_TOTAL     => 20;

#public methods

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

    my $retval = undef;
    my $sheets = $args{sheets};

    my $linenum;

    foreach my $sheet (@$sheets) {

        #for (my $i = 0; $i < 20; $i++) {
        #print "line $i: ".$sheet->[$i]->[DATE_START_COL]."\n";
        #}
        #print "\n";
        #next;

        my ( $dateBegin, $dateEnd ) = $self->_getDates( $sheet->[DATE_ROW]->[DATE_START_COL], $sheet->[DATE_ROW]->[DATE_END_COL] );

        unless ( $dateBegin && $dateEnd ) {
            $self->errstr( "couldn't get dates from " . $sheet->[DATE_ROW]->[DATE_START_COL] );
            print STDERR "couldn't get dates from " . $sheet->[DATE_ROW]->[DATE_START_COL] . "\n";
            return undef;
        }

        my $comp_date = $dateBegin;
        $comp_date =~ s/\-//g;

        $linenum = 1;
        $linenum = 10 if ( $comp_date > 200706 );
        my $prev_catno  = "";
        my $prev_album  = "";
        my $prev_format = "";
        foreach my $line (@$sheet) {
            my $prodtype    = RPS::File::Sale::TYPE_PHYSICAL;
            my $price_level = RPS::File::Sale::PLEVEL_UNKNOWN;
            my $channel     = RPS::File::Sale::CHANNEL_RETAIL;
            my $catno       = $line->[FIELD_CATNO];
            my $album       = $line->[FIELD_ALBUM];
            my $format      = $line->[FIELD_FORMAT];

            my ($sales)           = $line->[FIELD_SALES] =~ m/^(-?\d+)$/;
            my ($returns)         = $line->[FIELD_RETURNS] =~ m/^(-?\d+)$/;
            my ($defects)         = $line->[FIELD_DEFECTS] =~ m/^(-?\d+)$/;
            my ($price)           = $line->[FIELD_PRICE] =~ m/^(-?\d*\.?\d*)$/;
            my ($total_price)     = $line->[FIELD_TOTAL] =~ m/^(-?\d*\.?\d*)$/;
            my ($retail_price)    = $line->[FIELD_RETAIL] =~ m/^(-?\d*\.?\d*)$/;
            my ($wholesale_price) = $line->[FIELD_WHOLESALE] =~ m/^(-?\d*\.?\d*)$/;

            # 'defects' is used just to reduce the number of sales.
            # but they aren't really returns.
            $sales -= $defects;
            $sales = 0 if $sales < 0;

            if ( ( $sales || $returns ) && $catno eq "" ) {

                #print STDERR "got one: $prev_catno / $prev_album / $prev_format\n";
                $catno  = $prev_catno;
                $album  = $prev_album;
                $format = $prev_format;
            }

            my $sales_price   = $sales * $price;
            my $returns_price = $returns * $price;

            if ( $prodtype && ( $sales || $returns ) && $album ) {
                my $sale = RPS::Import::SaleRec->new();

                $sale->productType($prodtype);
                $sale->dateBegin($dateBegin);
                $sale->dateEnd($dateEnd);
                $sale->clientProductID($catno);
                $sale->albumName($album);
                $sale->sales($sales);
                $sale->retailPrice($retail_price);
                $sale->wholesalePrice($wholesale_price);
                $sale->salesRevenue($sales_price);
                $sale->returns($returns);
                $sale->returnsRevenue($returns_price);
                $sale->totalRevenue($total_price);
                $sale->priceLevel($price_level);
                $sale->channel($channel);
                $sale->configuration($format);
                $sale->countryCode('CA');
                $sale->currencyCode('CAD');
                $sale->lineNum($linenum);

                #$args{dumper}($sale);  ## for cmd-line testing
                $self->_insertSale( sale => $sale );
            }

            #else { print STDERR "skipping $linenum: $catno\n"; }
            $prev_catno  = $catno;
            $prev_album  = $album;
            $prev_format = $format;
            $linenum++;
        }
    }

    return $linenum;
}

#
# Private methods
#

sub _getDates {
    my $self  = shift;
    my $date1 = shift;
    my $date2 = shift;

    if ( $date1 =~ m/^\d{4}-\d{2}-\d{2}$/ && $date2 =~ m/^\d{4}-\d{2}-\d{2}$/ ) {
        return ( $date1, $date2 );
    } else {
        return undef;
    }
}

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