Index: BL/MB/UGLYPicking/OrderOpkuis.cls.xml
===================================================================
diff -u -r1074 -r2063
--- BL/MB/UGLYPicking/OrderOpkuis.cls.xml	(.../OrderOpkuis.cls.xml)	(revision 1074)
+++ BL/MB/UGLYPicking/OrderOpkuis.cls.xml	(.../OrderOpkuis.cls.xml)	(revision 2063)
@@ -15,14 +15,17 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
     Set EWMSConn=##class(%SQLGatewayConnection).%New()
- 	Set sc=EWMSConn.Connect(##class(TECH.Config.ConfigMgr).Instance().GetString("BL.MB.UGLYPicking.OrderOpkuis_ConnectToForDelete"),"dbo","dbo") 
+    Set EWMSServer = ##class(TECH.Config.ConfigMgr).Instance().GetString("EWMS.SQLGCWrapper_ConnectionDataSourceName")
+    set EMWSUsername = ##class(TECH.Config.ConfigMgr).Instance().GetString("EWMS.SQLGCWrapper_UserName")
+    set EWMSPassword = ##class(TECH.Config.ConfigMgr).Instance().GetString("EWMS.SQLGCWrapper_Password")
+ 	Set sc=EWMSConn.Connect(EWMSServer,EWMSUsername,EWMSPassword) 
     If $$$ISERR(sc) Do Error(sc) quit
 	Set sc=$$GetWMSOrders()
     Set WMSCONSNr=""
     Set sc=$$$OK
     For  Set WMSCONSNr=$O(WMSOrders(WMSCONSNr)) Quit:WMSCONSNr=""  Do  Quit:$$$ISERR(sc)
     . Set CONSNr=$$TranslateWMS2InternCONSNr(WMSCONSNr)
-    . Write !,WMSCONSNr,"->",CONSNr,"=",$D(^ORDW("D",CONSNr)),"*"
+    . ;Write !,WMSCONSNr,"->",CONSNr,"=",$D(^ORDW("D",CONSNr)),"*"
     . Quit:$D(^ORDW("D",CONSNr)) ; bestaat nog in ^ORDW
     . Set sc=..DeleteWMSOrder(WMSCONSNr,EWMSConn)
     If $$$ISERR(sc) Do Error(sc)
Index: BL/MB/UGLYPicking/ReceptieOpkuis.cls.xml
===================================================================
diff -u -r1133 -r2063
--- BL/MB/UGLYPicking/ReceptieOpkuis.cls.xml	(.../ReceptieOpkuis.cls.xml)	(revision 1133)
+++ BL/MB/UGLYPicking/ReceptieOpkuis.cls.xml	(.../ReceptieOpkuis.cls.xml)	(revision 2063)
@@ -14,8 +14,13 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
     Set EWMSConn=##class(%SQLGatewayConnection).%New()
- 	Set sc=EWMSConn.Connect(##class(TECH.Config.ConfigMgr).Instance().GetString("BL.MB.UGLYPicking.ReceptieOpkuis_ConnectToForDelete"),"dbo","dbo") 
-    If $$$ISERR(sc) Do Error(sc) quit
+ 	
+ 	Set EWMSConn=##class(%SQLGatewayConnection).%New()
+    Set EWMSServer = ##class(TECH.Config.ConfigMgr).Instance().GetString("EWMS.SQLGCWrapper_ConnectionDataSourceName")
+    set EMWSUsername = ##class(TECH.Config.ConfigMgr).Instance().GetString("EWMS.SQLGCWrapper_UserName")
+    set EWMSPassword = ##class(TECH.Config.ConfigMgr).Instance().GetString("EWMS.SQLGCWrapper_Password")
+ 	Set sc=EWMSConn.Connect(EWMSServer,EWMSUsername,EWMSPassword) 
+ 	If $$$ISERR(sc) Do Error(sc) quit
 
 	Set OrderNr = $J(RCPNr,7)
 	Set Batch = $J(TOENr,7)_"."_$J(TLUNr_"%%",7)
@@ -69,7 +74,10 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
     Set EWMSConn=##class(%SQLGatewayConnection).%New()
-	Set sc=EWMSConn.Connect(##class(TECH.Config.ConfigMgr).Instance().GetString("BL.MB.UGLYPicking.ReceptieOpkuis_ConnectToForDelete"),"dbo","dbo") 
+    Set EWMSServer = ##class(TECH.Config.ConfigMgr).Instance().GetString("EWMS.SQLGCWrapper_ConnectionDataSourceName")
+    set EMWSUsername = ##class(TECH.Config.ConfigMgr).Instance().GetString("EWMS.SQLGCWrapper_UserName")
+    set EWMSPassword = ##class(TECH.Config.ConfigMgr).Instance().GetString("EWMS.SQLGCWrapper_Password")
+ 	Set sc=EWMSConn.Connect(EWMSServer,EWMSUsername,EWMSPassword) 
     If $$$ISERR(sc) Do Error(sc,"Connectie opbouw") quit
 
 	Set OrderNr = $J(RCPNr,7)