69 lines
1.5 KiB
Plaintext
69 lines
1.5 KiB
Plaintext
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
|