Index: OBJTimpl/WMSOrder/LPNEANCheckService.cls.xml
===================================================================
diff -u
--- OBJTimpl/WMSOrder/LPNEANCheckService.cls.xml	(revision 0)
+++ OBJTimpl/WMSOrder/LPNEANCheckService.cls.xml	(revision 69791)
@@ -0,0 +1,147 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="OBJTimpl.WMSOrder.LPNEANCheckService">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="SqlConnection">
+<Type>%SQLGatewayConnection</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ConfigMgr">
+<Type>TECH.Config.ConfigMgr</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ConfigMgr:TECH.Config.ConfigMgr=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ConfigMgr = $$$Inject(ConfigMgr,##class(TECH.Config.ConfigMgr).Instance())
+	Set ..SqlConnection = ..GeefSQLConnectie()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="%OnClose">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	if $IsObject(..SqlConnection){
+		do ..SqlConnection.Disconnect()
+	}
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantalProducten">
+<FormalSpec>LPN:%String</FormalSpec>
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[
+	#dim Status as %Status
+	#dim SqlStatement as %String = ""
+	#dim AantalProducten as %Numeric = 0
+	Set rs=##class(%ResultSet).%New("%DynamicQueryGW:SQLGW")
+	Set Status=""
+	Set SqlStatement="select count(distinct isnull(it.EANCODE,it.ID)) AANTAL"
+ 	_ " from  [vanhoecke].[dbo].[DCEREPORT_CONTAINERS] lpn "
+ 	_ " join [vanhoecke].[dbo].[DCEREPORT_PICK_ACTUALS] pa on pa.TO_CONTAINER_OID = lpn.oid"
+ 	_ " join [vanhoecke].[dbo].[DCEREPORT_ITEMS] it on pa.ITEM_OID = it.oid"
+ 	_ " where lpn.lpn = ? "
+
+	try {
+    	Do rs.Prepare(SqlStatement,,..SqlConnection)
+	    Do rs.Execute(LPN)    
+    } catch {
+	    do ..SqlConnection.Disconnect()
+	    do ##class(TECH.ExceptionHandler).Rethrow()
+    }
+    If rs.Next()
+    {
+	    Set AantalProducten=$G(rs.Data("AANTAL"))
+    }
+
+    Quit AantalProducten
+]]></Implementation>
+</Method>
+
+<Method name="IsLPN">
+<FormalSpec>LPN:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Status as %Status
+	#dim SqlStatement as %String = ""
+	#dim Aantal as %Numeric = 0
+	Set rs=##class(%ResultSet).%New("%DynamicQueryGW:SQLGW")
+	Set Status=""
+
+	Set SqlStatement="select count(*) AANTAL"
+	_ " from  [vanhoecke].[dbo].[DCEREPORT_CONTAINERS] lpn"
+	_ " where lpn.lpn = ? "
+
+	try {
+    	Do rs.Prepare(SqlStatement,,..SqlConnection)
+	    Do rs.Execute(LPN)    
+    } catch {
+	    do ..SqlConnection.Disconnect()
+	    do ##class(TECH.ExceptionHandler).Rethrow()
+    }
+    If rs.Next()
+    {
+	    Set Aantal=$G(rs.Data("AANTAL"))
+    }
+    Quit $$$Not(Aantal = 0)
+]]></Implementation>
+</Method>
+
+<Method name="GeefInfoVanLPNProduct">
+<FormalSpec>LPN:%String,ProductIdentificatie:%String</FormalSpec>
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[
+	#dim Status as %Status
+	#dim SqlStatement as %String = ""
+	#dim ProductAantal as %Numeric = 0
+	Set rs=##class(%ResultSet).%New("%DynamicQueryGW:SQLGW")
+	Set Status=""
+
+	Set SqlStatement="select it.description DESCRIPTION, sum(pa.qty) AANTAL"
+	_ " from  [vanhoecke].[dbo].[DCEREPORT_CONTAINERS] lpn"
+	_ " join [vanhoecke].[dbo].[DCEREPORT_PICK_ACTUALS] pa on pa.TO_CONTAINER_OID = lpn.oid"
+	_ " join [vanhoecke].[dbo].[DCEREPORT_ITEMS] it on pa.ITEM_OID = it.oid"
+	_ " where lpn.lpn = ? "
+	_ " and ( it.EANCODE = ? or it.ID = ? )"
+	_ " group by it.DESCRIPTION"
+
+	try {
+    	Do rs.Prepare(SqlStatement,,..SqlConnection)
+	    Do rs.Execute(LPN,ProductIdentificatie)    
+    } catch {
+	    do ..SqlConnection.Disconnect()
+	    do ##class(TECH.ExceptionHandler).Rethrow()
+    }
+        
+	Quit ##class(TECH.ResultSetIterator).%New(rs)
+]]></Implementation>
+</Method>
+
+<Method name="GeefSQLConnectie">
+<Private>1</Private>
+<ReturnType>%SQLGatewayConnection</ReturnType>
+<Implementation><![CDATA[
+	Set SqlConnection =##class(%SQLGatewayConnection).%New()
+    #dim OBJTSqlServer As %String = ..ConfigMgr.GeefString("OBJTimpl.DatasourceName")
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(SqlConnection.Connect(OBJTSqlServer,"",""))
+    Quit SqlConnection
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>