Compile function Delete_ANNUAL_CONTRACTS_Record_From_SQL(Connection, Key, Record)

/*****************************************************************************\
	Deletes the given ANNUAL_CONTRACTS 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 !!

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

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

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

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

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

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

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

Return Ans
