pre cutover push

LSL2/STPROC/WO_MAT_ACTIONS.txt

@@ -242,12 +242,6 @@ READ_RECORD:
     //    OrigFileError   = 100 : @FM : KeyID
     //    Status          = 0
     //    Record          = ''
-    *    LockOwner = Record<WO_MAT_LOCKED_BY$>
-    *    If LockOwner EQ '' then Record<WO_MAT_LOCKED_BY$> = @User4
-    *    If @User4 EQ 'DANIEL_ST' then
-    *        Database_Services('WriteDataRow', 'LOCKS', @Station:'*WO_MAT*':Name, '')
-    *    end
-    
 return
 
 READONLY_RECORD_PRE:
@@ -269,10 +263,9 @@ return
 
 WRITE_RECORD_PRE:
     
-    WOMatKeyID      = Name
-    
-    OrigRDSNo = OrigRecord<WO_MAT_RDS_NO$>
-    NewRDSNo  = Record<WO_MAT_RDS_NO$>
+    WOMatKeyID = Name    
+    OrigRDSNo  = OrigRecord<WO_MAT_RDS_NO$>
+    NewRDSNo   = Record<WO_MAT_RDS_NO$>
     
     If OrigRDSNo NE '' and NewRDSNo EQ '' and Not(MemberOf(@User4, 'OI_ADMIN')) then
         
@@ -532,6 +525,22 @@ WRITE_RECORD_PRE:
         obj_Notes('Create',Parms)
     end
     
+    If {REACTOR_TYPE} EQ 'EPP' then
+        WMKey                   = Field(Name, '*', 1):'*1*':Field(Name, '*', 2)
+        // Only set fields if the records exist, otherwise WO_MAT curr status can be calculated incorrectly.
+        If RowExists('WM_IN', WMKey)  then Record<WO_MAT_WMI_KEY$> = WMKey
+        If RowExists('WM_OUT', WMKey) then Record<WO_MAT_WMO_KEY$> = WMKey
+        SaveRecord                = Record
+    end
+    
+    SigProf                   = Record<WO_MAT_SIG_PROFILE$>
+    Sigs                      = Record<WO_MAT_SIGNATURE$>
+    SigDtms                   = Record<WO_MAT_SIG_DTM$>
+    NumSteps                  = DCount(SigProf, @VM)
+    Record<WO_MAT_SIGNATURE$> = Field(Sigs, @VM, 1, NumSteps)
+    Record<WO_MAT_SIG_DTM$>   = Field(SigDtms, @VM, 1, NumSteps)
+    SaveRecord                = Record
+    
 return
 
 WRITE_RECORD:
@@ -677,7 +686,9 @@ WRITE_RECORD:
     //second part of below if statement
     If ( (MakeupBox EQ True$) and ( (MakeupBoxOrig EQ False$) or (MakeupBoxOrig EQ '') ) and (SAPBatchNo EQ '') ) then
         // Send CASS_COMP SAP transaction
-        SAP_Services('AddCassCompTransaction', WOMatKeyID)
+        IF (WONo NE 172758) AND (WONo NE 172739) AND (WONo NE 172767) then
+        	SAP_Services('AddCassCompTransaction', WOMatKeyID)
+        end
     end
     
     SAPTestFlag = Xlate('APP_INFO', 'SAP_TEST_FLAG', 1, 'X')
@@ -822,7 +833,3 @@ Restore_System_Variables:
 return
 
 
-
-
-
-