Compile function Delete_QUOTE_Record_From_SQL(Connection, Key, Record)

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

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


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


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


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


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


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


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

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

Return Ans
