diff --git a/LSL2/STPROC/OVERRIDE_LOG_SERVICES.txt b/LSL2/STPROC/OVERRIDE_LOG_SERVICES.txt index 55d7bdc..0da4f57 100644 --- a/LSL2/STPROC/OVERRIDE_LOG_SERVICES.txt +++ b/LSL2/STPROC/OVERRIDE_LOG_SERVICES.txt @@ -1,7 +1,8 @@ Compile function Override_Log_Services(@Service, @Params) #pragma precomp SRP_PreCompiler -$insert LOGICAL +$Insert SERVICE_SETUP +$insert APP_INSERTS $Insert OVERRIDE_LOG_EQUATES Declare function Datetime, NextKey, Error_Services, SRP_Datetime @@ -22,9 +23,10 @@ Options OVERRIDE_TYPES = 'ROTR_BLOCK,UNSIGN,CLEAN_INSP,REACTOR_PROVE_IN,REAC Service Create(Table, Key, OverrideUser, OverrideComment, OverrideType=OVERRIDE_TYPES, OverrideCause='') - RecKey = '' + ErrorMsg = '' + RecKey = '' for each TableName in Table using @VM setting TablePos - RecKey<1,-1> = Nextkey('OVERRIDE_LOG') + RecKey = Nextkey('OVERRIDE_LOG') orRec = '' orRec = Table<1, TablePos> orRec = Key<1, TablePos> @@ -45,6 +47,7 @@ Service Create(Table, Key, OverrideUser, OverrideComment, OverrideType=OVERRIDE_ End Service + Service GetOverrideLogKeys(EntityId, Table, Type, User, DateTimeFrom, DateTimeTo) If DateTimeFrom EQ '' OR Not(Num(DateTimeFrom)) Or DateTimeFrom GT DateTimeTo then @@ -77,7 +80,6 @@ Service GetOverrideLogKeys(EntityId, Table, Type, User, DateTimeFrom, DateTimeTo Error_Services('Add', 'Error in ' : service : ' unable to open OVERRIDE_LOG dictionary.') end Response = keylist + end service - -