Compile function Delete_PROD_SPEC_Record_From_SQL(Connection, Key, Record)

/*****************************************************************************\
	Deletes the given PROD_SPEC record from the MSSQL database.
	
	History
	-------
	09/21/2010    KRF   Original Programmer
\*****************************************************************************/

Declare function SQL_Delete, SQL_Format
Ans = ""
				    
// List of key names and their values
Keys = "SEQ":@VM:SQL_Format(Key, "INT")

//-------------------------------------------------------------------------------------------------
// Multi-valued Fields

!! Delete records from MV tables first !!

// PROD_SPEC_SCANNED_INFO
If Ans EQ "" then
    Ans = SQL_Delete(Connection, "PROD_SPEC_SCANNED_INFO", Keys)
end

// PROD_SPEC_PART_NUMS
If Ans EQ "" then
    Ans = SQL_Delete(Connection, "PROD_SPEC_PART_NUMS", Keys)
end

// PROD_SPEC_QUOTES
If Ans EQ "" then
    Ans = SQL_Delete(Connection, "PROD_SPEC_QUOTES", Keys)
end

// PROD_SPEC_RATIOS
If Ans EQ "" then
    Ans = SQL_Delete(Connection, "PROD_SPEC_RATIOS", Keys)
end

// PROD_SPEC_QUOTES
If Ans EQ "" then
    Ans = SQL_Delete(Connection, "PROD_SPEC_QUOTES", Keys)
end

// PROD_SPEC_RATIOS
If Ans EQ "" then
    Ans = SQL_Delete(Connection, "PROD_SPEC_RATIOS", Keys)
end

// PROD_SPEC_SUB_PARTS
If Ans EQ "" then
    Ans = SQL_Delete(Connection, "PROD_SPEC_SUB_PARTS", Keys)
end

// PROD_SPEC_EMAIL_NOTIF
If Ans EQ "" then
    Ans = SQL_Delete(Connection, "PROD_SPEC_EMAIL_NOTIF", Keys)
end

// PROD_SPEC_QUAL_REACTS
If Ans EQ "" then
    Ans = SQL_Delete(Connection, "PROD_SPEC_QUAL_REACTS", Keys)
end

// PROD_SPEC_CUST_PART
If Ans EQ "" then
    Ans = SQL_Delete(Connection, "PROD_SPEC_CUST_PART", Keys)
end

// PROD_SPEC_MOD_INFO
If Ans EQ "" then
    Ans = SQL_Delete(Connection, "PROD_SPEC_MOD_INFO", Keys)
end

// PROD_SPEC_SPEC_INFO
If Ans EQ "" then
    Ans = SQL_Delete(Connection, "PROD_SPEC_SPEC_INFO", Keys)
end

// PROD_SPEC
If Ans EQ "" then
    Ans = SQL_Delete(Connection, "PROD_SPEC", Keys)
end

Return Ans
