22 lines
711 B
Plaintext
22 lines
711 B
Plaintext
Compile function Delete_CALIBRATION_Record_From_SQL(Connection, Key, Record)
|
|
|
|
/*****************************************************************************\
|
|
Deletes the given CALIBRATION 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 = "CL_NO" :@VM:SQL_Format(Field(Key, "*", 1), "INT"):@FM
|
|
Keys := "CAL_DT":@VM:SQL_Format(Field(Key, "*", 2), "DATE")
|
|
|
|
// Delete the record from the SQL database
|
|
Ans = SQL_Delete(Connection, "CALIBRATION", Keys);
|
|
|
|
Return Ans
|