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)
RETURN
* * * * * * *
New:
* * * * * * *
@ -134,14 +132,11 @@ RETURN
Close:
* * * * * * *
*DEBUG
obj_Appwindow('CardReturn',@WINDOW)
RETURN
* * * * * * *
Read:
* * * * * * *
@ -168,9 +163,6 @@ RETURN
Clear:
* * * * * * *
*Send_Event(@WINDOW,'PAGE',1)
* * * * * * *
Refresh:
@ -208,32 +200,6 @@ END
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'
ETList = Get_Property(ETCtrl,'LIST')
ListCnt = COUNT(ETList,@FM) + (ETList NE '')
@ -291,6 +257,7 @@ end
RETURN
* * * * * * *
RITypeChange:
* * * * * * *
@ -422,12 +389,10 @@ END
RETURN
* * * * * * *
LUPartType:
* * * * * * *
RetVal = Popup(@WINDOW,'','RI_PART_TYPE')
IF RetVal NE '' THEN
@ -435,7 +400,6 @@ IF RetVal NE '' THEN
obj_Appwindow('LUValReturn',oaParms)
END
RETURN
@ -443,7 +407,6 @@ RETURN
LUTubeStyle: ;* Added by dkk 12/1/14
* * * * * * *
RetVal = Popup(@WINDOW,'','TUBE_STYLE')
IF RetVal NE '' THEN
@ -451,11 +414,9 @@ IF RetVal NE '' THEN
obj_Appwindow('LUValReturn',oaParms)
END
RETURN
* * * * * * *
LUMfrCd:
* * * * * * *
@ -481,13 +442,12 @@ IF RetVal NE '' THEN
obj_Appwindow('LUValReturn',oaParms)
END
RETURN
* * * * * * *
LUSuscSize:
* * * * * * *
RetVal = Popup(@WINDOW,'','WAFER_SIZES')
IF RetVal NE '' THEN
@ -495,7 +455,6 @@ IF RetVal NE '' THEN
obj_Appwindow('LUValReturn',oaParms)
END
RETURN
@ -509,7 +468,6 @@ If RIType EQ 'S' then
PocketQty = ''
Set_Property(@Window:'.PKT_QTY', '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')
IF RetVal NE '' THEN
oaParms = RetVal:@RM:@WINDOW:'.PKT_SIZE'
@ -532,9 +490,6 @@ If RIType EQ 'S' then
End Case
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
@ -625,14 +580,9 @@ PktSizeChange:
End Case
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
return

33
LSL2/STPROC/REACT_ITEM_ACTIONS.txt
View File

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