Index: WSimpl/Halux/PPS/MatService.cls.xml
===================================================================
diff -u
--- WSimpl/Halux/PPS/MatService.cls.xml	(revision 0)
+++ WSimpl/Halux/PPS/MatService.cls.xml	(revision 66506)
@@ -0,0 +1,131 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Halux.PPS.MatService">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="ProductieSequentieRepository">
+<Type>APPS.Halux.common.ProductieSequentieRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductApi">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ProductieSequentieRepository:APPS.Halux.common.ProductieSequentieRepository="",ProductApi:DOM.PM.ProductAPI=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ProductieSequentieRepository = $$$Implementation(ProductieSequentieRepository, ##class(APPS.Halux.common.impl.ProductieSequentieRepository).%New())
+	Set ..ProductApi = $$$Implementation(ProductApi, ##class(DOM.DomeinContext).%New().GeefProductAPI())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefAfmetingenViaBatchId">
+<FormalSpec>GeefAfmetingenRequest:WS.Halux.PPS.MatService.GeefAfmetingenRequest</FormalSpec>
+<ReturnType>WS.Halux.PPS.MatService.GeefAfmetingenResponse</ReturnType>
+<Implementation><![CDATA[
+	
+	Set Response = ##class(WS.Halux.PPS.MatService.GeefAfmetingenResponse).%New()
+	Try {
+		#dim BatchId As %Integer = GeefAfmetingenRequest.BatchId
+		#dim MatAfmetingenIterator As TECH.Iterator = ..GeefMatAfmetingenIterator(BatchId)
+		
+		If MatAfmetingenIterator.HasNext() {
+			Set Response.Header.Status = "200"
+			Set Response.BatchId = BatchId
+			While MatAfmetingenIterator.HasNext() {
+				Do Response.MatAfmetingen.Insert(..MatAfmetingenUitvoeringInfoNaarDto(MatAfmetingenIterator.Next()))	
+			}
+			
+		} Else {
+			Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).DataNotFound()
+			Set Response.Header.Omschrijving = "Geen data gevonden voor Batch met id '"_GeefAfmetingenRequest.BatchId_"'."
+		}
+	} 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="GeefMatAfmetingenIterator">
+<FormalSpec>BatchId:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.ListIterator</ReturnType>
+<Implementation><![CDATA[
+	#dim UitvoeringLijstIterator As TECH.ListIterator = ..GeefUitvoeringIterator(BatchId)
+	#dim MatAfmetingenLijst As %ListOfObjects = ##class(%ListOfObjects).%New()
+	
+	While (UitvoeringLijstIterator.HasNext()) {
+		#dim UitvoeringInfoLijst As APPS.Halux.PPS.dto.UitvoeringInfoLijst = UitvoeringLijstIterator.Next()
+		
+		Set UitvoeringInfoLijstIterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst)
+		While UitvoeringInfoLijstIterator.HasNext() {
+			#dim UitvoeringInfo As APPS.Halux.PPS.dto.UitvoeringInfo = UitvoeringInfoLijstIterator.Next()
+		
+			If ..IsMat(UitvoeringInfo) {
+				#dim MatUitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo = UitvoeringInfo
+				Do MatAfmetingenLijst.Insert(MatUitvoeringInfo)
+			}
+		}
+	}
+	
+	Quit ##class(TECH.ListIterator).%New(MatAfmetingenLijst)
+]]></Implementation>
+</Method>
+
+<Method name="GeefUitvoeringIterator">
+<FormalSpec>BatchId:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.ListIterator</ReturnType>
+<Implementation><![CDATA[
+	Set WerklijstItemsUitvoerder = ##class(APPS.Halux.PPS.Activiteit.impl.WerklijstItemsUitvoerder).%New()
+	Set ActieUitvoerder = ##class(APPS.Halux.PPS.impl.AansturingActieVoorActiviteit).%New()
+	
+	Set ActieUitvoerder.ActiviteitGroepID = "34" 	//LBX productiegroepID
+	Set ActieUitvoerder.ActiviteitID = "100" 		//LBX klantetiketten aansturingsactieID
+	
+	#dim WerklijstItemIDLijst As %ListOfDataTypes = ActieUitvoerder.GeefWerklijstItemIDLijst(BatchId, $$$False)
+	#dim UitvoeringInfoLijstPerInformatieID As %ArrayOfObjects = WerklijstItemsUitvoerder.GeefUitvoeringInfoLijstPerInformatieID(WerklijstItemIDLijst)
+	
+	Quit ##class(TECH.ListIterator).%New(UitvoeringInfoLijstPerInformatieID)
+]]></Implementation>
+</Method>
+
+<Method name="IsMat">
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.dto.UitvoeringInfo</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ($IsObject(UitvoeringInfo) && (UitvoeringInfo.%ClassName(1)="APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo"))
+]]></Implementation>
+</Method>
+
+<Method name="MatAfmetingenUitvoeringInfoNaarDto">
+<FormalSpec>MatUitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo</FormalSpec>
+<Private>1</Private>
+<ReturnType>WSimpl.Halux.PPS.dto.MatAfmeting</ReturnType>
+<Implementation><![CDATA[
+	Set MatAfmetingenDto = ##class(WSimpl.Halux.PPS.dto.MatAfmeting).%New()
+	
+	Set MatAfmetingenDto.Toelevering = MatUitvoeringInfo.ToeleveringID
+	Set MatAfmetingenDto.Diepte = MatUitvoeringInfo.Diepte
+	Set MatAfmetingenDto.Breedte = MatUitvoeringInfo.Breedte
+	Set MatAfmetingenDto.LadeCode = MatUitvoeringInfo.DossierCode
+	
+	Quit MatAfmetingenDto
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/Halux/PPS/dto/MatAfmeting.cls.xml
===================================================================
diff -u
--- WSimpl/Halux/PPS/dto/MatAfmeting.cls.xml	(revision 0)
+++ WSimpl/Halux/PPS/dto/MatAfmeting.cls.xml	(revision 66506)
@@ -0,0 +1,38 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Halux.PPS.dto.MatAfmeting">
+<Super>TECH.DataTransferObject</Super>
+
+<Parameter name="XMLIGNORENULL">
+<Type>%String</Type>
+<Default>0</Default>
+</Parameter>
+
+<Property name="Toelevering">
+<Type>%String</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="LadeCode">
+<Type>%String</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="Aantal">
+<Type>%String</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="Diepte">
+<Type>%Integer</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="Breedte">
+<Type>%Integer</Type>
+<Required>1</Required>
+</Property>
+</Class>
+
+
+</Export>