Index: CSC Ugly Picking.prj.xml
===================================================================
diff -u -r1893 -r1909
--- CSC Ugly Picking.prj.xml	(.../CSC Ugly Picking.prj.xml)	(revision 1893)
+++ CSC Ugly Picking.prj.xml	(.../CSC Ugly Picking.prj.xml)	(revision 1909)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="CSC Ugly Picking" LastModified="2011-08-25 15:44:32">
+<Project name="CSC Ugly Picking" LastModified="2011-08-29 13:05:48">
   <Items>
     <ProjectItem name="APPS.MAG.Inventaris.dto.AanwezigInMagazijn" type="CLS"/>
     <ProjectItem name="APPS.MAG.Inventaris.dto.ProductOpPallet" type="CLS"/>
@@ -59,6 +59,8 @@
     <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="EWMS.Locations" 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"/>
@@ -100,6 +102,8 @@
     <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.Inventaris.TestInventarisService" type="CLS"/>
+    <ProjectItem name="vhUnitTest.APPS.MAG.MAGProducten" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.MAG.UGLYPicking.RuntimeContextMock" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.MAG.UGLYPicking.TestUglyPickingService" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.MAG.UGLYPicking.UglyPickingServiceMock" type="CLS"/>
Index: vhUnitTest/APPS/MAG/UGLYPicking/TestUglyPickingService.cls.xml
===================================================================
diff -u -r1793 -r1909
--- vhUnitTest/APPS/MAG/UGLYPicking/TestUglyPickingService.cls.xml	(.../TestUglyPickingService.cls.xml)	(revision 1793)
+++ vhUnitTest/APPS/MAG/UGLYPicking/TestUglyPickingService.cls.xml	(.../TestUglyPickingService.cls.xml)	(revision 1909)
@@ -105,7 +105,7 @@
 <Implementation><![CDATA[
 	Set Service = ##class(APPS.MAG.UGLYPicking.impl.UglyPickingService).%New()
 	
-	Do ..MaakProducten()
+	Do ##class(vhUnitTest.APPS.MAG.MAGProducten).MaakProducten()
 	Do ..MaakPalletReservatie()
 	
 	Do ..MaakBon(999999)
@@ -145,7 +145,7 @@
 	Do ..VerwijderBon(999998)
 	
 	Do ..VerwijderPalletReservatie()
-	Do ..VerwijderProducten()
+	Do ##class(vhUnitTest.APPS.MAG.MAGProducten).VerwijderProducten()
 	
 	Quit
 ]]></Implementation>
@@ -279,54 +279,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="MaakProducten">
-<Private>1</Private>
-<Implementation><![CDATA[
-	#define PRNrStart 1000
-	#define PRNrStop  1001
-	#define ProductPrijs 10
-	
-	for PRNr = $$$PRNrStart:1:$$$PRNrStop {  
-		Set Nr = $translate($justify(PRNr - $$$PRNrStart,2)," ",0)
-	    for Node=1:1:5 set ^KPR(PRNr,Node)="\"
-
-		set KortTekst = "UT.UTPROD"_Nr_"\TEST PRODUCT "_Nr	
-		set ^KPR(PRNr,"I1")="01CH \01CH04ACC \01CH04ACC01MPL/BL \374"
-		
-		Set ^KPR(PRNr,0) = KortTekst
-	    set $piece(^KPR(PRNr,2),"\",25)="0.123.45"_$extract(Nr,1)_"."_$extract(Nr,2)
-	    set $piece(^KPR(PRNr,0),"\",14)=PRNr	   ; fysische stock
-	    set $piece(^KPR(PRNr,2),"\",14)="BAR"_PRNr ; barcode 
-		set ^KPR(PRNr,"I")=""
-		set ^KPR(PRNr,"J")=""
-		set ^KPR(PRNr,"J5005")="5005\ \"
-		if PRNr=1000 { 
-			set $piece(^KPR(PRNr,"J5005"),"\",15)= 2 			  ; normale verpakking 
-		}
-		if PRNr=1001 {
-			set $piece(^KPR(PRNr,"J5005"),"\",16)= 10 			  ; grootverpakking
-		}
-		set $piece(^KPR(PRNr,"J5005"),"\",17)= "EUR"			  ; muntcode
-		set $piece(^KPR(PRNr,"J5005"),"\",19)= $$$ProductPrijs
-		
-		do BLDIND^PRODUKT2(PRNr) 
-	}
-]]></Implementation>
-</Method>
-
-<Method name="VerwijderProducten">
-<Private>1</Private>
-<Implementation><![CDATA[
-	for PRNr = $$$PRNrStart:1:$$$PRNrStop {  
-		do DELIND^PRODUKT2(PRNr)
-		Kill ^KPR(PRNr) 
-		Kill ^PRSTOCK("D",PRNr)
-		Kill ^Prod.Ken.DataDefinitieD(PRNr)
-		For SubID=1:1:5 Kill ^Prod.Ken.DataDefinitieD(PRNr_"."_SubID)
-	}
-]]></Implementation>
-</Method>
-
 <Method name="TestGeefBonnen">
 <Implementation><![CDATA[
 	Set Service = ##class(APPS.MAG.UGLYPicking.impl.UglyPickingService).%New()
Index: vhDeploy/CSC/Deploy20110829x1329.cls.xml
===================================================================
diff -u
--- vhDeploy/CSC/Deploy20110829x1329.cls.xml	(revision 0)
+++ vhDeploy/CSC/Deploy20110829x1329.cls.xml	(revision 1909)
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.CSC.Deploy20110829x1329">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	do ##class(TECH.Config.ConfigMgr).Instance().SetString("EWMS.SQLGCWrapper_UserName","dbo")
+	do ##class(TECH.Config.ConfigMgr).Instance().SetString("EWMS.SQLGCWrapper_Password","dbo")
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/MAG/Inventaris/dto/ProductOpPallet.cls.xml
===================================================================
diff -u -r1893 -r1909
--- APPS/MAG/Inventaris/dto/ProductOpPallet.cls.xml	(.../ProductOpPallet.cls.xml)	(revision 1893)
+++ APPS/MAG/Inventaris/dto/ProductOpPallet.cls.xml	(.../ProductOpPallet.cls.xml)	(revision 1909)
@@ -17,6 +17,10 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="LocatieID">
+<Type>%String</Type>
+</Property>
+
 <Property name="ProductID">
 <Type>%String</Type>
 </Property>
Index: vhUnitTest/APPS/MAG/MAGProducten.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/MAG/MAGProducten.cls.xml	(revision 0)
+++ vhUnitTest/APPS/MAG/MAGProducten.cls.xml	(revision 1909)
@@ -0,0 +1,62 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.APPS.MAG.MAGProducten">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="PRNrStart">
+<Default>1000</Default>
+</Parameter>
+
+<Parameter name="PRNrStop">
+<Default>1001</Default>
+</Parameter>
+
+<Method name="MaakProducten">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#define ProductPrijs 10
+	
+	for PRNr = ..#PRNrStart:1:..#PRNrStop {  
+		Set Nr = $translate($justify(PRNr - ..#PRNrStart,2)," ",0)
+	    for Node=1:1:5 set ^KPR(PRNr,Node)="\"
+
+		set KortTekst = "UT.UTPROD"_Nr_"\TEST PRODUCT "_Nr	
+		set ^KPR(PRNr,"I1")="01CH \01CH04ACC \01CH04ACC01MPL/BL \374"
+		
+		Set ^KPR(PRNr,0) = KortTekst
+	    set $piece(^KPR(PRNr,2),"\",25)="0.123.45"_$extract(Nr,1)_"."_$extract(Nr,2)
+	    set $piece(^KPR(PRNr,0),"\",14)=PRNr	   ; fysische stock
+	    set $piece(^KPR(PRNr,2),"\",14)="BAR"_PRNr ; barcode 
+		set ^KPR(PRNr,"I")=""
+		set ^KPR(PRNr,"J")=""
+		set ^KPR(PRNr,"J5005")="5005\ \"
+		if PRNr=1000 { 
+			set $piece(^KPR(PRNr,"J5005"),"\",15)= 2 			  ; normale verpakking 
+		}
+		if PRNr=1001 {
+			set $piece(^KPR(PRNr,"J5005"),"\",16)= 10 			  ; grootverpakking
+		}
+		set $piece(^KPR(PRNr,"J5005"),"\",17)= "EUR"			  ; muntcode
+		set $piece(^KPR(PRNr,"J5005"),"\",19)= $$$ProductPrijs
+		
+		do BLDIND^PRODUKT2(PRNr) 
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderProducten">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	for PRNr = ..#PRNrStart:1:..#PRNrStop {  
+		Do:$Data(^KPR(PRNr)) DELIND^PRODUKT2(PRNr)
+		Kill ^KPR(PRNr) 
+		Kill ^PRSTOCK("D",PRNr)
+		Kill ^Prod.Ken.DataDefinitieD(PRNr)
+		For SubID=1:1:5 Kill ^Prod.Ken.DataDefinitieD(PRNr_"."_SubID)
+	}
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: vhUnitTest/APPS/MAG/Inventaris/TestInventarisService.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/MAG/Inventaris/TestInventarisService.cls.xml	(revision 0)
+++ vhUnitTest/APPS/MAG/Inventaris/TestInventarisService.cls.xml	(revision 1909)
@@ -0,0 +1,137 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.APPS.MAG.Inventaris.TestInventarisService">
+<Description>
+Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.MAG.Inventaris.TestInventarisService")</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="TestGeefProductenOpPallet">
+<Implementation><![CDATA[
+	Set Service = ##class(APPS.MAG.InventarisService).%New()
+	
+	Set ProductenOpPallet = Service.GeefProductenOpPallet("UnitTest")
+	
+	Do $$$AssertTrue($IsObject(ProductenOpPallet),"Het resultaat werd teruggegeven")
+	
+	Set ProductOpPallet = ProductenOpPallet.GetAt(1)
+	
+	Do $$$AssertEquals(ProductOpPallet.Aantal,170,"170 stuks")
+	Do $$$AssertEquals(ProductOpPallet.Korttekst,"UT.UTPROD00")
+	Do $$$AssertEquals(ProductOpPallet.PalletID,"UnitTest","De pallet id is unittest")
+	Do $$$AssertEquals(ProductOpPallet.ProductID,1000,"Voor product 1000")
+	Do $$$AssertEquals(ProductOpPallet.AantalSecties,1,"Er is 1 sectie op de pallet")
+	Do $$$AssertEquals(ProductOpPallet.MagazijnOmschrijving,"LANG","Langgoed magazijn")
+	
+	Set AanwezigInMagazijn = ProductOpPallet.AanwezigInMagazijnen.GetAt(1)
+	
+	Do $$$AssertEquals(ProductOpPallet.AanwezigInMagazijnen.Count(),1,"Aanwezig in 1 magazijn")
+	Do $$$AssertEquals(AanwezigInMagazijn.AantalPalletten,1,"Aanwezig op 1 pallet")
+	Do $$$AssertEquals(AanwezigInMagazijn.MagazijnCode,"L","Langgoed magazijn code")
+	Do $$$AssertEquals(AanwezigInMagazijn.MagazijnID,##class(APPS.MAG.UGLYPicking.enu.Magazijn).LangGoed(),"Magazijn langgoed id")
+]]></Implementation>
+</Method>
+
+<Method name="TestGeefPalletMetProducten">
+<Implementation><![CDATA[
+	Set Service = ##class(APPS.MAG.InventarisService).%New()
+	
+	Set PallettenMetProduct = Service.GeefPallettenMetProduct(1000)
+	
+	Do $$$AssertTrue($IsObject(PallettenMetProduct),"Het resultaat werd teruggegeven")
+	
+	Set ProductOpPallet = PallettenMetProduct.GetAt(1)
+	
+	Do $$$AssertEquals(ProductOpPallet.Aantal,170,"170 stuks")
+	Do $$$AssertEquals(ProductOpPallet.Korttekst,"UT.UTPROD00")
+	Do $$$AssertEquals(ProductOpPallet.PalletID,"UnitTest","De pallet id is unittest")
+	Do $$$AssertEquals(ProductOpPallet.ProductID,1000,"Voor product 1000")
+	Do $$$AssertEquals(ProductOpPallet.AantalSecties,1,"Er is 1 sectie op de pallet")
+	Do $$$AssertEquals(ProductOpPallet.MagazijnOmschrijving,"LANG","Langgoed magazijn")
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Status = ..OnAfterAllTests()
+	
+	Do ##class(vhUnitTest.APPS.MAG.MAGProducten).MaakProducten()
+	
+	// Toevoegen van product 1000
+	Set SQL="INSERT INTO ewms.dbo.Inventory (loc_id,section,product,batch,quality,owner,"_
+ 	"extra_float_5,extra_float_4,extra_float_3,extra_float_2,extra_float_1,"_
+ 	"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_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,"_
+ 	"insert_time,loc_m,qty_pcs,qty_in_box,qty_res,qty_block,reason_block,reservator,exp_day,last_cycle_count,pcs_vol,pcs_weight,pcs_price,box_vol,box_weight,box_price,is_full) VALUES "_
+ 	"('UnitTest','00000001',1000,' ',' ',' ',0,0,0,0,0,'','','','','','','','','','',0,0,0,0,0,0,0,0,0,0,0,3,170,0,0,0,'',0,'0000-00-00-00.00.00.000000','0000-00-00-00.00.00.000000',0,0,0,0,0,0,0)"
+	Set Status = ..ExecQuery(SQL)
+	
+	If ($$$ISOK(Status))
+	{
+		Set Status = ..ExecQuery("INSERT INTO ewms.dbo.locations (loc_id,loc_m,loc_g,loc_x,loc_y,loc_z,insert_time,state) VALUES ('UnitTest',3,99,99,99,99,'0000-00-00-00.00.00.000000',2)")
+	}
+	
+	If ($$$ISOK(Status))
+	{
+		Set Status = ..ExecQuery("INSERT INTO ewms.dbo.TransLoc (loc_m,loc_g,loc_x,loc_y,loc_trans) VALUES (3,99,99,99,'99D99C99')")	
+	}
+	
+	Quit Status
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##class(vhUnitTest.APPS.MAG.MAGProducten).VerwijderProducten()
+	
+	Set Status = ..ExecQuery("DELETE FROM ewms.dbo.inventory WHERE loc_id = 'UnitTest'")
+	If ($$$ISOK(Status))
+	{
+		Set Status = ..ExecQuery("DELETE FROM ewms.dbo.locations WHERE loc_id = 'UnitTest'")
+	}
+	If ($$$ISOK(Status))
+	{
+		Set Status = ..ExecQuery("DELETE FROM ewms.dbo.transloc WHERE loc_trans = '99D99C99'")
+	}
+	
+	Quit Status
+]]></Implementation>
+</Method>
+
+<Method name="ExecQuery">
+<FormalSpec>SQL:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set SQLGCWrapper=##class(EWMS.SQLGCWrapper).%New()
+	Quit:(SQLGCWrapper=$$$NULLOREF) $$$ERROR($$$GeneralError,"Kan geen nieuw 'EWMS.SQLGCWrapper' object aanmaken.")
+	
+	;Verbinden
+	If 'SQLGCWrapper.Connect() Do  Quit $$$ERROR($$$GeneralError,QuitMsg)
+	. Set QuitMsg=SQLGCWrapper.LastErrorMsg
+	. Do SQLGCWrapper.%Close()
+	
+	;Statement alloceren
+	If 'SQLGCWrapper.AllocateStatement() Do  Quit $$$ERROR($$$GeneralError,QuitMsg)
+	. Set QuitMsg=SQLGCWrapper.LastErrorMsg
+	. Do SQLGCWrapper.Disconnect()    //Disconnect dropt ook het statement als dit reeds gealloceerd zou zijn SQLGCWrapper..
+	. Do SQLGCWrapper.%Close()
+	. 
+	If 'SQLGCWrapper.Prepare(SQL) Do  Quit $$$ERROR($$$GeneralError,QuitMsg)
+	. Set QuitMsg=SQLGCWrapper.LastErrorMsg_$C(13,10,13,10)_"SQL Statement:"_$C(13,10)_SQLGCWrapper.LastSQLStatement
+	. Do SQLGCWrapper.Disconnect()   
+	. Do SQLGCWrapper.%Close()
+	
+	;SQL Execute		
+	If 'SQLGCWrapper.Execute() Do  Quit $$$ERROR($$$GeneralError,QuitMsg)
+	. Set QuitMsg=SQLGCWrapper.LastErrorMsg_$C(13,10,13,10)_"SQL Statement:"_$C(13,10)_SQLGCWrapper.LastSQLStatement
+	. Do SQLGCWrapper.Disconnect()   
+	. Do SQLGCWrapper.%Close()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/MAG/InventarisService.cls.xml
===================================================================
diff -u -r1893 -r1909
--- APPS/MAG/InventarisService.cls.xml	(.../InventarisService.cls.xml)	(revision 1893)
+++ APPS/MAG/InventarisService.cls.xml	(.../InventarisService.cls.xml)	(revision 1909)
@@ -14,7 +14,7 @@
 	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.Prepare("SELECT rtrim(product) as ProductID, CAST(qty_pcs AS INT) as Aantal, I.loc_m, L.loc_g, L.loc_x, L.loc_y, (SELECT count(1) FROM EWMS.Inventory WHERE loc_id = I.loc_id) as AantalSecties FROM EWMS.Inventory I JOIN EWMS.Locations L ON I.loc_m = L.loc_m and I.loc_id = L.loc_id WHERE I.loc_id = ? AND I.loc_m < 5")
 	Do ResultSet.Execute(PalletID)
 	While (ResultSet.Next())
 	{
@@ -23,6 +23,7 @@
 		Set ProductOpPallet.ProductID = ProductID
 		Set ProductOpPallet.Aantal = ResultSet.Data("Aantal")
 		Set ProductOpPallet.PalletID = PalletID
+		Set ProductOpPallet.LocatieID = ##class(BL.MB.UGLYPicking.General).GetTransLocStr(ResultSet.Data("loc_m"),ResultSet.Get("loc_g"),ResultSet.Get("loc_x"),ResultSet.Get("loc_y"))
 		Set ProductOpPallet.Korttekst = ProductAPI.GeefProduct(ProductID).GeefKorttekst()
 		Set ProductOpPallet.MagazijnOmschrijving = ##class(Prod.Product).GetMagViaOpslagzone(ResultSet.Data("loc_m"))
 		Set ProductOpPallet.AantalSecties = ResultSet.Data("AantalSecties")
@@ -52,15 +53,18 @@
 	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.Prepare("SELECT CAST(qty_pcs AS INT) as Aantal, I.loc_id As PalletID, I.loc_m, L.loc_g, L.loc_x, L.loc_y, (SELECT count(1) FROM EWMS.Inventory WHERE loc_id = I.loc_id GROUP BY loc_id) as AantalSecties"
+							_" FROM EWMS.Inventory I"
+							_" JOIN EWMS.Locations L ON I.loc_m = L.loc_m and I.loc_id = L.loc_id"
+							_" WHERE product = ? AND I.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.LocatieID = ##class(BL.MB.UGLYPicking.General).GetTransLocStr(ResultSet.Data("loc_m"),ResultSet.Get("loc_g"),ResultSet.Get("loc_x"),ResultSet.Get("loc_y"))
 		Set ProductOpPallet.Korttekst = ProductAPI.GeefProduct(ProductID).GeefKorttekst()
 		Set ProductOpPallet.MagazijnOmschrijving = ##class(Prod.Product).GetMagViaOpslagzone(ResultSet.Data("loc_m"))
 		Set ProductOpPallet.AantalSecties = ResultSet.Data("AantalSecties")