Index: WS/Halux/PPS/MatService/GeefBatchesMetMatResponse.cls.xml
===================================================================
diff -u
--- WS/Halux/PPS/MatService/GeefBatchesMetMatResponse.cls.xml	(revision 0)
+++ WS/Halux/PPS/MatService/GeefBatchesMetMatResponse.cls.xml	(revision 71992)
@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.Halux.PPS.MatService.GeefBatchesMetMatResponse">
+<Super>WS.Halux.PPS.MatService.GeneriekResponse</Super>
+
+<Property name="BatchesMetMat">
+<Type>WS.Halux.PPS.MatService.BatchOmschrijvingDto</Type>
+<Collection>list</Collection>
+<Required>1</Required>
+</Property>
+</Class>
+
+
+</Export>
Index: vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.Halux.PPS.MatService.txt
===================================================================
diff -u -r71700 -r71992
--- vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.Halux.PPS.MatService.txt	(.../WS.Halux.PPS.MatService.txt)	(revision 71700)
+++ vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.Halux.PPS.MatService.txt	(.../WS.Halux.PPS.MatService.txt)	(revision 71992)
@@ -113,6 +113,50 @@
                     <s:maxLength value="50"/>
                 </s:restriction>
             </s:simpleType>
+            <s:element name="GeefBatchLijstMetMat">
+                <s:complexType>
+                    <s:sequence>
+                        <s:element minOccurs="0" name="GeefBatchesMetMatRequest" type="s0:GeefBatchesMetMatRequest"/>
+                    </s:sequence>
+                </s:complexType>
+            </s:element>
+            <s:complexType name="GeefBatchesMetMatRequest">
+                <s:sequence>
+                    <s:element name="All" type="s:boolean"/>
+                </s:sequence>
+            </s:complexType>
+            <s:element name="GeefBatchLijstMetMatResponse">
+                <s:complexType>
+                    <s:sequence>
+                        <s:element name="GeefBatchLijstMetMatResult" type="s0:GeefBatchesMetMatResponse"/>
+                    </s:sequence>
+                </s:complexType>
+            </s:element>
+            <s:complexType name="GeefBatchesMetMatResponse">
+                <s:complexContent>
+                    <s:extension base="s0:GeneriekResponse">
+                        <s:sequence>
+                            <s:element name="BatchesMetMat" type="s0:ArrayOfBatchOmschrijvingDtoBatchOmschrijvingDto"/>
+                        </s:sequence>
+                    </s:extension>
+                </s:complexContent>
+            </s:complexType>
+            <s:complexType name="ArrayOfBatchOmschrijvingDtoBatchOmschrijvingDto">
+                <s:sequence>
+                    <s:element maxOccurs="unbounded" minOccurs="0" name="BatchOmschrijvingDto" nillable="true" type="s0:BatchOmschrijvingDto"/>
+                </s:sequence>
+            </s:complexType>
+            <s:complexType name="BatchOmschrijvingDto">
+                <s:complexContent>
+                    <s:extension base="s0:DataTransferObject">
+                        <s:sequence>
+                            <s:element name="BatchKey" type="s0:String"/>
+                            <s:element name="BatchKortOmschrijving" type="s0:String"/>
+                            <s:element name="BatchOmschrijving" type="s0:String"/>
+                        </s:sequence>
+                    </s:extension>
+                </s:complexContent>
+            </s:complexType>
             <s:element name="ZetStatusGesneden">
                 <s:complexType>
                     <s:sequence>
@@ -153,6 +197,12 @@
     <message name="GeefAfmetingenViaBatchIdSoapOut">
         <part name="parameters" element="s0:GeefAfmetingenViaBatchIdResponse"/>
     </message>
+    <message name="GeefBatchLijstMetMatSoapIn">
+        <part name="parameters" element="s0:GeefBatchLijstMetMat"/>
+    </message>
+    <message name="GeefBatchLijstMetMatSoapOut">
+        <part name="parameters" element="s0:GeefBatchLijstMetMatResponse"/>
+    </message>
     <message name="ZetStatusGesnedenSoapIn">
         <part name="parameters" element="s0:ZetStatusGesneden"/>
     </message>
@@ -164,6 +214,10 @@
             <input message="s0:GeefAfmetingenViaBatchIdSoapIn"/>
             <output message="s0:GeefAfmetingenViaBatchIdSoapOut"/>
         </operation>
+        <operation name="GeefBatchLijstMetMat">
+            <input message="s0:GeefBatchLijstMetMatSoapIn"/>
+            <output message="s0:GeefBatchLijstMetMatSoapOut"/>
+        </operation>
         <operation name="ZetStatusGesneden">
             <input message="s0:ZetStatusGesnedenSoapIn"/>
             <output message="s0:ZetStatusGesnedenSoapOut"/>
@@ -180,6 +234,15 @@
                 <soap:body use="literal"/>
             </output>
         </operation>
+        <operation name="GeefBatchLijstMetMat">
+            <soap:operation soapAction="http://www.vanhoecke.be/Halux/PPS/MatService/WS.Halux.PPS.MatService.GeefBatchLijstMetMat" style="document"/>
+            <input>
+                <soap:body use="literal"/>
+            </input>
+            <output>
+                <soap:body use="literal"/>
+            </output>
+        </operation>
         <operation name="ZetStatusGesneden">
             <soap:operation soapAction="http://www.vanhoecke.be/Halux/PPS/MatService/WS.Halux.PPS.MatService.ZetStatusGesneden" style="document"/>
             <input>
Index: WS/Halux/PPS/MatService/GeefBatchesMetMatRequest.cls.xml
===================================================================
diff -u
--- WS/Halux/PPS/MatService/GeefBatchesMetMatRequest.cls.xml	(revision 0)
+++ WS/Halux/PPS/MatService/GeefBatchesMetMatRequest.cls.xml	(revision 71992)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.Halux.PPS.MatService.GeefBatchesMetMatRequest">
+<Super>%SerialObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLIGNORENULL">
+<Type>STRING</Type>
+<Default>1</Default>
+</Parameter>
+
+<Property name="All">
+<Type>%Boolean</Type>
+<Required>1</Required>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>GeefBatchesMetMatRequestState</State>
+<StreamLocation>^WS.Halux.P31D1.GeefBatches6661S</StreamLocation>
+<Data name="GeefBatchesMetMatRequestState">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>All</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: WSimpl/Halux/PPS/MatService.cls.xml
===================================================================
diff -u -r66761 -r71992
--- WSimpl/Halux/PPS/MatService.cls.xml	(.../MatService.cls.xml)	(revision 66761)
+++ WSimpl/Halux/PPS/MatService.cls.xml	(.../MatService.cls.xml)	(revision 71992)
@@ -13,20 +13,38 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ProductTypeApi">
+<Type>DOM.PM.ProductTypeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="IngegevenKenmerkenApi">
+<Type>DOM.PM.IngegevenKenmerkenAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Werkpost">
+<Type>APPS.Halux.PPS.TBXZaag.impl.Werkpost</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="DateTimeApi">
 <Type>TECH.DateTime.DateTimeAPI</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>BatchService:APPS.Halux.common.impl.BatchService="",MatInfoRepository:DOM.Halux.PPS.MatInfoRepository=""</FormalSpec>
+<FormalSpec>BatchService:APPS.Halux.common.impl.BatchService="",MatInfoRepository:DOM.Halux.PPS.MatInfoRepository="",ProductTypeApi:DOM.PM.ProductTypeAPI="",IngegevenKenmerkenApi:DOM.PM.IngegevenKenmerkenAPI=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..BatchService = $$$Inject(BatchService, ##class(APPS.Halux.common.impl.BatchService).%New())
 	Set ..MatInfoRepository = $$$Inject(MatInfoRepository, ##class(DOM.Halux.PPS.MatInfoRepository).%New())
+	Set ..ProductTypeApi = $$$Inject(ProductTypeApi, ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI())
+	Set ..IngegevenKenmerkenApi = $$$Inject(IngegevenKenmerkenApi, ##class(DOM.PM.impl.IngegevenKenmerkenAPIimpl).%New())
+	Set ..Werkpost = ##class(APPS.Halux.PPS.TBXZaag.impl.Werkpost).%New("")
 	Set ..DateTimeApi = ##class(TECH.Context).Instance().GeefDateTimeAPI()
 	
 	Quit $$$OK
@@ -123,6 +141,44 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefBatchLijstMetMat">
+<FormalSpec>GeefBatchesMetMatRequest:WS.Halux.PPS.MatService.GeefBatchesMetMatRequest</FormalSpec>
+<ReturnType>WS.Halux.PPS.MatService.GeefBatchesMetMatResponse</ReturnType>
+<Implementation><![CDATA[
+	Set Response = ##class(WS.Halux.PPS.MatService.GeefBatchesMetMatResponse).%New()
+	
+	Try {
+		Set LijstBatchesMetMat = ##class(%ListOfObjects).%New()
+		#dim DataSet As %XML.DataSet = ..Werkpost.GeefBatchLijst("", GeefBatchesMetMatRequest.All)
+		Do ..ValideerActieveBatchesDataSet(DataSet)
+		
+		Do DataSet.Execute()
+		While (DataSet.Next()) {
+			#dim BatchKey As %String = DataSet.Get("BatchKey")
+			#dim BatchId As %String = $Piece(BatchKey, "||", 1)
+
+			#dim Batch As APPS.Halux.common.Batch = ..BatchService.GeefBatch(BatchId)
+			If (..IsCategorieOndersteund(Batch.GeefCategorie()) && (..BevatBatchMat(Batch))) {
+				Set BatchOmschrijvingDto = ##class(WS.Halux.PPS.MatService.BatchOmschrijvingDto).%New()
+				Set BatchOmschrijvingDto.BatchKey = BatchKey
+				Set BatchOmschrijvingDto.BatchKortOmschrijving = DataSet.Get("BatchOms")
+				Set BatchOmschrijvingDto.BatchOmschrijving = DataSet.Get("BatchLangeOms")
+				Do LijstBatchesMetMat.Insert(BatchOmschrijvingDto)
+			}
+		}
+		
+		Set Response.BatchesMetMat = LijstBatchesMetMat
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Set Response.Header.Status = Exception.GeefExceptionCode()
+		Set Response.Header.Omschrijving = Exception.GeefOmschrijving()
+	}
+	
+	
+	Quit Response
+]]></Implementation>
+</Method>
+
 <Method name="IsCategorieOndersteund">
 <FormalSpec>Categorie:APPS.Halux.common.enu.Categorie</FormalSpec>
 <Private>1</Private>
@@ -191,6 +247,56 @@
 	Quit MatAfmetingenDto
 ]]></Implementation>
 </Method>
+
+<Method name="ValideerActieveBatchesDataSet">
+<FormalSpec>DataSet:%XML.DataSet</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set VereisteKolommen = ##class(%ListOfDataTypes).%New()
+	Do VereisteKolommen.Insert("BatchKey")
+	Do VereisteKolommen.Insert("BatchOms")
+	Do VereisteKolommen.Insert("BatchLangeOms")
+	
+	#dim MetaData As %ResultSet.MetaData = DataSet.%GetMetaData()
+    #dim Columns As %ListOfObjects = MetaData.columns
+   	#dim Index As %Integer
+   	
+   	For Index = 1:1:Columns.Size {
+   		#dim Column As %ResultSet.MD.Column = Columns.GetAt(Index)
+   		If ($$$Not(VereisteKolommen.Find(Column.colName))) {
+	   		Set DataCorruptException = ##class(TECH.Exceptions.DataCorruptException).%New("Opgehaalde data is niet geldig. De property '" _ Column.colName _ "' komt niet voor in de lijst met geldige properties.")
+	   		do ##class(TECH.ExceptionHandler).Throw(DataCorruptException)
+   		}
+   	}
+]]></Implementation>
+</Method>
+
+<Method name="BevatBatchMat">
+<FormalSpec>Batch:APPS.Halux.common.Batch</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim BevatMat As %Boolean = $$$False
+	#dim ToeleveringIterator As TECH.Iterator = Batch.GeefToeleveringIterator()
+	
+	While (ToeleveringIterator.HasNext() && $$$Not(BevatMat)) {
+		#dim Toelevering As DOM.AKP.Toelevering = ToeleveringIterator.Next()
+		#dim ProductLijnIterator = Toelevering.GeefProductLijnIterator()
+		
+		While (ProductLijnIterator.HasNext() && $$$Not(BevatMat)) {
+			#dim ProductLijn As DOM.AKP.ProductToeleveringLijn = ProductLijnIterator.Next()
+			
+			If ..ProductTypeApi.IsMaatwerkProduct(ProductLijn.GeefProductID()) {
+				#dim Product As DOM.PM.MaatwerkProduct = ..ProductTypeApi.GeefMaatwerkProduct(ProductLijn.GeefProductID())
+				#dim IngegevenKenmerken = Product.GeefIngegevenKenmerken()
+				
+				Set BevatMat = ..IngegevenKenmerkenApi.HeeftGekoppeldeMat(IngegevenKenmerken)	
+			}	
+		}
+	}
+	Quit BevatMat
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: WS/Halux/PPS/MatService.cls.xml
===================================================================
diff -u -r66634 -r71992
--- WS/Halux/PPS/MatService.cls.xml	(.../MatService.cls.xml)	(revision 66634)
+++ WS/Halux/PPS/MatService.cls.xml	(.../MatService.cls.xml)	(revision 71992)
@@ -47,6 +47,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefBatchLijstMetMat">
+<FormalSpec>GeefBatchesMetMatRequest:WS.Halux.PPS.MatService.GeefBatchesMetMatRequest</FormalSpec>
+<ReturnType>WS.Halux.PPS.MatService.GeefBatchesMetMatResponse</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit ..VerwerkRequest(GeefBatchesMetMatRequest, $$$CurrentMethod)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkRequest">
 <FormalSpec>Request:%CacheString,UitTeVoerenMethod:%String</FormalSpec>
 <Private>1</Private>
Index: WS/Halux/PPS/MatService/BatchOmschrijvingDto.cls.xml
===================================================================
diff -u
--- WS/Halux/PPS/MatService/BatchOmschrijvingDto.cls.xml	(revision 0)
+++ WS/Halux/PPS/MatService/BatchOmschrijvingDto.cls.xml	(revision 71992)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.Halux.PPS.MatService.BatchOmschrijvingDto">
+<Super>TECH.DataTransferObject</Super>
+
+<Property name="BatchKey">
+<Type>TECH.String</Type>
+<Required>1</Required>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+
+<Property name="BatchKortOmschrijving">
+<Type>TECH.String</Type>
+<Required>1</Required>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+
+<Property name="BatchOmschrijving">
+<Type>TECH.String</Type>
+<Required>1</Required>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+</Class>
+
+
+</Export>