Index: OBJTimpl/Herbevoorrading/ZendHerbevoorrading.cls.xml
===================================================================
diff -u -r67861 -r68790
--- OBJTimpl/Herbevoorrading/ZendHerbevoorrading.cls.xml	(.../ZendHerbevoorrading.cls.xml)	(revision 67861)
+++ OBJTimpl/Herbevoorrading/ZendHerbevoorrading.cls.xml	(.../ZendHerbevoorrading.cls.xml)	(revision 68790)
@@ -35,7 +35,7 @@
 
 <UDLText name="T">
 <Content><![CDATA[
-// d ##class(OBJTimpl.Herbevoorrading.ZendHerbevoorrading).%New().VerwerkTekorten()
+// d ##class(OBJTimpl.Herbevoorrading.ZendHerbevoorrading).%New(1).VerwerkTekorten()
 
 ]]></Content>
 </UDLText>
@@ -44,7 +44,6 @@
 <FormalSpec>NietVerzenden:%Boolean=0</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Do ##class(OBJTimpl.Herbevoorrading.BouwProductVoorraad).%New().Bouw()
 	Set ..DebugNietVerzenden=NietVerzenden
 	
 	Quit $$$OK
@@ -63,6 +62,8 @@
 <Implementation><![CDATA[
 	Lock +Herbevoorrading:0 Else  Quit
 	
+	Do ##class(OBJTimpl.Herbevoorrading.BouwProductVoorraad).%New().Bouw()
+	
 	#Dim it as TECH.Iterator
 	Set it=##class(OBJTimpl.Herbevoorrading.ProductVoorraadIterator).%New()
 	While it.HasNext()
Index: OBJTimpl/Herbevoorrading/ProductVoorraad.cls.xml
===================================================================
diff -u -r67861 -r68790
--- OBJTimpl/Herbevoorrading/ProductVoorraad.cls.xml	(.../ProductVoorraad.cls.xml)	(revision 67861)
+++ OBJTimpl/Herbevoorrading/ProductVoorraad.cls.xml	(.../ProductVoorraad.cls.xml)	(revision 68790)
@@ -77,6 +77,12 @@
 <Type>%Decimal</Type>
 </Property>
 
+<Property name="PODMultiple">
+<Description>
+Ingesteld in OBJT vanuit de verpakkingsconfiguratie en beperkt tot de producten in de productgroep 'PODMultiple'</Description>
+<Type>%Decimal</Type>
+</Property>
+
 <Property name="MinHerbevoorrading">
 <Description>
 Ingesteld in OBJT maar als niet ingevuld dan wordt de Drempel genomen </Description>
@@ -155,6 +161,9 @@
 <Value name="19">
 <Value>PRNr</Value>
 </Value>
+<Value name="20">
+<Value>PODMultiple</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: OBJTimpl/Herbevoorrading/OphalenProductenKlein.cls.xml
===================================================================
diff -u -r67861 -r68790
--- OBJTimpl/Herbevoorrading/OphalenProductenKlein.cls.xml	(.../OphalenProductenKlein.cls.xml)	(revision 67861)
+++ OBJTimpl/Herbevoorrading/OphalenProductenKlein.cls.xml	(.../OphalenProductenKlein.cls.xml)	(revision 68790)
@@ -37,11 +37,13 @@
 	#dim Status as %String = ""
     #dim SqlStatement as %String 
     Set SqlStatement= "  SELECT "
-	_ " it.NAME ITEMID"
-	_ " ,it.DESCRIPTION"
- 	_ " ,it.USRNUM2 as DREMPEL" ;_ " ,case when it.NAME = '0.888.547.3' then 250 when it.NAME = '0.644.998.3' then 100 when it.NAME = '0.661.673.8' then 100 else it.USRNUM2 end as DREMPEL"
- 	_ " ,it.USRNUM3 as MINAANTAL"
+	_ "  it.NAME ITEMID"
+	_ "  ,it.DESCRIPTION"
+ 	_ "  ,it.USRNUM2 as DREMPEL" ;_ " ,case when it.NAME = '0.888.547.3' then 250 when it.NAME = '0.644.998.3' then 100 when it.NAME = '0.661.673.8' then 100 else it.USRNUM2 end as DREMPEL"
+ 	_ "  ,it.USRNUM3 as MINAANTAL"
+ 	_ "  ,case when CHILDOID is null then null else it.USRNUM2 end PODMULTIPLE"
     _ " FROM objt_item it "
+    _ " LEFT OUTER JOIN OBJT_ITEMLINK on Childclassname ='objt.custom.common.itemmgt.bo.Item' and ParentClassName='objt.common.itemmgt.bo.ItemGroup' and [PARENTOID]=14726528 and CHILDOID=it.OID"
     _ " WHERE isnull(it.USRNUM2,0)>0 " ; or it.NAME in ('0.661.673.8','0.644.998.3','0.888.547.3')"
     
     try
Index: OBJTimpl/Herbevoorrading/OphalenVoorraad.cls.xml
===================================================================
diff -u -r67861 -r68790
--- OBJTimpl/Herbevoorrading/OphalenVoorraad.cls.xml	(.../OphalenVoorraad.cls.xml)	(revision 67861)
+++ OBJTimpl/Herbevoorrading/OphalenVoorraad.cls.xml	(.../OphalenVoorraad.cls.xml)	(revision 68790)
@@ -45,7 +45,7 @@
   	_ " join OBJT_WAREHOUSE wh on ir.WAREHOUSEOID=wh.OID "
   	_ " where  tracelevel=1 "
   	_ " and (isnull(it.USRNUM2,0)>0  ) " ;or it.NAME in ('0.661.673.8','0.644.998.3','0.888.547.3'))"
-  	_ " and wh.Name in ('06','07','04','05','01')"
+  	_ " and wh.Name in ('06','07','04','05','01',L7-','02')"
   	_ " group by it.Name"
     
     try
Index: OBJTimpl/Herbevoorrading/BouwProductVoorraad.cls.xml
===================================================================
diff -u -r67861 -r68790
--- OBJTimpl/Herbevoorrading/BouwProductVoorraad.cls.xml	(.../BouwProductVoorraad.cls.xml)	(revision 67861)
+++ OBJTimpl/Herbevoorrading/BouwProductVoorraad.cls.xml	(.../BouwProductVoorraad.cls.xml)	(revision 68790)
@@ -215,6 +215,7 @@
 			Set ..ProductVoorraad.Drempel=rs.Data("DREMPEL")
 			Set ..ProductVoorraad.MinHerbevoorrading=rs.Data("MINAANTAL")
 			Set:+..ProductVoorraad.MinHerbevoorrading=0 ..ProductVoorraad.MinHerbevoorrading=..ProductVoorraad.Drempel
+			Set ..ProductVoorraad.PODMultiple=rs.Data("PODMULTIPLE")
 			Do ..ProductVoorraad.Save()
 		}
 	}