pre cutover push
This commit is contained in:
Infineon\StieberD
@ -358,7 +358,6 @@ CassIdPC:
|
||||
* Setup parameters to WO_Mat_Log method *
|
||||
CurrDTM = OCONV(Date(),'D2/'):' ':OCONV(Time(),'MTS')
|
||||
UserID = @USER4
|
||||
IF UserID = '' THEN UserID = @USERNAME
|
||||
|
||||
LogFile = 'WO_MAT' ;* Changed so all scans are logged in the WO_MAT table 12/3/2006
|
||||
Action = 'LBLCHK' ;* Final label check for same top and bottom and correct Lot Number on WO_MAT record
|
||||
@ -377,7 +376,7 @@ CassIdPC:
|
||||
**********************
|
||||
* Process Lot Number *
|
||||
**********************
|
||||
if @User4 EQ 'DAN_CR' OR @UserName EQ 'DAN_CR' then debug
|
||||
|
||||
IF (MismatchDetected = False$) THEN
|
||||
|
||||
LotNumber = TRIM(Send_Message(CtrlEntID, "TEXT_BY_POS", COL$LOT_NO, PrevRow))
|
||||
@ -466,7 +465,6 @@ CassIdPC:
|
||||
|
||||
CurrDTM = OCONV(Date(),'D2/'):' ':OCONV(Time(),'MTS')
|
||||
UserID = @USER4
|
||||
IF UserID = '' THEN UserID = @USERNAME
|
||||
|
||||
LogFile = 'WO_MAT' ;* Changed so all scans are logged in the WO_MAT table 12/3/2006
|
||||
Action = 'LBLCHK' ;* Final label check for same top and bottom and correct Lot Number on WO_MAT record
|
||||
@ -492,147 +490,6 @@ CassIdPC:
|
||||
|
||||
END
|
||||
|
||||
|
||||
*********************
|
||||
* Process IFX Label *
|
||||
*********************
|
||||
|
||||
* IF (MismatchDetected = False$) THEN
|
||||
*
|
||||
* IFXValid = 0
|
||||
*
|
||||
* /* Read scanned information from edit table */
|
||||
* TopLabel = TRIM(Send_Message(CtrlEntID, "TEXT_BY_POS", COL$TOP_LABEL, PrevRow))
|
||||
* BottomLabel = TRIM(Send_Message(CtrlEntID, "TEXT_BY_POS", COL$BOTTOM_LABEL, PrevRow))
|
||||
* LotNumber = TRIM(Send_Message(CtrlEntID, "TEXT_BY_POS", COL$LOT_NO, PrevRow))
|
||||
* WOLogKey = TRIM(Send_Message(CtrlEntID, "TEXT_BY_POS", COL$WOLOGKEY, PrevRow))
|
||||
*
|
||||
* IF ((TopLabel NE '') AND (BottomLabel NE '') AND (LotNumber NE '') AND (WOLogKey NE '')) THEN
|
||||
*
|
||||
* /* Get the Customer Information */
|
||||
* WOLogRec = XLATE('WO_LOG', WOLogKey, '', 'X')
|
||||
* IF (WOLogRec NE '') THEN
|
||||
* CustomerNo = WOLogRec<WO_LOG_CUST_NO$>
|
||||
* END ELSE
|
||||
* CustomerNo = ''
|
||||
* END
|
||||
* GaNFlag = Get_Property(@Window, '@GAN_FLAG')
|
||||
* IF (CustomerNo = '7112') |
|
||||
* OR (CustomerNo = '7113') |
|
||||
* OR (CustomerNo = '7114') |
|
||||
* OR (CustomerNo = '7115') |
|
||||
* OR (CustomerNo = '7116') |
|
||||
* OR (CustomerNo = '7118') |
|
||||
* OR (CustomerNo = '7121') |
|
||||
* OR (CustomerNo = '7123') |
|
||||
* AND (GaNFlag NE True$) THEN
|
||||
*
|
||||
* IFXLabel = TRIM(Send_Message(CtrlEntID, "TEXT_BY_POS", COL$IFX_LABEL, PrevRow))
|
||||
*
|
||||
* IF ((IFXLabel NE '') AND (PrevCol = COL$IFX_LABEL)) THEN
|
||||
*
|
||||
* IF ((IFXLabel[1,2] = '1T') OR (IFXLabel[1,2] = '2T')) THEN
|
||||
* /* Trim off field identifiers (1T) or (2T) if present - changed by dkk 12/13/16 */
|
||||
* IFXLabel[1,2] = ''
|
||||
* Set_Property(CtrlEntID, "CELLPOS", IFXLabel, COL$IFX_LABEL:@FM:PrevRow)
|
||||
* END
|
||||
*
|
||||
* **********************
|
||||
* * Validate IFX Label *
|
||||
* **********************
|
||||
*
|
||||
* IF (IFXLabel NE TopLabel) THEN
|
||||
*
|
||||
* MismatchDetected = True$ /* Mismatch Detected */
|
||||
*
|
||||
* void = Utility('BEEP')
|
||||
* Set_Property(CtrlEntID, "CELLPOS", 'Mismatch', COL$RESULT:@FM:PrevRow) /* Load Current Location */
|
||||
* stat = Send_Message(CtrlEntID, 'COLOR_BY_POS', 0, PrevRow, RED$)
|
||||
* Set_Property("SYSTEM", "BLOCK_EVENTS", True$)
|
||||
* Set_Property(CtrlEntID, "SELPOS", COL$TOP_LABEL:@FM:PrevRow+1) /* Move to the next line ready to scan */
|
||||
* Set_Property("SYSTEM", "BLOCK_EVENTS", False$)
|
||||
* InsertedPosition = Send_Message(CtrlEntID, "INSERT", -1, '')
|
||||
*
|
||||
* TypeOver = ''
|
||||
* TypeOver<MCAPTION$> = 'FQA Label Mismatch'
|
||||
* TypeOver<MTEXT$> = CRLF$:'IFX Label Mismatch!':CRLF$
|
||||
*
|
||||
* OK = Msg(@WINDOW,TypeOver,'LABEL_MISMATCH')
|
||||
*
|
||||
* * Inform Quality Insurance that a mismatch has occurred *
|
||||
*
|
||||
* Recipients = ''
|
||||
* OtherRecipients = XLATE('NOTIFICATION','LABEL_CHECK_FQA',NOTIFICATION_USER_ID$,'X') ;* Added 10/03/2005 JCH - J.C. Henry & Co., Inc Changed from LABEL_MISMATCH by dkk 11/6/15
|
||||
*
|
||||
* FOR N = 1 TO COUNT(OtherRecipients,@VM) + (OtherRecipients NE '')
|
||||
* OtherRecip = OtherRecipients<1,N>
|
||||
* LOCATE OtherRecip IN Recipients USING @VM SETTING Pos ELSE
|
||||
* Recipients = INSERT(Recipients,1,Pos,0,OtherRecip)
|
||||
* END
|
||||
* NEXT N
|
||||
*
|
||||
* SentFrom = @USER4
|
||||
* Subject = 'Final QA Label Check Mismatch'
|
||||
* Message = 'Cassette IFX Label ':QUOTE(IFXLabel):' has mismatched Top Label ':QUOTE(TopLabel)'.'
|
||||
* AttachWindow = ''
|
||||
* AttachKey = ''
|
||||
* SendToGroup = ''
|
||||
*
|
||||
* Parms = Recipients:@RM:SentFrom:@RM:Subject:@RM:Message:@RM:AttachWindow:@RM:AttachKey:@RM:SendToGroup
|
||||
* obj_Notes('Create',Parms)
|
||||
*
|
||||
* IF Num(TopLabel) THEN
|
||||
* RDSNo = TopLabel
|
||||
* ReactRunRec = XLATE('REACT_RUN', RDSNo, '', 'X')
|
||||
*
|
||||
* WONo = ReactRunRec<REACT_RUN_WO_NO$>
|
||||
* StepNo = ReactRunRec<REACT_RUN_WO_STEP$>
|
||||
* CassNo = ReactRunRec<REACT_RUN_CASS_NO$>
|
||||
*
|
||||
* END ELSE
|
||||
* IF TopLabel[1,1] = 'O' THEN TopLabel[1,1] = ''
|
||||
* IF TopLabel[1,1] = 'I' THEN TopLabel[1,1] = ''
|
||||
*
|
||||
* WONo = FIELD(TopLabel,'.',1)
|
||||
* StepNo = FIELD(TopLabel,'.',2)
|
||||
* CassNo = FIELD(TopLabel,'.',3)
|
||||
* RDSNo = ''
|
||||
* END
|
||||
*
|
||||
* * Setup parameters to WO_Mat_Log method *
|
||||
* CurrDTM = OCONV(Date(),'D2/'):' ':OCONV(Time(),'MTS')
|
||||
* UserID = @USER4
|
||||
* IF UserID = '' THEN UserID = @USERNAME
|
||||
*
|
||||
* LogFile = 'WO_MAT' ;* Changed so all scans are logged in the WO_MAT table 12/3/2006
|
||||
* Action = 'LBLCHK' ;* Final label check for same top and bottom and correct Lot Number on WO_MAT record
|
||||
* WHCd = 'CR' ;* Clean room @ final QA
|
||||
* LocCd = 'QA' ;* MisMatch - keep the cassette location at Final QA
|
||||
*
|
||||
* Set_Status(0)
|
||||
* obj_WO_Mat_Log('Create',LogFile:@RM:CurrDTM:@RM:Action:@RM:WhCd:@RM:LocCd:@RM:WONo:@RM:CassNo:@RM:UserID:@RM:'Mismatch')
|
||||
*
|
||||
* IF Get_Status(errCode) THEN
|
||||
* Errmsg(errCode)
|
||||
* END
|
||||
*
|
||||
* END ELSE
|
||||
* /* IFX Lavel = Top Label */
|
||||
* IFXValid = 1
|
||||
*
|
||||
* END /* End of check for IFX label check */
|
||||
*
|
||||
* END ELSE
|
||||
* NULL /* No IFX Label scanned yet */
|
||||
* END
|
||||
*
|
||||
* END ELSE
|
||||
* Set_Property(CtrlEntID, "CELLPOS", 'N/A', COL$IFX_LABEL:@FM:PrevRow)
|
||||
* IFXValid = 1
|
||||
* END
|
||||
* END
|
||||
* END
|
||||
|
||||
********************************
|
||||
* Validate Scanned Information *
|
||||
********************************
|
||||
@ -680,7 +537,6 @@ CassIdPC:
|
||||
|
||||
CurrDTM = OCONV(Date(),'D2/'):' ':OCONV(Time(),'MTS')
|
||||
UserID = @USER4
|
||||
IF UserID = '' THEN UserID = @USERNAME
|
||||
|
||||
LogFile = 'WO_MAT' ;* Changed so all scans are logged in the WO_MAT table 12/3/2006
|
||||
Action = 'LBLCHK' ;* Final label check for same top and bottom and correct Lot Number on WO_MAT record
|
||||
|
||||
Reference in New Issue
Block a user