AdditionalChanges

LSL2/POPUP/NCR_QUERY.json

@@ -107,10 +107,10 @@
                 },
                 "<9,10>": {
                     "<9,10,1>": "SHIFT",
-                    "<9,10,2>": "6",
+                    "<9,10,2>": "20",
-                    "<9,10,3>": "C",
+                    "<9,10,3>": "L",
                     "<9,10,4>": "C",
-                    "<9,10,5>": "MD0",
+                    "<9,10,5>": "<<none>>",
                     "<9,10,6>": "Shift"
                 },
                 "<9,11>": {
@@ -146,8 +146,18 @@
             "<31>": "0",
             "<32>": "0",
             "<33>": "0",
-            "<34>": "16777215",
+            "<34>": "-2",
-            "<35>": "16777215"
+            "<35>": "-2",
+            "<36>": "",
+            "<37>": "",
+            "<38>": "",
+            "<39>": "",
+            "<40>": "-2",
+            "<41>": "1000",
+            "<42>": "",
+            "<43>": "",
+            "<44>": "",
+            "<45>": ""
         }
     }
 }

LSL2/STPROC/COMM_NCR_QUERY.txt

@@ -312,10 +312,22 @@ IF CausedBy	THEN SearchStr<-1> = 'LOSS_BY':@VM:CausedBy
 
 Shifts = ''			;* * * * * *  Teams (Shift)
 
-IF TeamA THEN Shifts<1,-1> = 'A'
+IF TeamA THEN
-IF TeamB THEN Shifts<1,-1> = 'B'	
+    Shifts<1,-1> = 'A'
-IF TeamC THEN Shifts<1,-1> = 'C'
+    Shifts<1,-1> = '1'
-IF TeamD THEN Shifts<1,-1> = 'D'
+end
+IF TeamB THEN
+    Shifts<1,-1> = 'B'
+    Shifts<1,-1> = '2'
+end
+IF TeamC THEN
+    Shifts<1,-1> = 'C'
+    Shifts<1,-1> = '3'
+end
+IF TeamD THEN
+    Shifts<1,-1> = 'D'
+    Shifts<1,-1> = '4'
+end
 
 IF Shifts NE '' THEN SearchStr<-1> = 'SHIFT':@VM:Shifts
 

LSL2/STPROC/NCR_ACTIONS.txt

@@ -152,6 +152,23 @@ READ_RECORD:
 	//    OrigFileError   = 100 : @FM : KeyID
 	//    Status          = 0
 	//    Record          = ''
+	If {SHIFT} then
+	    Begin Case
+	        Case {SHIFT} EQ 1
+	            Record<NCR_SHIFT$> = 'A'
+	        Case {SHIFT} EQ 2
+	            Record<NCR_SHIFT$> = 'B'
+	        Case {SHIFT} EQ 3
+	            Record<NCR_SHIFT$> = 'C'
+	        Case {SHIFT} EQ 4
+	            Record<NCR_SHIFT$> = 'D'
+	        Case {SHIFT} EQ 5
+	            Record<NCR_SHIFT$> = '5'
+	        Case Otherwise$
+	            Null
+	    End Case
+	end
+	
 return
 
 READONLY_RECORD_PRE:
@@ -169,6 +186,23 @@ READONLY_RECORD:
 	//    OrigFileError   = 100 : @FM : KeyID
 	//    Status          = 0
 	//    Record          = ''
+	
+	If {SHIFT} then
+	    Begin Case
+	        Case {SHIFT} EQ 1
+	            Record<NCR_SHIFT$> = 'A'
+	        Case {SHIFT} EQ 2
+	            Record<NCR_SHIFT$> = 'B'
+	        Case {SHIFT} EQ 3
+	            Record<NCR_SHIFT$> = 'C'
+	        Case {SHIFT} EQ 4
+	            Record<NCR_SHIFT$> = 'D'
+	        Case {SHIFT} EQ 5
+	            Record<NCR_SHIFT$> = '5'
+	        Case Otherwise$
+	            Null
+	    End Case
+	end
 return
 
 WRITE_RECORD_PRE:
@@ -177,6 +211,22 @@ WRITE_RECORD_PRE:
 	CassNo      = {WO_MAT_CASS_NO}
 	WoMatKey    = WorkOrderNo : '*' : CassNo
 	SAPBatchNo  = Xlate('WO_MAT', WOMatKey, 'SAP_BATCH_NO', 'X')
+	If {SHIFT} then
+	    Begin Case
+	        Case {SHIFT} EQ 1
+	            Record<NCR_SHIFT$> = 'A'
+	        Case {SHIFT} EQ 2
+	            Record<NCR_SHIFT$> = 'B'
+	        Case {SHIFT} EQ 3
+	            Record<NCR_SHIFT$> = 'C'
+	        Case {SHIFT} EQ 4
+	            Record<NCR_SHIFT$> = 'D'
+	        Case {SHIFT} EQ 5
+	            Record<NCR_SHIFT$> = '5'
+	        Case Otherwise$
+	            Null
+	    End Case
+	end
 	If SAPBatchNo NE '' then
 		NCRNo      = Name
 		OrigRejQty = Sum(obj_NCR('RejQty',NCRNo:@RM:OrigRecord))
@@ -759,3 +809,4 @@ LogRecord:
 return
 
 
+