68 lines
1.6 KiB
Plaintext
68 lines
1.6 KiB
Plaintext
Compile function Delete_COC_Record_From_SQL(Connection, Key, Record)
|
|
|
|
/*****************************************************************************\
|
|
Deletes the given COC 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 = "WO":@VM:SQL_Format(Key, "INT")
|
|
|
|
//-------------------------------------------------------------------------------------------------
|
|
// Multi-valued Fields
|
|
|
|
!! Delete records from MV tables first !!
|
|
|
|
// COC_TECH_DATA_DTM
|
|
If Ans EQ "" then
|
|
Ans = SQL_Delete(Connection, "COC_TECH_DATA_DTM", Keys)
|
|
end
|
|
|
|
// COC_CARTON_DATA
|
|
If Ans EQ "" then
|
|
Ans = SQL_Delete(Connection, "COC_CARTON_DATA", Keys)
|
|
end
|
|
|
|
// COC_TEST_REJ_WFRS
|
|
If Ans EQ "" then
|
|
Ans = SQL_Delete(Connection, "COC_TEST_REJ_WFRS", Keys)
|
|
end
|
|
|
|
// COC_ORDER_ITEMS
|
|
If Ans EQ "" then
|
|
Ans = SQL_Delete(Connection, "COC_ORDER_ITEMS", Keys)
|
|
end
|
|
|
|
// COC_RDS_DETAILS
|
|
If Ans EQ "" then
|
|
Ans = SQL_Delete(Connection, "COC_RDS_DETAILS", Keys)
|
|
end
|
|
|
|
// COC_VISION_LOGS
|
|
If Ans EQ "" then
|
|
Ans = SQL_Delete(Connection, "COC_VISION_LOGS", Keys)
|
|
end
|
|
|
|
// COC_TRACKING_DETAILS
|
|
If Ans EQ "" then
|
|
Ans = SQL_Delete(Connection, "COC_TRACKING_DETAILS", Keys)
|
|
end
|
|
|
|
// COC_SHIPPING_DETAILS
|
|
If Ans EQ "" then
|
|
Ans = SQL_Delete(Connection, "COC_SHIPPING_DETAILS", Keys)
|
|
end
|
|
|
|
// COC
|
|
If Ans EQ "" then
|
|
Ans = SQL_Delete(Connection, "COC", Keys)
|
|
end
|
|
|
|
Return Ans
|