From 272b2ce7d809ce81e5ffab1c3a550dcd027f68c1 Mon Sep 17 00:00:00 2001 From: "Infineon\\StieberD" Date: Mon, 7 Jul 2025 16:13:27 -0700 Subject: [PATCH] updated copy and delete record from sql routines to allow for a null pkey --- LSL2/STPROC/COPY_RECORD_TO_SQL.txt | 2 +- LSL2/STPROC/DELETE_RECORD_FROM_SQL.txt | 3 ++- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/LSL2/STPROC/COPY_RECORD_TO_SQL.txt b/LSL2/STPROC/COPY_RECORD_TO_SQL.txt index e0ca3fe..e2b3018 100644 --- a/LSL2/STPROC/COPY_RECORD_TO_SQL.txt +++ b/LSL2/STPROC/COPY_RECORD_TO_SQL.txt @@ -31,7 +31,7 @@ Declare function SRP_Com, Environment_Services, Datetime, Sql_Services, Error_Se Main: If Unassigned(LogError) then LogError = False$ - + If Unassigned(pKey) then pKey = '' Ans = "" Done = False$ // Make sure table is uppercase diff --git a/LSL2/STPROC/DELETE_RECORD_FROM_SQL.txt b/LSL2/STPROC/DELETE_RECORD_FROM_SQL.txt index e04fdcc..6d3bc32 100644 --- a/LSL2/STPROC/DELETE_RECORD_FROM_SQL.txt +++ b/LSL2/STPROC/DELETE_RECORD_FROM_SQL.txt @@ -26,7 +26,8 @@ Declare function Sql_Services, Error_Services, SRP_COM, Environment_Services, Un Main: - If Unassigned(LogError) else LogError = False$ + If Unassigned(LogError) then LogError = False$ + If Unassigned(pKey) then pKey = '' Ans = "" Done = False$ // Make sure table is uppercase