added LSL2 stored procedures

LSL2/STPROC/DELETE_QUOTE_RECORD_FROM_SQL.txt

@@ -0,0 +1,68 @@
+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