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

82
LSL2/STPROC/NDW_WO_LOG_EVENTS.txt
View File

@ -164,6 +164,7 @@ Event WINDOW.CREATE(CreateParam)
Set_Property(@Window:'.EDL_WO_NO', 'TEXT', CreateParam)
Post_Event(@Window, 'READ')
end
FormSize = ''
SRP_Show_Window(@Window, '', 'C', 'C', 1, '', False$, False$, FormSize)
End Event
@ -292,13 +293,10 @@ end event
Event WINDOW.CLEAR(bSaveKey, bSuppressWarning, bMaintainFocus, CtrlIDFocus)
Set_Property(@WINDOW:'.EDL_CUST_PART_NO','BACKCOLOR',WHITE$)
Set_Property(@WINDOW:'.TAB_MAIN','VALUE',1)
Send_Event(@WINDOW,'PAGE',1)
Set_Property(@Window, '@READ_ONLY', False$)
Set_Property(@Window, '@WO_NO', '')
GoSub ClearControls
end event
@ -466,66 +464,15 @@ end event
Event PUB_RELEASE.CLICK()
WONo = Get_Property(@Window:'.EDL_WO_NO', 'TEXT')
* If WONo NE '' then
* // Check if any WO_MAT records for this work order are pending a status update
* Query = 'SELECT WO_MAT_QUEUE WITH WO_NO EQ "':WONo:'"'
* ClearSelect TARGET_ACTIVELIST$
* RList(Query, TARGET_ACTIVELIST$, '', '', '')
* If @RecCount EQ 0 then
NumRelCass = 0
* ReleaseStartTime = Time()
NumRelCass = Work_Order_Services('ReleaseCassettes', WONo)
* ReleaseStopTime = Time()
If Error_Services('HasError') then
ErrorMsg = Error_Services('GetMessage')
ErrMsg(ErrorMsg)
end
* RefreshStartTime = Time()
GoSub PopulateControls
* RefreshStopTime = Time()
* ReleaseDuration = ReleaseStopTime - ReleaseStartTime
* RefreshDuration = RefreshStopTime - RefreshStartTime
* TotalDuration = ReleaseDuration + RefreshDuration
* If NumRelCass GT 0 then
* SecPerCass = TotalDuration / NumRelCass
* end else
* SecPerCass = 'N/A'
* end
* LogData = ''
* LogData<1> = LoggingDTM
* LogData<2> = WONo
* LogData<3> = @User4
* LogData<4> = NumRelCass
* LogData<5> = ReleaseDuration
* LogData<6> = RefreshDuration
* LogData<7> = TotalDuration
* LogData<8> = SecPerCass
* Logging_Services('AppendLog', objReleaseLog, LogData, @RM, @FM)
WONo = Get_Property(@Window:'.EDL_WO_NO', 'TEXT')
NumRelCass = Work_Order_Services('ReleaseCassettes', WONo)
* end else
* // WO_MAT status updates are pending. Do not allow user to release yet.
* ErrorMessage = 'WO_MAT status updates are pending! Please try again in a few minutes.'
* ErrMsg(ErrorMessage)
* LogData = ''
* LogData<1> = LoggingDTM
* LogData<2> = @User4
* LogData<3> = 'User attempted to release cassettes for work order ':WONo:' while WO_MAT status updates are pending!'
* Logging_Services('AppendLog', objReleaseLog, LogData, @RM, @FM)
*
* // Send an LSL message to FI admins to alert them
* Recipients = Xlate('SEC_GROUPS', 'OI_ADMIN', 'USER', 'X')
* SentFrom = 'SYSTEM'
* Subject = 'Failed release attempt'
* Message = 'User attempted to release cassettes for work order ':WONo:' while WO_MAT status updates are pending!'
* AttachWindow = 'NDW_WO_LOG'
* AttachKey = WONo
* SendToGroup = ''
*
* Parms = Recipients:@RM:SentFrom:@RM:Subject:@RM:Message:@RM:AttachWindow:@RM:AttachKey:@RM:SendToGroup
* obj_Notes('Create',Parms)
* end
* end
If Error_Services('HasError') then
ErrorMsg = Error_Services('GetMessage')
ErrMsg(ErrorMsg)
end
GoSub PopulateControls
end event
@ -1419,12 +1366,10 @@ end event
Event PUB_REM_WM_OUT.CLICK()
WONo = Get_Property(@WINDOW:'.EDL_WO_NO','TEXT')
IF WONo NE '' then
Send_Event(@WINDOW,'WRITE')
WORec = XLATE('WO_LOG',WONo,'','X')
WOMatKeys = WORec<WO_LOG_WO_MAT_KEY$>
@ -1491,7 +1436,6 @@ Event PUB_REM_WM_OUT.CLICK()
RETURN
END
IF Get_Status(errCode) THEN
ErrMsg(errCode)
END
@ -2164,7 +2108,6 @@ ClearControls:
// Reset CtrlMap variable so future calls to PopulateControls will populate all controls
CtrlMap = ''
return
@ -2213,6 +2156,3 @@ StartStopDate:
return