Added troubleshooting logs to find cause of LBLCHK transactions going missing
This commit is contained in:
committed by
Ouellette Jonathan (CSC FI SPS MESLEO)
parent
03f42dedea
commit
6934799e92
@ -121,6 +121,11 @@ SAPFileName = LogDate[7, 4] : '-' : LogDate[1, 2] : '-' : LogDate[4, 2] : ' SetS
|
|||||||
SAPHeaders = 'Logging DTM' : @FM : 'WOMatKey' : @FM : 'SAPBatchNo'
|
SAPHeaders = 'Logging DTM' : @FM : 'WOMatKey' : @FM : 'SAPBatchNo'
|
||||||
objSAPLog = Logging_Services('NewLog', SAPLogPath, SAPFileName, CRLF$, Comma$, SAPHeaders, '', False$, False$)
|
objSAPLog = Logging_Services('NewLog', SAPLogPath, SAPFileName, CRLF$, Comma$, SAPHeaders, '', False$, False$)
|
||||||
|
|
||||||
|
WOMatLogPath = Environment_Services('GetApplicationRootPath') : '\LogFiles\WO_Mat'
|
||||||
|
WOMatLogFileName = LogDate[7, 4] : '-' : LogDate[1, 2] : '-' : LogDate[4, 2] : ' WO_MAT_LOG - Inv Transaction Error.csv'
|
||||||
|
WOMatHeaders = 'Logging DTM' : @FM : 'WONo' : @FM : 'CassNo' : @FM : 'User' : @FM : 'Log Pos' : @FM : 'Tag' : @FM : 'Warehouse' : @FM : 'Loc' : @FM : 'InvAction' : @FM : 'ToolID'
|
||||||
|
objLogInvTransError = Logging_Services('NewLog', WOMatLogPath, WOMatLogFileName, CRLF$, Comma$, WOMatHeaders, '', False$, False$)
|
||||||
|
|
||||||
IsProd = Environment_Services('IsProd')
|
IsProd = Environment_Services('IsProd')
|
||||||
If IsProd EQ True$ then
|
If IsProd EQ True$ then
|
||||||
MonaResource = 'GRP_OPENINSIGHT_MES_OP_FE_OBJWOMAT'
|
MonaResource = 'GRP_OPENINSIGHT_MES_OP_FE_OBJWOMAT'
|
||||||
@ -1040,6 +1045,20 @@ AddInvTrans:
|
|||||||
IF ErrorMsg NE '' THEN
|
IF ErrorMsg NE '' THEN
|
||||||
ErrorMsg := CRLF$:Parms
|
ErrorMsg := CRLF$:Parms
|
||||||
SWAP @RM WITH CRLF$ IN ErrorMsg
|
SWAP @RM WITH CRLF$ IN ErrorMsg
|
||||||
|
LogData = ''
|
||||||
|
LogData<1> = LogFile
|
||||||
|
LogData<2> = WONo
|
||||||
|
LogData<3> = CassNo
|
||||||
|
LogData<4> = InvLocation
|
||||||
|
LogData<5> = InvAction
|
||||||
|
LogData<6> = InvDTM
|
||||||
|
LogData<7> = ScanUserID
|
||||||
|
LogData<8> = Tag
|
||||||
|
LogData<9> = ToolID
|
||||||
|
LogData<10> = ScanEntry
|
||||||
|
LogData<11> = ''
|
||||||
|
LogData<12> = 'Unable to add inv. transaction. Missing Parameter detected. ' : ErrorMsg
|
||||||
|
Logging_Services('AppendLog', objLogInvTransError, LogData, @RM, @FM)
|
||||||
RETURN
|
RETURN
|
||||||
END
|
END
|
||||||
|
|
||||||
@ -1065,6 +1084,20 @@ AddInvTrans:
|
|||||||
|
|
||||||
IF Get_Status(errCode) THEN
|
IF Get_Status(errCode) THEN
|
||||||
obj_Tables('UnlockRec',OtParms)
|
obj_Tables('UnlockRec',OtParms)
|
||||||
|
LogData = ''
|
||||||
|
LogData<1> = LogFile
|
||||||
|
LogData<2> = WONo
|
||||||
|
LogData<3> = CassNo
|
||||||
|
LogData<4> = InvLocation
|
||||||
|
LogData<5> = InvAction
|
||||||
|
LogData<6> = InvDTM
|
||||||
|
LogData<7> = ScanUserID
|
||||||
|
LogData<8> = Tag
|
||||||
|
LogData<9> = ToolID
|
||||||
|
LogData<10> = ScanEntry
|
||||||
|
LogData<11> = ''
|
||||||
|
LogData<12> = 'Unable to add inv. transaction. Unable to read OR get a lock on the WO_MAT record. Line 1099'
|
||||||
|
Logging_Services('AppendLog', objLogInvTransError, LogData, @RM, @FM)
|
||||||
RETURN
|
RETURN
|
||||||
END
|
END
|
||||||
|
|
||||||
@ -1080,6 +1113,20 @@ AddInvTrans:
|
|||||||
IF Get_Status(errCode) THEN
|
IF Get_Status(errCode) THEN
|
||||||
obj_Tables('UnlockRec',WOtParms)
|
obj_Tables('UnlockRec',WOtParms)
|
||||||
obj_Tables('UnlockRec',OtParms)
|
obj_Tables('UnlockRec',OtParms)
|
||||||
|
LogData = ''
|
||||||
|
LogData<1> = LogFile
|
||||||
|
LogData<2> = WONo
|
||||||
|
LogData<3> = CassNo
|
||||||
|
LogData<4> = InvLocation
|
||||||
|
LogData<5> = InvAction
|
||||||
|
LogData<6> = InvDTM
|
||||||
|
LogData<7> = ScanUserID
|
||||||
|
LogData<8> = Tag
|
||||||
|
LogData<9> = ToolID
|
||||||
|
LogData<10> = ScanEntry
|
||||||
|
LogData<11> = ''
|
||||||
|
LogData<12> = 'Unable to add inv. transaction. Unable to read WM_OUT record.'
|
||||||
|
Logging_Services('AppendLog', objLogInvTransError, LogData, @RM, @FM)
|
||||||
RETURN
|
RETURN
|
||||||
END
|
END
|
||||||
|
|
||||||
@ -1095,7 +1142,20 @@ AddInvTrans:
|
|||||||
obj_Tables('WriteRec',WOtParms)
|
obj_Tables('WriteRec',WOtParms)
|
||||||
|
|
||||||
IF Get_Status(errCode) THEN
|
IF Get_Status(errCode) THEN
|
||||||
NULL
|
LogData = ''
|
||||||
|
LogData<1> = LogFile
|
||||||
|
LogData<2> = WONo
|
||||||
|
LogData<3> = CassNo
|
||||||
|
LogData<4> = InvLocation
|
||||||
|
LogData<5> = InvAction
|
||||||
|
LogData<6> = InvDTM
|
||||||
|
LogData<7> = ScanUserID
|
||||||
|
LogData<8> = Tag
|
||||||
|
LogData<9> = ToolID
|
||||||
|
LogData<10> = ScanEntry
|
||||||
|
LogData<11> = ''
|
||||||
|
LogData<12> = 'Unable to add inv. transaction. Unable to write WM_OUT record.'
|
||||||
|
Logging_Services('AppendLog', objLogInvTransError, LogData, @RM, @FM)
|
||||||
END
|
END
|
||||||
|
|
||||||
END ;* End of check for PTO or PKO location
|
END ;* End of check for PTO or PKO location
|
||||||
@ -1108,6 +1168,20 @@ AddInvTrans:
|
|||||||
IF Get_Status(errCode) THEN
|
IF Get_Status(errCode) THEN
|
||||||
obj_Tables('UnlockRec',WOtParms)
|
obj_Tables('UnlockRec',WOtParms)
|
||||||
obj_Tables('UnlockRec',OtParms)
|
obj_Tables('UnlockRec',OtParms)
|
||||||
|
LogData = ''
|
||||||
|
LogData<1> = LogFile
|
||||||
|
LogData<2> = WONo
|
||||||
|
LogData<3> = CassNo
|
||||||
|
LogData<4> = InvLocation
|
||||||
|
LogData<5> = InvAction
|
||||||
|
LogData<6> = InvDTM
|
||||||
|
LogData<7> = ScanUserID
|
||||||
|
LogData<8> = Tag
|
||||||
|
LogData<9> = ToolID
|
||||||
|
LogData<10> = ScanEntry
|
||||||
|
LogData<11> = ''
|
||||||
|
LogData<12> = 'Unable to add inv. transaction. Unable to read WM_OUT record.'
|
||||||
|
Logging_Services('AppendLog', objLogInvTransError, LogData, @RM, @FM)
|
||||||
RETURN
|
RETURN
|
||||||
END
|
END
|
||||||
|
|
||||||
@ -1125,6 +1199,20 @@ AddInvTrans:
|
|||||||
IF @WINDOW NE 'WO_MAT_INV' THEN
|
IF @WINDOW NE 'WO_MAT_INV' THEN
|
||||||
IF WOMatRec<WO_MAT_LOT_NO$> = '' OR WOMatRec<WO_MAT_CUST_PART_NO$> = '' THEN
|
IF WOMatRec<WO_MAT_LOT_NO$> = '' OR WOMatRec<WO_MAT_CUST_PART_NO$> = '' THEN
|
||||||
obj_Tables('UnlockRec',OtParms)
|
obj_Tables('UnlockRec',OtParms)
|
||||||
|
LogData = ''
|
||||||
|
LogData<1> = LogFile
|
||||||
|
LogData<2> = WONo
|
||||||
|
LogData<3> = CassNo
|
||||||
|
LogData<4> = InvLocation
|
||||||
|
LogData<5> = InvAction
|
||||||
|
LogData<6> = InvDTM
|
||||||
|
LogData<7> = ScanUserID
|
||||||
|
LogData<8> = Tag
|
||||||
|
LogData<9> = ToolID
|
||||||
|
LogData<10> = ScanEntry
|
||||||
|
LogData<11> = ''
|
||||||
|
LogData<12> = 'Unable to add inv. transaction. null LOT_NO or CUST_PART_NO values.'
|
||||||
|
Logging_Services('AppendLog', objLogInvTransError, LogData, @RM, @FM)
|
||||||
RETURN
|
RETURN
|
||||||
END
|
END
|
||||||
END
|
END
|
||||||
@ -1163,6 +1251,50 @@ AddInvTrans:
|
|||||||
Loop
|
Loop
|
||||||
NumAttempts += 1
|
NumAttempts += 1
|
||||||
Database_Services('WriteDataRow', 'WO_MAT', WOMatKey, WOMatRec, True$, False$, True$)
|
Database_Services('WriteDataRow', 'WO_MAT', WOMatKey, WOMatRec, True$, False$, True$)
|
||||||
|
if Error_Services('HasError') then
|
||||||
|
ErrorMessage = Error_Services('GetMessage')
|
||||||
|
LogData = ''
|
||||||
|
LogData<1> = LogFile
|
||||||
|
LogData<2> = WONo
|
||||||
|
LogData<3> = CassNo
|
||||||
|
LogData<4> = InvLocation
|
||||||
|
LogData<5> = InvAction
|
||||||
|
LogData<6> = InvDTM
|
||||||
|
LogData<7> = ScanUserID
|
||||||
|
LogData<8> = Tag
|
||||||
|
LogData<9> = ToolID
|
||||||
|
LogData<10> = ScanEntry
|
||||||
|
LogData<11> = ''
|
||||||
|
LogData<12> = 'Unable to add inv. transaction. ' : ErrorMessage : ' Next line is the expected INV Actions.'
|
||||||
|
Logging_Services('AppendLog', objLogInvTransError, LogData, @RM, @FM)
|
||||||
|
|
||||||
|
LogData = ''
|
||||||
|
LogData<1> = WONo
|
||||||
|
LogData<2> = CassNo
|
||||||
|
LogData<3> = WOMatRec<WO_MAT_INV_ACTION$>
|
||||||
|
Logging_Services('AppendLog', objLogInvTransError, LogData, @RM, @FM)
|
||||||
|
end else
|
||||||
|
LogData = ''
|
||||||
|
LogData<1> = LogFile
|
||||||
|
LogData<2> = WONo
|
||||||
|
LogData<3> = CassNo
|
||||||
|
LogData<4> = InvLocation
|
||||||
|
LogData<5> = InvAction
|
||||||
|
LogData<6> = InvDTM
|
||||||
|
LogData<7> = ScanUserID
|
||||||
|
LogData<8> = Tag
|
||||||
|
LogData<9> = ToolID
|
||||||
|
LogData<10> = ScanEntry
|
||||||
|
LogData<11> = ''
|
||||||
|
LogData<12> = 'Successfully wrote inv transaction to WO_MAT record. Next line is the resultant INV Actions.'
|
||||||
|
Logging_Services('AppendLog', objLogInvTransError, LogData, @RM, @FM)
|
||||||
|
|
||||||
|
LogData = ''
|
||||||
|
LogData<1> = WONo
|
||||||
|
LogData<2> = CassNo
|
||||||
|
LogData<3> = WOMatRec<WO_MAT_INV_ACTION$>
|
||||||
|
Logging_Services('AppendLog', objLogInvTransError, LogData, @RM, @FM)
|
||||||
|
end
|
||||||
WOMatRecVerify = Database_Services('ReadDataRow', 'WO_MAT', WOMatKey)
|
WOMatRecVerify = Database_Services('ReadDataRow', 'WO_MAT', WOMatKey)
|
||||||
LastEntryIndex = DCount(WOMatRecVerify<WO_MAT_INV_WH$>, @VM)
|
LastEntryIndex = DCount(WOMatRecVerify<WO_MAT_INV_WH$>, @VM)
|
||||||
LastEntryAction = WOMatRecVerify<WO_MAT_INV_ACTION$, LastEntryIndex>
|
LastEntryAction = WOMatRecVerify<WO_MAT_INV_ACTION$, LastEntryIndex>
|
||||||
@ -5581,3 +5713,4 @@ ExpCOA:
|
|||||||
|
|
||||||
RETURN
|
RETURN
|
||||||
|
|
||||||
|
|
||||||
|
@ -47,6 +47,14 @@ LogTime = Oconv(Time(), 'MTS')
|
|||||||
LogFileName = LogDate[7, 4] : '-' : LogDate[1, 2] : '-' : LogDate[4, 2] : ' Front-end Create Log.csv'
|
LogFileName = LogDate[7, 4] : '-' : LogDate[1, 2] : '-' : LogDate[4, 2] : ' Front-end Create Log.csv'
|
||||||
Headers = 'Logging DTM'
|
Headers = 'Logging DTM'
|
||||||
objLog = Logging_Services('NewLog', LogPath, LogFileName, CRLF$, Comma$, Headers, '', False$, False$)
|
objLog = Logging_Services('NewLog', LogPath, LogFileName, CRLF$, Comma$, Headers, '', False$, False$)
|
||||||
|
|
||||||
|
LogPath = Environment_Services('GetApplicationRootPath') : '\LogFiles\WO_MAT_LOG'
|
||||||
|
LogDate = Oconv(Date(), 'D4/')
|
||||||
|
LogTime = Oconv(Time(), 'MTS')
|
||||||
|
LogFileName = LogDate[7, 4] : '-' : LogDate[1, 2] : '-' : LogDate[4, 2] : '_Post_Log.csv'
|
||||||
|
Headers = 'Logging DTM'
|
||||||
|
objLogPost = Logging_Services('NewLog', LogPath, LogFileName, CRLF$, Comma$, Headers, '', False$, False$)
|
||||||
|
|
||||||
LoggingDTM = LogDate : ' ' : LogTime ; // Logging DTM
|
LoggingDTM = LogDate : ' ' : LogTime ; // Logging DTM
|
||||||
|
|
||||||
IsProd = Environment_Services('IsProd')
|
IsProd = Environment_Services('IsProd')
|
||||||
@ -250,6 +258,7 @@ RETURN
|
|||||||
* * * * * * *
|
* * * * * * *
|
||||||
Post:
|
Post:
|
||||||
* * * * * * *
|
* * * * * * *
|
||||||
|
|
||||||
hSysLists = Database_Services('GetTableHandle', 'SYSLISTS')
|
hSysLists = Database_Services('GetTableHandle', 'SYSLISTS')
|
||||||
ServiceKeyID = 'Obj_WO_Mat_Log*Post'
|
ServiceKeyID = 'Obj_WO_Mat_Log*Post'
|
||||||
Lock hSysLists, ServiceKeyID then
|
Lock hSysLists, ServiceKeyID then
|
||||||
@ -350,7 +359,29 @@ Post:
|
|||||||
LockedToolID = ScanToolID
|
LockedToolID = ScanToolID
|
||||||
LockedScanEntry = ScanEntry
|
LockedScanEntry = ScanEntry
|
||||||
|
|
||||||
END
|
//Log the error
|
||||||
|
LogData = ''
|
||||||
|
LogData<1> = LoggingDTM
|
||||||
|
LogData<2> = WONo
|
||||||
|
LogData<3> = CassNo
|
||||||
|
LogData<4> = Tag
|
||||||
|
LogData<5> = ScanUserId
|
||||||
|
LogData<6> = ScanToolId
|
||||||
|
LogData<7> = ScanEntry
|
||||||
|
LogData<8> = 'Error reported from obj_wo_mat -> Add InvTrans. Check specific log.'
|
||||||
|
Logging_Services('AppendLog', objLogPost, LogData, @RM, @FM)
|
||||||
|
END else
|
||||||
|
LogData = ''
|
||||||
|
LogData<1> = LoggingDTM
|
||||||
|
LogData<2> = WONo
|
||||||
|
LogData<3> = CassNo
|
||||||
|
LogData<4> = Tag
|
||||||
|
LogData<5> = ScanUserId
|
||||||
|
LogData<6> = ScanToolId
|
||||||
|
LogData<7> = ScanEntry
|
||||||
|
LogData<8> = 'Successfully process obj_wo_mat -> AddInvTrans. Check specific log file for more details.'
|
||||||
|
Logging_Services('AppendLog', objLogPost, LogData, @RM, @FM)
|
||||||
|
end
|
||||||
NEXT I
|
NEXT I
|
||||||
|
|
||||||
WMLRec<WO_MAT_LOG_WO_NO$> = LockedWONos
|
WMLRec<WO_MAT_LOG_WO_NO$> = LockedWONos
|
||||||
@ -376,3 +407,4 @@ Post:
|
|||||||
RETURN
|
RETURN
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user