Compile function Delete_REACT_READS_Record_From_SQL(Connection, Key, Record)

/*****************************************************************************\
	Deletes the given REACT_READS 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  = "REACT_NO":@VM:SQL_Format(Field(Key, "*", 1), "INT"):@FM
Keys := "READ_DTM":@VM:SQL_Format(Field(Key, "*", 2), "DATETIME")

// Delete the record from the SQL database
Ans = SQL_Delete(Connection, "REACT_READS", Keys);

Return Ans
