#------------------------------------------------------------
# Copyright (C) 2006 RoyaltyShare, Inc.   All Rights Reserved
#------------------------------------------------------------
package RPS::DB::Item::SaleImportErrorRawValue;
use strict;
use warnings;
use lib '/app/tools/common/lib';
use Common::DB::Item;
use Common::RSApp;
use Common::Assert;
use Common::Log;

use base 'Common::DB::Item';

use constant kTable => 'sale_import_error_raw_value';
use constant kDB => Common::DB::Item::kClientDB();

sub DeleteByFileID
{
	my ($class, $fileID) = @_;

    my $dbo = Common::RSApp::GetClientDB();

	my $sql = "DELETE FROM " . kTable . " WHERE file_id = $fileID";

    $dbo->DoCmd($sql);
    
    return 1;
}

sub GetAllBySaleID
{
    my ($class, $saleID) = @_;

	my $sql = "SELECT * FROM " . kTable . " WHERE sale_id = $saleID ORDER BY field";

    return $class->SUPER::GetAll($sql);
}

sub GetAllByFileID
{
    my ($class, $fileID) = @_;

	my $sql = "SELECT * FROM " . kTable . " WHERE file_id = $fileID ORDER BY field";

    return $class->SUPER::GetAll($sql);
}

sub GetStoredValue
{
    my ($class, $saleID, $field) = @_;
    
	my $dbo = Common::RSApp::GetClientDB();

	my $sql = "SELECT value FROM ".kTable." WHERE sale_id = $saleID AND field = '" . $field . "'";
	
    my $sth = $dbo->DoCmd($sql);
    my $hr = $sth->fetchrow_hashref();
    return $hr->{value};
}

1;