Index: vhCARETAKER.mac.rou
===================================================================
diff -u -r72971 -r73347
--- vhCARETAKER.mac.rou	(.../vhCARETAKER.mac.rou)	(revision 72971)
+++ vhCARETAKER.mac.rou	(.../vhCARETAKER.mac.rou)	(revision 73347)
@@ -491,7 +491,6 @@
 	}
 	Quit
 	
-	
 ProductAfbeeldingControle ; Verstuurd bestand met producten waar afbeeldingen ontbreken
 	try { 
  		Do InitRuntimeContext
@@ -1297,6 +1296,18 @@
 		Do OnError
 	}
 	Quit
+	
+NachtelijkeControleEWMS ; Ophalen voorraad EWMS via SQL
+	try { 
+ 		Do InitRuntimeContext
+		Do ##class(BL.Legacy.EWPAL).NachtelijkeStockSyncEWMS()
+	}
+	catch(Exceptie)
+	{
+		do OnError
+	}
+	Quit
+
 		
 OnError 
 	set $ztrap="EndErrorTrapping"
Index: BL/Legacy/EWPAL.cls.xml
===================================================================
diff -u -r61999 -r73347
--- BL/Legacy/EWPAL.cls.xml	(.../EWPAL.cls.xml)	(revision 61999)
+++ BL/Legacy/EWPAL.cls.xml	(.../EWPAL.cls.xml)	(revision 73347)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="BL.Legacy.EWPAL">
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
 <Method name="GeefOrderIDsVanProductOpDrager">
 <ClassMethod>1</ClassMethod>
@@ -145,6 +145,74 @@
 	Quit Result
 ]]></Implementation>
 </Method>
+
+<Method name="NachtelijkeStockSyncEWMS">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	do ##class(vhLib.OldSchool).InitVars()
+	Do ##class(vhLib.Logger).%New().Info("EWMS Stockcontrole SQL","Opstart")
+	Set rs=##class(%ResultSet).%New("%DynamicQueryGW:SQLGW")
+	#dim Status as %String = ""
+	#Dim SqlStatement as %String = ""
+	#dim ConsolidatieNummer as %String = ""
+
+	#Dim SqlString as %String = "select " _  $$$CRLF
+	Set SqlString = SqlString _ "inv.product as PRNR," _  $$$CRLF
+	Set SqlString = SqlString _ "inv.qty_pcs as AANTAL," _  $$$CRLF
+	Set SqlString = SqlString _ "(select SUM(inv2.qty_pcs) from inventory inv2 where inv2.product = inv.product) as TOTFYSSTOCK," _  $$$CRLF
+	Set SqlString = SqlString _ "loc.loc_id as PALETID," _  $$$CRLF
+	Set SqlString = SqlString _ "REPLACE(STR(loc.loc_m, 3) + STR(loc.loc_g, 3)+STR(loc.loc_x, 3) +STR(loc.loc_y, 3)+STR(loc.loc_z, 3)  , SPACE(1), '0')  as STOCKAGEPLAATS," _  $$$CRLF
+	Set SqlString = SqlString _ "0 as GEWICHT," _  $$$CRLF
+	Set SqlString = SqlString _ "' ' as SAMPLETYPE," _  $$$CRLF
+	Set SqlString = SqlString _ "replace(replace(convert(char(19),loc.insert_time,112),'-',''),'.','') as DATUM," _  $$$CRLF
+	Set SqlString = SqlString _ "inv.section as SECTIE" _  $$$CRLF
+	Set SqlString = SqlString _ "FROM inventory inv " _  $$$CRLF
+	Set SqlString = SqlString _ "join locations loc on loc.loc_id = inv.loc_id " _  $$$CRLF
+	Do ##class(vhLib.Logger).%New().Info("EWMS Stockcontrole SQL",SqlString)
+	
+    try {
+		Set SqlConnection =##class(%SQLGatewayConnection).%New()
+	    #dim EWMSServer as %String = ##class(TECH.Config.ConfigMgr).Instance().GetString("EWMS.SQLGCWrapper_ConnectionDataSourceName")
+	    #dim EWMSUsername as %String = ##class(TECH.Config.ConfigMgr).Instance().GetString("EWMS.SQLGCWrapper_UserName")
+	    #dim EWMSPassword as %String = ##class(TECH.Config.ConfigMgr).Instance().GetString("EWMS.SQLGCWrapper_Password")
+
+		Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(SqlConnection.Connect(EWMSServer,EWMSUsername,EWMSPassword) )
+	    Set rs=##class(%ResultSet).%New("%DynamicQueryGW:SQLGW")
+    	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(rs.Prepare(SqlString,,SqlConnection))    
+ 	    Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(rs.Execute())
+ 	    Set rsIterator = ##class(TECH.ResultSetIterator).%New(rs)
+ 	    if rsIterator.HasNext {
+	 	    while rsIterator.HasNext(){
+		 	    #dim rsInventory as %ResultSet = rsIterator.Next()
+		 	    Kill C
+		 	    Set C("PRNR") = rsInventory.GetDataByName("PRNR")
+		 	    Set C("AANTAL") = rsInventory.GetDataByName("AANTAL")
+		 	    Set C("TOTFYSSTOCK") = rsInventory.GetDataByName("TOTFYSSTOCK")
+		 	    Set C("PALETID") = rsInventory.GetDataByName("PALETID")
+		 	    Set C("GEWICHT") = rsInventory.GetDataByName("GEWICHT")
+		 	    Set C("SAMPLETYPE") = rsInventory.GetDataByName("SAMPLETYPE")
+		 	    Set C("STOCKAGEPLAATS") = rsInventory.GetDataByName("STOCKAGEPLAATS")
+		 	    Set C("DATUM") = rsInventory.GetDataByName("DATUM")
+		 	    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 ##class(vhLib.Logger).%New().Info("EWMS Stockcontrole SQL","oproep ENDCTRL")
+	 	    Do ENDCTRL^EWPAL
+ 	    } else {
+	 	    Do ##class(vhLib.Logger).%New().Info("EWMS Stockcontrole SQL","Geen records gevonden")
+ 	    }
+ 	    
+    } catch {
+	    do SqlConnection.Disconnect()
+	    do ##class(TECH.ExceptionHandler).Rethrow()
+    }
+    
+    
+    do SqlConnection.Disconnect()
+]]></Implementation>
+</Method>
 </Class>