Bypass validation for REACT_ITEMs being retired.

LSL2/STPROC/REACT_ITEM.txt

@@ -503,6 +503,7 @@ RETURN
 LUPktSize:
 * * * * * * *
 
+Retired = Get_Property(@Window: '.RETIRE_DT', 'TEXT')
 RIType = Get_Property(@Window:'.RI_TYPE', 'TEXT')
 If RIType EQ 'S' then
     PocketQty = ''
@@ -533,7 +534,7 @@ If RIType EQ 'S' then
             Set_Property(@Window:'.PKT_QTY', 'TEXT', PocketQty)
         END
     end else
-        ErrMsg('A valid Part Type (EPP, ASM, HTR) must be selected before selecting Pocket Size.')
+        If Retired EQ '' then ErrMsg('A valid Part Type (EPP, ASM, HTR) must be selected before selecting Pocket Size.')
     end
 end
 
@@ -597,6 +598,7 @@ RETURN
 
 PktSizeChange:
     
+    Retired = Get_Property(@Window: '.RETIRE_DT', 'TEXT')
     RIType = Get_Property(@Window:'.RI_TYPE', 'TEXT')
     If RIType EQ 'S' then
         PocketQty = ''
@@ -624,12 +626,13 @@ PktSizeChange:
                 End Case
                 Set_Property(@Window:'.PKT_QTY', 'TEXT', PocketQty)
             end else
-                ErrMsg('A valid Pocket Size (6 or 8 in.) is required.')
+                 If Retired EQ '' then ErrMsg('A valid Pocket Size (6 or 8 in.) is required.')
             end
         end else
-            ErrMsg('A valid Part Type (EPP, ASM, HTR) must be selected before selecting Pocket Size.')
+             If Retired EQ '' then ErrMsg('A valid Part Type (EPP, ASM, HTR) must be selected before selecting Pocket Size.')
         end
     end
     
     
 return
+

LSL2/STPROC/REACT_ITEM_ACTIONS.txt

@@ -136,7 +136,16 @@ return
 WRITE_RECORD_PRE:
    
     ErrMsg = ''
+    OrigRetireDt = OrigRecord<REACT_ITEM_RETIRE_DT$>
+    NewRetireDt  = Record<REACT_ITEM_RETIRE_DT$>
     
+    If OrigRetireDt EQ '' AND NewRetireDt NE '' then
+        RetireBypass = True$
+    end else
+        RetireBypass = False$
+    end
+        
+    If RetireBypass EQ False$ then
         // Req'd parameter checks
         ItemType = {RI_TYPE}
 
@@ -189,6 +198,7 @@ WRITE_RECORD_PRE:
                 end
             end
         end
+    end
 
     If ErrMsg NE ''  then
         Error_Services('Add', 'Error Saving Reactor Item: ' : ErrMsg)
@@ -197,8 +207,6 @@ WRITE_RECORD_PRE:
         Record        = ''
         ActionFlow    = ACTION_STOP$
     end else
-        OrigRetireDt = OrigRecord<REACT_ITEM_RETIRE_DT$>
-        NewRetireDt  = Record<REACT_ITEM_RETIRE_DT$>
         OrigNotes    = OrigRecord<REACT_ITEM_NOTES$>
         NewNotes     = Record<REACT_ITEM_NOTES$>
         If ( (OrigRetireDt NE NewRetireDt) or (OrigNotes NE NewNotes) ) then
@@ -283,3 +291,4 @@ return
 
 
 
+