Index: APPS/MAG/InventarisService.cls.xml
===================================================================
diff -u
--- APPS/MAG/InventarisService.cls.xml	(revision 0)
+++ APPS/MAG/InventarisService.cls.xml	(revision 1893)
@@ -0,0 +1,98 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.MAG.InventarisService">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefProductenOpPallet">
+<FormalSpec>PalletID:%String</FormalSpec>
+<ReturnType>APPS.MAG.Inventaris.dto.ProductenOpPallet</ReturnType>
+<Implementation><![CDATA[
+	Set ProductenOpPallet = ##class(APPS.MAG.Inventaris.dto.ProductenOpPallet).%New()
+	
+	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	
+	Set ResultSet = ##class(%ResultSet).%New()
+	Do ResultSet.Prepare("SELECT rtrim(product) as ProductID, CAST(qty_pcs AS INT) as Aantal, loc_m, (SELECT count(1) FROM EWMS.Inventory WHERE loc_id = I.loc_id) as AantalSecties FROM EWMS.Inventory I WHERE loc_id = ? AND loc_m < 5")
+	Do ResultSet.Execute(PalletID)
+	While (ResultSet.Next())
+	{
+		Set ProductID = ResultSet.Data("ProductID")
+		Set ProductOpPallet = ##class(APPS.MAG.Inventaris.dto.ProductOpPallet).%New()
+		Set ProductOpPallet.ProductID = ProductID
+		Set ProductOpPallet.Aantal = ResultSet.Data("Aantal")
+		Set ProductOpPallet.PalletID = PalletID
+		Set ProductOpPallet.Korttekst = ProductAPI.GeefProduct(ProductID).GeefKorttekst()
+		Set ProductOpPallet.MagazijnOmschrijving = ##class(Prod.Product).GetMagViaOpslagzone(ResultSet.Data("loc_m"))
+		Set ProductOpPallet.AantalSecties = ResultSet.Data("AantalSecties")
+		Do ProductenOpPallet.Insert(ProductOpPallet)
+	}
+	Do ResultSet.Close()
+	
+	// Ophalen in welke magazijnen dit product aanwezig is, dit moet achteraf gebeuren.
+	// Indien dit in de lus hierboven gebeurt dan geeft dit problemen (waarschijnlijk omdat dit niet over dezelfde connectie kan?).
+	Set ProductOpPalletIterator = ##class(TECH.ListIterator).%New(ProductenOpPallet)
+	While (ProductOpPalletIterator.HasNext())
+	{
+		Set ProductOpPallet = ProductOpPalletIterator.Next()
+		Set ProductOpPallet.AanwezigInMagazijnen = ..GeefAanwezigInMagazijnen(ProductOpPallet.ProductID)
+	}
+	
+	Quit ProductenOpPallet
+]]></Implementation>
+</Method>
+
+<Method name="GeefPallettenMetProduct">
+<FormalSpec>ProductID:%String</FormalSpec>
+<ReturnType>APPS.MAG.Inventaris.dto.ProductenOpPallet</ReturnType>
+<Implementation><![CDATA[
+	Set ProductenOpPallet = ##class(APPS.MAG.Inventaris.dto.ProductenOpPallet).%New()
+	
+	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	
+	Set ResultSet = ##class(%ResultSet).%New()
+	Do ResultSet.Prepare("SELECT CAST(qty_pcs AS INT) as Aantal, loc_id As PalletID, loc_m, (SELECT count(1) FROM EWMS.Inventory WHERE loc_id = I.loc_id GROUP BY loc_id) as AantalSecties"
+							_" FROM EWMS.Inventory I WHERE product = ? AND loc_m < 5")
+	Do ResultSet.Execute(ProductID)
+	While (ResultSet.Next())
+	{
+		Set ProductOpPallet = ##class(APPS.MAG.Inventaris.dto.ProductOpPallet).%New()
+		Set ProductOpPallet.ProductID = ProductID
+		Set ProductOpPallet.Aantal = ResultSet.Data("Aantal")
+		Set ProductOpPallet.PalletID = ResultSet.Data("PalletID")
+		Set ProductOpPallet.Korttekst = ProductAPI.GeefProduct(ProductID).GeefKorttekst()
+		Set ProductOpPallet.MagazijnOmschrijving = ##class(Prod.Product).GetMagViaOpslagzone(ResultSet.Data("loc_m"))
+		Set ProductOpPallet.AantalSecties = ResultSet.Data("AantalSecties")
+		Do ProductenOpPallet.Insert(ProductOpPallet)
+	}
+	Do ResultSet.Close()
+	
+	Quit ProductenOpPallet
+]]></Implementation>
+</Method>
+
+<Method name="GeefAanwezigInMagazijnen">
+<FormalSpec>ProductID:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set AanwezigInMagazijnen = ##class(%ListOfObjects).%New()
+	Set ResultSet = ##class(%ResultSet).%New()
+	Do ResultSet.Prepare("SELECT loc_m as MagazijnID, count(1) as AantalPalletten FROM EWMS.Inventory WHERE product = ? AND loc_m < 5 GROUP BY loc_m")
+	Do ResultSet.Execute(ProductID)
+	While (ResultSet.Next())
+	{
+		Set AanwezigInMagazijn = ##class(APPS.MAG.Inventaris.dto.AanwezigInMagazijn).%New()
+		Set AanwezigInMagazijn.AantalPalletten = ResultSet.Data("AantalPalletten")
+		Set AanwezigInMagazijn.MagazijnCode = ##class(BL.MB.UGLYPicking.General).GetShortMagazijn(ResultSet.Data("MagazijnID"))
+		Set AanwezigInMagazijn.MagazijnID = ##class(BL.MB.UGLYPicking.General).GetShortMagazijn(ResultSet.Data("MagazijnID"))
+		Do AanwezigInMagazijnen.Insert(AanwezigInMagazijn)
+	}
+	Do ResultSet.Close()
+	
+	Quit AanwezigInMagazijnen
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/MAG/Inventaris/dto/AanwezigInMagazijn.cls.xml
===================================================================
diff -u
--- APPS/MAG/Inventaris/dto/AanwezigInMagazijn.cls.xml	(revision 0)
+++ APPS/MAG/Inventaris/dto/AanwezigInMagazijn.cls.xml	(revision 1893)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.MAG.Inventaris.dto.AanwezigInMagazijn">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="AantalPalletten">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="MagazijnCode">
+<Type>%String</Type>
+</Property>
+
+<Property name="MagazijnID">
+<Type>APPS.MAG.UGLYPicking.enu.Magazijn</Type>
+</Property>
+</Class>
+</Export>
Index: CSC Ugly Picking.prj.xml
===================================================================
diff -u -r1793 -r1893
--- CSC Ugly Picking.prj.xml	(.../CSC Ugly Picking.prj.xml)	(revision 1793)
+++ CSC Ugly Picking.prj.xml	(.../CSC Ugly Picking.prj.xml)	(revision 1893)
@@ -1,7 +1,11 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="CSC Ugly Picking" LastModified="2011-08-10 14:22:02">
+<Project name="CSC Ugly Picking" LastModified="2011-08-25 15:44:32">
   <Items>
+    <ProjectItem name="APPS.MAG.Inventaris.dto.AanwezigInMagazijn" type="CLS"/>
+    <ProjectItem name="APPS.MAG.Inventaris.dto.ProductOpPallet" type="CLS"/>
+    <ProjectItem name="APPS.MAG.Inventaris.dto.ProductenOpPallet" type="CLS"/>
+    <ProjectItem name="APPS.MAG.InventarisService" type="CLS"/>
     <ProjectItem name="APPS.MAG.UGLYPicking.dto.Bon" type="CLS"/>
     <ProjectItem name="APPS.MAG.UGLYPicking.dto.Bonnen" type="CLS"/>
     <ProjectItem name="APPS.MAG.UGLYPicking.dto.Charges" type="CLS"/>
@@ -54,6 +58,7 @@
     <ProjectItem name="BL.MB.UGLYPicking.ReceptieOpkuis" type="CLS"/>
     <ProjectItem name="BL.MB.UGLYPicking.ReceptieProductie" type="CLS"/>
     <ProjectItem name="BL.MB.UGLYPicking.sub.pxLocationLabel" type="CLS"/>
+    <ProjectItem name="EWMS.Inventory" type="CLS"/>
     <ProjectItem name="Flow.OrderWMS.PalletReservatie" type="CLS"/>
     <ProjectItem name="Flow.OrderWMS.Sub" type="CLS"/>
     <ProjectItem name="TECH.Context.RuntimeContext" type="CLS"/>
@@ -93,6 +98,7 @@
     <ProjectItem name="UI.MB.UGLYPicking.dlgWijzigAantal" type="CLS"/>
     <ProjectItem name="UI.MB.UGLYPicking.dlgZendAutoList" type="CLS"/>
     <ProjectItem name="UI.MB.UGLYPicking.dlgZendAutoOptions" type="CLS"/>
+    <ProjectItem name="WS.MAG.Inventaris.InventarisService" type="CLS"/>
     <ProjectItem name="WS.MAG.UGLYPicking.UGLYPickingService" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.MAG.UGLYPicking.RuntimeContextMock" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.MAG.UGLYPicking.TestUglyPickingService" type="CLS"/>
Index: WS/MAG/Inventaris/InventarisService.cls.xml
===================================================================
diff -u
--- WS/MAG/Inventaris/InventarisService.cls.xml	(revision 0)
+++ WS/MAG/Inventaris/InventarisService.cls.xml	(revision 1893)
@@ -0,0 +1,32 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="WS.MAG.Inventaris.InventarisService">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WS.WebService</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="SERVICENAME">
+<Default>InventarisService</Default>
+</Parameter>
+
+<Parameter name="NAMESPACE">
+<Default>http://www.vanhoecke.be/MAG/Inventaris</Default>
+</Parameter>
+
+<Method name="GeefProductenOpPallet">
+<FormalSpec>PalletID:%String</FormalSpec>
+<ReturnType>APPS.MAG.Inventaris.dto.ProductenOpPallet</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit ##class(APPS.MAG.InventarisService).%New().GeefProductenOpPallet(PalletID)
+]]></Implementation>
+</Method>
+
+<Method name="GeefPallettenMetProduct">
+<FormalSpec>ProductID:%String</FormalSpec>
+<ReturnType>APPS.MAG.Inventaris.dto.ProductenOpPallet</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit ##class(APPS.MAG.InventarisService).%New().GeefPallettenMetProduct(ProductID)
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: zTryout/CSC/Try.cls.xml
===================================================================
diff -u -r1860 -r1893
--- zTryout/CSC/Try.cls.xml	(.../Try.cls.xml)	(revision 1860)
+++ zTryout/CSC/Try.cls.xml	(.../Try.cls.xml)	(revision 1893)
@@ -30,6 +30,32 @@
 ]]></Implementation>
 </Method>
 
+<Method name="t">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set Product = ""
+	
+	Set Criteria=##class(APPS.PM.dto.ZoekCriteria).%New()
+	Set Criteria.SoortProductID=##class(APPS.PM.enu.SoortProductID).Korttekst()	
+	Set Criteria.ProductID = "*AA4511TS*"
+	Set Criteria.ExacteKorttekst = 0
+	Set ProductService =  ##class(APPS.PM.ProductService).%New()
+	Set ProductenLijst = ProductService.ZoekProducten(Criteria).HerkendeProducten
+	If (ProductenLijst.Count() = 1)
+	{
+		Set PRNr = ProductenLijst.GetAt(1).PRNr
+		//Set Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(ProductenLijst.GetAt(1).PRNr)
+		//w Product.GeefKorttekst(),!
+	}
+	Else
+	{
+		
+	}
+	
+	Quit Product
+]]></Implementation>
+</Method>
+
 <Method name="Try3">
 <Description>
 Do ##class(zTryout.CSC.Try).Try3()</Description>
Index: APPS/MAG/Inventaris/dto/ProductOpPallet.cls.xml
===================================================================
diff -u
--- APPS/MAG/Inventaris/dto/ProductOpPallet.cls.xml	(revision 0)
+++ APPS/MAG/Inventaris/dto/ProductOpPallet.cls.xml	(revision 1893)
@@ -0,0 +1,37 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.MAG.Inventaris.dto.ProductOpPallet">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Aantal">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="Korttekst">
+<Type>%String</Type>
+</Property>
+
+<Property name="PalletID">
+<Type>%String</Type>
+</Property>
+
+<Property name="ProductID">
+<Type>%String</Type>
+</Property>
+
+<Property name="AantalSecties">
+<Type>%String</Type>
+</Property>
+
+<Property name="MagazijnOmschrijving">
+<Type>%String</Type>
+</Property>
+
+<Property name="AanwezigInMagazijnen">
+<Type>APPS.MAG.Inventaris.dto.AanwezigInMagazijn</Type>
+<Collection>list</Collection>
+</Property>
+</Class>
+</Export>
Index: APPS/MAG/Inventaris/dto/ProductenOpPallet.cls.xml
===================================================================
diff -u
--- APPS/MAG/Inventaris/dto/ProductenOpPallet.cls.xml	(revision 0)
+++ APPS/MAG/Inventaris/dto/ProductenOpPallet.cls.xml	(revision 1893)
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.MAG.Inventaris.dto.ProductenOpPallet">
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%ListOfObjects</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="ELEMENTTYPE">
+<Default>APPS.MAG.Inventaris.dto.ProductOpPallet</Default>
+</Parameter>
+
+<Storage name="Custom">
+<Type>%Library.CompleteCustomStorage</Type>
+</Storage>
+</Class>
+</Export>