Index: APPS/MAG/Inventaris/dto/ReceptieDetail.cls.xml
===================================================================
diff -u
--- APPS/MAG/Inventaris/dto/ReceptieDetail.cls.xml	(revision 0)
+++ APPS/MAG/Inventaris/dto/ReceptieDetail.cls.xml	(revision 1921)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.MAG.Inventaris.dto.ReceptieDetail">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="AantalOntvangen">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="ReceptieID">
+<Type>%String</Type>
+</Property>
+
+<Property name="ToeleveringID">
+<Type>%String</Type>
+</Property>
+</Class>
+</Export>
Index: APPS/MAG/Inventaris/dto/ProductReceptieDetail.cls.xml
===================================================================
diff -u
--- APPS/MAG/Inventaris/dto/ProductReceptieDetail.cls.xml	(revision 0)
+++ APPS/MAG/Inventaris/dto/ProductReceptieDetail.cls.xml	(revision 1921)
@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.MAG.Inventaris.dto.ProductReceptieDetail">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="IdentNr">
+<Type>%String</Type>
+</Property>
+
+<Property name="LeverancierNaam">
+<Type>%String</Type>
+</Property>
+
+<Property name="LeverancierReferentie">
+<Type>%String</Type>
+</Property>
+
+<Property name="Omschrijving">
+<Type>%String</Type>
+</Property>
+
+<Property name="ProductID">
+<Type>%String</Type>
+</Property>
+
+<Property name="ReceptieDetails">
+<Type>APPS.MAG.Inventaris.dto.ReceptieDetail</Type>
+<Collection>list</Collection>
+</Property>
+</Class>
+</Export>
Index: vhUnitTest/APPS/MAG/Inventaris/TestInventarisService.cls.xml
===================================================================
diff -u -r1909 -r1921
--- vhUnitTest/APPS/MAG/Inventaris/TestInventarisService.cls.xml	(.../TestInventarisService.cls.xml)	(revision 1909)
+++ vhUnitTest/APPS/MAG/Inventaris/TestInventarisService.cls.xml	(.../TestInventarisService.cls.xml)	(revision 1921)
@@ -52,6 +52,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestGeefProductReceptieDetail">
+<Implementation><![CDATA[
+	Set Service = ##class(APPS.MAG.InventarisService).%New()
+	
+	Set ProductReceptieDetail = Service.GeefProductReceptieDetail("UnitTest",1000)
+	
+	Do $$$AssertEquals(ProductReceptieDetail.IdentNr,"0.123.450.0","Het identnr")
+	Do $$$AssertEquals(ProductReceptieDetail.LeverancierNaam,"BLUM JULIUS GMBH","De leverancier")
+	Do $$$AssertEquals(ProductReceptieDetail.Omschrijving,"TEST PRODUCT 00","De omschrijving van het product")
+	Do $$$AssertEquals(ProductReceptieDetail.ProductID,1000,"De product id")
+	Do $$$AssertEquals(ProductReceptieDetail.ReceptieDetails.Count(),1,"Er is 1 receptie detail")
+	
+	Set ReceptieDetail = ProductReceptieDetail.ReceptieDetails.GetAt(1)
+	
+	Do $$$AssertEquals(ReceptieDetail.AantalOntvangen,100,"Er zijn 100 stuks ontvangen")
+	Do $$$AssertEquals(ReceptieDetail.ReceptieID,1234,"De receptie id")
+	Do $$$AssertEquals(ReceptieDetail.ToeleveringID,220568,"De toelevering id")
+]]></Implementation>
+</Method>
+
 <Method name="OnBeforeAllTests">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
@@ -78,6 +98,15 @@
 		Set Status = ..ExecQuery("INSERT INTO ewms.dbo.TransLoc (loc_m,loc_g,loc_x,loc_y,loc_trans) VALUES (3,99,99,99,'99D99C99')")	
 	}
 	
+	If ($$$ISOK(Status))
+	{
+		Set SQL = "INSERT INTO EWMS.dbo.to_recv"
+	_" (order_nr,supplier,product,batch,quality,owner,loc_id,section,loc_m,loc_g,qty_to_receive,qty_received,qty_transported,qty_transport_req,qty_in_box,qty_block,reason_block,carrier_type,carrier_dwh,unit_load_type,carrier_tarra,carrier_weight,abc,product_group,nr_carriers,pcs_vol,pcs_weight,pcs_price,box_vol,box_weight,box_price,exp_day,order_cancelled,order_confirmed,insert_time,sender,extra_int_1,extra_int_2,extra_int_3,extra_int_4,extra_int_5,extra_int_6,extra_int_7,extra_int_8,extra_int_9,extra_int_10,extra_char_1,extra_char_2,extra_char_3,extra_char_4,extra_char_5,extra_char_6,extra_char_7,extra_char_8,extra_char_9,extra_char_10,extra_float_1,extra_float_2,extra_float_3,extra_float_4,extra_float_5)"
+	_" VALUES"
+	_" (1234,5005,1000,220568,'','','UnitTest','00000001',3,99,100,0,0,0,0,0,'',0,0,0,0,0,0,0,0,0,0,0,0,0,0,'',0,0,'',0,0,0,0,0,0,0,0,0,0,0,'','','','','','','','','','','','','','','')"
+		Set Status = ..ExecQuery(SQL)
+	}
+	
 	Quit Status
 ]]></Implementation>
 </Method>
@@ -96,6 +125,10 @@
 	{
 		Set Status = ..ExecQuery("DELETE FROM ewms.dbo.transloc WHERE loc_trans = '99D99C99'")
 	}
+	If ($$$ISOK(Status))
+	{
+		Set Status = ..ExecQuery("DELETE FROM EWMS.dbo.to_recv WHERE order_nr = 1234 AND product = 1000")
+	}
 	
 	Quit Status
 ]]></Implementation>
Index: DOM/PM/Product.cls.xml
===================================================================
diff -u -r1645 -r1921
--- DOM/PM/Product.cls.xml	(.../Product.cls.xml)	(revision 1645)
+++ DOM/PM/Product.cls.xml	(.../Product.cls.xml)	(revision 1921)
@@ -28,8 +28,6 @@
 <Method name="GeefOpeningDatum">
 <Abstract>1</Abstract>
 <ReturnType>%Date</ReturnType>
-<Implementation><![CDATA[	
-]]></Implementation>
 </Method>
 
 <Method name="GeefPRNr">
@@ -80,8 +78,6 @@
 <Method name="GeefMultiples">
 <Abstract>1</Abstract>
 <ReturnType>%ListOfDataTypes</ReturnType>
-<Implementation><![CDATA[	
-]]></Implementation>
 </Method>
 
 <Method name="GeefMultipleGroepen">
@@ -103,5 +99,10 @@
 <Abstract>1</Abstract>
 <ReturnType>%String</ReturnType>
 </Method>
+
+<Method name="GeefLeverancier">
+<Abstract>1</Abstract>
+<ReturnType>DOM.LEV.Leverancier</ReturnType>
+</Method>
 </Class>
 </Export>
Index: CSC Ugly Picking.prj.xml
===================================================================
diff -u -r1909 -r1921
--- CSC Ugly Picking.prj.xml	(.../CSC Ugly Picking.prj.xml)	(revision 1909)
+++ CSC Ugly Picking.prj.xml	(.../CSC Ugly Picking.prj.xml)	(revision 1921)
@@ -1,10 +1,12 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="CSC Ugly Picking" LastModified="2011-08-29 13:05:48">
+<Project name="CSC Ugly Picking" LastModified="2011-08-29 15:44:49">
   <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.ProductReceptieDetail" type="CLS"/>
     <ProjectItem name="APPS.MAG.Inventaris.dto.ProductenOpPallet" type="CLS"/>
+    <ProjectItem name="APPS.MAG.Inventaris.dto.ReceptieDetail" 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"/>
@@ -60,13 +62,19 @@
     <ProjectItem name="BL.MB.UGLYPicking.sub.pxLocationLabel" type="CLS"/>
     <ProjectItem name="EWMS.Inventory" type="CLS"/>
     <ProjectItem name="EWMS.Locations" type="CLS"/>
+    <ProjectItem name="EWMS.ToReceive" type="CLS"/>
     <ProjectItem name="EWMS.TransLoc" type="CLS"/>
     <ProjectItem name="Flow.OrderWMS.PalletReservatie" type="CLS"/>
     <ProjectItem name="Flow.OrderWMS.Sub" type="CLS"/>
     <ProjectItem name="TECH.Context.RuntimeContext" type="CLS"/>
+    <ProjectItem name="TECH.Exceptions.AbstractOmschrijvingException" type="CLS"/>
+    <ProjectItem name="TECH.Exceptions.BaseException" type="CLS"/>
     <ProjectItem name="TECH.Exceptions.GeneralErrorException" type="CLS"/>
+    <ProjectItem name="TECH.Exceptions.InvalidInputException" type="CLS"/>
     <ProjectItem name="TECH.Exceptions.LockedException" type="CLS"/>
+    <ProjectItem name="TECH.Exceptions.RuntimeException" type="CLS"/>
     <ProjectItem name="TECH.Exceptions.SaveFailedException" type="CLS"/>
+    <ProjectItem name="TECH.Exceptions.StatusException" type="CLS"/>
     <ProjectItem name="UI.MB.UGLYPicking.MainForm" type="CLS"/>
     <ProjectItem name="UI.MB.UGLYPicking.dlgCC" type="CLS"/>
     <ProjectItem name="UI.MB.UGLYPicking.dlgCCLocationsSummary" type="CLS"/>
@@ -102,6 +110,7 @@
     <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="vhDeploy.CSC.Deploy20110829x1329" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.MAG.Inventaris.TestInventarisService" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.MAG.MAGProducten" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.MAG.UGLYPicking.RuntimeContextMock" type="CLS"/>
Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r1775 -r1921
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 1775)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 1921)
@@ -359,5 +359,11 @@
 <Implementation><![CDATA[	Quit $Piece(..DataJ,"\",3)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefLeverancier">
+<ReturnType>DOM.LEV.Leverancier</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefLeverancier($Piece(..DataJ,"\",1))
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: WS/MAG/Inventaris/InventarisService.cls.xml
===================================================================
diff -u -r1893 -r1921
--- WS/MAG/Inventaris/InventarisService.cls.xml	(.../InventarisService.cls.xml)	(revision 1893)
+++ WS/MAG/Inventaris/InventarisService.cls.xml	(.../InventarisService.cls.xml)	(revision 1921)
@@ -28,5 +28,13 @@
 <Implementation><![CDATA[	Quit ##class(APPS.MAG.InventarisService).%New().GeefPallettenMetProduct(ProductID)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefProductReceptieDetail">
+<FormalSpec>PalletID:%String,ProductID:%String</FormalSpec>
+<ReturnType>APPS.MAG.Inventaris.dto.ProductReceptieDetail</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit ##class(APPS.MAG.InventarisService).%New().GeefProductReceptieDetail(PalletID, ProductID)
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: APPS/MAG/InventarisService.cls.xml
===================================================================
diff -u -r1909 -r1921
--- APPS/MAG/InventarisService.cls.xml	(.../InventarisService.cls.xml)	(revision 1909)
+++ APPS/MAG/InventarisService.cls.xml	(.../InventarisService.cls.xml)	(revision 1921)
@@ -76,6 +76,44 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefProductReceptieDetail">
+<FormalSpec>PalletID:%String,ProductID:%String</FormalSpec>
+<ReturnType>APPS.MAG.Inventaris.dto.ProductReceptieDetail</ReturnType>
+<Implementation><![CDATA[
+	
+	Set ProductReceptieDetail = ##class(APPS.MAG.Inventaris.dto.ProductReceptieDetail).%New()
+	
+	Set Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(ProductID)
+	If ('$IsObject(Product))
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Product "_ProductID_" bestaat niet!"))
+	}
+			
+	Set ProductReceptieDetail.ProductID = ProductID
+	Set ProductReceptieDetail.IdentNr = Product.GeefIdentNr()
+	Set ProductReceptieDetail.LeverancierReferentie = Product.GeefLeverancierReferentie()
+	Set ProductReceptieDetail.Omschrijving = Product.GeefLangtekst("N")
+	Set ProductReceptieDetail.LeverancierNaam = Product.GeefLeverancier().GeefNaam()
+	
+	Set ResultSet = ##class(%ResultSet).%New()
+	Do ResultSet.Prepare("SELECT rtrim(OrderNr) As OrderNr,rtrim(Batch) As Batch,CAST(SUM(QtyToReceive) As INT) As AantalOntvangen from EWMS.ToReceive WHERE (LocID=?) AND (Product=?) GROUP BY OrderNr,Batch ORDER BY OrderNr")
+	Do ResultSet.Execute(PalletID, ProductID)
+	
+	While (ResultSet.Next())
+	{
+		Set ReceptieDetail = ##class(APPS.MAG.Inventaris.dto.ReceptieDetail).%New()
+		Set ReceptieDetail.ReceptieID = ResultSet.Data("OrderNr")
+		Set ReceptieDetail.ToeleveringID = $Piece(ResultSet.Data("Batch"),".")
+		Set ReceptieDetail.AantalOntvangen = ResultSet.Data("AantalOntvangen")
+		Do ProductReceptieDetail.ReceptieDetails.Insert(ReceptieDetail)
+	}
+	
+	Do ResultSet.Close()
+	
+	Quit ProductReceptieDetail
+]]></Implementation>
+</Method>
+
 <Method name="GeefAanwezigInMagazijnen">
 <FormalSpec>ProductID:%Integer</FormalSpec>
 <Private>1</Private>
Index: DOM/PM/impl/ProductImpl.cls.xml
===================================================================
diff -u -r1645 -r1921
--- DOM/PM/impl/ProductImpl.cls.xml	(.../ProductImpl.cls.xml)	(revision 1645)
+++ DOM/PM/impl/ProductImpl.cls.xml	(.../ProductImpl.cls.xml)	(revision 1921)
@@ -141,5 +141,11 @@
 <Implementation><![CDATA[	Quit ..Product.GeefLeverancierReferentie()
 ]]></Implementation>
 </Method>
+
+<Method name="GeefLeverancier">
+<ReturnType>DOM.LEV.Leverancier</ReturnType>
+<Implementation><![CDATA[	Quit ..Product.GeefLeverancier()
+]]></Implementation>
+</Method>
 </Class>
 </Export>