Foodloop-Server/lib/Pear/LocalLoop/Import/LCCCsv/Transactions.pm

package Pear::LocalLoop::Import::LCCCsv::Transactions;
use Moo;
use DateTime;
use DateTime::Format::Strptime;

use Geo::UK::Postcode::Regex;

extends qw/Pear::LocalLoop::Import::LCCCsv/;

has target_entity_id => (
  is       => 'ro',
  required => 1,
);

has target_entity => (
  is      => 'lazy',
  builder => sub {
    my $self = shift;
    my $entity = $self->schema->resultset('Entity')->find($self->target_entity_id);
    Pear::LocalLoop::Error->throw("Cannot find LCC Entity, did you pass the right id?") unless $entity;
    return $entity;
  },
);

has '+csv_required_columns' => (
  builder => sub {return [ (
    'transaction_id',
    'supplier_id',
    'net_amount',
    'vat amount',
    'gross_amount',
  ) ]},
);

sub import_csv {
  my ($self) = @_;

  $self->check_headers;
  my $lcc_org = $self->target_entity;

  while ( my $row = $self->get_csv_line ) {
    $self->_row_to_result($row, $lcc_org);
  }
}

sub _row_to_result {
  my ($self, $row, $lcc_org) = @_;

  my $supplier_id = $row->{supplier_id};

  my $organisation = $self->schema->resultset('Organisation')->find({
    'external_reference.external_id' => $supplier_id
  }, { join => 'external_reference' });

  unless ($organisation) {
    # Pear::LocalLoop::Error->throw("Cannot find an organisation with supplier_id $supplier_id");

    return unless $row->{'Company Name (WHO)'};

    my $town = $row->{post_town};

    unless ($town) {
      my $postcode_obj = Geo::UK::Postcode::Regex->parse( $row->{post_code} );
      $town = Geo::UK::Postcode::Regex->outcode_to_posttowns($postcode_obj->{outcode});
      $town = $town->[0];
    }

    return if $self->external_result->organisations->find({external_id => $row->{supplier_id}});

    $organisation = $self->schema->resultset('Entity')->create({
      type => 'organisation',
      organisation => {
        name => $row->{'Company Name (WHO)'},
        street_name => $row->{"address line 1"},
        town => $town,
        postcode => $row->{post_code},
        country => $row->{country_code},
        external_reference => [ {
          external_reference => $self->external_result,
          external_id => $row->{supplier_id},
        } ],
      }
    });
  }

  my $date_formatter = DateTime::Format::Strptime->new(
    pattern   => '%m/%d/%Y',
    time_zone => 'Europe/London'
  );
  
  my $paid_date = ( $row->{paid_date} ?
    $date_formatter->parse_datetime($row->{paid_date}) :
    $date_formatter->parse_datetime($row->{invoice_date}) );

  my $gross_value = $row->{gross_amount};
  $gross_value =~ s/,//g;
  my $sales_tax_value = $row->{"vat amount"};
  $sales_tax_value =~ s/,//g;
  my $net_value = $row->{net_amount};
  $net_value =~ s/,//g;

  # TODO negative values are sometimes present
  my $external_transaction = $self->external_result->update_or_create_related('transactions', { # This is a TransactionExternal result
    external_id => $row->{transaction_id},
  });

  my $transaction_result = $external_transaction->update_or_create_related( 'transaction', {
    seller        => $organisation->entity,
    buyer         => $lcc_org,
    purchase_time => $paid_date,
    value         => $gross_value * 100000,
  });

  my $meta_result = $transaction_result->update_or_create_related('meta', {
    gross_value     => $gross_value * 100000,
    sales_tax_value => $sales_tax_value * 100000,
    net_value       => $net_value * 100000,
    ($row->{"local service"} ? (local_service => $row->{"local service"}) : ()),
    ($row->{"regional service"} ? (regional_service => $row->{"regional service"}) : ()),
    ($row->{"national service"} ? (national_service => $row->{"national service"}) : ()),
    ($row->{"private household rebate"} ? (private_household_rebate => $row->{"private household rebate"}) : ()),
    ($row->{"business tax and rebate"} ? (business_tax_and_rebate => $row->{"business tax and rebate"}) : ()),
    ($row->{"stat loc gov"} ? (stat_loc_gov => $row->{"stat loc gov"}) : ()),
    ($row->{"central loc gov"} ? (central_loc_gov => $row->{"central loc gov"}) : ()),
  });
}

1;