Index: BL/Legacy/EWPAL.cls.xml
===================================================================
diff -u -r73347 -r73477
--- BL/Legacy/EWPAL.cls.xml	(.../EWPAL.cls.xml)	(revision 73347)
+++ BL/Legacy/EWPAL.cls.xml	(.../EWPAL.cls.xml)	(revision 73477)
@@ -146,6 +146,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ResetS02CntNonProcedureBlock">
+<ClassMethod>1</ClassMethod>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	; Triggert het maken van EWPAL backup 1e keer CONTROL^EWPAL opgeroepen wordt
+	; Let op de ProcedureBlock = 0 setting voor deze method....
+	Set S02Cnt = 0
+]]></Implementation>
+</Method>
+
 <Method name="NachtelijkeStockSyncEWMS">
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
@@ -182,7 +192,8 @@
  	    Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(rs.Execute())
  	    Set rsIterator = ##class(TECH.ResultSetIterator).%New(rs)
  	    if rsIterator.HasNext {
-	 	    while rsIterator.HasNext(){
+	 	    Do ..ResetS02CntNonProcedureBlock()
+	 	    While rsIterator.HasNext(){
 		 	    #dim rsInventory as %ResultSet = rsIterator.Next()
 		 	    Kill C
 		 	    Set C("PRNR") = rsInventory.GetDataByName("PRNR")
@@ -196,10 +207,10 @@
 		 	    Set C("SECTIE") = rsInventory.GetDataByName("SECTIE")
 		 	    Do ##class(vhLib.Logger).%New().Info("EWMS Stockcontrole SQL CONTROL^EWPAL",$$ArrayToText^vhLib("C",.C))
 
-		 	    Do CONTROL^EWPAL(.C)	 	    
+		 	    Do CONTROL^EWPAL(.C)	;S02 record equivalent 	    
 	 	    }
 	 	    Do ##class(vhLib.Logger).%New().Info("EWMS Stockcontrole SQL","oproep ENDCTRL")
-	 	    Do ENDCTRL^EWPAL
+	 	    Do ENDCTRL^EWPAL      ;S03 record equivalent
  	    } else {
 	 	    Do ##class(vhLib.Logger).%New().Info("EWMS Stockcontrole SQL","Geen records gevonden")
  	    }
Index: vhCARETAKER.mac.rou
===================================================================
diff -u -r73468 -r73477
--- vhCARETAKER.mac.rou	(.../vhCARETAKER.mac.rou)	(revision 73468)
+++ vhCARETAKER.mac.rou	(.../vhCARETAKER.mac.rou)	(revision 73477)
@@ -1300,7 +1300,6 @@
 NachtelijkeControleEWMS ; Ophalen voorraad EWMS via SQL
 	try { 
  		Do InitRuntimeContext
- 		Kill S02Cnt ; maakt dat er een backup van huidige EWPAL getriggerd wordt bij eerste 'S02' record (CONTROL^EWPAL).
 		Do ##class(BL.Legacy.EWPAL).NachtelijkeStockSyncEWMS()
 	}
 	catch(Exceptie)