phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Removed referenced to QUOTE_SIG_PWD_ENTRY and

Browse Source 
replaced with NDW_VERIFY_USER. Added barcode
scan function to NDW_VERIFY_USER.

fixed two instances of ohms square unit characters being garbled by git

minor modification to NDW_VERIFY_USER_EVENTS lost focus events

minor change to gotfocus event logic
This commit is contained in:
Infineon\Mitchem
2025-04-07 09:29:34 -07:00
committed by Infineon\StieberD
parent 4b26d37a1c
commit 741a8450e3
91 changed files with 112358 additions and 19078 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
LSL2/STPROC/CLEAN_INSP.txt
View File

@ -828,7 +828,8 @@ SignClean:
IF MemberOf(@USER4, 'OI_SUPERUSER') THEN
Valid = 1
END ELSE
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
END
IF Valid = 1 THEN
@ -1438,7 +1439,8 @@ SignInsp:
IF MemberOf(@USER4, 'OI_SUPERUSER') THEN
Valid = 1
END ELSE
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
END
IF Valid = 1 THEN
@ -1615,8 +1617,9 @@ SignScan:
IF MemberOf(@USER4, 'OI_SUPERUSER') THEN
Valid = 1
END ELSE
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
END ELSE
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
END
IF Valid = 1 THEN
@ -1692,7 +1695,8 @@ RETURN
SIGN_ROTR_ACCEPTANCE.CLICK:
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
If Valid EQ True$ then
OrigReason = Get_Property(@Window : '.SIGN_ROTR_REASON', 'DEFPROP')
Reason = Msg(@Window, '', 'MESSAGE_INPUT', '', 'ROTR Acceptance' : @FM : 'ROTR Acceptance Reason' : @FM : OrigReason)

18
LSL2/STPROC/COMM_ICAR.txt
View File

@ -759,7 +759,8 @@ SignEmpReview:
Msg( '', MsgInfo )
END ELSE
IF @USER4 = EmpID THEN
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
end else
Valid = Dialog_Box('NDW_USER_OVERRIDE', @WINDOW, EmpId)
End
@ -829,7 +830,8 @@ SignEmpSup:
Msg( '', MsgInfo )
END ELSE
IF @USER4 = RespSupervisor THEN
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
END else
Valid = Dialog_Box('NDW_USER_OVERRIDE', @Window, RespSupervisor)
@ -901,7 +903,8 @@ SignSecSup:
Msg( '', MsgInfo )
END ELSE
IF @USER4 = DeptManager THEN
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
END else
Valid = Dialog_Box('NDW_USER_OVERRIDE', @Window, DeptManager)
@ -1000,12 +1003,3 @@ LotInfoDC:
RETURN

16
LSL2/STPROC/COMM_NCR.txt
View File

@ -1202,7 +1202,8 @@ IF ( @USER4 = DeptManager ) OR ( DeptResp = 'Customer' ) OR ( DeptResp = 'Resear
MsgInfo<micon$> = '!'
Msg( '', MsgInfo )
END ELSE
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
IF Valid THEN
Set_Property(@WINDOW:'.DEPT_MGR_SIG','TEXT', @USER4 )
@ -1271,7 +1272,8 @@ IF CurStatus = 'O' THEN
Void = Msg( '', MsgInfo )
END ELSE
IF Get_Property(@WINDOW:'.AUTH_REJ_SIG','TEXT') <> '' THEN
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
IF Valid THEN
Set_Property(@WINDOW:'.AUTH_DEV_SIG','TEXT', @USER4 )
Set_Property(@WINDOW:'.AUTH_DEV_SIG_NAME','TEXT', XLATE( 'LSL_USERS', @USER4, 'FIRST_LAST', 'X' ) )
@ -1337,7 +1339,8 @@ IF AuthRejSig <> '' THEN
MsgInfo<micon$> = '!'
Void = msg( '', MsgInfo )
END ELSE
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
IF Valid THEN
Set_Property(@WINDOW:'.AUTH_REJ_SIG','DEFPROP', @USER4 )
Set_Property(@WINDOW:'.AUTH_REJ_SIG_NAME','DEFPROP', XLATE( 'LSL_USERS', @USER4, 'FIRST_LAST', 'X' ) )
@ -1430,7 +1433,8 @@ IF CurStatus = 'O' THEN
Void = Msg( '', MsgInfo )
END ELSE
IF ( Get_Property(@WINDOW:'.AUTH_REJ_SIG','TEXT' ) <> '' ) THEN
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @window, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
IF Valid THEN
@ -1958,7 +1962,3 @@ FQAVerify:
return

16
LSL2/STPROC/COMM_PROD_SPEC.txt
View File

@ -136,6 +136,8 @@ Equ COL$SIG_STAGE To 1
Equ COL$SIG_STAGE_DESC To 2
Equ MSG_WIDTH$ to 600
EQU OHMS_SQUARE$ TO CHAR(234):'/':CHAR(220) ;* Ohms/Square
ErrCode = ''
ErrorMsg = ''
ErrTitle = 'Error in Comm_Prod_Spec'
@ -1245,9 +1247,9 @@ BEGIN CASE
CASE MetTest = 'LW_RHO'
Units = 'ê/Ü' ;* Resistivity units for 'ohms square' (see Metrology_Units popup)
Units = OHMS_SQUARE$ ;* Resistivity units for 'ohms square' (see Metrology_Units popup)
EpiProps = XLATE('PRS_PROP',PSNo:'*':LayerNo:'*RES','','X')
IF EpiProps<PRS_PROP_UNITS_ORG$> = 'ê/Ü' THEN
IF EpiProps<PRS_PROP_UNITS_ORG$> = OHMS_SQUARE$ THEN
DefProp = EpiProps<PRS_PROP_RAW_MIN$>
END
@ -1266,9 +1268,9 @@ BEGIN CASE
DefProp = XLATE('PRS_PROP',PSNo:'*':LayerNo:'*THICK',PRS_PROP_RAW_MAX$,'X')
CASE MetTest = 'LW_RHO'
Units = 'ê/Ü' ;* Resistivity units for 'ohms square' (see Metrology_Units popup)
Units = OHMS_SQUARE$ ;* Resistivity units for 'ohms square' (see Metrology_Units popup)
EpiProps = XLATE('PRS_PROP',PSNo:'*':LayerNo:'*RES','','X')
IF EpiProps<PRS_PROP_UNITS_ORG$> = 'ê/Ü' THEN
IF EpiProps<PRS_PROP_UNITS_ORG$> = OHMS_SQUARE$ THEN
DefProp = EpiProps<PRS_PROP_RAW_MAX$>
END
@ -1503,7 +1505,8 @@ SignNextMode:
If Qualified EQ TRUE$ THEN
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
END ELSE
ErrorMsg = 'Current user is not an authorized ':NextMode:' signer.'
ErrMsg(ErrorMsg)
@ -1570,7 +1573,8 @@ UnsignCurrMode:
END CASE
If Qualified EQ TRUE$ THEN
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
END ELSE
ErrorMsg = 'Current user is not an authorized ':UnsignMode:' signer.'
ErrMsg(ErrorMsg)

24
LSL2/STPROC/COMM_PR_SPEC.txt
View File

@ -280,7 +280,8 @@ END
IF Sig = '' THEN
* Doing Signature
GoodPassword = Dialog_Box('QUOTE_SIG_PWD_ENTRY',@WINDOW,CurrUser:@VM:CurrUserPW)
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
GoodPassword = Valid<1>
IF GoodPassword THEN
UserName = XLATE('LSL_USERS',CurrUser,'FIRST_LAST','X')
CurrTimeDate = TimeDate()
@ -301,7 +302,8 @@ END ELSE
Resp = Msg(@WINDOW,MsgInfo,'')
IF Resp = 0 THEN RETURN
GoodPassword = Dialog_Box('QUOTE_SIG_PWD_ENTRY',@WINDOW,CurrUser:@VM:CurrUserPW)
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
GoodPassword = Valid<1>
IF GoodPassword THEN
Vals = '':@RM:'':@RM:''
Set_Property(Ctrls,Props,Vals)
@ -341,7 +343,8 @@ END
IF Sig = '' THEN
* Doing Signature
GoodPassword = Dialog_Box('QUOTE_SIG_PWD_ENTRY',@WINDOW,CurrUser:@VM:CurrUserPW)
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
GoodPassword = Valid<1>
IF GoodPassword THEN
UserName = XLATE('LSL_USERS',CurrUser,'FIRST_LAST','X')
CurrTimeDate = TimeDate()
@ -362,7 +365,8 @@ END ELSE
Resp = Msg(@WINDOW,MsgInfo,'')
IF Resp = 0 THEN RETURN
GoodPassword = Dialog_Box('QUOTE_SIG_PWD_ENTRY',@WINDOW,CurrUser:@VM:CurrUserPW)
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
GoodPassword = Valid<1>
IF GoodPassword THEN
Vals = '':@RM:'':@RM:''
Set_Property(Ctrls,Props,Vals)
@ -399,7 +403,8 @@ END
IF Sig = '' THEN
* Doing Signature
GoodPassword = Dialog_Box('QUOTE_SIG_PWD_ENTRY',@WINDOW,CurrUser:@VM:CurrUserPW)
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
GoodPassword = Valid<1>
IF GoodPassword THEN
UserName = XLATE('LSL_USERS',CurrUser,'FIRST_LAST','X')
CurrTimeDate = TimeDate()
@ -420,7 +425,8 @@ END ELSE
Resp = Msg(@WINDOW,MsgInfo,'')
IF Resp = 0 THEN RETURN
GoodPassword = Dialog_Box('QUOTE_SIG_PWD_ENTRY',@WINDOW,CurrUser:@VM:CurrUserPW)
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
GoodPassword = Valid<1>
IF GoodPassword THEN
Vals = '':@RM:'':@RM:''
Set_Property(Ctrls,Props,Vals)
@ -456,7 +462,8 @@ END
IF Sig = '' THEN
* Doing Signature
GoodPassword = Dialog_Box('QUOTE_SIG_PWD_ENTRY',@WINDOW,CurrUser:@VM:CurrUserPW)
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
GoodPassword = Valid<1>
IF GoodPassword THEN
UserName = XLATE('LSL_USERS',CurrUser,'FIRST_LAST','X')
CurrTimeDate = TimeDate()
@ -477,7 +484,8 @@ END ELSE
Resp = Msg(@WINDOW,MsgInfo,'')
IF Resp = 0 THEN RETURN
GoodPassword = Dialog_Box('QUOTE_SIG_PWD_ENTRY',@WINDOW,CurrUser:@VM:CurrUserPW)
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
GoodPassword = Valid<1>
IF GoodPassword THEN
Vals = '':@RM:'':@RM:''
Set_Property(Ctrls,Props,Vals)

3
LSL2/STPROC/COMM_QA_MET_RESULT.txt
View File

@ -950,7 +950,8 @@ Sign:
IF (SignatureReady = True$) THEN
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
IF (Valid) THEN
ScanUser = @USER4
ScanDTM = OCONV(Date(),'D4/'):' ':OCONV(Time(),'MTHS')

12
LSL2/STPROC/COMM_QUOTE.txt
View File

@ -619,7 +619,8 @@ QuoteFaxer = SignatureInfo<5>
LOCATE @USER4 IN Users USING @VM SETTING FPos THEN
Password = Passwords<1,Fpos>
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@vm:Password )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
IF Valid THEN
NextLine = ''
FOR I = 1 TO COUNT(CurrentSignatures,@VM) + (CurrentSignatures NE '')
@ -1004,12 +1005,3 @@ END ELSE
END
RETURN

3
LSL2/STPROC/COMM_RDS_TEST.txt
View File

@ -1625,7 +1625,8 @@ IF ListData<CurrRow,CurrCol> = '' AND CurrCol NE COL$TW_USAGE_DESC THEN
CASE ColPointer = COL$TW_SIG
IF ListData<CurrRow,CurrCol> = '' THEN
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
IF Valid THEN
Parms = @USER4:@RM:CtrlEntId:@RM:ColPointer:@FM:LinePointer ;* Username
obj_Appwindow('LUValReturn',Parms )

3
LSL2/STPROC/COMM_REACTOR_LOG.txt
View File

@ -674,7 +674,8 @@ TechSign:
Set_Property(@Window, 'IOOPTIONS', PrevOptions)
ReactorlogNo = Get_Property(@Window:'.REACTOR_LOG_NO', 'TEXT')
Valid = Dialog_Box('QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
If Valid then
Def = ""

6
LSL2/STPROC/COMM_REACT_RUN.txt
View File

@ -1439,7 +1439,8 @@ SignSuppl:
* * * * * * *
IF MemberOf( @USER4, 'DATA_ENTRY' ) OR MemberOf( @USER4, 'SUPERVISOR' ) THEN
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
IF Valid THEN
Set_Property(@WINDOW:'.SUPP_SIG','INVALUE',@USER4)
*Set_Property(@WINDOW:'.SUPP_SIG','TEXT',XLATE('LSL_USERS',@USER4,'FIRST_LAST','X' )
@ -1811,6 +1812,3 @@ SUSC_LOAD.OPTIONS:
return

4
LSL2/STPROC/COMM_REACT_RUN_VER.txt
View File

@ -284,7 +284,8 @@ RETURN
Sign:
* * * * * * *
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
IF Valid THEN
ScanUser = @USER4
@ -352,3 +353,4 @@ End_Dialog('REACT_RUN_VER','')
RETURN

5
LSL2/STPROC/COMM_SURFACE_SCAN.txt
View File

@ -211,7 +211,8 @@ RETURN
Sign:
* * * * * * *
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
IF Valid THEN
@ -414,5 +415,3 @@ Close:
RETURN

3
LSL2/STPROC/COMM_WM_IN.txt
View File

@ -496,7 +496,8 @@ Sign:
IF NOT(Yes) THEN RETURN ;* User bailed
END
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
IF Valid THEN
SigCnt = COUNT(Signatures,@VM) + (Signatures NE '')

20
LSL2/STPROC/GAN_PROD_SPEC.txt
View File

@ -128,6 +128,8 @@ EQU COL$STAGE_SURFSCAN_RECIPE TO 5
Equ COL$SIG_STAGE To 1
Equ COL$SIG_STAGE_DESC To 2
EQU OHMS_SQUARE$ TO CHAR(234):'/':CHAR(220) ;* Ohms/Square
ErrCode = ''
ErrorMsg = ''
ErrTitle = 'Error in Comm_Prod_Spec'
@ -1009,9 +1011,9 @@ BEGIN CASE
CASE MetTest = 'LW_RHO'
Units = 'ê/Ü' ;* Resistivity units for 'ohms square' (see Metrology_Units popup)
Units = OHMS_SQUARE$ ;* Resistivity units for 'ohms square' (see Metrology_Units popup)
EpiProps = XLATE('PRS_PROP',PSNo:'*':LayerNo:'*RES','','X')
IF EpiProps<PRS_PROP_UNITS_ORG$> = 'ê/Ü' THEN
IF EpiProps<PRS_PROP_UNITS_ORG$> = OHMS_SQUARE$ THEN
DefProp = EpiProps<PRS_PROP_RAW_MIN$>
END
@ -1030,9 +1032,9 @@ BEGIN CASE
DefProp = XLATE('PRS_PROP',PSNo:'*':LayerNo:'*THICK',PRS_PROP_RAW_MAX$,'X')
CASE MetTest = 'LW_RHO'
Units = 'ê/Ü' ;* Resistivity units for 'ohms square' (see Metrology_Units popup)
Units = 'ê/Ü' ;* Resistivity units for 'ohms square' (see Metrology_Units popup)
EpiProps = XLATE('PRS_PROP',PSNo:'*':LayerNo:'*RES','','X')
IF EpiProps<PRS_PROP_UNITS_ORG$> = 'ê/Ü' THEN
IF EpiProps<PRS_PROP_UNITS_ORG$> = 'ê/Ü' THEN
DefProp = EpiProps<PRS_PROP_RAW_MAX$>
END
@ -1223,7 +1225,8 @@ SignNextMode:
END CASE
LOCATE @USER4 IN QualUsers USING @VM SETTING Pos THEN
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
END ELSE
ErrorMsg = 'Current user is not an authorized ':NextMode:' signer.'
ErrMsg(ErrorMsg)
@ -1276,14 +1279,16 @@ UnsignCurrMode:
END CASE
LOCATE @USER4 IN QualUsers USING @VM SETTING Pos THEN
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
END ELSE
ErrorMsg = 'Current user is not an authorized ':UnsignMode:' signer.'
ErrMsg(ErrorMsg)
RETURN
END
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
IF Valid = 1 THEN
CurrDate = OCONV(Date(),'D4/')
@ -2146,4 +2151,3 @@ ColorTab:
return

34
LSL2/STPROC/NDW_VERIFY_USER_EVENTS.txt
View File

@ -135,8 +135,22 @@ end event
Event EDL_USERNAME.GOTFOCUS(PrevFocusID)
Set_Property(CtrlEntId, 'SELECTION', 1 : @FM : 999)
If PrevFocusID NE CtrlEntId then
Set_Property(CtrlEntId, 'SELECTION', 1 : @FM : 999)
end
end event
Event EDL_USERNAME.LOSTFOCUS(Flag, FocusID)
Username = Get_Property(@Window:'.EDL_USERNAME','TEXT')
If Username [1,2] EQ '1H' then
Username = Username[3, 999]
Set_Property(CtrlEntId, 'TEXT', Username)
Set_Property(@Window:'.EDL_PASSWORD', 'FOCUS', True$)
end
end event
@ -156,8 +170,22 @@ end event
Event EDL_PASSWORD.GOTFOCUS(PrevFocusID)
Set_Property(CtrlEntId, 'SELECTION', 1 : @FM : 999)
If PrevFocusID NE CtrlEntId then
Set_Property(CtrlEntId, 'SELECTION', 1 : @FM : 999)
end
end event
Event EDL_PASSWORD.LOSTFOCUS(Flag, FocusID)
Password = Get_Property(@Window:'.EDL_PASSWORD','TEXT')
If Password [1,3] EQ 'PWD' then
Password = Password[4, 999]
Set_Property(CtrlEntId, 'TEXT', Password)
Send_Event(@Window : '.PUB_OK', 'CLICK')
end
end event
@ -177,7 +205,7 @@ end event
Event PUB_OK.CLICK()
Set_Property(@Window : '.EDL_USERNAME', 'BACKCOLOR', COLOR_BTNFACE$)
Set_Property(@Window : '.EDL_PASSWORD', 'BACKCOLOR', COLOR_BTNFACE$)
Set_Property(@Window : '.EDL_USERNAME', 'BACKCOLOR', COLOR_WINDOW$)

6
LSL2/STPROC/PM.txt
View File

@ -311,7 +311,8 @@ PMComp:
RETURN
END
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
IF NOT(Valid) THEN
RETURN 0
@ -328,6 +329,3 @@ PMComp:
RETURN

6
LSL2/STPROC/RUN_STAGE.txt
View File

@ -413,7 +413,8 @@ CurrQueueID = CurrLocs<1,4> ;* Added 9/27/2016 JCH
IF @USER4 = '' THEN @USER4 = 'BRYCE_BARB'
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
IF NOT(Valid) THEN
RETURN 0
@ -531,7 +532,8 @@ IF Stage = 'ETCH' THEN
END ;* End of check for Etch Stage
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
IF NOT(Valid) THEN
RETURN 0

6
LSL2/STPROC/RUN_STAGE_WFR.txt
View File

@ -335,7 +335,8 @@ END
IF ErrorMsg NE '' THEN RETURN
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
IF NOT(Valid) THEN
RETURN 0
@ -419,7 +420,8 @@ CassNo = ReactRunRec<REACT_RUN_CASS_NO$>
WOMatKey = XLATE('REACT_RUN',RDSNo,'WO_MAT_KEY','X')
*/
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
IF NOT(Valid) THEN
RETURN 0

6
LSL2/STPROC/TEST_WAFER.txt
View File

@ -990,7 +990,8 @@ RETURN
Sign:
* * * * * * *
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
IF Valid THEN
@ -1031,6 +1032,3 @@ Msg(@WINDOW,'','TW_USE_WAFER_HELP')
RETURN

4
LSL2/STPROC/WO_MAT_GAN_EVENTS.txt
View File

@ -323,7 +323,8 @@ Event PUB_SIGN_FQA.CLICK()
WONo = Get_Property(@WINDOW:'.WO_NO','DEFPROP')
CassNo = Get_Property(@WINDOW:'.CASS_NO','DEFPROP')
Valid = Dialog_Box( 'QUOTE_SIG_PWD_ENTRY', @WINDOW, @USER4:@VM:XLATE( 'LSL_USERS', @USER4, LSL_USERS_PASSWORD$, 'X' ) )
Valid = Dialog_Box('NDW_VERIFY_USER', @Window, @User4)
Valid = Valid<1>
IF NOT(Valid) THEN
RETURN 0
@ -1110,4 +1111,3 @@ EnableSignButton:
return