phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

pre cutover push

Browse Source
This commit is contained in:
Infineon\StieberD
2024-09-04 20:33:41 -07:00
parent 6ea6969f4b
commit 7762b129af
2072 changed files with 130000 additions and 95295 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
LSL2/STPROC/OBJ_WO_MAT_LOG.txt
View File

@ -16,7 +16,7 @@ COMPILE FUNCTION obj_WO_Mat_Log(Method,Parms)
#pragma precomp SRP_PreCompiler
DECLARE FUNCTION Get_Status, Msg, Utility, obj_Tables, Dialog_Box, NextKey, Popup, Get_Property, obj_RDS, SRPSendMail, Database_Services
DECLARE FUNCTION Get_Status, Msg, Utility, obj_Tables, Dialog_Box, NextKey, Popup, Get_Property, obj_RDS, Database_Services
Declare function Logging_Services, Environment_Services, RTI_CreateGUID, Error_Services
DECLARE SUBROUTINE Set_Status, Msg, obj_Tables, Send_Dyn, Btree.Extract, ErrMsg, Send_Dyn, RList, obj_WO_Log, Send_Event, obj_RDS
DECLARE SUBROUTINE obj_WO_Mat, Send_Info, obj_Notes, Logging_Services, Database_Services
@ -93,18 +93,17 @@ Create:
LogData = ''
LogData<1> = LoggingDTM
LogData<2> = @User4
LogData<3> = @UserName
LogData<4> = LogFile
LogData<5> = TransDTM
LogData<6> = Action
LogData<7> = WhCd
LogData<8> = LocCd
LogData<9> = WONos
LogData<10> = CassNos
LogData<11> = UserID
LogData<12> = Tags
LogData<13> = ToolID
LogData<14> = ScanEntry
LogData<3> = LogFile
LogData<4> = TransDTM
LogData<5> = Action
LogData<6> = WhCd
LogData<7> = LocCd
LogData<8> = WONos
LogData<9> = CassNos
LogData<10> = UserID
LogData<11> = Tags
LogData<12> = ToolID
LogData<13> = ScanEntry
Logging_Services('AppendLog', objLog, LogData, @RM, @FM)
IF LogFile = '' THEN ErrorMsg = 'Null parameter "LogFile" passed to routine. (':Method:')'
@ -171,8 +170,6 @@ RETURN
* * * * * * *
Post:
* * * * * * *
* @USER4 = @UserName
hSysLists = Database_Services('GetTableHandle', 'SYSLISTS')
ServiceKeyID = 'Obj_WO_Mat_Log*Post'
Lock hSysLists, ServiceKeyID then
@ -183,7 +180,7 @@ Post:
END
ltParms = 'SYSOBJ':@RM:'WO_MAT_LOG_POST'
obj_Tables('LockRec',ltParms) ;* Places lock on fictional record
errCode = ''
IF Get_Status(errCode) THEN
Set_Status(0)
RETURN
@ -302,3 +299,4 @@ Post:
RETURN