Index: OBJTimpl/WMSOrder/LPNEANCheckService.cls.xml
===================================================================
diff -u -r69811 -r69870
--- OBJTimpl/WMSOrder/LPNEANCheckService.cls.xml	(.../LPNEANCheckService.cls.xml)	(revision 69811)
+++ OBJTimpl/WMSOrder/LPNEANCheckService.cls.xml	(.../LPNEANCheckService.cls.xml)	(revision 69870)
@@ -79,31 +79,50 @@
 	#dim Status as %Status
 	#dim SqlStatement as %String = ""
 	#dim Aantal as %Numeric = 0
+	#dim IsLPN as %Boolean = $$$False
 	Set rs=##class(%ResultSet).%New("%DynamicQueryGW:SQLGW")
 	Set Status=""
 
-	Set SqlStatement="select count(*) AANTAL"
-	_ " from [vanhoecke].[dbo].[OBJT_CONTAINERSTORAGEITEMQTY] csitq"
-	_ " join [vanhoecke].[dbo].[OBJT_WAREHOUSELOCATION] location on location.OID = csitq.WAREHOUSELOCATIONOID"
-	_ " join OBJT_WAREHOUSE wh on wh.OID = location.WAREHOUSEOID"
-	_ " where csitq.NAME = ? "
-	_ " and wh.NAME in ('KLZ','AFZ','Kardex')"
+	// eerst omzeilen van LPN met een EAN als id (aantal legborden).
+	Set SqlStatement = "select count(*) AANTAL"
+	_ " from [vanhoecke].[dbo].[DCEREPORT_ITEMS] it"
+	_ " where it.EANCODE = ? or it.ID = ? "
 
-
-
 	try {
     	Do rs.Prepare(SqlStatement,,..SqlConnection)
-	    Do rs.Execute(LPN)    
+	    Do rs.Execute(LPN,LPN)    
     } catch {
 	    do ..SqlConnection.Disconnect()
 	    do ##class(TECH.ExceptionHandler).Rethrow()
     }
     If rs.Next()
     {
 	    Set Aantal=$G(rs.Data("AANTAL"))
+
     }
     
-    Quit $$$Not(Aantal = 0)
+	if Aantal = 0 {
+		Set SqlStatement="select count(*) AANTAL"
+		_ " from [vanhoecke].[dbo].[OBJT_CONTAINERSTORAGEITEMQTY] csitq"
+		_ " join [vanhoecke].[dbo].[OBJT_WAREHOUSELOCATION] location on location.OID = csitq.WAREHOUSELOCATIONOID"
+		_ " join OBJT_WAREHOUSE wh on wh.OID = location.WAREHOUSEOID"
+		_ " where csitq.NAME = ? "
+		_ " and wh.NAME in ('KLZ','AFZ','Kardex')"
+
+		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"))
+	    }
+	    Set IsLPN = $$$Not(Aantal = 0)
+	}    
+    Quit IsLPN
 ]]></Implementation>
 </Method>