diff --git a/LSL2/STPROC/OBJ_WO_MAT.txt b/LSL2/STPROC/OBJ_WO_MAT.txt index 8562889..71f0289 100644 --- a/LSL2/STPROC/OBJ_WO_MAT.txt +++ b/LSL2/STPROC/OBJ_WO_MAT.txt @@ -121,6 +121,11 @@ SAPFileName = LogDate[7, 4] : '-' : LogDate[1, 2] : '-' : LogDate[4, 2] : ' SetS SAPHeaders = 'Logging DTM' : @FM : 'WOMatKey' : @FM : 'SAPBatchNo' 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') If IsProd EQ True$ then MonaResource = 'GRP_OPENINSIGHT_MES_OP_FE_OBJWOMAT' @@ -1040,6 +1045,20 @@ AddInvTrans: IF ErrorMsg NE '' THEN ErrorMsg := CRLF$:Parms 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 END @@ -1065,6 +1084,20 @@ AddInvTrans: IF Get_Status(errCode) THEN 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 END @@ -1080,6 +1113,20 @@ AddInvTrans: IF Get_Status(errCode) THEN obj_Tables('UnlockRec',WOtParms) 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 END @@ -1095,7 +1142,20 @@ AddInvTrans: obj_Tables('WriteRec',WOtParms) 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 of check for PTO or PKO location @@ -1108,6 +1168,20 @@ AddInvTrans: IF Get_Status(errCode) THEN obj_Tables('UnlockRec',WOtParms) 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 END @@ -1125,6 +1199,20 @@ AddInvTrans: IF @WINDOW NE 'WO_MAT_INV' THEN IF WOMatRec = '' OR WOMatRec = '' THEN 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 END END @@ -1163,6 +1251,50 @@ AddInvTrans: Loop NumAttempts += 1 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 + 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 + Logging_Services('AppendLog', objLogInvTransError, LogData, @RM, @FM) + end WOMatRecVerify = Database_Services('ReadDataRow', 'WO_MAT', WOMatKey) LastEntryIndex = DCount(WOMatRecVerify, @VM) LastEntryAction = WOMatRecVerify @@ -5581,3 +5713,4 @@ ExpCOA: RETURN + diff --git a/LSL2/STPROC/OBJ_WO_MAT_LOG.txt b/LSL2/STPROC/OBJ_WO_MAT_LOG.txt index 4ecdb43..54e0acb 100644 --- a/LSL2/STPROC/OBJ_WO_MAT_LOG.txt +++ b/LSL2/STPROC/OBJ_WO_MAT_LOG.txt @@ -47,6 +47,14 @@ LogTime = Oconv(Time(), 'MTS') LogFileName = LogDate[7, 4] : '-' : LogDate[1, 2] : '-' : LogDate[4, 2] : ' Front-end Create Log.csv' Headers = 'Logging DTM' 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 IsProd = Environment_Services('IsProd') @@ -250,6 +258,7 @@ RETURN * * * * * * * Post: * * * * * * * + hSysLists = Database_Services('GetTableHandle', 'SYSLISTS') ServiceKeyID = 'Obj_WO_Mat_Log*Post' Lock hSysLists, ServiceKeyID then @@ -350,7 +359,29 @@ Post: LockedToolID = ScanToolID 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 WMLRec = LockedWONos @@ -376,3 +407,4 @@ Post: RETURN +