Bug fix to ensure correct WM_OUT key is identified and created. Added services to ensure WM_IN and WM_OUT indexes are maintained.
This commit is contained in:
Infineon\StieberD
@ -648,7 +648,6 @@ Service ReceiveCassette(WONo, ReceiveUser, LotNo, CassQty, SubPartNo, SubVendorC
|
||||
WOMatKeys = SRP_Array('SortRows', WOMatKeys, 'AR2', 'LIST', @VM, '*')
|
||||
|
||||
If WOMatKeys NE '' then
|
||||
WOMatKeys = SRP_Array('SortRows', WOMatKeys, 'AR2', 'LIST', @VM, '*')
|
||||
LastCassNo = WOMatKeys[-1, 'B*']
|
||||
end else
|
||||
LastCassNo = 0
|
||||
@ -1894,20 +1893,22 @@ Service UpdateOpenWorkOrderStatuses()
|
||||
end else
|
||||
MonaResource = 'GRP_OPENINSIGHT_MES_OP_FE_DEV_SERVICE_MANAGER'
|
||||
end
|
||||
MonaStatus = 'ok'
|
||||
|
||||
Server = Environment_Services('GetServer')
|
||||
LogPath = Environment_Services('GetApplicationRootPath') : '\LogFiles\WO_LOG'
|
||||
LogDate = Oconv(Date(), 'D4/')
|
||||
LogTime = Oconv(Time(), 'MTS')
|
||||
LogFileName = LogDate[7, 4] : '-' : LogDate[1, 2] : '-' : LogDate[4, 2] : ' Update Work Order Status Log.csv'
|
||||
Headers = 'Logging DTM' : @FM : 'Work Order No' : @FM : 'Log'
|
||||
objStatusLog = Logging_Services('NewLog', LogPath, LogFileName, CRLF$,',', Headers, '', False$, False$)
|
||||
LogPath = Environment_Services('GetApplicationRootPath') : '\LogFiles\WO_LOG'
|
||||
LogDate = Oconv(Date(), 'D4/')
|
||||
LogTime = Oconv(Time(), 'MTS')
|
||||
LogFileName = LogDate[7, 4] : '-' : LogDate[1, 2] : '-' : LogDate[4, 2] : ' Update Work Order Status Log.csv'
|
||||
Headers = 'Logging DTM':@FM:'Server':@FM:'WONo':@FM:'Result'
|
||||
objVerifyWOMatKeysLog = Logging_Services('NewLog', LogPath, LogFileName, CRLF$, COMMA$, Headers, '', False$, False$)
|
||||
LoggingDTM = LogDate : ' ' : LogTime ; // Logging DTM
|
||||
Server = Environment_Services('GetServer')
|
||||
|
||||
LogData = ''
|
||||
LogData<1> = OConv(Datetime(), 'DT/^S')
|
||||
LogData<2> = Server
|
||||
LogData<3> = 'Begin ':Service
|
||||
Logging_Services('AppendLog', objStatusLog, LogData, @RM, @FM)
|
||||
LogData = ''
|
||||
LogData<1> = LoggingDtm
|
||||
LogData<2> = Server
|
||||
LogData<4> = 'Begin ':Service
|
||||
Logging_Services('AppendLog', objVerifyWOMatKeysLog, LogData, @RM, @FM)
|
||||
|
||||
ErrorMsg = ''
|
||||
OpenWoLogKeys = ''
|
||||
@ -1915,46 +1916,50 @@ Service UpdateOpenWorkOrderStatuses()
|
||||
Extract_Si_Keys('WO_LOG', 'CLOSE_DATE', '', OpenWoLogKeys)
|
||||
If Not(Get_Status(ErrCode)) then
|
||||
If OpenWoLogKeys NE '' then
|
||||
For each OpenWoLogKey in OpenWoLogKeys using @VM
|
||||
Service_Services('PostProcedure', 'WORK_ORDER_SERVICES', 'UpdateWorkOrderStatus':SD$:OpenWoLogKey)
|
||||
If Error_Services('NoError') then
|
||||
OpenWoLogKeys = SRP_Array('SortSimpleList', OpenWoLogKeys, 'AscendingNumbers', @VM)
|
||||
LastOpenWoUpdated = ''
|
||||
ServiceKey = UCase(Service)
|
||||
If RowExists('APP_INFO', ServiceKey) then
|
||||
LastOpenWoUpdated = Database_Services('ReadDataRow', 'APP_INFO', ServiceKey)
|
||||
end
|
||||
If (LastOpenWoUpdated NE '') then
|
||||
Locate LastOpenWoUpdated in OpenWoLogKeys using @VM setting vPos then
|
||||
vPos += 1
|
||||
end else
|
||||
vPos = 1
|
||||
end
|
||||
end else
|
||||
vPos = 1
|
||||
end
|
||||
NextOpenWoLogKey = OpenWoLogKeys<0, vPos>
|
||||
Database_Services('WriteDataRow', 'APP_INFO', ServiceKey, NextOpenWoLogKey, True$, False$, False$)
|
||||
|
||||
If NextOpenWoLogKey NE '' then
|
||||
Service_Services('PostProcedure', 'WORK_ORDER_SERVICES', 'UpdateWorkOrderStatus':SD$:NextOpenWoLogKey)
|
||||
If Error_Services('HasError') then
|
||||
LogData<1> = OConv(Datetime(), 'DT/^S')
|
||||
LogData<2> = Server
|
||||
LogData<3> = 'Successfully posted UpdateWorkOrderStatus procedure to PROC_QUEUE for WO_LOG ':OpenWOLogKey:'.'
|
||||
Logging_Services('AppendLog', objStatusLog, LogData, @RM, @FM)
|
||||
end else
|
||||
ErrorMsg = 'Error posting UpdateWorkOrderStatus procedure to PROC_QUEUE for WO_LOG ':OpenWOLogKey:'.'
|
||||
LogData<1> = OConv(Datetime(), 'DT/^S')
|
||||
LogData<2> = Server
|
||||
LogData<3> = ErrorMsg
|
||||
Logging_Services('AppendLog', objStatusLog, LogData, @RM, @FM)
|
||||
end
|
||||
Next OpenWoLogKey
|
||||
ErrorMsg = 'Error posting UpdateWorkOrderStatus request for WO_LOG ':NextOpenWoLogKey:'. ':Error_Services('GetMessage')
|
||||
LogData<4> = ErrorMsg
|
||||
Logging_Services('AppendLog', objVerifyWOMatKeysLog, LogData, @RM, @FM)
|
||||
MonaStatus = 'critical'
|
||||
end
|
||||
end
|
||||
end else
|
||||
LogData<1> = OConv(Datetime(), 'DT/^S')
|
||||
LogData<2> = Server
|
||||
LogData<3> = 'No open work orders to update.'
|
||||
Logging_Services('AppendLog', objStatusLog, LogData, @RM, @FM)
|
||||
LogData<4> = 'No open work orders to update.'
|
||||
Logging_Services('AppendLog', objVerifyWOMatKeysLog, LogData, @RM, @FM)
|
||||
end
|
||||
end else
|
||||
MonaStatus = 'critical'
|
||||
ErrorMsg = 'Error calling Extract_Si_Keys. Error code: ':ErrCode:'.'
|
||||
LogData<1> = OConv(Datetime(), 'DT/^S')
|
||||
LogData<2> = Server
|
||||
LogData<3> = ErrorMsg
|
||||
Logging_Services('AppendLog', objStatusLog, LogData, @RM, @FM)
|
||||
LogData<4> = ErrorMsg
|
||||
Logging_Services('AppendLog', objVerifyWOMatKeysLog, LogData, @RM, @FM)
|
||||
end
|
||||
|
||||
LogData = ''
|
||||
LogData<1> = OConv(Datetime(), 'DT/^S')
|
||||
LogData<2> = Server
|
||||
LogData<3> = 'End ':Service
|
||||
Logging_Services('AppendLog', objStatusLog, LogData, @RM, @FM)
|
||||
|
||||
If ErrorMsg EQ '' then
|
||||
MonaStatus = 'ok'
|
||||
end else
|
||||
MonaStatus = 'critical'
|
||||
end
|
||||
LogData<1> = OConv(Datetime(), 'DT/^S')
|
||||
LogData<4> = 'End ':Service
|
||||
Logging_Services('AppendLog', objVerifyWOMatKeysLog, LogData, @RM, @FM)
|
||||
|
||||
Mona_Services('PostStatus', MonaResource, StatusName, MonaStatus)
|
||||
|
||||
@ -2079,10 +2084,10 @@ Service UpdateOpenWorkOrderData()
|
||||
end
|
||||
MonaStatus = 'ok'
|
||||
|
||||
LogPath = Environment_Services('GetApplicationRootPath') : '\LogFiles\WO_MAT'
|
||||
LogPath = Environment_Services('GetApplicationRootPath') : '\LogFiles\WO_LOG'
|
||||
LogDate = Oconv(Date(), 'D4/')
|
||||
LogTime = Oconv(Time(), 'MTS')
|
||||
LogFileName = LogDate[7, 4] : '-' : LogDate[1, 2] : '-' : LogDate[4, 2] : ' WO_MAT WO_LOG{WO_MAT_KEY} Log.csv'
|
||||
LogFileName = LogDate[7, 4] : '-' : LogDate[1, 2] : '-' : LogDate[4, 2] : ' Update Work Order Data Log.csv'
|
||||
Headers = 'Logging DTM':@FM:'Server':@FM:'WONo':@FM:'Result'
|
||||
objVerifyWOMatKeysLog = Logging_Services('NewLog', LogPath, LogFileName, CRLF$, COMMA$, Headers, '', False$, False$)
|
||||
LoggingDTM = LogDate : ' ' : LogTime ; // Logging DTM
|
||||
@ -2120,15 +2125,22 @@ Service UpdateOpenWorkOrderData()
|
||||
|
||||
If NextOpenWoLogKey NE '' then
|
||||
Service_Services('PostProcedure', 'WORK_ORDER_SERVICES', 'UpdateWorkOrderData':SD$:NextOpenWoLogKey)
|
||||
If Error_Services('HasError') then
|
||||
LogData<1> = OConv(Datetime(), 'DT/^S')
|
||||
ErrorMsg = 'Error posting UpdateWorkOrderData request for WO_LOG ':NextOpenWoLogKey:'. ':Error_Services('GetMessage')
|
||||
LogData<4> = ErrorMsg
|
||||
Logging_Services('AppendLog', objVerifyWOMatKeysLog, LogData, @RM, @FM)
|
||||
MonaStatus = 'critical'
|
||||
end
|
||||
Service_Services('PostProcedure', 'WORK_ORDER_SERVICES', 'UpdateWorkOrderStatus':SD$:NextOpenWoLogKey)
|
||||
If Error_Services('HasError') then
|
||||
LogData<1> = OConv(Datetime(), 'DT/^S')
|
||||
ErrorMsg = 'Error posting UpdateWorkOrderStatus request for WO_LOG ':NextOpenWoLogKey:'. ':Error_Services('GetMessage')
|
||||
LogData<4> = ErrorMsg
|
||||
Logging_Services('AppendLog', objVerifyWOMatKeysLog, LogData, @RM, @FM)
|
||||
MonaStatus = 'critical'
|
||||
end
|
||||
end
|
||||
|
||||
If Error_Services('HasError') then
|
||||
LogData<1> = OConv(Datetime(), 'DT/^S')
|
||||
ErrorMsg = Error_Services('GetMessage')
|
||||
LogData<4> = ErrorMsg
|
||||
Logging_Services('AppendLog', objVerifyWOMatKeysLog, LogData, @RM, @FM)
|
||||
MonaStatus = 'critical'
|
||||
end
|
||||
end else
|
||||
LogData<1> = OConv(Datetime(), 'DT/^S')
|
||||
LogData<4> = 'No open work orders to update.'
|
||||
@ -2184,16 +2196,41 @@ Service UpdateWorkOrderData(WONo)
|
||||
LogData<4> = 'Begin ':Service
|
||||
Logging_Services('AppendLog', objVerifyWOMatKeysLog, LogData, @RM, @FM)
|
||||
|
||||
ErrorMsg = ''
|
||||
OpenWoLogKeys = ''
|
||||
ErrCode = ''
|
||||
|
||||
Done = False$
|
||||
ErrorMsg = ''
|
||||
OpenWoLogKeys = ''
|
||||
ErrCode = ''
|
||||
EpiPro = (Xlate('WO_LOG', WONo, 'PS_REACTOR_TYPE', 'X') _EQC 'EPP')
|
||||
OrigWOLogWOMatKeys = Database_Services('ReadDataColumn', 'WO_LOG', WONo, WO_LOG_WO_MAT_KEY$, True$, 0)
|
||||
If Error_Services('NoError') then
|
||||
NewWOLogWOMatKeys = ''
|
||||
For CassNo = 1 to MAX_NUM_CASS$
|
||||
WOMatKey = WONo:'*':CassNo
|
||||
If RowExists('WO_MAT', WOMatKey) then
|
||||
If EpiPro then
|
||||
WMIKey = Xlate('WO_MAT', WOMatKey, 'WMI_KEY', 'X')
|
||||
If (WMIKey EQ '') then
|
||||
If RowExists('WM_IN', WONo:'*1*':CassNo) then
|
||||
WMIKey = WONo:'*1*':CassNo
|
||||
WM_In_Services('VerifyWOMatWMIKeyIndex', WMIKey)
|
||||
end
|
||||
end
|
||||
If (WMIKey NE '') then
|
||||
WM_In_Services('VerifyWoStepWMIKeyIndex', WMIKey)
|
||||
WM_In_Services('VerifyWOLogWMIKeyIndex', WMIKey)
|
||||
end
|
||||
WMOKey = Xlate('WO_MAT', WOMatKey, 'WMO_KEY', 'X')
|
||||
If (WMOKey EQ '') then
|
||||
If RowExists('WM_OUT', WONo:'*1*':CassNo) then
|
||||
WMOKey = WONo:'*1*':CassNo
|
||||
WM_Out_Services('VerifyWOMatWMOKeyIndex', WMOKey)
|
||||
end
|
||||
end
|
||||
If (WMOKey NE '') then
|
||||
WM_Out_Services('VerifyWoStepWMOKeyIndex', WMOKey)
|
||||
WM_Out_Services('VerifyWOLogWMOKeyIndex', WMOKey)
|
||||
end
|
||||
end
|
||||
RDSNo = Xlate('WO_MAT', WOMatKey, 'RDS_NO', 'X')
|
||||
If (RDSNo NE '') then
|
||||
If (DCount(RDSNo, @VM) GT 1) then
|
||||
@ -2222,7 +2259,6 @@ Service UpdateWorkOrderData(WONo)
|
||||
RDS_Services('VerifyWOStepRDSKeyIndex', RDSNo)
|
||||
end
|
||||
end else
|
||||
EpiPro = (Xlate('WO_LOG', WONo, 'PS_REACTOR_TYPE', 'X') _EQC 'EPP')
|
||||
If Not(EpiPro) then
|
||||
Query = 'SELECT RDS WITH WO EQ ':WONo:' AND WITH CASS_NO EQ ':CassNo
|
||||
RList(Query, TARGET_ACTIVELIST$, '', '', '')
|
||||
@ -2248,7 +2284,10 @@ Service UpdateWorkOrderData(WONo)
|
||||
end
|
||||
Voided = Xlate('WO_MAT', WOMatKey, 'VOID', 'X')
|
||||
If Not(Voided) then NewWOLogWOMatKeys<0, -1> = WOMatKey
|
||||
end else
|
||||
Done = True$
|
||||
end
|
||||
Until Done
|
||||
Next CassNo
|
||||
NewWOLogWOMatKeys = SRP_Array('SortRows', NewWOLogWOMatKeys, 'AR2', 'LIST', @VM, '*')
|
||||
If OrigWOLogWOMatKeys NE NewWOLogWOMatKeys then
|
||||
|
||||
Reference in New Issue
Block a user