Refined event logic to prevent multiple error messages from being displayed. Imlemented GetStackTrace service in Error_Services so that the stack contents can be logged with the RDS Layer error log.
This commit is contained in:
Infineon\StieberD
Stieber Daniel (CSC FI SPS MESLEO)
parent
651b7ab420
commit
f930fd3efe
@ -75,30 +75,28 @@ END CASE
|
|||||||
RETURN Result
|
RETURN Result
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
* * * * * * *
|
* * * * * * *
|
||||||
Create:
|
Create:
|
||||||
* * * * * * *
|
* * * * * * *
|
||||||
|
|
||||||
|
obj_Appwindow('Create',@WINDOW)
|
||||||
|
|
||||||
obj_Appwindow('Create',@WINDOW)
|
IF Parm1 NE '' THEN
|
||||||
|
|
||||||
IF Parm1 NE '' THEN
|
|
||||||
obj_AppWindow('LoadFormKeys',@WINDOW:@RM:Parm1)
|
obj_AppWindow('LoadFormKeys',@WINDOW:@RM:Parm1)
|
||||||
END
|
END
|
||||||
|
|
||||||
GOSUB Refresh
|
|
||||||
|
|
||||||
|
GOSUB Refresh
|
||||||
|
|
||||||
RETURN
|
RETURN
|
||||||
|
|
||||||
|
|
||||||
* * * * * * *
|
* * * * * * *
|
||||||
Clear:
|
Clear:
|
||||||
* * * * * * *
|
* * * * * * *
|
||||||
|
|
||||||
Send_Event(@WINDOW,'PAGE',1)
|
Send_Event(@WINDOW,'PAGE',1)
|
||||||
|
|
||||||
GOSUB Refresh
|
GOSUB Refresh
|
||||||
|
|
||||||
RETURN
|
RETURN
|
||||||
|
|
||||||
@ -124,16 +122,16 @@ RETURN
|
|||||||
Read:
|
Read:
|
||||||
* * * * * * *
|
* * * * * * *
|
||||||
|
|
||||||
CurrRecord = Get_Property(@WINDOW,'RECORD')
|
CurrRecord = Get_Property(@WINDOW,'RECORD')
|
||||||
Set_Property(@WINDOW,'@ORG_RECORD',CurrRecord)
|
Set_Property(@WINDOW,'@ORG_RECORD',CurrRecord)
|
||||||
|
|
||||||
* * * * * * *
|
* * * * * * *
|
||||||
Refresh:
|
Refresh:
|
||||||
* * * * * * *
|
* * * * * * *
|
||||||
|
|
||||||
LSId = Get_Property(@WINDOW:'.LS_ID','TEXT')
|
LSId = Get_Property(@WINDOW:'.LS_ID','TEXT')
|
||||||
|
|
||||||
BEGIN CASE
|
BEGIN CASE
|
||||||
CASE LSId = 'L1'
|
CASE LSId = 'L1'
|
||||||
Set_Property(@WINDOW:'.LS_ID','BACKCOLOR',RCV_BLUE$)
|
Set_Property(@WINDOW:'.LS_ID','BACKCOLOR',RCV_BLUE$)
|
||||||
|
|
||||||
@ -146,36 +144,36 @@ BEGIN CASE
|
|||||||
CASE 1
|
CASE 1
|
||||||
Set_Property(@WINDOW:'.LS_ID','BACKCOLOR',KEY_YELLOW$)
|
Set_Property(@WINDOW:'.LS_ID','BACKCOLOR',KEY_YELLOW$)
|
||||||
|
|
||||||
END CASE
|
END CASE
|
||||||
|
|
||||||
Set_Property(@WINDOW:'.OVERRIDE_LIMITS_GROUP','ENABLED',0)
|
Set_Property(@WINDOW:'.OVERRIDE_LIMITS_GROUP','ENABLED',0)
|
||||||
|
|
||||||
RDSNo = Get_Property( @WINDOW:'.RDS_NO', 'DEFPROP' )
|
RDSNo = Get_Property( @WINDOW:'.RDS_NO', 'DEFPROP' )
|
||||||
RDSRec = XLATE('RDS',RDSNo,'','X')
|
RDSRec = XLATE('RDS',RDSNo,'','X')
|
||||||
|
|
||||||
LayerSetID = Get_Property(@WINDOW:'.LS_ID','DEFPROP')
|
LayerSetID = Get_Property(@WINDOW:'.LS_ID','DEFPROP')
|
||||||
|
|
||||||
PSNId = RDSRec< RDS_PROD_SPEC_ID$ >
|
PSNId = RDSRec< RDS_PROD_SPEC_ID$ >
|
||||||
RecipeNo = Get_Property(@WINDOW:'.RECIPE_NO','DEFPROP')
|
RecipeNo = Get_Property(@WINDOW:'.RECIPE_NO','DEFPROP')
|
||||||
|
|
||||||
RecipeParms = Get_Property(@WINDOW:'.RECIPE_PARMS','ARRAY') ;* Entered by user
|
RecipeParms = Get_Property(@WINDOW:'.RECIPE_PARMS','ARRAY') ;* Entered by user
|
||||||
RecipeLimits = Get_Property(@WINDOW:'.RECIPE_LIMITS','LIST')<1>
|
RecipeLimits = Get_Property(@WINDOW:'.RECIPE_LIMITS','LIST')<1>
|
||||||
|
|
||||||
CONVERT @VM TO @FM IN RecipeLimits
|
CONVERT @VM TO @FM IN RecipeLimits
|
||||||
|
|
||||||
ColCnt = COUNT(RecipeLimits,@FM) + (RecipeLimits NE '') ;* This is 16 columns as of the development of this window
|
ColCnt = COUNT(RecipeLimits,@FM) + (RecipeLimits NE '') ;* This is 16 columns as of the development of this window
|
||||||
|
|
||||||
RecipeParms = Get_Property(@WINDOW:'.RECIPE_PARMS','ARRAY')
|
RecipeParms = Get_Property(@WINDOW:'.RECIPE_PARMS','ARRAY')
|
||||||
|
|
||||||
ParameterStyles = Send_Message( @WINDOW:'.RECIPE_PARMS', "COLSTYLE", 0, '' )
|
ParameterStyles = Send_Message( @WINDOW:'.RECIPE_PARMS', "COLSTYLE", 0, '' )
|
||||||
LimitStyles = Send_Message( @WINDOW:'.RECIPE_LIMITS', "COLSTYLE", 0, '' )
|
LimitStyles = Send_Message( @WINDOW:'.RECIPE_LIMITS', "COLSTYLE", 0, '' )
|
||||||
|
|
||||||
CONVERT @VM TO '' IN RecipeParms
|
CONVERT @VM TO '' IN RecipeParms
|
||||||
|
|
||||||
ColNames = Get_Property( @WINDOW:'.RECIPE_PARMS', 'COLUMN' )
|
ColNames = Get_Property( @WINDOW:'.RECIPE_PARMS', 'COLUMN' )
|
||||||
|
|
||||||
OutOfSpecCols = ''
|
OutOfSpecCols = ''
|
||||||
FOR Col = 1 TO ColCnt
|
FOR Col = 1 TO ColCnt
|
||||||
IF RecipeLimits<Col> = '' AND RecipeParms<Col> = '' THEN
|
IF RecipeLimits<Col> = '' AND RecipeParms<Col> = '' THEN
|
||||||
ParameterStyles<Col> = BitOr( ParameterStyles<Col>, HIDDEN$ ) ;* Column not used -> Hide
|
ParameterStyles<Col> = BitOr( ParameterStyles<Col>, HIDDEN$ ) ;* Column not used -> Hide
|
||||||
LimitStyles<Col> = BitOr( LimitStyles<Col>, HIDDEN$ )
|
LimitStyles<Col> = BitOr( LimitStyles<Col>, HIDDEN$ )
|
||||||
@ -212,47 +210,45 @@ FOR Col = 1 TO ColCnt
|
|||||||
|
|
||||||
END
|
END
|
||||||
|
|
||||||
NEXT Col
|
NEXT Col
|
||||||
|
|
||||||
LOCATE '1' IN OutOfSpecCols USING @FM SETTING Pos THEN
|
LOCATE '1' IN OutOfSpecCols USING @FM SETTING Pos THEN
|
||||||
Set_Property(@WINDOW:'.OUT_OF_SPEC','CHECK',1)
|
Set_Property(@WINDOW:'.OUT_OF_SPEC','CHECK',1)
|
||||||
END ELSE
|
END ELSE
|
||||||
Set_Property(@WINDOW:'.OUT_OF_SPEC','CHECK',0)
|
Set_Property(@WINDOW:'.OUT_OF_SPEC','CHECK',0)
|
||||||
END
|
END
|
||||||
|
|
||||||
Parameter_Styles = Send_Message( @WINDOW:'.RECIPE_PARMS', "COLSTYLE", 0, ParameterStyles )
|
Parameter_Styles = Send_Message( @WINDOW:'.RECIPE_PARMS', "COLSTYLE", 0, ParameterStyles )
|
||||||
LimitStyles = Send_Message( @WINDOW:'.RECIPE_LIMITS', "COLSTYLE", 0, LimitStyles )
|
LimitStyles = Send_Message( @WINDOW:'.RECIPE_LIMITS', "COLSTYLE", 0, LimitStyles )
|
||||||
|
|
||||||
Set_Property( @WINDOW:'.RECIPE_INFO', "AUTOSIZECOL", 16 )
|
Set_Property( @WINDOW:'.RECIPE_INFO', "AUTOSIZECOL", 16 )
|
||||||
Set_Property( @WINDOW:'.RECIPE_LIMITS', "AUTOSIZECOL", 16 )
|
Set_Property( @WINDOW:'.RECIPE_LIMITS', "AUTOSIZECOL", 16 )
|
||||||
|
|
||||||
|
* QBF buttons
|
||||||
|
|
||||||
|
Ctrls = @WINDOW:'.QBF_FIRST_FIX':@RM ; Props = 'ENABLED':@RM
|
||||||
|
Ctrls := @WINDOW:'.QBF_PREV_FIX':@RM ; Props := 'ENABLED':@RM
|
||||||
|
Ctrls := @WINDOW:'.QBF_ABS_FIX':@RM ; Props := 'ENABLED':@RM
|
||||||
|
Ctrls := @WINDOW:'.QBF_NEXT_FIX':@RM ; Props := 'ENABLED':@RM
|
||||||
|
Ctrls := @WINDOW:'.QBF_LAST_FIX':@RM ; Props := 'ENABLED':@RM
|
||||||
|
Ctrls := @WINDOW:'.QBF_STOP_FIX' ; Props := 'ENABLED'
|
||||||
|
|
||||||
* QBF buttons
|
IF Get_Property(@WINDOW,'QBFLIST') = '' THEN
|
||||||
|
|
||||||
Ctrls = @WINDOW:'.QBF_FIRST_FIX':@RM ; Props = 'ENABLED':@RM
|
|
||||||
Ctrls := @WINDOW:'.QBF_PREV_FIX':@RM ; Props := 'ENABLED':@RM
|
|
||||||
Ctrls := @WINDOW:'.QBF_ABS_FIX':@RM ; Props := 'ENABLED':@RM
|
|
||||||
Ctrls := @WINDOW:'.QBF_NEXT_FIX':@RM ; Props := 'ENABLED':@RM
|
|
||||||
Ctrls := @WINDOW:'.QBF_LAST_FIX':@RM ; Props := 'ENABLED':@RM
|
|
||||||
Ctrls := @WINDOW:'.QBF_STOP_FIX' ; Props := 'ENABLED'
|
|
||||||
|
|
||||||
IF Get_Property(@WINDOW,'QBFLIST') = '' THEN
|
|
||||||
Vals = 0:@RM:0:@RM:0:@RM:0:@RM:0:@RM:0
|
Vals = 0:@RM:0:@RM:0:@RM:0:@RM:0:@RM:0
|
||||||
END ELSE
|
END ELSE
|
||||||
Vals = 1:@RM:1:@RM:1:@RM:1:@RM:1:@RM:1
|
Vals = 1:@RM:1:@RM:1:@RM:1:@RM:1:@RM:1
|
||||||
END
|
END
|
||||||
|
|
||||||
Set_Property(Ctrls,Props,Vals)
|
Set_Property(Ctrls,Props,Vals)
|
||||||
|
|
||||||
* Turn edit table symbolic column backgrounds to green
|
* Turn edit table symbolic column backgrounds to green
|
||||||
|
|
||||||
ETSymbolics = Get_Property(@WINDOW,'@ET_SYMBOLICS') ;* Loaded during 'Create' in obj_Appwindow
|
ETSymbolics = Get_Property(@WINDOW,'@ET_SYMBOLICS') ;* Loaded during 'Create' in obj_Appwindow
|
||||||
|
|
||||||
ETCtrls = ETSymbolics<1>
|
ETCtrls = ETSymbolics<1>
|
||||||
ETCols = ETSymbolics<2>
|
ETCols = ETSymbolics<2>
|
||||||
|
|
||||||
FOR I = 1 TO COUNT(ETCtrls,@VM) + (ETCtrls NE '')
|
FOR I = 1 TO COUNT(ETCtrls,@VM) + (ETCtrls NE '')
|
||||||
ETCtrl = ETCtrls<1,I>
|
ETCtrl = ETCtrls<1,I>
|
||||||
ETList = Get_Property(ETCtrl,'LIST')
|
ETList = Get_Property(ETCtrl,'LIST')
|
||||||
FOR Line = 1 TO COUNT(ETList,@FM) + (ETList NE '')
|
FOR Line = 1 TO COUNT(ETList,@FM) + (ETList NE '')
|
||||||
@ -262,26 +258,26 @@ FOR I = 1 TO COUNT(ETCtrls,@VM) + (ETCtrls NE '')
|
|||||||
NEXT N
|
NEXT N
|
||||||
END
|
END
|
||||||
NEXT I
|
NEXT I
|
||||||
NEXT I
|
NEXT I
|
||||||
|
|
||||||
|
|
||||||
TestList = Get_Property(@WINDOW:'.RDS_TEST_KEYS','LIST')
|
TestList = Get_Property(@WINDOW:'.RDS_TEST_KEYS','LIST')
|
||||||
|
|
||||||
FOR I = 1 TO COUNT(TestList,@FM) + (TestList NE '')
|
FOR I = 1 TO COUNT(TestList,@FM) + (TestList NE '')
|
||||||
IF ICONV(TestList<I,COL$OUT_OF_SPEC>,'B') = 1 THEN
|
IF ICONV(TestList<I,COL$OUT_OF_SPEC>,'B') = 1 THEN
|
||||||
Send_Message(@WINDOW:'.RDS_TEST_KEYS','COLOR_BY_POS',0,I,RED$)
|
Send_Message(@WINDOW:'.RDS_TEST_KEYS','COLOR_BY_POS',0,I,RED$)
|
||||||
END ELSE
|
END ELSE
|
||||||
Send_Message(@WINDOW:'.RDS_TEST_KEYS','COLOR_BY_POS',0,I,WHITE$)
|
Send_Message(@WINDOW:'.RDS_TEST_KEYS','COLOR_BY_POS',0,I,WHITE$)
|
||||||
END
|
END
|
||||||
NEXT I
|
NEXT I
|
||||||
|
|
||||||
RPCopy = RecipeParms
|
RPCopy = RecipeParms
|
||||||
Convert @FM to '' in RPCopy
|
Convert @FM to '' in RPCopy
|
||||||
If RPCopy EQ '' then
|
If RPCopy EQ '' then
|
||||||
Set_Property(@Window : '.BTN_SET_CURR_RUN_PARMS', 'ENABLED', False$)
|
Set_Property(@Window : '.BTN_SET_CURR_RUN_PARMS', 'ENABLED', False$)
|
||||||
end else
|
end else
|
||||||
Set_Property(@Window : '.BTN_SET_CURR_RUN_PARMS', 'ENABLED', True$)
|
Set_Property(@Window : '.BTN_SET_CURR_RUN_PARMS', 'ENABLED', True$)
|
||||||
end
|
end
|
||||||
|
|
||||||
RETURN
|
RETURN
|
||||||
|
|
||||||
@ -290,8 +286,8 @@ RETURN
|
|||||||
Write:
|
Write:
|
||||||
* * * * * * *
|
* * * * * * *
|
||||||
|
|
||||||
SkipScriptEvent = Get_Property(@Window, '@SKIPSCRIPT')
|
SkipScriptEvent = Get_Property(@Window, '@SKIPSCRIPT')
|
||||||
If (SkipScriptEvent EQ False$) or (SkipScriptEvent EQ '') then
|
If (SkipScriptEvent EQ False$) or (SkipScriptEvent EQ '') then
|
||||||
RDSLayerKey = Get_Property(@WINDOW,'ID')
|
RDSLayerKey = Get_Property(@WINDOW,'ID')
|
||||||
|
|
||||||
CurrRecord = Get_Property(@WINDOW,'RECORD')
|
CurrRecord = Get_Property(@WINDOW,'RECORD')
|
||||||
@ -304,20 +300,19 @@ If (SkipScriptEvent EQ False$) or (SkipScriptEvent EQ '') then
|
|||||||
END
|
END
|
||||||
|
|
||||||
Post_Event(@WINDOW,'CLOSE')
|
Post_Event(@WINDOW,'CLOSE')
|
||||||
end
|
end
|
||||||
Result = 1
|
Result = 1
|
||||||
|
|
||||||
RETURN
|
RETURN
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
* * * * * * *
|
* * * * * * *
|
||||||
Delete:
|
Delete:
|
||||||
* * * * * * *
|
* * * * * * *
|
||||||
|
|
||||||
ErrMsg('Records may not be modified or deleted.')
|
ErrMsg('Records may not be modified or deleted.')
|
||||||
|
|
||||||
Result = 0 ;* No Deletes
|
Result = 0 ;* No Deletes
|
||||||
|
|
||||||
RETURN
|
RETURN
|
||||||
|
|
||||||
@ -326,7 +321,7 @@ RETURN
|
|||||||
Close:
|
Close:
|
||||||
* * * * * * *
|
* * * * * * *
|
||||||
|
|
||||||
obj_Appwindow('DetailReturn')
|
obj_Appwindow('DetailReturn')
|
||||||
|
|
||||||
RETURN
|
RETURN
|
||||||
|
|
||||||
@ -335,16 +330,16 @@ RETURN
|
|||||||
RParmsDeleteRow:
|
RParmsDeleteRow:
|
||||||
* * * * * * *
|
* * * * * * *
|
||||||
|
|
||||||
DeletedRowIndex = Parm1
|
DeletedRowIndex = Parm1
|
||||||
DeletedRowText = Parm2
|
DeletedRowText = Parm2
|
||||||
|
|
||||||
CurrCtrl = @WINDOW:'.RECIPE_PARMS'
|
CurrCtrl = @WINDOW:'.RECIPE_PARMS'
|
||||||
|
|
||||||
Dummy = Send_Message(CurrCtrl, "INSERT",DeletedRowIndex, DeletedRowText)
|
Dummy = Send_Message(CurrCtrl, "INSERT",DeletedRowIndex, DeletedRowText)
|
||||||
|
|
||||||
Set_Property(CurrCtrl,'SELPOS',1:@FM:1)
|
Set_Property(CurrCtrl,'SELPOS',1:@FM:1)
|
||||||
|
|
||||||
ErrMsg('Rows may not be inserted or deleted.')
|
ErrMsg('Rows may not be inserted or deleted.')
|
||||||
|
|
||||||
RETURN
|
RETURN
|
||||||
|
|
||||||
@ -353,11 +348,11 @@ RETURN
|
|||||||
RParmsInsertRow:
|
RParmsInsertRow:
|
||||||
* * * * * * *
|
* * * * * * *
|
||||||
|
|
||||||
RowIndex = Parm1
|
RowIndex = Parm1
|
||||||
|
|
||||||
CurrCtrl = @WINDOW:'.RECIPE_PARMS'
|
CurrCtrl = @WINDOW:'.RECIPE_PARMS'
|
||||||
|
|
||||||
ErrMsg('Rows may not be inserted or deleted.')
|
ErrMsg('Rows may not be inserted or deleted.')
|
||||||
|
|
||||||
RETURN
|
RETURN
|
||||||
|
|
||||||
@ -366,26 +361,26 @@ RETURN
|
|||||||
RParmsPC:
|
RParmsPC:
|
||||||
* * * * * * *
|
* * * * * * *
|
||||||
|
|
||||||
CurrCtrl = @WINDOW:'.RECIPE_PARMS'
|
CurrCtrl = @WINDOW:'.RECIPE_PARMS'
|
||||||
|
|
||||||
PrevSelPos = Get_Property(CurrCtrl,"PREVSELPOS")
|
PrevSelPos = Get_Property(CurrCtrl,"PREVSELPOS")
|
||||||
PrevCol = PrevSelPos<1>
|
PrevCol = PrevSelPos<1>
|
||||||
PrevRow = PrevSelPos<2>
|
PrevRow = PrevSelPos<2>
|
||||||
|
|
||||||
CurrSelPos = Get_Property(CurrCtrl,"SELPOS")
|
CurrSelPos = Get_Property(CurrCtrl,"SELPOS")
|
||||||
CurrCol = CurrSelPos<1>
|
CurrCol = CurrSelPos<1>
|
||||||
CurrRow = CurrSelPos<2>
|
CurrRow = CurrSelPos<2>
|
||||||
|
|
||||||
ColStyles = Send_Message( @WINDOW:'.RECIPE_PARMS', 'COLSTYLE', 0, '' )
|
ColStyles = Send_Message( @WINDOW:'.RECIPE_PARMS', 'COLSTYLE', 0, '' )
|
||||||
ColNames = Get_Property( @WINDOW:'.RECIPE_PARMS', 'COLUMN' )
|
ColNames = Get_Property( @WINDOW:'.RECIPE_PARMS', 'COLUMN' )
|
||||||
|
|
||||||
IF CurrRow > 1 THEN
|
IF CurrRow > 1 THEN
|
||||||
Set_Property(CurrCtrl,'SELPOS',CurrCol:@FM:1) ;* Can't move off of the first row
|
Set_Property(CurrCtrl,'SELPOS',CurrCol:@FM:1) ;* Can't move off of the first row
|
||||||
END
|
END
|
||||||
|
|
||||||
ListData = Get_Property(CurrCtrl,'LIST')
|
ListData = Get_Property(CurrCtrl,'LIST')
|
||||||
|
|
||||||
IF ListData<1,PrevCol> NE '' THEN
|
IF ListData<1,PrevCol> NE '' THEN
|
||||||
VisibleColumn = NOT(BitAnd( ColStyles<PrevCol>, HIDDEN$ )) ;* Gives @VM list of flags for visible columns in the edit table
|
VisibleColumn = NOT(BitAnd( ColStyles<PrevCol>, HIDDEN$ )) ;* Gives @VM list of flags for visible columns in the edit table
|
||||||
IF VisibleColumn THEN
|
IF VisibleColumn THEN
|
||||||
LimitData = Get_Property(@WINDOW:'.RECIPE_LIMITS','LIST')<1,PrevCol>
|
LimitData = Get_Property(@WINDOW:'.RECIPE_LIMITS','LIST')<1,PrevCol>
|
||||||
@ -450,14 +445,13 @@ IF ListData<1,PrevCol> NE '' THEN
|
|||||||
|
|
||||||
END ;* End of Check for Visible Column
|
END ;* End of Check for Visible Column
|
||||||
|
|
||||||
END
|
END
|
||||||
|
|
||||||
GOSUB Refresh
|
GOSUB Refresh
|
||||||
|
|
||||||
RETURN
|
RETURN
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
* * * * * * *
|
* * * * * * *
|
||||||
NewTest:
|
NewTest:
|
||||||
* * * * * * *
|
* * * * * * *
|
||||||
@ -465,21 +459,20 @@ NewTest:
|
|||||||
RETURN
|
RETURN
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
* * * * * * *
|
* * * * * * *
|
||||||
TestKeyDC:
|
TestKeyDC:
|
||||||
* * * * * * *
|
* * * * * * *
|
||||||
|
|
||||||
CurrCtrl = @WINDOW:'.RDS_TEST_KEYS'
|
CurrCtrl = @WINDOW:'.RDS_TEST_KEYS'
|
||||||
|
|
||||||
CurrPos = Get_Property(CurrCtrl,"SELPOS")
|
CurrPos = Get_Property(CurrCtrl,"SELPOS")
|
||||||
CurrCol = CurrPos<1>
|
CurrCol = CurrPos<1>
|
||||||
CurrRow = CurrPos<2>
|
CurrRow = CurrPos<2>
|
||||||
|
|
||||||
RDSTestNo = Get_Property(CurrCtrl,'CELLPOS',COL$TEST_NO:@FM:CurrRow)
|
RDSTestNo = Get_Property(CurrCtrl,'CELLPOS',COL$TEST_NO:@FM:CurrRow)
|
||||||
RDSLsID = Get_Property(@WINDOW,'ID')
|
RDSLsID = Get_Property(@WINDOW,'ID')
|
||||||
|
|
||||||
IF RDSTestNo NE '' AND RDSLsID NE '' THEN
|
IF RDSTestNo NE '' AND RDSLsID NE '' THEN
|
||||||
|
|
||||||
CardWindow = 'RDS_TEST'
|
CardWindow = 'RDS_TEST'
|
||||||
CardKey = RDSTestNo ;* Null values for CardKey creates new card
|
CardKey = RDSTestNo ;* Null values for CardKey creates new card
|
||||||
@ -497,7 +490,7 @@ IF RDSTestNo NE '' AND RDSLsID NE '' THEN
|
|||||||
ErrMsg(errCode)
|
ErrMsg(errCode)
|
||||||
END
|
END
|
||||||
|
|
||||||
END
|
END
|
||||||
|
|
||||||
RETURN
|
RETURN
|
||||||
|
|
||||||
@ -506,20 +499,20 @@ RETURN
|
|||||||
OverRideRecipeLimits:
|
OverRideRecipeLimits:
|
||||||
* * * * * * *
|
* * * * * * *
|
||||||
|
|
||||||
|
IF Security_Check( 'Recipe', Write$ ) THEN
|
||||||
IF Security_Check( 'Recipe', Write$ ) THEN
|
|
||||||
Set_Property(@WINDOW:'.OVERRIDE_LIMITS_GROUP','ENABLED',1)
|
Set_Property(@WINDOW:'.OVERRIDE_LIMITS_GROUP','ENABLED',1)
|
||||||
END ELSE
|
END ELSE
|
||||||
Security_Err_Msg( 'Recipe', Write$ )
|
Security_Err_Msg( 'Recipe', Write$ )
|
||||||
END
|
END
|
||||||
|
|
||||||
RETURN
|
RETURN
|
||||||
|
|
||||||
|
|
||||||
* * * * * * *
|
* * * * * * *
|
||||||
UpdateLimits:
|
UpdateLimits:
|
||||||
* * * * * * *
|
* * * * * * *
|
||||||
|
|
||||||
IF Security_Check( 'Recipe', Write$ ) THEN
|
IF Security_Check( 'Recipe', Write$ ) THEN
|
||||||
RDSNo = Get_Property(@WINDOW:'.RDS_NO','DEFPROP')
|
RDSNo = Get_Property(@WINDOW:'.RDS_NO','DEFPROP')
|
||||||
LSId = Get_Property(@WINDOW:'.LS_ID','DEFPROP')
|
LSId = Get_Property(@WINDOW:'.LS_ID','DEFPROP')
|
||||||
|
|
||||||
@ -533,172 +526,22 @@ IF Security_Check( 'Recipe', Write$ ) THEN
|
|||||||
|
|
||||||
obj_AppWindow('LoadFormKeys',@WINDOW:@RM:RDSNo:'*':LSId)
|
obj_AppWindow('LoadFormKeys',@WINDOW:@RM:RDSNo:'*':LSId)
|
||||||
|
|
||||||
END ELSE
|
END ELSE
|
||||||
Security_Err_Msg( 'Recipe', Write$ )
|
Security_Err_Msg( 'Recipe', Write$ )
|
||||||
END
|
END
|
||||||
|
|
||||||
|
|
||||||
RETURN
|
RETURN
|
||||||
|
|
||||||
|
|
||||||
* * * * * * *
|
* * * * * * *
|
||||||
OverRideDC:
|
OverRideDC:
|
||||||
* * * * * * *
|
* * * * * * *
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
RETURN
|
RETURN
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
* * * * * * *
|
* * * * * * *
|
||||||
OverRidePC:
|
OverRidePC:
|
||||||
* * * * * * *
|
* * * * * * *
|
||||||
/*
|
|
||||||
|
|
||||||
CtrlEntID = @WINDOW:'.CUST_LOT_NO'
|
|
||||||
|
|
||||||
OrderNo = Get_Property(@WINDOW:'.ORDER_NO','TEXT')
|
|
||||||
ItemNo = Get_Property(@WINDOW:'.ITEM_NO','TEXT')
|
|
||||||
|
|
||||||
OrderDetKey = OrderNo:'*':ItemNo
|
|
||||||
|
|
||||||
PrevSelPos = Get_Property(CtrlEntId,"PREVSELPOS")
|
|
||||||
PrevCol = PrevSelPos<1>
|
|
||||||
PrevRow = PrevSelPos<2>
|
|
||||||
|
|
||||||
CurrPos = Get_Property(CtrlEntId,'SELPOS')
|
|
||||||
CurrCol = CurrPos<1>
|
|
||||||
CurrRow = CurrPos<2>
|
|
||||||
|
|
||||||
ListData = Get_Property(CtrlEntId,'LIST')
|
|
||||||
|
|
||||||
ColCnt = 2 ;* Number of columns in the edit table
|
|
||||||
|
|
||||||
IF ListData<CurrRow,CurrCol> = '' THEN
|
|
||||||
|
|
||||||
ColPointer = CurrCol
|
|
||||||
LinePointer = CurrRow
|
|
||||||
|
|
||||||
* Find the first non-empty cell
|
|
||||||
|
|
||||||
LOOP
|
|
||||||
Test = ListData<LinePointer,(ColPointer) >
|
|
||||||
UNTIL Test NE '' OR (LinePointer = 0 AND ColPointer = 1)
|
|
||||||
ColPointer -= 1
|
|
||||||
IF ColPointer = 0 THEN
|
|
||||||
ColPointer = ColCnt
|
|
||||||
LinePointer -= 1
|
|
||||||
END
|
|
||||||
REPEAT
|
|
||||||
|
|
||||||
* Move one past the non empty cell
|
|
||||||
|
|
||||||
BEGIN CASE
|
|
||||||
CASE LinePointer = 0
|
|
||||||
* Empty Table
|
|
||||||
LinePointer = 1
|
|
||||||
CoilPointer = 1
|
|
||||||
|
|
||||||
CASE ColPointer = ColCnt
|
|
||||||
LinePointer += 1
|
|
||||||
ColPointer = 1
|
|
||||||
|
|
||||||
CASE 1
|
|
||||||
ColPointer += 1
|
|
||||||
|
|
||||||
END CASE
|
|
||||||
Set_Property(CtrlEntId,"SELPOS",ColPointer:@FM:LinePointer)
|
|
||||||
END
|
|
||||||
|
|
||||||
IF ListData<PrevRow,PrevCol> NE '' THEN
|
|
||||||
|
|
||||||
IF PrevCol = COL$CUST_LOT_NO THEN
|
|
||||||
|
|
||||||
LotNo = ListData<PrevRow,PrevCol>
|
|
||||||
|
|
||||||
IF INDEX(LotNo,' ',1) THEN
|
|
||||||
ListData<PrevRow,PrevCol> = TRIM(LotNo)
|
|
||||||
Set_Property(CtrlEntId,'LIST',ListData)
|
|
||||||
LotNo = TRIM(LotNo)
|
|
||||||
END
|
|
||||||
Extract_SI_Keys('ORDER_DET','CUST_LOT_NO',LotNo,OrderDetKeys) ;* Check for previous use of customer lot number in new data structure
|
|
||||||
|
|
||||||
IF OrderDetKeys NE '' THEN
|
|
||||||
|
|
||||||
LOCATE OrderDetKey IN OrderDetKeys USING @VM SETTING FPos THEN
|
|
||||||
OrderDetKeys = DELETE(OrderDetKeys,1,FPos,0) ;* Exclude the current Order Item from this check
|
|
||||||
END
|
|
||||||
|
|
||||||
IF OrderDetKeys NE '' THEN
|
|
||||||
SWAP @VM WITH ', ' IN OrderDetKeys
|
|
||||||
|
|
||||||
Message = 'Lot No ':QUOTE(LotNo):' has been used in Order Item(s) |':OrderDetKeys:'||'
|
|
||||||
Message := 'Do you wish to use this duplicate Lot Number?|'
|
|
||||||
|
|
||||||
MsgInfo = ''
|
|
||||||
MsgInfo<MTEXT$> = Message
|
|
||||||
|
|
||||||
Resp = Msg( @WINDOW, MsgInfo,'CUST_LOT_USED' )
|
|
||||||
IF Resp = CHAR(27) THEN
|
|
||||||
Set_Property(CtrlEntId,'CELLPOS','',PrevSelPos)
|
|
||||||
Set_Property(CtrlEntId,"SELPOS",PrevSelPos)
|
|
||||||
END
|
|
||||||
|
|
||||||
END
|
|
||||||
END ELSE
|
|
||||||
|
|
||||||
* Try looking in the old format Orders
|
|
||||||
|
|
||||||
Extract_SI_Keys('ORDER','LOT_NUM',LotNo,OrderNos) ;* Check for previous use of customer lot number in old data structure
|
|
||||||
IF OrderNos NE '' THEN
|
|
||||||
|
|
||||||
LOCATE OrderNo IN OrderNos USING @VM SETTING FPos THEN
|
|
||||||
OrderNos = DELETE(OrderNos,1,FPos,0) ;* Exclude the current Order No from this check
|
|
||||||
END
|
|
||||||
|
|
||||||
IF OrderNos NE '' THEN
|
|
||||||
SWAP @VM WITH ', ' IN OrderNos
|
|
||||||
|
|
||||||
Message = 'Lot No ':QUOTE(LotNo):' has been used in Order Number |':OrderNos:'||'
|
|
||||||
Message := 'Do you wish to use this duplicate Lot Number?|'
|
|
||||||
|
|
||||||
MsgInfo = ''
|
|
||||||
MsgInfo<MTEXT$> = Message
|
|
||||||
|
|
||||||
Resp = Msg( @WINDOW, MsgInfo,'CUST_LOT_USED' )
|
|
||||||
IF Resp = CHAR(27) THEN
|
|
||||||
Set_Property(CtrlEntId,'CELLPOS','',PrevSelPos)
|
|
||||||
Set_Property(CtrlEntId,"SELPOS",PrevSelPos)
|
|
||||||
END
|
|
||||||
|
|
||||||
END
|
|
||||||
END
|
|
||||||
END ;* End of checks for Lot Nos used elswhere
|
|
||||||
|
|
||||||
END
|
|
||||||
|
|
||||||
END ;* End of check for Previous Cell NE Null
|
|
||||||
|
|
||||||
GOSUB Refresh
|
|
||||||
|
|
||||||
RETURN
|
|
||||||
*/
|
|
||||||
|
|
||||||
|
|
||||||
RETURN
|
RETURN
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@ -27,7 +27,7 @@ Common /ErrorServices/ ErrorMessages@, ErrorSources@, ErrorCodes@, RetStacks@, E
|
|||||||
Equ CRLF$ to \0D0A\
|
Equ CRLF$ to \0D0A\
|
||||||
|
|
||||||
Declare function Environment_Services, Logging_Services, GetSessionCallStack, Error_Services, RetStack
|
Declare function Environment_Services, Logging_Services, GetSessionCallStack, Error_Services, RetStack
|
||||||
Declare subroutine Logging_Services, Get_Status, Set_Env
|
Declare subroutine Logging_Services, Get_Status, Set_Env, GetTempPath
|
||||||
|
|
||||||
Main:
|
Main:
|
||||||
|
|
||||||
@ -37,6 +37,12 @@ Main:
|
|||||||
LogTime = Oconv(Time(), 'MTS')
|
LogTime = Oconv(Time(), 'MTS')
|
||||||
LogFileName = LogDate[7, 4] : '-' : LogDate[1, 2] : '-' : LogDate[4, 2] : ' Error Log.csv'
|
LogFileName = LogDate[7, 4] : '-' : LogDate[1, 2] : '-' : LogDate[4, 2] : ' Error Log.csv'
|
||||||
objLog = Logging_Services('NewLog', LogPath, LogFileName, CRLF$, ',', '', '', False$, False$)
|
objLog = Logging_Services('NewLog', LogPath, LogFileName, CRLF$, ',', '', '', False$, False$)
|
||||||
|
TempLogFileName = 'OIStackLog.csv'
|
||||||
|
TempDirectory = Str(\00\, 1024)
|
||||||
|
GetTempPath(Len(TempDirectory), TempDirectory)
|
||||||
|
Convert \00\ to '' in TempDirectory
|
||||||
|
TempLogPath = TempDirectory
|
||||||
|
objTempLog = Logging_Services('NewLog', TempLogPath, TempLogFileName, CRLF$, ',', '', '', False$, True$)
|
||||||
LogData = ''
|
LogData = ''
|
||||||
LogData<1> = CRLF$:'Timestamp: ':LogDate:' ':LogTime
|
LogData<1> = CRLF$:'Timestamp: ':LogDate:' ':LogTime
|
||||||
LogData<2> = 'Machine: ':Environment_Services('GetServer')
|
LogData<2> = 'Machine: ':Environment_Services('GetServer')
|
||||||
@ -45,12 +51,23 @@ Main:
|
|||||||
Swap @FM with @VM in ErrorMessages
|
Swap @FM with @VM in ErrorMessages
|
||||||
LogData<5> = 'Error_Services Messages:':ErrorMessages
|
LogData<5> = 'Error_Services Messages:':ErrorMessages
|
||||||
LogData<6> = 'Call Depth: ':CallDepth@
|
LogData<6> = 'Call Depth: ':CallDepth@
|
||||||
LogData<7> = 'Curr Program and line no: ':CallStack@<2,1>:@VM:CallStack@<2,2>
|
|
||||||
LogData<8> = 'Call Stack / Line Nos: '
|
|
||||||
Stack = CallStack@
|
Stack = CallStack@
|
||||||
|
Begin Case
|
||||||
|
Case ( (CallStack@<1,1> EQ 'ERROR_SERVICES') and (CallStack@<2,1> EQ 'ERROR_SERVICES') )
|
||||||
|
LogData<7> = 'Curr Program and line no: ':CallStack@<3,1>:@VM:CallStack@<3,2>
|
||||||
Stack = Delete(Stack, 1, 0, 0)
|
Stack = Delete(Stack, 1, 0, 0)
|
||||||
|
Stack = Delete(Stack, 1, 0, 0)
|
||||||
|
Case (CallStack@<1,1> EQ 'ERROR_SERVICES')
|
||||||
|
LogData<7> = 'Curr Program and line no: ':CallStack@<2,1>:@VM:CallStack@<2,2>
|
||||||
|
Stack = Delete(Stack, 1, 0, 0)
|
||||||
|
Case Otherwise$
|
||||||
|
LogData<7> = 'Curr Program and line no: ':CallStack@<1,1>:@VM:CallStack@<1,2>
|
||||||
|
End Case
|
||||||
|
LogData<8> = 'Call Stack / Line Nos: '
|
||||||
|
Convert \00\ to '' in Stack
|
||||||
LogData<9> = Stack:CRLF$
|
LogData<9> = Stack:CRLF$
|
||||||
Logging_Services('AppendLog', objLog, LogData, @FM, @VM, '', '', '')
|
Logging_Services('AppendLog', objLog, LogData, @FM, @VM, '', '', '')
|
||||||
|
Logging_Services('AppendLog', objTempLog, LogData, @FM, @VM, '', '', '')
|
||||||
|
|
||||||
Return
|
Return
|
||||||
|
|
||||||
|
|||||||
@ -102,7 +102,7 @@ If Assigned(Response) else Response = ''
|
|||||||
AutoDisplayErrors = False$ ; // Set this to True$ when debugging so all errors will automatically display.
|
AutoDisplayErrors = False$ ; // Set this to True$ when debugging so all errors will automatically display.
|
||||||
|
|
||||||
Declare function RetStack, Error_Services, SRPSendMail, Get_Env
|
Declare function RetStack, Error_Services, SRPSendMail, Get_Env
|
||||||
Declare subroutine Error_Services, Set_Env, Set_Status
|
Declare subroutine Error_Services, Set_Env, Set_Status, GetTempPath
|
||||||
|
|
||||||
GoToService else
|
GoToService else
|
||||||
Error_Services('Set', Service : ' is not a valid service request within the Error services module.')
|
Error_Services('Set', Service : ' is not a valid service request within the Error services module.')
|
||||||
@ -311,16 +311,39 @@ Service GetCodes()
|
|||||||
End Service
|
End Service
|
||||||
|
|
||||||
|
|
||||||
|
//----------------------------------------------------------------------------------------------------------------------
|
||||||
|
// GetStackTrace
|
||||||
|
//
|
||||||
|
// Uses a debugger intercept to log the stack including line numbers to a temporary file and returns the contents
|
||||||
|
// in the Response variable.
|
||||||
|
//
|
||||||
|
// Warning:
|
||||||
|
// Stepping into this while debugging will interrupt the debugging session and may cause an error message to
|
||||||
|
// be displayed. It is advised to set a breakpoint after the call and let the debugger run through this.
|
||||||
|
//----------------------------------------------------------------------------------------------------------------------
|
||||||
Service GetStackTrace()
|
Service GetStackTrace()
|
||||||
// Business logic goes here. Data that needs to be returned should be assigned to the Response parameter.
|
|
||||||
Response = '<Service Response>'
|
Error_Services('LogStack')
|
||||||
|
TempLogFileName = 'OIStackLog.csv'
|
||||||
|
TempDirectory = Str(\00\, 1024)
|
||||||
|
GetTempPath(Len(TempDirectory), TempDirectory)
|
||||||
|
Convert \00\ to '' in TempDirectory
|
||||||
|
TempLogPath = TempDirectory:TempLogFileName
|
||||||
|
OSRead Response from TempLogpath else
|
||||||
|
Error_Services('Add', 'Error in ':Service:' service. Error retrieving OIStackLog.csv')
|
||||||
|
end
|
||||||
|
|
||||||
End Service
|
End Service
|
||||||
|
|
||||||
|
|
||||||
//----------------------------------------------------------------------------------------------------------------------
|
//----------------------------------------------------------------------------------------------------------------------
|
||||||
// LogStack
|
// LogStack
|
||||||
//
|
//
|
||||||
// Uses a custom debugger intercept to log the stack including line numbers to .../LogFiles/StackTrace.
|
// Uses a debugger intercept, DEBUGGER_LOGGER, to log the stack including line numbers to .../LogFiles/StackTrace.
|
||||||
|
//
|
||||||
|
// Warning:
|
||||||
|
// Stepping into this while debugging will interrupt the debugging session and may cause an error message to
|
||||||
|
// be displayed. It is advised to set a breakpoint after the call and let the debugger run through this.
|
||||||
//----------------------------------------------------------------------------------------------------------------------
|
//----------------------------------------------------------------------------------------------------------------------
|
||||||
Service LogStack()
|
Service LogStack()
|
||||||
|
|
||||||
@ -402,3 +425,4 @@ SendRuntimeAlert:
|
|||||||
MsgSent = SRPSendMail(Message, ConfigFile)
|
MsgSent = SRPSendMail(Message, ConfigFile)
|
||||||
|
|
||||||
return
|
return
|
||||||
|
|
||||||
|
|||||||
@ -81,12 +81,6 @@ LogFileName = LogDate[7, 4] : '-' : LogDate[1, 2] : '-' : LogDate[4, 2] : ' RDS
|
|||||||
Headers = 'Logging DTM' : @FM : 'RDSNo' : @FM : 'WONo' : @FM : 'CassNo' : @FM : 'Reactor Type'
|
Headers = 'Logging DTM' : @FM : 'RDSNo' : @FM : 'WONo' : @FM : 'CassNo' : @FM : 'Reactor Type'
|
||||||
objLog3 = Logging_Services('NewLog', LogPath, LogFileName, CRLF$, Comma$, Headers, '', False$, False$)
|
objLog3 = Logging_Services('NewLog', LogPath, LogFileName, CRLF$, Comma$, Headers, '', False$, False$)
|
||||||
|
|
||||||
LogPath = Environment_Services('GetApplicationRootPath') : '\LogFiles\RDS_LAYER'
|
|
||||||
LogFileName = LogDate[7, 4] : '-' : LogDate[1, 2] : '-' : LogDate[4, 2] : ' RDS_LAYER Log.csv'
|
|
||||||
Headers = 'Logging DTM' : @FM : 'Results'
|
|
||||||
ColumnWidths = 20 : @FM : 100
|
|
||||||
objLog2 = Logging_Services('NewLog', LogPath, LogFileName, CRLF$, ' ', Headers, ColumnWidths, False$, False$)
|
|
||||||
|
|
||||||
If KeyID then GoSub Initialize_System_Variables
|
If KeyID then GoSub Initialize_System_Variables
|
||||||
|
|
||||||
Begin Case
|
Begin Case
|
||||||
@ -1045,3 +1039,4 @@ Restore_System_Variables:
|
|||||||
|
|
||||||
return
|
return
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@ -49,17 +49,9 @@ $insert FILE.SYSTEM.EQUATES
|
|||||||
$insert ACTION_SETUP
|
$insert ACTION_SETUP
|
||||||
$insert RDS_LAYER_EQUATES
|
$insert RDS_LAYER_EQUATES
|
||||||
|
|
||||||
Declare function Tool_Parms_Services, Environment_Services, Logging_Services, Memberof
|
Declare function Tool_Parms_Services, Environment_Services, Logging_Services, Memberof, Error_Services
|
||||||
Declare subroutine Logging_Services, Error_Services
|
Declare subroutine Logging_Services, Error_Services
|
||||||
|
|
||||||
LogPath = Environment_Services('GetApplicationRootPath') : '\LogFiles\RDS_LAYER_WriteIssue'
|
|
||||||
LogDate = Oconv(Date(), 'D4/')
|
|
||||||
LogTime = Oconv(Time(), 'MTS')
|
|
||||||
LogFileName = LogDate[7, 4] : '-' : LogDate[1, 2] : '-' : LogDate[4, 2] : ' RDS_LAYER WriteIssue Log.csv'
|
|
||||||
Headers = 'Logging DTM' : @FM : 'User' : @FM : 'RDS_LAYER Key ID' : @FM : 'Notes'
|
|
||||||
objLog = Logging_Services('NewLog', LogPath, LogFileName, CRLF$, Comma$, Headers, '', False$, False$)
|
|
||||||
LoggingDTM = LogDate : ' ' : LogTime ; // Logging DTM
|
|
||||||
|
|
||||||
If KeyID then GoSub Initialize_System_Variables
|
If KeyID then GoSub Initialize_System_Variables
|
||||||
|
|
||||||
Begin Case
|
Begin Case
|
||||||
@ -151,382 +143,68 @@ return
|
|||||||
|
|
||||||
WRITE_RECORD_PRE:
|
WRITE_RECORD_PRE:
|
||||||
|
|
||||||
EngineeringCheck = Memberof(@User4, 'ENGINEERING')
|
If Not(Memberof(@User4, 'ENGINEERING')) then
|
||||||
If (EngineeringCheck EQ True$) then
|
If ( (OrigRecord<RDS_LAYER_EPI_TIME_MIN$> NE '') AND (Record<RDS_LAYER_EPI_TIME_MIN$> EQ '') ) |
|
||||||
ActionFlow = ACTION_CONTINUE$
|
or ( (OrigRecord<RDS_LAYER_EPI_TIME_MAX$> NE '') AND (Record<RDS_LAYER_EPI_TIME_MAX$> EQ '') ) |
|
||||||
end else
|
or ( (OrigRecord<RDS_LAYER_EPI_H2_FLOW_MIN$> NE '') AND (Record<RDS_LAYER_EPI_H2_FLOW_MIN$> EQ '') ) |
|
||||||
WriteIssue = False$
|
or ( (OrigRecord<RDS_LAYER_EPI_H2_FLOW_MAX$> NE '') AND (Record<RDS_LAYER_EPI_H2_FLOW_MAX$> EQ '') ) |
|
||||||
If (OrigRecord<RDS_LAYER_EPI_TIME_MIN$> NE '') AND (Record<RDS_LAYER_EPI_TIME_MIN$> EQ '') then
|
or ( (OrigRecord<RDS_LAYER_TCS_FLOW_MIN$> NE '') AND (Record<RDS_LAYER_TCS_FLOW_MIN$> EQ '') ) |
|
||||||
LogData = ''
|
or ( (OrigRecord<RDS_LAYER_TCS_FLOW_MAX$> NE '') AND (Record<RDS_LAYER_TCS_FLOW_MAX$> EQ '') ) |
|
||||||
LogData<1> = LoggingDTM
|
or ( (OrigRecord<RDS_LAYER_AUX1_MIN$> NE '') AND (Record<RDS_LAYER_AUX1_MIN$> EQ '') ) |
|
||||||
LogData<2> = @USER4
|
or ( (OrigRecord<RDS_LAYER_AUX1_MAX$> NE '') AND (Record<RDS_LAYER_AUX1_MAX$> EQ '') ) |
|
||||||
LogData<3> = Name
|
or ( (OrigRecord<RDS_LAYER_F_OFFSET_MIN$> NE '') AND (Record<RDS_LAYER_F_OFFSET_MIN$> EQ '') ) |
|
||||||
LogData<4> = 'RDS_LAYER Epi Time Min can only be cleared by a member of Engineering.'
|
or ( (OrigRecord<RDS_LAYER_F_OFFSET_MAX$> NE '') AND (Record<RDS_LAYER_F_OFFSET_MAX$> EQ '') ) |
|
||||||
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
|
or ( (OrigRecord<RDS_LAYER_SUSC_ETCH_MIN$> NE '') AND (Record<RDS_LAYER_SUSC_ETCH_MIN$> EQ '') ) |
|
||||||
Error_Services('Add', 'RDS_LAYER Epi Time Min can only be cleared by a member of Engineering.')
|
or ( (OrigRecord<RDS_LAYER_SUSC_ETCH_MAX$> NE '') AND (Record<RDS_LAYER_SUSC_ETCH_MAX$> EQ '') ) |
|
||||||
WriteIssue = True$
|
or ( (OrigRecord<RDS_LAYER_DILUENT_MIN$> NE '') AND (Record<RDS_LAYER_DILUENT_MIN$> EQ '') ) |
|
||||||
end
|
or ( (OrigRecord<RDS_LAYER_DILUENT_MAX$> NE '') AND (Record<RDS_LAYER_DILUENT_MAX$> EQ '') ) |
|
||||||
If (OrigRecord<RDS_LAYER_EPI_TIME_MAX$> NE '') AND (Record<RDS_LAYER_EPI_TIME_MAX$> EQ '') then
|
or ( (OrigRecord<RDS_LAYER_DOPANT_FLOW_MIN$> NE '') AND (Record<RDS_LAYER_DOPANT_FLOW_MIN$> EQ '') ) |
|
||||||
LogData = ''
|
or ( (OrigRecord<RDS_LAYER_DOPANT_FLOW_MAX$> NE '') AND (Record<RDS_LAYER_DOPANT_FLOW_MAX$> EQ '') ) |
|
||||||
LogData<1> = LoggingDTM
|
or ( (OrigRecord<RDS_LAYER_HCL_FLOW_MIN$> NE '') AND (Record<RDS_LAYER_HCL_FLOW_MIN$> EQ '') ) |
|
||||||
LogData<2> = @USER4
|
or ( (OrigRecord<RDS_LAYER_HCL_FLOW_MAX$> NE '') AND (Record<RDS_LAYER_HCL_FLOW_MAX$> EQ '') ) |
|
||||||
LogData<3> = Name
|
or ( (OrigRecord<RDS_LAYER_BAKE_TIME_MIN$> NE '') AND (Record<RDS_LAYER_BAKE_TIME_MIN$> EQ '') ) |
|
||||||
LogData<4> = 'RDS_LAYER Epi Time Max can only be cleared by a member of Engineering.'
|
or ( (OrigRecord<RDS_LAYER_BAKE_TIME_MAX$> NE '') AND (Record<RDS_LAYER_BAKE_TIME_MAX$> EQ '') ) |
|
||||||
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
|
or ( (OrigRecord<RDS_LAYER_DCS_FLOW_MIN$> NE '') AND (Record<RDS_LAYER_DCS_FLOW_MIN$> EQ '') ) |
|
||||||
Error_Services('Add', 'RDS_LAYER Epi Time Max can only be cleared by a member of Engineering.')
|
or ( (OrigRecord<RDS_LAYER_DCS_FLOW_MAX$> NE '') AND (Record<RDS_LAYER_DCS_FLOW_MAX$> EQ '') ) |
|
||||||
WriteIssue = True$
|
or ( (OrigRecord<RDS_LAYER_AUX2_MIN$> NE '') AND (Record<RDS_LAYER_AUX2_MIN$> EQ '') ) |
|
||||||
end
|
or ( (OrigRecord<RDS_LAYER_AUX2_MAX$> NE '') AND (Record<RDS_LAYER_AUX2_MAX$> EQ '') ) |
|
||||||
If (OrigRecord<RDS_LAYER_EPI_H2_FLOW_MIN$> NE '') AND (Record<RDS_LAYER_EPI_H2_FLOW_MIN$> EQ '') then
|
or ( (OrigRecord<RDS_LAYER_S_OFFSET_MIN$> NE '') AND (Record<RDS_LAYER_S_OFFSET_MIN$> EQ '') ) |
|
||||||
LogData = ''
|
or ( (OrigRecord<RDS_LAYER_S_OFFSET_MAX$> NE '') AND (Record<RDS_LAYER_S_OFFSET_MAX$> EQ '') ) |
|
||||||
LogData<1> = LoggingDTM
|
or ( (OrigRecord<RDS_LAYER_R_OFFSET_MIN$> NE '') AND (Record<RDS_LAYER_R_OFFSET_MIN$> EQ '') ) |
|
||||||
LogData<2> = @USER4
|
or ( (OrigRecord<RDS_LAYER_R_OFFSET_MAX$> NE '') AND (Record<RDS_LAYER_R_OFFSET_MAX$> EQ '') ) |
|
||||||
LogData<3> = Name
|
or ( (OrigRecord<RDS_LAYER_ETCH1_MIN$> NE '') AND (Record<RDS_LAYER_ETCH1_MIN$> EQ '') ) |
|
||||||
LogData<4> = 'RDS_LAYER Epi H2 Flow Min can only be cleared by a member of Engineering.'
|
or ( (OrigRecord<RDS_LAYER_ETCH1_MAX$> NE '') AND (Record<RDS_LAYER_ETCH1_MAX$> EQ '') ) |
|
||||||
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
|
or ( (OrigRecord<RDS_LAYER_ETCH2_MIN$> NE '') AND (Record<RDS_LAYER_ETCH2_MIN$> EQ '') ) |
|
||||||
Error_Services('Add', 'RDS_LAYER Epi H2 Flow Min can only be cleared by a member of Engineering.')
|
or ( (OrigRecord<RDS_LAYER_ETCH2_MAX$> NE '') AND (Record<RDS_LAYER_ETCH2_MAX$> EQ '') ) |
|
||||||
WriteIssue = True$
|
or ( (OrigRecord<RDS_LAYER_ETCH3_MIN$> NE '') AND (Record<RDS_LAYER_ETCH3_MIN$> EQ '') ) |
|
||||||
end
|
or ( (OrigRecord<RDS_LAYER_ETCH3_MAX$> NE '') AND (Record<RDS_LAYER_ETCH3_MAX$> EQ '') ) |
|
||||||
If (OrigRecord<RDS_LAYER_EPI_H2_FLOW_MAX$> NE '') AND (Record<RDS_LAYER_EPI_H2_FLOW_MAX$> EQ '') then
|
or ( (OrigRecord<RDS_LAYER_UL_TEMP_MIN$> NE '') AND (Record<RDS_LAYER_UL_TEMP_MIN$> EQ '') ) |
|
||||||
LogData = ''
|
or ( (OrigRecord<RDS_LAYER_UL_TEMP_MAX$> NE '') AND (Record<RDS_LAYER_UL_TEMP_MAX$> EQ '') ) then
|
||||||
LogData<1> = LoggingDTM
|
|
||||||
LogData<2> = @USER4
|
|
||||||
LogData<3> = Name
|
|
||||||
LogData<4> = 'RDS_LAYER Epi H2 Flow Max can only be cleared by a member of Engineering.'
|
|
||||||
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
|
|
||||||
Error_Services('Add', 'RDS_LAYER Epi H2 Flow Max can only be cleared by a member of Engineering.')
|
|
||||||
WriteIssue = True$
|
|
||||||
end
|
|
||||||
If (OrigRecord<RDS_LAYER_TCS_FLOW_MIN$> NE '') AND (Record<RDS_LAYER_TCS_FLOW_MIN$> EQ '') then
|
|
||||||
LogData = ''
|
|
||||||
LogData<1> = LoggingDTM
|
|
||||||
LogData<2> = @USER4
|
|
||||||
LogData<3> = Name
|
|
||||||
LogData<4> = 'RDS_LAYER TCS Flow Min can only be cleared by a member of Engineering.'
|
|
||||||
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
|
|
||||||
Error_Services('Add', 'RDS_LAYER TCS Flow Min can only be cleared by a member of Engineering.')
|
|
||||||
WriteIssue = True$
|
|
||||||
end
|
|
||||||
If (OrigRecord<RDS_LAYER_TCS_FLOW_MAX$> NE '') AND (Record<RDS_LAYER_TCS_FLOW_MAX$> EQ '') then
|
|
||||||
LogData = ''
|
|
||||||
LogData<1> = LoggingDTM
|
|
||||||
LogData<2> = @USER4
|
|
||||||
LogData<3> = Name
|
|
||||||
LogData<4> = 'RDS_LAYER TCS Flow Max can only be cleared by a member of Engineering.'
|
|
||||||
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
|
|
||||||
Error_Services('Add', 'RDS_LAYER TCS Flow Max can only be cleared by a member of Engineering.')
|
|
||||||
WriteIssue = True$
|
|
||||||
end
|
|
||||||
If (OrigRecord<RDS_LAYER_AUX1_MIN$> NE '') AND (Record<RDS_LAYER_AUX1_MIN$> EQ '') then
|
|
||||||
LogData = ''
|
|
||||||
LogData<1> = LoggingDTM
|
|
||||||
LogData<2> = @USER4
|
|
||||||
LogData<3> = Name
|
|
||||||
LogData<4> = 'RDS_LAYER Aux1 Min can only be cleared by a member of Engineering.'
|
|
||||||
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
|
|
||||||
Error_Services('Add', 'RDS_LAYER Aux1 Min can only be cleared by a member of Engineering.')
|
|
||||||
WriteIssue = True$
|
|
||||||
end
|
|
||||||
If (OrigRecord<RDS_LAYER_AUX1_MAX$> NE '') AND (Record<RDS_LAYER_AUX1_MAX$> EQ '') then
|
|
||||||
LogData = ''
|
|
||||||
LogData<1> = LoggingDTM
|
|
||||||
LogData<2> = @USER4
|
|
||||||
LogData<3> = Name
|
|
||||||
LogData<4> = 'RDS_LAYER Aux1 Max can only be cleared by a member of Engineering.'
|
|
||||||
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
|
|
||||||
Error_Services('Add', 'RDS_LAYER Aux1 Max can only be cleared by a member of Engineering.')
|
|
||||||
WriteIssue = True$
|
|
||||||
end
|
|
||||||
If (OrigRecord<RDS_LAYER_F_OFFSET_MIN$> NE '') AND (Record<RDS_LAYER_F_OFFSET_MIN$> EQ '') then
|
|
||||||
LogData = ''
|
|
||||||
LogData<1> = LoggingDTM
|
|
||||||
LogData<2> = @USER4
|
|
||||||
LogData<3> = Name
|
|
||||||
LogData<4> = 'RDS_LAYER F Offset Min can only be cleared by a member of Engineering.'
|
|
||||||
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
|
|
||||||
Error_Services('Add', 'RDS_LAYER F Offset Min can only be cleared by a member of Engineering.')
|
|
||||||
WriteIssue = True$
|
|
||||||
end
|
|
||||||
If (OrigRecord<RDS_LAYER_F_OFFSET_MAX$> NE '') AND (Record<RDS_LAYER_F_OFFSET_MAX$> EQ '') then
|
|
||||||
LogData = ''
|
|
||||||
LogData<1> = LoggingDTM
|
|
||||||
LogData<2> = @USER4
|
|
||||||
LogData<3> = Name
|
|
||||||
LogData<4> = 'RDS_LAYER F Offset Max can only be cleared by a member of Engineering.'
|
|
||||||
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
|
|
||||||
Error_Services('Add', 'RDS_LAYER F Offset Max can only be cleared by a member of Engineering.')
|
|
||||||
WriteIssue = True$
|
|
||||||
end
|
|
||||||
If (OrigRecord<RDS_LAYER_SUSC_ETCH_MIN$> NE '') AND (Record<RDS_LAYER_SUSC_ETCH_MIN$> EQ '') then
|
|
||||||
LogData = ''
|
|
||||||
LogData<1> = LoggingDTM
|
|
||||||
LogData<2> = @USER4
|
|
||||||
LogData<3> = Name
|
|
||||||
LogData<4> = 'RDS_LAYER Susc Etch Min can only be cleared by a member of Engineering.'
|
|
||||||
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
|
|
||||||
Error_Services('Add', 'RDS_LAYER Susc Etch Min can only be cleared by a member of Engineering.')
|
|
||||||
WriteIssue = True$
|
|
||||||
end
|
|
||||||
If (OrigRecord<RDS_LAYER_SUSC_ETCH_MAX$> NE '') AND (Record<RDS_LAYER_SUSC_ETCH_MAX$> EQ '') then
|
|
||||||
LogData = ''
|
|
||||||
LogData<1> = LoggingDTM
|
|
||||||
LogData<2> = @USER4
|
|
||||||
LogData<3> = Name
|
|
||||||
LogData<4> = 'RDS_LAYER Susc Etch Max can only be cleared by a member of Engineering.'
|
|
||||||
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
|
|
||||||
Error_Services('Add', 'RDS_LAYER Susc Etch Max can only be cleared by a member of Engineering.')
|
|
||||||
WriteIssue = True$
|
|
||||||
end
|
|
||||||
If (OrigRecord<RDS_LAYER_DILUENT_MIN$> NE '') AND (Record<RDS_LAYER_DILUENT_MIN$> EQ '') then
|
|
||||||
LogData = ''
|
|
||||||
LogData<1> = LoggingDTM
|
|
||||||
LogData<2> = @USER4
|
|
||||||
LogData<3> = Name
|
|
||||||
LogData<4> = 'RDS_LAYER Dilutent Min can only be cleared by a member of Engineering.'
|
|
||||||
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
|
|
||||||
Error_Services('Add', 'RDS_LAYER Dilutent Min can only be cleared by a member of Engineering.')
|
|
||||||
WriteIssue = True$
|
|
||||||
end
|
|
||||||
If (OrigRecord<RDS_LAYER_DILUENT_MAX$> NE '') AND (Record<RDS_LAYER_DILUENT_MAX$> EQ '') then
|
|
||||||
LogData = ''
|
|
||||||
LogData<1> = LoggingDTM
|
|
||||||
LogData<2> = @USER4
|
|
||||||
LogData<3> = Name
|
|
||||||
LogData<4> = 'RDS_LAYER Dilutent Max can only be cleared by a member of Engineering.'
|
|
||||||
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
|
|
||||||
Error_Services('Add', 'RDS_LAYER Dilutent Max can only be cleared by a member of Engineering.')
|
|
||||||
WriteIssue = True$
|
|
||||||
end
|
|
||||||
If (OrigRecord<RDS_LAYER_DOPANT_FLOW_MIN$> NE '') AND (Record<RDS_LAYER_DOPANT_FLOW_MIN$> EQ '') then
|
|
||||||
LogData = ''
|
|
||||||
LogData<1> = LoggingDTM
|
|
||||||
LogData<2> = @USER4
|
|
||||||
LogData<3> = Name
|
|
||||||
LogData<4> = 'RDS_LAYER Dopant Flow Min can only be cleared by a member of Engineering.'
|
|
||||||
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
|
|
||||||
Error_Services('Add', 'RDS_LAYER Dopant Flow Min can only be cleared by a member of Engineering.')
|
|
||||||
WriteIssue = True$
|
|
||||||
end
|
|
||||||
If (OrigRecord<RDS_LAYER_DOPANT_FLOW_MAX$> NE '') AND (Record<RDS_LAYER_DOPANT_FLOW_MAX$> EQ '') then
|
|
||||||
LogData = ''
|
|
||||||
LogData<1> = LoggingDTM
|
|
||||||
LogData<2> = @USER4
|
|
||||||
LogData<3> = Name
|
|
||||||
LogData<4> = 'RDS_LAYER Dopant Flow Max can only be cleared by a member of Engineering.'
|
|
||||||
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
|
|
||||||
Error_Services('Add', 'RDS_LAYER Dopant Flow Max can only be cleared by a member of Engineering.')
|
|
||||||
WriteIssue = True$
|
|
||||||
end
|
|
||||||
If (OrigRecord<RDS_LAYER_HCL_FLOW_MIN$> NE '') AND (Record<RDS_LAYER_HCL_FLOW_MIN$> EQ '') then
|
|
||||||
LogData = ''
|
|
||||||
LogData<1> = LoggingDTM
|
|
||||||
LogData<2> = @USER4
|
|
||||||
LogData<3> = Name
|
|
||||||
LogData<4> = 'RDS_LAYER HCL Flow Min can only be cleared by a member of Engineering.'
|
|
||||||
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
|
|
||||||
Error_Services('Add', 'RDS_LAYER HCL Flow Min can only be cleared by a member of Engineering.')
|
|
||||||
WriteIssue = True$
|
|
||||||
end
|
|
||||||
If (OrigRecord<RDS_LAYER_HCL_FLOW_MAX$> NE '') AND (Record<RDS_LAYER_HCL_FLOW_MAX$> EQ '') then
|
|
||||||
LogData = ''
|
|
||||||
LogData<1> = LoggingDTM
|
|
||||||
LogData<2> = @USER4
|
|
||||||
LogData<3> = Name
|
|
||||||
LogData<4> = 'RDS_LAYER HCL Flow Max can only be cleared by a member of Engineering.'
|
|
||||||
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
|
|
||||||
Error_Services('Add', 'RDS_LAYER HCL Flow Max can only be cleared by a member of Engineering.')
|
|
||||||
WriteIssue = True$
|
|
||||||
end
|
|
||||||
If (OrigRecord<RDS_LAYER_BAKE_TIME_MIN$> NE '') AND (Record<RDS_LAYER_BAKE_TIME_MIN$> EQ '') then
|
|
||||||
LogData = ''
|
|
||||||
LogData<1> = LoggingDTM
|
|
||||||
LogData<2> = @USER4
|
|
||||||
LogData<3> = Name
|
|
||||||
LogData<4> = 'RDS_LAYER Bake Time Min can only be cleared by a member of Engineering.'
|
|
||||||
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
|
|
||||||
Error_Services('Add', 'RDS_LAYER Bake Time Min can only be cleared by a member of Engineering.')
|
|
||||||
WriteIssue = True$
|
|
||||||
end
|
|
||||||
If (OrigRecord<RDS_LAYER_BAKE_TIME_MAX$> NE '') AND (Record<RDS_LAYER_BAKE_TIME_MAX$> EQ '') then
|
|
||||||
LogData = ''
|
|
||||||
LogData<1> = LoggingDTM
|
|
||||||
LogData<2> = @USER4
|
|
||||||
LogData<3> = Name
|
|
||||||
LogData<4> = 'RDS_LAYER Bake Time Max can only be cleared by a member of Engineering.'
|
|
||||||
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
|
|
||||||
Error_Services('Add', 'RDS_LAYER Bake Time Max can only be cleared by a member of Engineering.')
|
|
||||||
WriteIssue = True$
|
|
||||||
end
|
|
||||||
If (OrigRecord<RDS_LAYER_DCS_FLOW_MIN$> NE '') AND (Record<RDS_LAYER_DCS_FLOW_MIN$> EQ '') then
|
|
||||||
LogData = ''
|
|
||||||
LogData<1> = LoggingDTM
|
|
||||||
LogData<2> = @USER4
|
|
||||||
LogData<3> = Name
|
|
||||||
LogData<4> = 'RDS_LAYER DCS Flow Min can only be cleared by a member of Engineering.'
|
|
||||||
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
|
|
||||||
Error_Services('Add', 'RDS_LAYER DCS Flow Min can only be cleared by a member of Engineering.')
|
|
||||||
WriteIssue = True$
|
|
||||||
end
|
|
||||||
If (OrigRecord<RDS_LAYER_DCS_FLOW_MAX$> NE '') AND (Record<RDS_LAYER_DCS_FLOW_MAX$> EQ '') then
|
|
||||||
LogData = ''
|
|
||||||
LogData<1> = LoggingDTM
|
|
||||||
LogData<2> = @USER4
|
|
||||||
LogData<3> = Name
|
|
||||||
LogData<4> = 'RDS_LAYER DCS Flow Max can only be cleared by a member of Engineering.'
|
|
||||||
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
|
|
||||||
Error_Services('Add', 'RDS_LAYER DCS Flow Max can only be cleared by a member of Engineering.')
|
|
||||||
WriteIssue = True$
|
|
||||||
end
|
|
||||||
If (OrigRecord<RDS_LAYER_AUX2_MIN$> NE '') AND (Record<RDS_LAYER_AUX2_MIN$> EQ '') then
|
|
||||||
LogData = ''
|
|
||||||
LogData<1> = LoggingDTM
|
|
||||||
LogData<2> = @USER4
|
|
||||||
LogData<3> = Name
|
|
||||||
LogData<4> = 'RDS_LAYER Aux2 Min can only be cleared by a member of Engineering.'
|
|
||||||
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
|
|
||||||
Error_Services('Add', 'RDS_LAYER Aux2 Min can only be cleared by a member of Engineering.')
|
|
||||||
WriteIssue = True$
|
|
||||||
end
|
|
||||||
If (OrigRecord<RDS_LAYER_AUX2_MAX$> NE '') AND (Record<RDS_LAYER_AUX2_MAX$> EQ '') then
|
|
||||||
LogData = ''
|
|
||||||
LogData<1> = LoggingDTM
|
|
||||||
LogData<2> = @USER4
|
|
||||||
LogData<3> = Name
|
|
||||||
LogData<4> = 'RDS_LAYER Aux2 Max can only be cleared by a member of Engineering.'
|
|
||||||
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
|
|
||||||
Error_Services('Add', 'RDS_LAYER Aux2 Max can only be cleared by a member of Engineering.')
|
|
||||||
WriteIssue = True$
|
|
||||||
end
|
|
||||||
If (OrigRecord<RDS_LAYER_S_OFFSET_MIN$> NE '') AND (Record<RDS_LAYER_S_OFFSET_MIN$> EQ '') then
|
|
||||||
LogData = ''
|
|
||||||
LogData<1> = LoggingDTM
|
|
||||||
LogData<2> = @USER4
|
|
||||||
LogData<3> = Name
|
|
||||||
LogData<4> = 'RDS_LAYER S Offset Min can only be cleared by a member of Engineering.'
|
|
||||||
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
|
|
||||||
Error_Services('Add', 'RDS_LAYER S Offset Min can only be cleared by a member of Engineering.')
|
|
||||||
WriteIssue = True$
|
|
||||||
end
|
|
||||||
If (OrigRecord<RDS_LAYER_S_OFFSET_MAX$> NE '') AND (Record<RDS_LAYER_S_OFFSET_MAX$> EQ '') then
|
|
||||||
LogData = ''
|
|
||||||
LogData<1> = LoggingDTM
|
|
||||||
LogData<2> = @USER4
|
|
||||||
LogData<3> = Name
|
|
||||||
LogData<4> = 'RDS_LAYER S Offset Max can only be cleared by a member of Engineering.'
|
|
||||||
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
|
|
||||||
Error_Services('Add', 'RDS_LAYER S Offset Max can only be cleared by a member of Engineering.')
|
|
||||||
WriteIssue = True$
|
|
||||||
end
|
|
||||||
If (OrigRecord<RDS_LAYER_R_OFFSET_MIN$> NE '') AND (Record<RDS_LAYER_R_OFFSET_MIN$> EQ '') then
|
|
||||||
LogData = ''
|
|
||||||
LogData<1> = LoggingDTM
|
|
||||||
LogData<2> = @USER4
|
|
||||||
LogData<3> = Name
|
|
||||||
LogData<4> = 'RDS_LAYER R Offset Min can only be cleared by a member of Engineering.'
|
|
||||||
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
|
|
||||||
Error_Services('Add', 'RDS_LAYER R Offset Min can only be cleared by a member of Engineering.')
|
|
||||||
WriteIssue = True$
|
|
||||||
end
|
|
||||||
If (OrigRecord<RDS_LAYER_R_OFFSET_MAX$> NE '') AND (Record<RDS_LAYER_R_OFFSET_MAX$> EQ '') then
|
|
||||||
LogData = ''
|
|
||||||
LogData<1> = LoggingDTM
|
|
||||||
LogData<2> = @USER4
|
|
||||||
LogData<3> = Name
|
|
||||||
LogData<4> = 'RDS_LAYER R Offset Max can only be cleared by a member of Engineering.'
|
|
||||||
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
|
|
||||||
Error_Services('Add', 'RDS_LAYER R Offset Max can only be cleared by a member of Engineering.')
|
|
||||||
WriteIssue = True$
|
|
||||||
end
|
|
||||||
If (OrigRecord<RDS_LAYER_ETCH1_MIN$> NE '') AND (Record<RDS_LAYER_ETCH1_MIN$> EQ '') then
|
|
||||||
LogData = ''
|
|
||||||
LogData<1> = LoggingDTM
|
|
||||||
LogData<2> = @USER4
|
|
||||||
LogData<3> = Name
|
|
||||||
LogData<4> = 'RDS_LAYER Etch 1 Min can only be cleared by a member of Engineering.'
|
|
||||||
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
|
|
||||||
Error_Services('Add', 'RDS_LAYER Etch 1 Min can only be cleared by a member of Engineering.')
|
|
||||||
WriteIssue = True$
|
|
||||||
end
|
|
||||||
If (OrigRecord<RDS_LAYER_ETCH1_MAX$> NE '') AND (Record<RDS_LAYER_ETCH1_MAX$> EQ '') then
|
|
||||||
LogData = ''
|
|
||||||
LogData<1> = LoggingDTM
|
|
||||||
LogData<2> = @USER4
|
|
||||||
LogData<3> = Name
|
|
||||||
LogData<4> = 'RDS_LAYER Etch 1 Max can only be cleared by a member of Engineering.'
|
|
||||||
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
|
|
||||||
Error_Services('Add', 'RDS_LAYER Etch 1 Max can only be cleared by a member of Engineering.')
|
|
||||||
WriteIssue = True$
|
|
||||||
end
|
|
||||||
If (OrigRecord<RDS_LAYER_ETCH2_MIN$> NE '') AND (Record<RDS_LAYER_ETCH2_MIN$> EQ '') then
|
|
||||||
LogData = ''
|
|
||||||
LogData<1> = LoggingDTM
|
|
||||||
LogData<2> = @USER4
|
|
||||||
LogData<3> = Name
|
|
||||||
LogData<4> = 'RDS_LAYER Etch 2 Min can only be cleared by a member of Engineering.'
|
|
||||||
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
|
|
||||||
Error_Services('Add', 'RDS_LAYER Etch 2 Min can only be cleared by a member of Engineering.')
|
|
||||||
WriteIssue = True$
|
|
||||||
end
|
|
||||||
If (OrigRecord<RDS_LAYER_ETCH2_MAX$> NE '') AND (Record<RDS_LAYER_ETCH2_MAX$> EQ '') then
|
|
||||||
LogData = ''
|
|
||||||
LogData<1> = LoggingDTM
|
|
||||||
LogData<2> = @USER4
|
|
||||||
LogData<3> = Name
|
|
||||||
LogData<4> = 'RDS_LAYER Etch 2 Max can only be cleared by a member of Engineering.'
|
|
||||||
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
|
|
||||||
Error_Services('Add', 'RDS_LAYER Etch 2 Max can only be cleared by a member of Engineering.')
|
|
||||||
WriteIssue = True$
|
|
||||||
end
|
|
||||||
If (OrigRecord<RDS_LAYER_ETCH3_MIN$> NE '') AND (Record<RDS_LAYER_ETCH3_MIN$> EQ '') then
|
|
||||||
LogData = ''
|
|
||||||
LogData<1> = LoggingDTM
|
|
||||||
LogData<2> = @USER4
|
|
||||||
LogData<3> = Name
|
|
||||||
LogData<4> = 'RDS_LAYER Etch 3 Min can only be cleared by a member of Engineering.'
|
|
||||||
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
|
|
||||||
Error_Services('Add', 'RDS_LAYER Etch 3 Min can only be cleared by a member of Engineering.')
|
|
||||||
WriteIssue = True$
|
|
||||||
end
|
|
||||||
If (OrigRecord<RDS_LAYER_ETCH3_MAX$> NE '') AND (Record<RDS_LAYER_ETCH3_MAX$> EQ '') then
|
|
||||||
LogData = ''
|
|
||||||
LogData<1> = LoggingDTM
|
|
||||||
LogData<2> = @USER4
|
|
||||||
LogData<3> = Name
|
|
||||||
LogData<4> = 'RDS_LAYER Etch 3 Max can only be cleared by a member of Engineering.'
|
|
||||||
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
|
|
||||||
Error_Services('Add', 'RDS_LAYER Etch 3 Max can only be cleared by a member of Engineering.')
|
|
||||||
WriteIssue = True$
|
|
||||||
end
|
|
||||||
|
|
||||||
If (OrigRecord<RDS_LAYER_UL_TEMP_MIN$> NE '') AND (Record<RDS_LAYER_UL_TEMP_MIN$> EQ '') then
|
ErrorMsg = 'RDS_LAYER specifications can only be cleared by a member of Engineering.'
|
||||||
LogData = ''
|
LogPath = Environment_Services('GetApplicationRootPath') : '\LogFiles\RDS_LAYER'
|
||||||
LogData<1> = LoggingDTM
|
LogDate = Oconv(Date(), 'D4/')
|
||||||
LogData<2> = @USER4
|
LogTime = Oconv(Time(), 'MTS')
|
||||||
LogData<3> = Name
|
LogFileName = LogDate[7, 4] : '-' : LogDate[1, 2] : '-' : LogDate[4, 2] : ' RDS_LAYER_Spec_Clear_Attempt_Log.csv'
|
||||||
LogData<4> = 'RDS_LAYER UL Temp Min can only be cleared by a member of Engineering.'
|
Headers = 'Logging DTM' : @FM : 'User' : @FM : 'RDS_LAYER Key ID' : @FM : 'Notes'
|
||||||
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
|
objLog = Logging_Services('NewLog', LogPath, LogFileName, CRLF$, Comma$, Headers, '', False$, False$)
|
||||||
Error_Services('Add', 'RDS_LAYER UL Temp Min can only be cleared by a member of Engineering.')
|
LoggingDTM = LogDate : ' ' : LogTime ; // Logging DTM
|
||||||
WriteIssue = True$
|
|
||||||
end
|
|
||||||
If (OrigRecord<RDS_LAYER_UL_TEMP_MAX$> NE '') AND (Record<RDS_LAYER_UL_TEMP_MAX$> EQ '') then
|
|
||||||
LogData = ''
|
|
||||||
LogData<1> = LoggingDTM
|
|
||||||
LogData<2> = @USER4
|
|
||||||
LogData<3> = Name
|
|
||||||
LogData<4> = 'RDS_LAYER UL Temp Max can only be cleared by a member of Engineering.'
|
|
||||||
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
|
|
||||||
Error_Services('Add', 'RDS_LAYER UL Temp Max can only be cleared by a member of Engineering.')
|
|
||||||
WriteIssue = True$
|
|
||||||
end
|
|
||||||
|
|
||||||
// User is attempting to erase data that is prohibited from being erased Set the FS104 error and block the write.
|
LogData = ''
|
||||||
If WriteIssue EQ True$ then
|
LogData<1> = LoggingDTM
|
||||||
OrigFileError = 104:': RDS_LAYER params can only be cleared by a member of Engineering.'
|
LogData<2> = @USER4
|
||||||
|
LogData<3> = Name
|
||||||
|
LogData<4> = ErrorMsg
|
||||||
|
LogData<5> = Error_Services('GetStackTrace')
|
||||||
|
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
|
||||||
|
Error_Services('LogStack')
|
||||||
|
Error_Services('Add', ErrorMsg)
|
||||||
|
|
||||||
|
OrigFileError = 104:': ':ErrorMsg
|
||||||
Status = 0
|
Status = 0
|
||||||
Record = ''
|
Record = ''
|
||||||
ActionFlow = ACTION_STOP$
|
ActionFlow = ACTION_STOP$
|
||||||
Error_Services('LogStack')
|
|
||||||
end else
|
|
||||||
ActionFlow = ACTION_CONTINUE$
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
@ -545,6 +223,7 @@ return
|
|||||||
// ----- Internal Methods ----------------------------------------------------------------------------------------------
|
// ----- Internal Methods ----------------------------------------------------------------------------------------------
|
||||||
|
|
||||||
Initialize_System_Variables:
|
Initialize_System_Variables:
|
||||||
|
|
||||||
// Save these for restoration later
|
// Save these for restoration later
|
||||||
SaveDict = @DICT
|
SaveDict = @DICT
|
||||||
SaveID = @ID
|
SaveID = @ID
|
||||||
@ -578,11 +257,16 @@ Initialize_System_Variables:
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
@RECORD = Record
|
@RECORD = Record
|
||||||
|
|
||||||
return
|
return
|
||||||
|
|
||||||
|
|
||||||
Restore_System_Variables:
|
Restore_System_Variables:
|
||||||
|
|
||||||
Transfer SaveDict to @DICT
|
Transfer SaveDict to @DICT
|
||||||
Transfer SaveID to @ID
|
Transfer SaveID to @ID
|
||||||
Transfer SaveRecord to @RECORD
|
Transfer SaveRecord to @RECORD
|
||||||
@FILE.ERROR = OrigFileError
|
@FILE.ERROR = OrigFileError
|
||||||
|
|
||||||
return
|
return
|
||||||
|
|
||||||
|
|||||||
@ -35,6 +35,7 @@ Compile function RDS_LAYER_EVENTS(CtrlEntId, Event, @PARAMS)
|
|||||||
#pragma precomp SRP_PreCompiler
|
#pragma precomp SRP_PreCompiler
|
||||||
#window RDS_LAYER
|
#window RDS_LAYER
|
||||||
|
|
||||||
|
$Insert EVENT_SETUP
|
||||||
$Insert RDS_EQUATES
|
$Insert RDS_EQUATES
|
||||||
$Insert APP_INSERTS
|
$Insert APP_INSERTS
|
||||||
$Insert RLIST_EQUATES
|
$Insert RLIST_EQUATES
|
||||||
@ -54,7 +55,7 @@ EQU HIDDEN$ TO 32
|
|||||||
|
|
||||||
Declare subroutine Comm_RDS_Layer, Tool_Parms_Services, Set_Status, RList, Errmsg, Database_Services, Msg
|
Declare subroutine Comm_RDS_Layer, Tool_Parms_Services, Set_Status, RList, Errmsg, Database_Services, Msg
|
||||||
Declare subroutine PlaceDialog, obj_RDS_Layer, Security_Err_Msg
|
Declare subroutine PlaceDialog, obj_RDS_Layer, Security_Err_Msg
|
||||||
Declare function Tool_Parms_Services, Get_Property, Database_Services, Security_Check, MemberOf
|
Declare function Tool_Parms_Services, Get_Property, Database_Services, Security_Check, MemberOf, Get_EventStatus
|
||||||
|
|
||||||
GoToEvent Event for CtrlEntId else
|
GoToEvent Event for CtrlEntId else
|
||||||
// Event not implemented
|
// Event not implemented
|
||||||
@ -98,7 +99,7 @@ Event WINDOW.WRITE()
|
|||||||
IF CurrRecord NE OrgRecord THEN
|
IF CurrRecord NE OrgRecord THEN
|
||||||
CurrDTM = OCONV(Date(),'D4/'):' ':OCONV(Time(),'MTS')
|
CurrDTM = OCONV(Date(),'D4/'):' ':OCONV(Time(),'MTS')
|
||||||
NewLine = @USER4:@VM:CurrDTM
|
NewLine = @USER4:@VM:CurrDTM
|
||||||
Send_Message(@WINDOW:'.MODIFY_USER','INSERT',1,NewLine)
|
Send_Message(@WINDOW:'.MODIFY_USER', 'INSERT', 1, NewLine)
|
||||||
END
|
END
|
||||||
|
|
||||||
IOOptions = Get_Property(@Window, 'IOOPTIONS')
|
IOOptions = Get_Property(@Window, 'IOOPTIONS')
|
||||||
@ -107,104 +108,16 @@ Event WINDOW.WRITE()
|
|||||||
Set_Status(0)
|
Set_Status(0)
|
||||||
Forward_Event()
|
Forward_Event()
|
||||||
errCode = ''
|
errCode = ''
|
||||||
If Get_Status(errCode) then ErrMsg('Save failed. Error code: ':errCode)
|
|
||||||
|
If Get_EventStatus(errCode) then
|
||||||
|
EventFlow = EVENT_STOP$
|
||||||
|
end else
|
||||||
Post_Event(@WINDOW,'CLOSE')
|
Post_Event(@WINDOW,'CLOSE')
|
||||||
|
end
|
||||||
* end else
|
|
||||||
*
|
|
||||||
* MsgHead = 'Default Run Parameters'
|
|
||||||
* MsgText = 'Would you like to use these parameters as the default for future lots?'
|
|
||||||
*
|
|
||||||
* Response = Msg(@WINDOW,'','YESNO','',MsgHead:@FM:MsgText)
|
|
||||||
*
|
|
||||||
* IF Response EQ True$ THEN
|
|
||||||
*
|
|
||||||
* RDSNo = Get_Property(@Window : '.RDS_NO', 'TEXT')
|
|
||||||
* Database_Services('ActivateRecord', 'RDS', RDSNo)
|
|
||||||
* WorkOrder = {WO}
|
|
||||||
* ReactorNo = {REACTOR}
|
|
||||||
* PSN = {PROD_SPEC_ID}
|
|
||||||
* If PSN NE '' then
|
|
||||||
* If ReactorNo EQ '' then
|
|
||||||
* ReactorNo = {SCHED_REACTOR}
|
|
||||||
* If ReactorNo EQ '' then
|
|
||||||
* ErrorMsg = 'No scheduled reactor found for work order: ':WorkOrder:'. Could not apply current ':@SVM |
|
|
||||||
* : 'run parameters. Please assign a reactor to this RDS first.'
|
|
||||||
* ErrMsg(ErrorMsg)
|
|
||||||
* return
|
|
||||||
* end
|
|
||||||
* end
|
|
||||||
* // Create a new TOOL_PARMS record, which is the "master" parameter record.
|
|
||||||
* Tool_Parms_Services('CreateToolParmsRec', PSN, ReactorNo, RDSNo)
|
|
||||||
* If Error_Services('NoError') then
|
|
||||||
* Msg(@Window, '', 'SUCCESS', '', 'Run parameters have been set for reactor ':ReactorNo)
|
|
||||||
* end else
|
|
||||||
* Errmsg('Error setting run parameters. Error message: ':Error_Services('GetMessage'))
|
|
||||||
* end
|
|
||||||
* end else
|
|
||||||
* ErrorMsg = 'No PSN assigned to this RDS. Could not apply current ':@SVM |
|
|
||||||
* : 'run parameters. Please assign a PSN to this RDS first.'
|
|
||||||
* ErrMsg(ErrorMsg)
|
|
||||||
* return
|
|
||||||
* end
|
|
||||||
* end
|
|
||||||
* end
|
|
||||||
|
|
||||||
|
|
||||||
end event
|
end event
|
||||||
|
|
||||||
|
|
||||||
* Event BTN_SET_CURR_RUN_PARMS.CLICK()
|
|
||||||
*
|
|
||||||
* // Use new RDS_LAYER parameters to create a new TOOL_PARMS record.
|
|
||||||
* // Then apply the new TOOL_PARMS to all RDS records in this work order on this reactor.
|
|
||||||
* // Note: If a reactor has not yet been assigned to an RDS in this work order, then
|
|
||||||
* // the TOOL_PARMS will be applied anyways as a convenience. Should the RDS be
|
|
||||||
* // reassigned to another reactor later, the appropriate TOOL_PARMS will be applied
|
|
||||||
* // by the RDS_ACTIONS MFS.
|
|
||||||
*
|
|
||||||
* Savewarn = Get_Property(@Window, 'SAVEWARN')
|
|
||||||
* Set_Property(@Window, '@SKIPSCRIPT', True$)
|
|
||||||
* If Savewarn EQ True$ then
|
|
||||||
* IOOptions = Get_Property(@Window, 'IOOPTIONS')
|
|
||||||
* IOOptions<6> = 1
|
|
||||||
* Set_Property(@Window, 'IOOPTIONS', IOOptions)
|
|
||||||
* Send_Event(@Window, 'WRITE')
|
|
||||||
* end
|
|
||||||
* RDSNo = Get_Property(@Window : '.RDS_NO', 'TEXT')
|
|
||||||
* Database_Services('ActivateRecord', 'RDS', RDSNo)
|
|
||||||
* WorkOrder = {WO}
|
|
||||||
* ReactorNo = {REACTOR}
|
|
||||||
* PSN = {PROD_SPEC_ID}
|
|
||||||
* If PSN NE '' then
|
|
||||||
* If ReactorNo EQ '' then
|
|
||||||
* ReactorNo = {SCHED_REACTOR}
|
|
||||||
* If ReactorNo EQ '' then
|
|
||||||
* ErrorMsg = 'No scheduled reactor found for work order: ':WorkOrder:'. Could not apply current ':@SVM |
|
|
||||||
* : 'run parameters. Please assign a reactor to this RDS first.'
|
|
||||||
* ErrMsg(ErrorMsg)
|
|
||||||
* return
|
|
||||||
* end
|
|
||||||
* end
|
|
||||||
* // Create a new TOOL_PARMS record, which is the "master" parameter record.
|
|
||||||
* Tool_Parms_Services('CreateToolParmsRec', PSN, ReactorNo, RDSNo)
|
|
||||||
* // Apply new TOOL_PARMS record to all RDS_LAYERS in this run without an unload signature.
|
|
||||||
* Tool_Parms_Services('ApplyCurrentRunParms', PSN, ReactorNo)
|
|
||||||
* If Error_Services('NoError') then
|
|
||||||
* Msg(@Window, '', 'SUCCESS', '', 'Run parameters have been set for reactor ':ReactorNo)
|
|
||||||
* end else
|
|
||||||
* Errmsg('Error setting run parameters. Error message: ':Error_Services('GetMessage'))
|
|
||||||
* end
|
|
||||||
* end else
|
|
||||||
* ErrorMsg = 'No PSN assigned to this RDS. Could not apply current ':@SVM |
|
|
||||||
* : 'run parameters. Please assign a PSN to this RDS first.'
|
|
||||||
* ErrMsg(ErrorMsg)
|
|
||||||
* return
|
|
||||||
* end
|
|
||||||
*
|
|
||||||
* end event
|
|
||||||
|
|
||||||
|
|
||||||
Event PUB_CONFIRM_PARMS.CLICK()
|
Event PUB_CONFIRM_PARMS.CLICK()
|
||||||
|
|
||||||
RDSNo = Get_Property(@Window:'.RDS_NO', 'TEXT')
|
RDSNo = Get_Property(@Window:'.RDS_NO', 'TEXT')
|
||||||
@ -248,9 +161,11 @@ end event
|
|||||||
|
|
||||||
|
|
||||||
ClearCursors:
|
ClearCursors:
|
||||||
|
|
||||||
For counter = 0 to 8
|
For counter = 0 to 8
|
||||||
ClearSelect counter
|
ClearSelect counter
|
||||||
Next counter
|
Next counter
|
||||||
|
|
||||||
return
|
return
|
||||||
|
|
||||||
|
|
||||||
@ -348,11 +263,6 @@ Refresh:
|
|||||||
Parameter_Styles = Send_Message( @WINDOW:'.RECIPE_PARMS', "COLSTYLE", 0, ParameterStyles )
|
Parameter_Styles = Send_Message( @WINDOW:'.RECIPE_PARMS', "COLSTYLE", 0, ParameterStyles )
|
||||||
LimitStyles = Send_Message( @WINDOW:'.RECIPE_LIMITS', "COLSTYLE", 0, LimitStyles )
|
LimitStyles = Send_Message( @WINDOW:'.RECIPE_LIMITS', "COLSTYLE", 0, LimitStyles )
|
||||||
|
|
||||||
* Set_Property( @WINDOW:'.RECIPE_INFO', "AUTOSIZECOL", 16 )
|
|
||||||
* Set_Property( @WINDOW:'.RECIPE_LIMITS', "AUTOSIZECOL", 16 )
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
* QBF buttons
|
* QBF buttons
|
||||||
|
|
||||||
Ctrls = @WINDOW:'.QBF_FIRST_FIX':@RM ; Props = 'ENABLED':@RM
|
Ctrls = @WINDOW:'.QBF_FIRST_FIX':@RM ; Props = 'ENABLED':@RM
|
||||||
@ -389,7 +299,6 @@ Refresh:
|
|||||||
NEXT I
|
NEXT I
|
||||||
NEXT I
|
NEXT I
|
||||||
|
|
||||||
|
|
||||||
TestList = Get_Property(@WINDOW:'.RDS_TEST_KEYS','LIST')
|
TestList = Get_Property(@WINDOW:'.RDS_TEST_KEYS','LIST')
|
||||||
|
|
||||||
FOR I = 1 TO COUNT(TestList,@FM) + (TestList NE '')
|
FOR I = 1 TO COUNT(TestList,@FM) + (TestList NE '')
|
||||||
@ -400,14 +309,6 @@ Refresh:
|
|||||||
END
|
END
|
||||||
NEXT I
|
NEXT I
|
||||||
|
|
||||||
* RPCopy = RecipeParms
|
|
||||||
* Convert @FM to '' in RPCopy
|
|
||||||
* If RPCopy EQ '' then
|
|
||||||
* Set_Property(@Window : '.BTN_SET_CURR_RUN_PARMS', 'ENABLED', False$)
|
|
||||||
* end else
|
|
||||||
* Set_Property(@Window : '.BTN_SET_CURR_RUN_PARMS', 'ENABLED', True$)
|
|
||||||
* end
|
|
||||||
|
|
||||||
IsTestWafer = Xlate('RDS', RDSNo, 'ON_TW_FREQ', 'X')
|
IsTestWafer = Xlate('RDS', RDSNo, 'ON_TW_FREQ', 'X')
|
||||||
RDSLayerAck = RDSRec<RDS_RDS_LAYER_ACK$>
|
RDSLayerAck = RDSRec<RDS_RDS_LAYER_ACK$>
|
||||||
If ( (IsTestWafer EQ True$) and ( (RDSLayerAck EQ False$) or (RDSLayerAck EQ '') ) ) then
|
If ( (IsTestWafer EQ True$) and ( (RDSLayerAck EQ False$) or (RDSLayerAck EQ '') ) ) then
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user