added delete from sql routines for LOT_EVENT and related tables
This commit is contained in:
30
LSL2/STPROC/DELETE_LOT_EVENT_RECORD_FROM_SQL.txt
Normal file
30
LSL2/STPROC/DELETE_LOT_EVENT_RECORD_FROM_SQL.txt
Normal file
@ -0,0 +1,30 @@
|
|||||||
|
Compile function Delete_LOT_EVENT_Record_From_SQL(Connection, Key, Record)
|
||||||
|
|
||||||
|
/*****************************************************************************\
|
||||||
|
Deletes the given LOT_EVENT record from the MSSQL database.
|
||||||
|
|
||||||
|
History
|
||||||
|
-------
|
||||||
|
08/15/2025 DJS Original Programmer
|
||||||
|
\*****************************************************************************/
|
||||||
|
|
||||||
|
Declare function SQL_Delete, SQL_Format
|
||||||
|
Ans = ""
|
||||||
|
|
||||||
|
// List of key names and their values
|
||||||
|
Keys = "LOT_EVENT_ID":@VM:SQL_Format(Key, "STR")
|
||||||
|
|
||||||
|
//-------------------------------------------------------------------------------------------------
|
||||||
|
// Multi-valued Fields
|
||||||
|
|
||||||
|
!! Delete records from MV tables first !!
|
||||||
|
|
||||||
|
// Currently no multi-value (child) tables
|
||||||
|
|
||||||
|
// LOT_EVENT
|
||||||
|
If Ans EQ "" then
|
||||||
|
Ans = SQL_Delete(Connection, "LOT_EVENT", Keys)
|
||||||
|
end
|
||||||
|
|
||||||
|
Return Ans
|
||||||
|
|
30
LSL2/STPROC/DELETE_LOT_EVENT_TYPE_RECORD_FROM_SQL.txt
Normal file
30
LSL2/STPROC/DELETE_LOT_EVENT_TYPE_RECORD_FROM_SQL.txt
Normal file
@ -0,0 +1,30 @@
|
|||||||
|
Compile function Delete_LOT_EVENT_TYPE_Record_From_SQL(Connection, Key, Record)
|
||||||
|
|
||||||
|
/*****************************************************************************\
|
||||||
|
Deletes the given LOT_EVENT_TYPE record from the MSSQL database.
|
||||||
|
|
||||||
|
History
|
||||||
|
-------
|
||||||
|
08/15/2025 DJS Original Programmer
|
||||||
|
\*****************************************************************************/
|
||||||
|
|
||||||
|
Declare function SQL_Delete, SQL_Format
|
||||||
|
Ans = ""
|
||||||
|
|
||||||
|
// List of key names and their values
|
||||||
|
Keys = "LOT_EVENT_TYPE_ID":@VM:SQL_Format(Key, "STR")
|
||||||
|
|
||||||
|
//-------------------------------------------------------------------------------------------------
|
||||||
|
// Multi-valued Fields
|
||||||
|
|
||||||
|
!! Delete records from MV tables first !!
|
||||||
|
|
||||||
|
// Currently no multi-value (child) tables
|
||||||
|
|
||||||
|
// LOT_EVENT_TYPE
|
||||||
|
If Ans EQ "" then
|
||||||
|
Ans = SQL_Delete(Connection, "LOT_EVENT_TYPE", Keys)
|
||||||
|
end
|
||||||
|
|
||||||
|
Return Ans
|
||||||
|
|
30
LSL2/STPROC/DELETE_LOT_OPERATION_RECORD_FROM_SQL.txt
Normal file
30
LSL2/STPROC/DELETE_LOT_OPERATION_RECORD_FROM_SQL.txt
Normal file
@ -0,0 +1,30 @@
|
|||||||
|
Compile function Delete_LOT_OPERATION_Record_From_SQL(Connection, Key, Record)
|
||||||
|
|
||||||
|
/*****************************************************************************\
|
||||||
|
Deletes the given LOT_OPERATION record from the MSSQL database.
|
||||||
|
|
||||||
|
History
|
||||||
|
-------
|
||||||
|
08/15/2025 DJS Original Programmer
|
||||||
|
\*****************************************************************************/
|
||||||
|
|
||||||
|
Declare function SQL_Delete, SQL_Format
|
||||||
|
Ans = ""
|
||||||
|
|
||||||
|
// List of key names and their values
|
||||||
|
Keys = "LOT_OPERATION_ID":@VM:SQL_Format(Key, "STR")
|
||||||
|
|
||||||
|
//-------------------------------------------------------------------------------------------------
|
||||||
|
// Multi-valued Fields
|
||||||
|
|
||||||
|
!! Delete records from MV tables first !!
|
||||||
|
|
||||||
|
// Currently no multi-value (child) tables
|
||||||
|
|
||||||
|
// LOT_OPERATION
|
||||||
|
If Ans EQ "" then
|
||||||
|
Ans = SQL_Delete(Connection, "LOT_OPERATION", Keys)
|
||||||
|
end
|
||||||
|
|
||||||
|
Return Ans
|
||||||
|
|
30
LSL2/STPROC/DELETE_LOT_RECORD_FROM_SQL.txt
Normal file
30
LSL2/STPROC/DELETE_LOT_RECORD_FROM_SQL.txt
Normal file
@ -0,0 +1,30 @@
|
|||||||
|
Compile function Delete_LOT_Record_From_SQL(Connection, Key, Record)
|
||||||
|
|
||||||
|
/*****************************************************************************\
|
||||||
|
Deletes the given LOT record from the MSSQL database.
|
||||||
|
|
||||||
|
History
|
||||||
|
-------
|
||||||
|
08/15/2025 DJS Original Programmer
|
||||||
|
\*****************************************************************************/
|
||||||
|
|
||||||
|
Declare function SQL_Delete, SQL_Format
|
||||||
|
Ans = ""
|
||||||
|
|
||||||
|
// List of key names and their values
|
||||||
|
Keys = "LOT_ID":@VM:SQL_Format(Key, "STR")
|
||||||
|
|
||||||
|
//-------------------------------------------------------------------------------------------------
|
||||||
|
// Multi-valued Fields
|
||||||
|
|
||||||
|
!! Delete records from MV tables first !!
|
||||||
|
|
||||||
|
// Currently no multi-value (child) tables
|
||||||
|
|
||||||
|
// LOT
|
||||||
|
If Ans EQ "" then
|
||||||
|
Ans = SQL_Delete(Connection, "LOT", Keys)
|
||||||
|
end
|
||||||
|
|
||||||
|
Return Ans
|
||||||
|
|
30
LSL2/STPROC/DELETE_OPERATION_RECORD_FROM_SQL.txt
Normal file
30
LSL2/STPROC/DELETE_OPERATION_RECORD_FROM_SQL.txt
Normal file
@ -0,0 +1,30 @@
|
|||||||
|
Compile function Delete_OPERATION_Record_From_SQL(Connection, Key, Record)
|
||||||
|
|
||||||
|
/*****************************************************************************\
|
||||||
|
Deletes the given OPERATION record from the MSSQL database.
|
||||||
|
|
||||||
|
History
|
||||||
|
-------
|
||||||
|
08/15/2025 DJS Original Programmer
|
||||||
|
\*****************************************************************************/
|
||||||
|
|
||||||
|
Declare function SQL_Delete, SQL_Format
|
||||||
|
Ans = ""
|
||||||
|
|
||||||
|
// List of key names and their values
|
||||||
|
Keys = "OPERATION_ID":@VM:SQL_Format(Key, "STR")
|
||||||
|
|
||||||
|
//-------------------------------------------------------------------------------------------------
|
||||||
|
// Multi-valued Fields
|
||||||
|
|
||||||
|
!! Delete records from MV tables first !!
|
||||||
|
|
||||||
|
// Currently no multi-value (child) tables
|
||||||
|
|
||||||
|
// OPERATION
|
||||||
|
If Ans EQ "" then
|
||||||
|
Ans = SQL_Delete(Connection, "OPERATION", Keys)
|
||||||
|
end
|
||||||
|
|
||||||
|
Return Ans
|
||||||
|
|
Reference in New Issue
Block a user