package RPS::Import::ADA::v9;

use strict;

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

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

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

use base 'RPS::Import::ADA::ADABase';

# NB: non-standard _fieldMap; need to override _importLines
sub _fieldMap {
    {
        'digital sales' => {
            label           => 0,     # A
            artistName      => 2,     # C
            title           => 3,     # D
                                      #productTypeCode => 4,  # E
            upc             => 5,     # F
            isrc            => 6,     # G
            clientProductID => 8,     # I
            serviceName     => 10,    # K
            country_code    => 12,    # M
            format_type     => 14,    # O
            units           => 19,    # T
                                      #dist_fee        => 23, # X
            price           => 24,    # Y
        },

        'statement summary' => {
            date_row  => 3,
            date_col  => 1,
            no_detail => 1,           # prevent sales detail from being processed on this sheet
        }
    };
}

sub _getGlobalDates {
    my $self = shift;
    my ($args) = @_;

    my $dateBegin;
    my $dateEnd;
    my $err;

    my $offsets     = $self->_fieldMap;
    my $sheet_names = $args->{sheet_names};
    my $sheetCount  = 0;

    foreach my $sheet ( @{ $args->{sheets} } ) {
        my $sheetName = $sheet_names->[$sheetCount];

        if ( !$dateBegin && exists $offsets->{ lc $sheetName } ) {
            my $data = $offsets->{ lc $sheetName };
            if ( exists $data->{date_row} ) {
                my $row        = $data->{date_row};
                my $col        = $data->{date_col};
                my $dateString = $sheet->[$row][$col];
                if ( $dateString =~ /Period: \d+\/(\d+)\/(\d+)/ ) {
                    my $month = $1;
                    my $year  = $2;
                    $dateBegin = $year . "-" . $month . "-01";
                    $dateEnd = $year . "-" . $month . "-" . Days_in_Month( $year, $month );

                }
            }
        }
        $sheetCount++;
    }

    $err = RPS::Import::ADA::ADABase::kDataNotFound if ( !$dateBegin );
    return ( $dateBegin, $dateEnd, $err );

}

sub _getGlobalCurrencyCode {
    my $self = shift;
    my ($args) = @_;

    my $currencyCode;
    my $err;

    $currencyCode = 'GBP';

    return ( $currencyCode, $err );

}

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