package RPS::Import::DTInternational;

use strict;

use Date::Calc qw(Add_Delta_Days);

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 HEADER_ROW => 0;

use constant FIELD_SECTION    => 1;
use constant FIELD_SUBSECTION => 2;

use constant FIELD_DATE     => 6;
use constant FIELD_VENDORID => 8;
use constant FIELD_OUTLET   => 10;
use constant FIELD_ALBUM    => 12;
use constant FIELD_PRICE    => 14;
use constant FIELD_UNITS    => 16;

#public methods

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

    my $sheets = $args{sheets};

    my $linenum;

    for my $sheet (@$sheets) {

        $linenum = 1;
        my $country = "";

        ## check if the sheet has the extra Memo column
        my $hasmemo = 0;
        $hasmemo = 2 if ( $sheet->[HEADER_ROW]->[FIELD_ALBUM] eq 'Memo' );

        foreach my $line (@$sheet) {

            if ( $line->[FIELD_SECTION] =~ m/^9000\s.\sInternational Sales$/ ) {
                $country = "";
                $linenum++;
                next;
            }

            if ( $line->[FIELD_SUBSECTION] =~ m/^9\d\d\d\s.\s(.*)\sSales$/ ) {
                if ( $1 eq 'South Africa' ) {
                    $country = 'ZA';
                } elsif ( $1 eq 'Benelux' ) {
                    $country = 'BE';
                } elsif ( $1 eq 'Italy' ) {
                    $country = 'IT';
                } elsif ( $1 eq 'Japan' ) {
                    $country = 'JP';
                } elsif ( $1 eq 'Australia & New Zealand' ) {
                    $country = 'AU';
                } elsif ( $1 eq 'Singapore' ) {
                    $country = 'SG';
                }
                $linenum++;
                next;
            }

            my $prodtype    = RPS::File::Sale::TYPE_PHYSICAL;
            my $price_level = RPS::File::Sale::PLEVEL_FULL;
            my $channel     = RPS::File::Sale::CHANNEL_RETAIL;
            my $outlet      = $line->[FIELD_OUTLET];
            my $vendorid    = $line->[FIELD_VENDORID];
            my $album       = $line->[ FIELD_ALBUM + $hasmemo ];

            my $country_tmp = "";
            if ( $country eq "" && $hasmemo != 0 ) {
                my $cntry = $line->[FIELD_ALBUM];
                if ( $cntry eq 'Thailand' ) {
                    $country_tmp = 'TH';
                } elsif ( $cntry eq 'Tahialand' ) {    ## stupid mis-spelling
                    $country_tmp = 'TH';
                }
            }

            if ( $line->[FIELD_DATE] !~ m/^\d+$/ ) {
                $linenum++;
                next;
            }

            my ( $dateBegin, $dateEnd ) =
              $self->_getDates( date_begin => $line->[FIELD_DATE], type => "msft" );

            unless ( $dateBegin && $dateEnd ) {
                $self->errstr( "couldn't get dates from " . $line->[FIELD_DATE] );
                return undef;
            }

            my ($units) = $line->[ FIELD_UNITS + $hasmemo ] =~ m/^(-?\d+)$/;
            my ($price) = $line->[ FIELD_PRICE + $hasmemo ] =~ m/^(-?\d*\.?\d*)$/;

            if ( $prodtype && ( $country || $country_tmp ) && $units && $price && $album ) {
                my $sale = RPS::Import::SaleRec->new();

                $sale->productType($prodtype);
                $sale->dateBegin($dateBegin);
                $sale->dateEnd($dateEnd);
                $sale->albumName($album);
                $sale->serviceProductID($vendorid);
                $sale->outlet($outlet);
                $sale->sales($units);
                $sale->salesRevenue($price);
                $sale->totalRevenue($price);
                $sale->priceLevel($price_level);
                $sale->channel($channel);

                if ( $country ne "" ) {
                    $sale->countryCode($country);
                } else {
                    $sale->countryCode($country_tmp);
                }
                $sale->lineNum($linenum);

                ##$args{dumper}($sale);  ## for cmd-line testing
                $self->_insertSale( sale => $sale );
            } else {
                print STDERR "skipped $country / $linenum / $album / $outlet\n";
            }
            $linenum++;
        }
    }

    return $linenum;
}

#
# Private methods
#

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

#    my ($year, $month, $day) = Add_Delta_Days(1900,1,1, $date);
#    my $salesDate = sprintf("%04d-%02d-%02d", $year, $month, $day);

#	return ($salesDate, $salesDate);
#}

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