Added new form the adjust wafer quantity on lot

LSL2/STPROC/LOT_SERVICES.txt

@@ -1081,6 +1081,8 @@ Service ReduceLotWaferCount(LotId, ReductionQty)
     ErrorMessage = ''
     If RowExists('LOT', LotId) then
         LotRec        = Database_Services('ReadDataRow', 'LOT', LotId, True$, 0, False$)
+        LotHold       = LotRec<LOT_HOLD$>
+        LotOpen       = LotRec<LOT_OPEN$>
         LotCurrWfrQty = LotRec<LOT_WAFER_QTY$>
         LotNewWfrQty  = LotCurrWfrQty - ReductionQty
         If LotNewWfrQty LE 25 AND LotNewWfrQty GE 0 then
@@ -1109,22 +1111,34 @@ Service IncreaseLotWaferCount(LotId, IncreaseQty)
     ErrorMessage = ''
     If RowExists('LOT', LotId) then
         LotRec        = Database_Services('ReadDataRow', 'LOT', LotId, True$, 0, False$)
-        LotCurrWfrQty = LotRec<LOT_WAFER_QTY$>
+        LotHold       = LotRec<LOT_HOLD$>
-        LotNewWfrQty  = LotCurrWfrQty + IncreaseQty
+        LotOpen       = LotRec<LOT_OPEN$>
-        If LotNewWfrQty LE 25 AND LotNewWfrQty GT 0 then
+        if LotOpen then
-            LotRec<LOT_WAFER_QTY$> = LotNewWfrQty
+            If Not(LotHold) then
-            Database_Services('WriteDataRow', 'LOT', LotId, LotRec, True$, False$, False$)
+                LotCurrWfrQty = LotRec<LOT_WAFER_QTY$>
-            If Error_Services('HasError') then
+                LotNewWfrQty  = LotCurrWfrQty + IncreaseQty
-                ErrorMessage = 'Error in Increase Lot Wafer Count service, Error writing Lot Id ' : LotId : ' with new quantity.'
+                
+                If LotNewWfrQty LE 25 AND LotNewWfrQty GT 0 then
+                    LotRec<LOT_WAFER_QTY$> = LotNewWfrQty
+                    Database_Services('WriteDataRow', 'LOT', LotId, LotRec, True$, False$, False$)
+                    If Error_Services('HasError') then
+                        ErrorMessage = 'Error in Increase Lot Wafer Count service, Error writing Lot Id ' : LotId : ' with new quantity.'
+                    end
+                end else
+                    Begin Case
+                        Case LotNewWfrQty GT 25
+                            ErrorMessage = 'Error in Increase Lot Wafer Count service, Lot Id ' : LotId : ' cannot have a quantity great than 25.'
+                        Case LotNewWfrQty LT 0
+                            ErrorMessage = 'Error in Increase Lot Wafer Count service, Lot Id ' : LotId : ' cannot have a quantity less than 0.'
+                    End Case
+                end    
+            end else
+                ErrorMessage = 'Error in Increase Lot Wafer Count service, Lot Id ' : LotId : ' is currently on hold.'
             end
         end else
-            Begin Case
+            ErrorMessage = 'Error in Increase Lot Wafer Count service, Lot Id ' : LotId : ' is closed.'
-                Case LotNewWfrQty GT 25
-                    ErrorMessage = 'Error in Increase Lot Wafer Count service, Lot Id ' : LotId : ' cannot have a quantity great than 25.'
-                Case LotNewWfrQty LT 0
-                    ErrorMessage = 'Error in Increase Lot Wafer Count service, Lot Id ' : LotId : ' cannot have a quantity less than 0.'
-            End Case
         end
+        
     end else
        ErrorMessage = 'Error in Increase Lot Wafer Count service, Lot Id ' : LotId : ' not found in lot table.' 
     end
@@ -1135,3 +1149,4 @@ end service
 
 
 
+

LSL2/STPROC/NDW_ADJUST_LOT_QTY_EVENTS.txt

@@ -0,0 +1,143 @@
+Compile function NDW_ADJUST_LOT_QTY_EVENTS(CtrlEntId, Event, @PARAMS)
+#pragma precomp SRP_PreCompiler
+#window NDW_ADJUST_LOT_QTY
+
+Declare function MemberOf, Database_Services, Error_Services, Datetime
+Declare subroutine PlaceDialog, Database_Services, Lot_Services
+$Insert App_Inserts
+$Insert Lot_Equates
+
+GoToEvent Event for CtrlEntId else
+    // Event not implemented
+end
+
+Return EventFlow or 1
+
+//-----------------------------------------------------------------------------
+// EVENT HANDLERS
+//-----------------------------------------------------------------------------
+
+Event WINDOW.CREATE(CreateParam)
+    debug
+    PermissionAllowed = False$
+    Begin Case
+        Case MemberOf(@User4, 'ENGINEERING')
+            PermissionAllowed = True$
+        Case MemberOf(@User4, 'LEAD')
+            PermissionAllowed = True$
+        Case MemberOf(@User4, 'SUPERVISOR')
+            PermissionAllowed = True$
+        Case MemberOf(@User4, 'OI_ADMIN')
+            PermissionsAllowed = True$
+        Case Otherwise$
+            PermissionAllowed = False$
+    End Case
+    
+    If PermissionAllowed then
+        PlaceDialog(-2, -2)
+        Set_Property(@Window, 'VISIBLE', 1)
+        LotNo = CreateParam
+        If LotNo NE '' then
+            GoSub GetLotCurrData
+        end else
+            Set_Property(@Window : '.PUB_SEARCH_LOT', 'VISIBLE', True$)
+        end
+    end else
+        Result    = ''
+        Result<1> = False$
+        End_Dialog(@Window, Result)
+    end
+    
+    
+End Event
+
+Event Window.CLOSE(CancelFlag, CloseFlags)
+    Result      = ''
+    Result<1>   = False$
+    End_Dialog(@Window, Result)
+end event
+
+Event EDL_NEW_LOT_WFR_QTY.CHANGED(NewLotQty)
+    NewLotQty = Get_Property(@Window : '.EDL_NEW_LOT_WFR_QTY', 'TEXT')
+    If Num(NewLotQty) then
+        If NewLotQty LE 25 AND NewLotQty GE 0 then
+            Set_Property(@Window : '.PUB_SUBMIT', 'ENABLED', True$)
+        end else
+            msg(@Window, 'New wafer quantity value must be a number between 0 and 25.')
+        end
+    end else
+        If NewLotQty NE '' then
+            msg(@Window, 'New wafer quantity value must be a number between 0 and 25.')
+        end
+    end
+end event
+
+Event EDL_LOT_NO.CHANGED(LotNo)
+    LotIdString = Get_Property(@Window : '.EDL_LOT_NO', 'TEXT')
+    Begin Case
+        Case LotIdString[1, 4] EQ '1TTW'
+            Set_Property(@Window : '.EDL_LOT_NO', 'TEXT', LotIdString[3, 999])
+        Case LotIdString[1, 2] EQ '1T'
+            Set_Property(@Window : '.EDL_LOT_NO', 'TEXT', LotIdString[3, 999])
+    End Case
+end event
+
+Event PUB_SEARCH_LOT.CLICK()
+    LotNo = Get_Property(@Window : '.EDL_LOT_NO', 'TEXT')
+    If LotNo NE '' then
+        GoSub GetLotCurrData
+    end
+end event
+
+Event PUB_SUBMIT.CLICK()
+    debug
+    LotId            = Get_Property(@Window : '.EDL_LOT_NO', 'TEXT')
+    NewWfrQty        = Get_Property(@Window : '.EDL_NEW_LOT_WFR_QTY', 'TEXT')
+    LotType          = Database_Services('ReadDataColumn', 'LOT', LotId, LOT_TYPE$, True$, 0, False$)
+    CurrWfrQty       = Database_Services('ReadDataColumn', 'LOT', LotId, LOT_WAFER_QTY$, True$, 0, False$)
+    AmountToDecrease = 0
+    AmountToIncrease = 0
+    If NewWfrQty NE CurrWfrQty then
+        Begin Case
+            Case NewWfrQty LT CurrWfrQty
+                AmountToDecrease = CurrWfrQty - NewWfrQty
+                Lot_Services('CreateLotEvent', LotId, LotType, Datetime(), 'REDUCE_WAFER_QTY', 'Adjust wafer count by ' : AmountToDecrease, '', AmountToDecrease, 0, '', @User4)
+            Case NewWfrQty GT CurrWfrQty
+                AmountToIncrease = NewWfrQty - CurrWfrQty
+                Lot_Services('CreateLotEvent', LotId, LotType, Datetime(), 'BONUS_WAFER_QTY', 'Adjust wafer count by ' : AmountToIncrease, '', 0, AmountToIncrease, '', @User4)
+        End Case
+        If Error_Services('NoError') then
+            msg(@Window, 'Wafer quantity adjusted successfully!')
+            Result    = ''
+            Result<1> = True$
+            End_Dialog(@Window, Result)
+        end else
+            ErrorMessage = Error_Services('GetMessage')
+            msg(@Window, 'Error Adjusting wafer quantity, ' : ErrorMessage)
+        end
+    end
+    
+end event
+
+Event PUB_CANCEL.CLICK()
+    Result      = ''
+    Result<1>   = False$
+    End_Dialog(@Window, Result)
+end event
+
+GetLotCurrData:
+    If RowExists('LOT', LotNo) then
+        Set_Property(@Window : '.EDL_LOT_NO', 'TEXT', LotNo)
+        LotRec = Database_Services('ReadDataRow', 'LOT', LotNo, True$, 0, False$)
+        If LotRec NE '' then
+            LotCurrWfrQty = LotRec<LOT_WAFER_QTY$>
+            Set_Property(@Window : '.EDL_CURR_WFR_QTY', 'TEXT', LotCurrWfrQty)
+        end else
+           msg(@Window, 'Error reading lot number ' : LotNo : '!') 
+        end
+    end else
+        msg(@Window, 'Lot number ' : LotNo : ' not found!')
+    end
+return
+
+