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

Removed error messages on lost focus events and instead just display the error on write operation.

Browse Source
This commit is contained in:
Infineon\StieberD
2025-10-22 12:39:26 -07:00
parent 374e5c2b51
commit 79cde8e098
2 changed files with 249 additions and 298 deletions
Download Patch File Download Diff File Expand all files Collapse all files

56
LSL2/STPROC/REACT_ITEM.txt
View File

@ -102,11 +102,9 @@ Create:
obj_Appwindow('Create',@WINDOW) obj_Appwindow('Create',@WINDOW)
RETURN RETURN
* * * * * * * * * * * * * *
New: New:
* * * * * * * * * * * * * *
@ -134,14 +132,11 @@ RETURN
Close: Close:
* * * * * * * * * * * * * *
*DEBUG
obj_Appwindow('CardReturn',@WINDOW) obj_Appwindow('CardReturn',@WINDOW)
RETURN RETURN
* * * * * * * * * * * * * *
Read: Read:
* * * * * * * * * * * * * *
@ -168,9 +163,6 @@ RETURN
Clear: Clear:
* * * * * * * * * * * * * *
*Send_Event(@WINDOW,'PAGE',1)
* * * * * * * * * * * * * *
Refresh: Refresh:
@ -208,32 +200,6 @@ END
Set_Property(Ctrls,Props,Vals) Set_Property(Ctrls,Props,Vals)
* Turn edit table symbolic column backgrounds to green **************************************************
/*
ETSymbolics = Get_Property(@WINDOW,'@ET_SYMBOLICS') ;* Loaded during 'Create' in obj_Appwindow
ETCtrls = ETSymbolics<1>
ETCols = ETSymbolics<2>
FOR I = 1 TO COUNT(ETCtrls,@VM) + (ETCtrls NE '')
ETCtrl = ETCtrls<1,I>
ETList = Get_Property(ETCtrl,'LIST')
FOR Line = 1 TO COUNT(ETList,@FM) + (ETList NE '')
IF ETList<Line,1> NE '' THEN
FOR N = 1 TO COUNT(ETCols<1,I>,@SVM) + (ETCols<1,I> NE '')
stat = Send_Message(ETCtrl,'COLOR_BY_POS',ETCols<1,I,N>,Line,GREEN$)
NEXT N
END
NEXT I
NEXT I
*/
ETCtrl = @WINDOW:'.REACT_NO' ETCtrl = @WINDOW:'.REACT_NO'
ETList = Get_Property(ETCtrl,'LIST') ETList = Get_Property(ETCtrl,'LIST')
ListCnt = COUNT(ETList,@FM) + (ETList NE '') ListCnt = COUNT(ETList,@FM) + (ETList NE '')
@ -291,6 +257,7 @@ end
RETURN RETURN
* * * * * * * * * * * * * *
RITypeChange: RITypeChange:
* * * * * * * * * * * * * *
@ -422,12 +389,10 @@ END
RETURN RETURN
* * * * * * * * * * * * * *
LUPartType: LUPartType:
* * * * * * * * * * * * * *
RetVal = Popup(@WINDOW,'','RI_PART_TYPE') RetVal = Popup(@WINDOW,'','RI_PART_TYPE')
IF RetVal NE '' THEN IF RetVal NE '' THEN
@ -435,7 +400,6 @@ IF RetVal NE '' THEN
obj_Appwindow('LUValReturn',oaParms) obj_Appwindow('LUValReturn',oaParms)
END END
RETURN RETURN
@ -443,7 +407,6 @@ RETURN
LUTubeStyle: ;* Added by dkk 12/1/14 LUTubeStyle: ;* Added by dkk 12/1/14
* * * * * * * * * * * * * *
RetVal = Popup(@WINDOW,'','TUBE_STYLE') RetVal = Popup(@WINDOW,'','TUBE_STYLE')
IF RetVal NE '' THEN IF RetVal NE '' THEN
@ -451,11 +414,9 @@ IF RetVal NE '' THEN
obj_Appwindow('LUValReturn',oaParms) obj_Appwindow('LUValReturn',oaParms)
END END
RETURN RETURN
* * * * * * * * * * * * * *
LUMfrCd: LUMfrCd:
* * * * * * * * * * * * * *
@ -481,13 +442,12 @@ IF RetVal NE '' THEN
obj_Appwindow('LUValReturn',oaParms) obj_Appwindow('LUValReturn',oaParms)
END END
RETURN RETURN
* * * * * * * * * * * * * *
LUSuscSize: LUSuscSize:
* * * * * * * * * * * * * *
RetVal = Popup(@WINDOW,'','WAFER_SIZES') RetVal = Popup(@WINDOW,'','WAFER_SIZES')
IF RetVal NE '' THEN IF RetVal NE '' THEN
@ -495,7 +455,6 @@ IF RetVal NE '' THEN
obj_Appwindow('LUValReturn',oaParms) obj_Appwindow('LUValReturn',oaParms)
END END
RETURN RETURN
@ -509,7 +468,6 @@ If RIType EQ 'S' then
PocketQty = '' PocketQty = ''
Set_Property(@Window:'.PKT_QTY', 'TEXT', '') Set_Property(@Window:'.PKT_QTY', 'TEXT', '')
PartType = Get_Property(@Window: '.PART_TYPE', 'TEXT') PartType = Get_Property(@Window: '.PART_TYPE', 'TEXT')
If (PartType EQ 'HTR') OR (PartType EQ 'EPP') OR (PartType EQ 'ASM') then
RetVal = Popup(@WINDOW,TypeOver,'WAFER_SIZES') RetVal = Popup(@WINDOW,TypeOver,'WAFER_SIZES')
IF RetVal NE '' THEN IF RetVal NE '' THEN
oaParms = RetVal:@RM:@WINDOW:'.PKT_SIZE' oaParms = RetVal:@RM:@WINDOW:'.PKT_SIZE'
@ -532,9 +490,6 @@ If RIType EQ 'S' then
End Case End Case
Set_Property(@Window:'.PKT_QTY', 'TEXT', PocketQty) Set_Property(@Window:'.PKT_QTY', 'TEXT', PocketQty)
END
end else
If Retired EQ '' then ErrMsg('A valid Part Type (EPP, ASM, HTR) must be selected before selecting Pocket Size.')
end end
end end
@ -625,14 +580,9 @@ PktSizeChange:
End Case End Case
Set_Property(@Window:'.PKT_QTY', 'TEXT', PocketQty) Set_Property(@Window:'.PKT_QTY', 'TEXT', PocketQty)
end else
If Retired EQ '' then ErrMsg('A valid Pocket Size (6 or 8 in.) is required.')
end
end else
If Retired EQ '' then ErrMsg('A valid Part Type (EPP, ASM, HTR) must be selected before selecting Pocket Size.')
end end
end end
end
return return

33
LSL2/STPROC/REACT_ITEM_ACTIONS.txt
View File

@ -149,51 +149,53 @@ WRITE_RECORD_PRE:
// Req'd parameter checks // Req'd parameter checks
ItemType = {RI_TYPE} ItemType = {RI_TYPE}
If ItemType EQ '' then ErrMsg := 'Item Type was not specified. ' If ItemType EQ '' then ErrMsg := 'Item Type was not specified.':CRLF$
If (ItemType NE 'LE') AND (ItemType NE 'RE') then If (ItemType NE 'LE') AND (ItemType NE 'RE') then
SerialNo = Record<REACT_ITEM_SERIAL_NO$> SerialNo = Record<REACT_ITEM_SERIAL_NO$>
If SerialNo EQ '' then If SerialNo EQ '' then
ErrMsg := 'Serial No. is required for this Reactor Item type. ' ErrMsg := 'Serial No. is required for this Reactor Item type.':CRLF$
end end
end end
If ItemType EQ 'S' then If ItemType EQ 'S' then
PartType = Record<REACT_ITEM_PART_TYPE$>
PocketQty = Record<REACT_ITEM_PKT_QTY$> PocketQty = Record<REACT_ITEM_PKT_QTY$>
PocketSize = Record<REACT_ITEM_PKT_SIZE$> PocketSize = Record<REACT_ITEM_PKT_SIZE$>
If PartType EQ '' then
ErrMsg := 'Part Type is required for Susceptor Reactor Item type.':CRLF$
end
If PocketSize EQ '' then If PocketSize EQ '' then
ErrMsg := 'Pocket size is required for Susceptor Item Type. ' ErrMsg := 'Pocket size is required for Susceptor Item Type.':CRLF$
end end
If PocketQty EQ '' then If PocketQty EQ '' then
ErrMsg := 'Pocket quantity is required for Susceptor Item Type. ' ErrMsg := 'Pocket quantity is required for Susceptor Item Type.':CRLF$
end end
If ErrMsg = '' then If ErrMsg = '' then
ExpectedQty = '' ExpectedQty = ''
Begin Case Begin Case
Case Record<REACT_ITEM_PART_TYPE$> EQ 'ASM' Case PartType EQ 'ASM'
If PocketSize EQ 6 OR PocketSize EQ 8 then If PocketSize EQ 6 OR PocketSize EQ 8 then
ExpectedQty = 1 ExpectedQty = 1
end end
Case Record<REACT_ITEM_PART_TYPE$> EQ 'HTR' Case PartType EQ 'HTR'
If PocketSize EQ 8 then If PocketSize EQ 8 then
ExpectedQty = 3 ExpectedQty = 3
end else end else
If PocketSize EQ 6 then ExpectedQty = 5 If PocketSize EQ 6 then ExpectedQty = 5
end end
Case Record<REACT_ITEM_PART_TYPE$> EQ 'EPP' Case PartType EQ 'EPP'
If PocketSize EQ 8 then If PocketSize EQ 8 then
ExpectedQty = 8 ExpectedQty = 8
end else end else
If PocketSize EQ 6 then ExpectedQty = 18 If PocketSize EQ 6 then ExpectedQty = 18
end end
Case Record<REACT_ITEM_PART_TYPE$> EQ ''
ErrMsg := 'Part Type. is required for Susceptor Reactor Item type. '
Case Otherwise$ Case Otherwise$
ErrMsg := 'Invalid Part Type for Susceptor Reactor Item Type. ' ErrMsg := 'Invalid Part Type for Susceptor Reactor Item Type.':CRLF$
End Case End Case
If ExpectedQty NE '' then If ExpectedQty NE '' then
If PocketQty NE ExpectedQty then If PocketQty NE ExpectedQty then
ErrMsg := 'Invalid Pocket Quantity for Part Type/Pocket Size combination. ' ErrMsg := 'Invalid Pocket Quantity for Part Type/Pocket Size combination.':CRLF$
end end
end end
end end
@ -201,8 +203,10 @@ WRITE_RECORD_PRE:
end end
If ErrMsg NE '' then If ErrMsg NE '' then
Error_Services('Add', 'Error Saving Reactor Item: ' : ErrMsg) // Strip off last @FM
OrigFileError = 104:': Error Saving Reactor Item: ' : ErrMsg ErrMsg[-1, 2] = ''
Error_Services('Add', 'Error Saving Reactor Item:' : CRLF$ : ErrMsg)
OrigFileError = 104:': Error Saving Reactor Item:' : CRLF$ : ErrMsg
Status = 0 Status = 0
Record = '' Record = ''
ActionFlow = ACTION_STOP$ ActionFlow = ACTION_STOP$
@ -289,6 +293,3 @@ Restore_System_Variables:
return return