Index: vhTest/Fake/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ProductInfoFormatter.cls.xml
===================================================================
diff -u
--- vhTest/Fake/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ProductInfoFormatter.cls.xml	(revision 0)
+++ vhTest/Fake/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ProductInfoFormatter.cls.xml	(revision 35787)
@@ -0,0 +1,66 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ProductInfoFormatter">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ProductInfoFormatter</Super>
+
+<Method name="FormatteerBatch">
+<FormalSpec>BatchId:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="FormatteerBatchId">
+<FormalSpec>BatchId:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="FormatteerDossierCode">
+<FormalSpec>DossierCode:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="FormatteerKarInfo">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="FormatteerProductieSequentieNummer">
+<FormalSpec>ProductieSequentieNummer:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="FormatteerToelevering">
+<FormalSpec>ToeleveringId:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="FormatteerToeleveringId">
+<FormalSpec>ToeleveringId:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="FormatteerVakInfo">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ControleService.cls.xml
===================================================================
diff -u -r35717 -r35787
--- WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ControleService.cls.xml	(.../ControleService.cls.xml)	(revision 35717)
+++ WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ControleService.cls.xml	(.../ControleService.cls.xml)	(revision 35787)
@@ -3,6 +3,30 @@
 <Class name="WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ControleService">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="Repository">
+<Type>APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfoRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductInfoBepaler">
+<Type>WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ProductInfoBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Repository:APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfoRepository="",ProductInfoBepaler:WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ProductInfoBepaler=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Repository = $$$Inject(Repository, ##class(APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfoRepository).%New(##class(APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfoRepository).#DataClassName))
+	Set ..ProductInfoBepaler = $$$Inject(ProductInfoBepaler, ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ProductInfoBepaler).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefMetaData">
 <ReturnType>WS.Halux.PPS.Verpakking.TAXFlatpackV1Controle.MetaData</ReturnType>
 <Implementation><![CDATA[	Quit ""
@@ -12,7 +36,13 @@
 <Method name="GeefData">
 <FormalSpec>Id:%String</FormalSpec>
 <ReturnType>WS.Halux.PPS.Verpakking.TAXFlatpackV1Controle.Data</ReturnType>
-<Implementation><![CDATA[	Quit ""
+<Implementation><![CDATA[
+	#dim UitvoeringInfo As APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo = ..Repository.GeefViaVerwerkingId(Id)	
+	#dim Data As WS.Halux.PPS.Verpakking.TAXFlatpackV1Controle.Data = ##class(WS.Halux.PPS.Verpakking.TAXFlatpackV1Controle.Data).%New()
+	
+	Set Data.ProductInfo = ..ProductInfoBepaler.GeefProductInfo(UitvoeringInfo)
+	
+	Quit Data
 ]]></Implementation>
 </Method>
 
Index: vhTest/Fake/APPS/Halux/PPS/dto/SequentieGebaseerdeUitvoeringInfoRepository.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/Halux/PPS/dto/SequentieGebaseerdeUitvoeringInfoRepository.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/Halux/PPS/dto/SequentieGebaseerdeUitvoeringInfoRepository.cls.xml	(revision 35787)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfoRepository">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfoRepository</Super>
+
+<Method name="GeefViaVerwerkingId">
+<FormalSpec>VerwerkingId:%String</FormalSpec>
+<ReturnType>APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/Halux/PPS/dto/SequentieGebaseerdeUitvoeringInfoRepository/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/PPS/dto/SequentieGebaseerdeUitvoeringInfoRepository/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/PPS/dto/SequentieGebaseerdeUitvoeringInfoRepository/Test.cls.xml	(revision 35787)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfoRepository.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: QueryAPI en GateWay worden opgeroepen">
+<Implementation><![CDATA[
+	#dim Statement as %String = "SELECT ID FROM APPS_Halux_PPS_dto.SequentieGebaseerdeUitvoeringInfo WHERE VerwerkingID = ?" 
+	#dim Query As TECH.DynamicQuery = ##class(TECH.DynamicQuery).%New(Statement, $ListBuild($$$DummyInteger))
+	#dim ResultSet As TECH.ResultSet = ##class(vhTest.Fake.TECH.ResultSet).%New(##class(TECH.ListUtils).CreateListOfDataTypes("UitvoeringInfoId"), ##class(TECH.ListUtils).CreateListOfDataTypes("ID"))
+	#dim QueryAPIMock As vhTest.Mock.TECH.Query.QueryAPI = ##class(vhTest.Mock.TECH.Query.QueryAPI).MockInstance()
+	#dim GateWayMock As vhTest.Mock.TECH.Persistent.impl.Gateway = ##class(vhTest.Mock.TECH.Persistent.impl.Gateway).%New(##class(APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfoRepository).#DataClassName)
+	#dim Repository As APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfoRepository = ##class(APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfoRepository).%New(GateWayMock, QueryAPIMock)
+	
+	Do QueryAPIMock.VerwachtMethodCall("GetResultSet", $$$ElkeWaarde).DanReturn(ResultSet)
+	Do GateWayMock.VerwachtMethodCall("OpenId", "UitvoeringInfoId").DanReturn(##class(APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo).%New())
+	
+	Do Repository.GeefViaVerwerkingId($$$DummyInteger)
+	
+	Do QueryAPIMock.Verifieer()
+	Do GateWayMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ControleService/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ControleService/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ControleService/Test.cls.xml	(revision 35787)
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ControleService.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: SequentieGebaseerdeUitvoeringInfoRepository wordt opgeroepen">
+<Implementation><![CDATA[
+	#dim RepositoryMock As vhTest.Mock.APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfoRepository = ##class(vhTest.Mock.APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfoRepository).%New()
+	#dim ProductInfoBepalerStub As vhTest.Mock.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ProductInfoBepaler = ##class(vhTest.Mock.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ProductInfoBepaler).%New()
+	#dim ControleService As WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ControleService = ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ControleService).%New(RepositoryMock, ProductInfoBepalerStub)
+
+	Do ProductInfoBepalerStub.IndienMethodCall("GeefProductInfo", $$$ElkeWaarde).DanReturn(##class(%ListOfDataTypes).%New())
+	Do RepositoryMock.VerwachtMethodCall("GeefViaVerwerkingId", $$$DummyInteger).DanReturn(##class(APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo).%New())
+	
+	Do ControleService.GeefData($$$DummyInteger)
+	
+	Do RepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: ProductInfoBepaler wordt opgeroepen">
+<Implementation><![CDATA[
+	#dim ProductInfoBepalerMock As vhTest.Mock.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ProductInfoBepaler = ##class(vhTest.Mock.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ProductInfoBepaler).%New()
+	#dim RepositoryStub As vhTest.Mock.APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfoRepository = ##class(vhTest.Mock.APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfoRepository).%New()
+	#dim ControleService As WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ControleService = ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ControleService).%New(RepositoryStub, ProductInfoBepalerMock)
+	#dim UitvoeringInfo As APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo = ##class(APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo).%New()
+	
+	Do RepositoryStub.IndienMethodCall("GeefViaVerwerkingId", $$$DummyInteger).DanReturn(UitvoeringInfo)
+	Do ProductInfoBepalerMock.VerwachtMethodCall("GeefProductInfo", UitvoeringInfo)
+	
+	Do ControleService.GeefData($$$DummyInteger)
+	
+	Do ProductInfoBepalerMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/APPS/Halux/PPS/dto/SequentieGebaseerdeUitvoeringInfoRepository.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/Halux/PPS/dto/SequentieGebaseerdeUitvoeringInfoRepository.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/Halux/PPS/dto/SequentieGebaseerdeUitvoeringInfoRepository.cls.xml	(revision 35787)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfoRepository">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfoRepository,vhTest.Mock.TECH.Persistentie.Repository</Super>
+<Inheritance>right</Inheritance>
+
+<Parameter name="DataClassName">
+<Type>%String</Type>
+<Default>APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo</Default>
+</Parameter>
+
+<Method name="GeefViaVerwerkingId">
+<FormalSpec>VerwerkingId:%String</FormalSpec>
+<ReturnType>APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefViaVerwerkingId",VerwerkingId)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ProductInfoBepaler/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ProductInfoBepaler/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ProductInfoBepaler/Test.cls.xml	(revision 35787)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ProductInfoBepaler.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Methods worden opgeroepen door GeefProductInfo-method">
+<Implementation><![CDATA[
+	#dim QueryAPIStub As vhTest.Mock.TECH.Query.QueryAPI = ##class(vhTest.Mock.TECH.Query.QueryAPI).%New()
+	#dim ProductStub As vhTest.Mock.DOM.PM.MaatwerkProduct = ##class(vhTest.Mock.DOM.PM.MaatwerkProduct).%New()
+	#dim ProductAPIStub As vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).MockInstance()
+	
+	Do ProductStub.IndienMethodCall("GeefIngegevenKenmerken").DanReturn(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade())
+	Do ProductAPIStub.IndienMethodCall("GeefProduct", $$$ElkeWaarde).DanReturn(ProductStub)
+	
+	#dim AssemblageKarRepositoryMock As vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository = ##class(vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository).%New(QueryAPIStub)
+	#dim VakBepalerMock As vhTest.Mock.APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.VakBepaler = ##class(vhTest.Mock.APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.VakBepaler).%New()
+	#dim ProductInfoFormatterMock As vhTest.Mock.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ProductInfoFormatter = ##class(vhTest.Mock.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ProductInfoFormatter).%New()
+	#dim ProductInfoBepaler As WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ProductInfoBepaler = ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ProductInfoBepaler).%New(ProductInfoFormatterMock, AssemblageKarRepositoryMock, VakBepalerMock)
+
+	Do AssemblageKarRepositoryMock.VerwachtMethodCall("GeefKarVolgnummerViaSequentieNr", $$$ElkeWaarde, $$$ElkeWaarde, $$$ElkeWaarde).DanReturn($$$DummyInteger)
+	Do AssemblageKarRepositoryMock.VerwachtMethodCall("GeefAantalKarren", $$$ElkeWaarde).DanReturn($$$DummyInteger)
+	
+	Do VakBepalerMock.VerwachtMethodCall("GeefAantalVakkenNodig", $$$ElkeWaarde).DanReturn($$$DummyInteger)
+	
+	Do ProductInfoFormatterMock.VerwachtMethodCall("FormatteerBatchId", $$$ElkeWaarde)
+	Do ProductInfoFormatterMock.VerwachtMethodCall("FormatteerToeleveringId", $$$ElkeWaarde)
+	Do ProductInfoFormatterMock.VerwachtMethodCall("FormatteerDossierCode", $$$ElkeWaarde)
+	Do ProductInfoFormatterMock.VerwachtMethodCall("FormatteerProductieSequentieNummer", $$$ElkeWaarde)
+	Do ProductInfoFormatterMock.VerwachtMethodCall("FormatteerKarInfo", $$$ElkeWaarde, $$$ElkeWaarde)
+	Do ProductInfoFormatterMock.VerwachtMethodCall("FormatteerVakInfo", $$$ElkeWaarde)
+	
+	Do ProductInfoBepaler.GeefProductInfo(##class(APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo).%New())
+	
+	Do ProductInfoFormatterMock.Verifieer()
+	Do VakBepalerMock.Verifieer()
+	Do AssemblageKarRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ProductInfoFormatter.cls.xml
===================================================================
diff -u
--- WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ProductInfoFormatter.cls.xml	(revision 0)
+++ WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ProductInfoFormatter.cls.xml	(revision 35787)
@@ -0,0 +1,50 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ProductInfoFormatter">
+<Super>TECH.Mockable</Super>
+
+<Method name="FormatteerBatchId">
+<FormalSpec>BatchId:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $Extract(BatchId, *-2, *)
+]]></Implementation>
+</Method>
+
+<Method name="FormatteerToeleveringId">
+<FormalSpec>ToeleveringId:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $Extract(ToeleveringId, *-3, *)
+]]></Implementation>
+</Method>
+
+<Method name="FormatteerDossierCode">
+<FormalSpec>DossierCode:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit DossierCode
+]]></Implementation>
+</Method>
+
+<Method name="FormatteerProductieSequentieNummer">
+<FormalSpec>ProductieSequentieNummer:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ProductieSequentieNummer
+]]></Implementation>
+</Method>
+
+<Method name="FormatteerKarInfo">
+<FormalSpec>HuidigKarNummer:%String,TotaalAantalKarren:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit HuidigKarNummer _ " van " _ TotaalAantalKarren
+]]></Implementation>
+</Method>
+
+<Method name="FormatteerVakInfo">
+<FormalSpec>AantalVakken:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit AantalVakken
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ProductInfoFormatter.cls.xml
===================================================================
diff -u
--- vhTest/Mock/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ProductInfoFormatter.cls.xml	(revision 0)
+++ vhTest/Mock/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ProductInfoFormatter.cls.xml	(revision 35787)
@@ -0,0 +1,56 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ProductInfoFormatter">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ProductInfoFormatter,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="FormatteerBatchId">
+<FormalSpec>BatchId:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("FormatteerBatchId",BatchId)
+]]></Implementation>
+</Method>
+
+<Method name="FormatteerDossierCode">
+<FormalSpec>DossierCode:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("FormatteerDossierCode",DossierCode)
+]]></Implementation>
+</Method>
+
+<Method name="FormatteerKarInfo">
+<FormalSpec>HuidigKarNummer:%String,TotaalAantalKarren:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("FormatteerKarInfo",HuidigKarNummer,TotaalAantalKarren)
+]]></Implementation>
+</Method>
+
+<Method name="FormatteerProductieSequentieNummer">
+<FormalSpec>ProductieSequentieNummer:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("FormatteerProductieSequentieNummer",ProductieSequentieNummer)
+]]></Implementation>
+</Method>
+
+<Method name="FormatteerToeleveringId">
+<FormalSpec>ToeleveringId:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("FormatteerToeleveringId",ToeleveringId)
+]]></Implementation>
+</Method>
+
+<Method name="FormatteerVakInfo">
+<FormalSpec>AantalVakken:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("FormatteerVakInfo",AantalVakken)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ProductInfoBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Mock/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ProductInfoBepaler.cls.xml	(revision 0)
+++ vhTest/Mock/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ProductInfoBepaler.cls.xml	(revision 35787)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ProductInfoBepaler">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ProductInfoBepaler,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="GeefProductInfo">
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo</FormalSpec>
+<ReturnType>%ArrayOfDataTypes</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefProductInfo",UitvoeringInfo)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ProductInfoBepaler.cls.xml
===================================================================
diff -u
--- WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ProductInfoBepaler.cls.xml	(revision 0)
+++ WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ProductInfoBepaler.cls.xml	(revision 35787)
@@ -0,0 +1,59 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ProductInfoBepaler">
+<Super>TECH.Mockable</Super>
+
+<Property name="ProductInfoFormatter">
+<Type>WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ProductInfoFormatter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AssemblageKarRepository">
+<Type>APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VakBepaler">
+<Type>APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.VakBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ProductInfoFormatter:WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ProductInfoFormatter="",AssemblageKarRepository:APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository="",VakBepaler:APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.VakBepaler=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ProductInfoFormatter = $$$Inject(ProductInfoFormatter, ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ProductInfoFormatter).%New())
+	Set ..AssemblageKarRepository = $$$Inject(AssemblageKarRepository, ##class(APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository).%New())
+	Set ..VakBepaler = $$$Inject(VakBepaler, ##class(APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKar.VakBepaler).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductInfo">
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo</FormalSpec>
+<ReturnType>%ArrayOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductInfo As %ArrayOfDataTypes = ##class(%ArrayOfDataTypes).%New()
+	#dim Product As DOM.PM.MaatwerkProduct = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(UitvoeringInfo.ProductID)
+	#dim HuidigKarNummer As %String = ..AssemblageKarRepository.GeefKarVolgnummerViaSequentieNr(UitvoeringInfo.BatchID, UitvoeringInfo.SequentieNummer)
+	#dim TotaalAantalKarren As %String = ..AssemblageKarRepository.GeefAantalKarren(UitvoeringInfo.BatchID)
+	#dim AantalVakken As %Integer = ..VakBepaler.GeefAantalVakkenNodig(Product.GeefIngegevenKenmerken())
+
+	Do ProductInfo.SetAt(..ProductInfoFormatter.FormatteerBatchId(UitvoeringInfo.BatchID), "Batch")
+	Do ProductInfo.SetAt(..ProductInfoFormatter.FormatteerToeleveringId(UitvoeringInfo.ToeleveringID), "Toelevering")
+	Do ProductInfo.SetAt(..ProductInfoFormatter.FormatteerDossierCode(UitvoeringInfo.DossierCode), "Dossiercode")
+	Do ProductInfo.SetAt(..ProductInfoFormatter.FormatteerProductieSequentieNummer(UitvoeringInfo.SequentieNummer), "Productiesequentienummer")
+	Do ProductInfo.SetAt(..ProductInfoFormatter.FormatteerKarInfo(HuidigKarNummer, TotaalAantalKarren), "Kar")
+	Do ProductInfo.SetAt(..ProductInfoFormatter.FormatteerVakInfo(AantalVakken), "Vak(ken)")
+	
+	Quit ProductInfo
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/dto/SequentieGebaseerdeUitvoeringInfoRepository.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/dto/SequentieGebaseerdeUitvoeringInfoRepository.cls.xml	(revision 0)
+++ APPS/Halux/PPS/dto/SequentieGebaseerdeUitvoeringInfoRepository.cls.xml	(revision 35787)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfoRepository">
+<Super>TECH.Persistentie.Repository,TECH.Mockable</Super>
+
+<Parameter name="DataClassName">
+<Type>%String</Type>
+<Default>APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo</Default>
+</Parameter>
+
+<Method name="GeefViaVerwerkingId">
+<FormalSpec>VerwerkingId:%String</FormalSpec>
+<ReturnType>APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefViaFilter("VerwerkingID = ?", $ListBuild(VerwerkingId))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WS/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ControleService.cls.xml
===================================================================
diff -u -r35722 -r35787
--- WS/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ControleService.cls.xml	(.../ControleService.cls.xml)	(revision 35722)
+++ WS/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ControleService.cls.xml	(.../ControleService.cls.xml)	(revision 35787)
@@ -45,7 +45,7 @@
 	
 	#dim ServiceKlasseNaam As TECH.String = ##class(TECH.Config.ConfigMgr).Instance().GeefString("Verpakking_ControleService_GeefData")
 	#dim Service As WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ControleService = ..ObjectAPI.New(ServiceKlasseNaam)
-	
+
 	Quit Service.GeefData(Id)
 	;Quit ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ControleService).%New().GeefData(Id)
 ]]></Implementation>
Index: vhTest/Fake/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ProductInfoBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Fake/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ProductInfoBepaler.cls.xml	(revision 0)
+++ vhTest/Fake/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ProductInfoBepaler.cls.xml	(revision 35787)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ProductInfoBepaler">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ProductInfoBepaler</Super>
+
+<Method name="GeefProductInfo">
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo</FormalSpec>
+<ReturnType>%ArrayOfDataTypes</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ControleServiceDummy.cls.xml
===================================================================
diff -u -r35725 -r35787
--- WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ControleServiceDummy.cls.xml	(.../ControleServiceDummy.cls.xml)	(revision 35725)
+++ WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ControleServiceDummy.cls.xml	(.../ControleServiceDummy.cls.xml)	(revision 35787)
@@ -33,7 +33,7 @@
 <Method name="GeefData">
 <FormalSpec>Id:%String</FormalSpec>
 <ReturnType>WS.Halux.PPS.Verpakking.TAXFlatpackV1Controle.Data</ReturnType>
-<Implementation><![CDATA[    Quit ..XMLCorrelater.GeefObjectVanBestand(..#XMLFolder _ "GeefData\" _ Id _ ".xml", ##class(WS.Halux.PPS.Verpakking.TAXFlatpackV1Controle.Data).%ClassName(1), "Data")
+<Implementation><![CDATA[	Quit ..XMLCorrelater.GeefObjectVanBestand(..#XMLFolder _ "GeefData\" _ Id _ ".xml", ##class(WS.Halux.PPS.Verpakking.TAXFlatpackV1Controle.Data).%ClassName(1), "Data")
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ProductInfoFormatter/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ProductInfoFormatter/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/ProductInfoFormatter/Test.cls.xml	(revision 35787)
@@ -0,0 +1,88 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ProductInfoFormatter.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="ProductInfoFormatter">
+<Type>WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ProductInfoFormatter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Set ..ProductInfoFormatter = ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.ProductInfoFormatter).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: FormatteerBatch geeft laatste 3 cijfers terug van batchnummer">
+<Implementation><![CDATA[
+	Do ..AsserBatchId("123456", "456", 3)
+	Do ..AsserBatchId("", "", 0)
+	Do ..AsserBatchId("12", "12", 2)
+]]></Implementation>
+</Method>
+
+<Method name="Test: FormatteerToelevering geeft laatste 4 cijfers terug van toeleveringnummer">
+<Implementation><![CDATA[
+	Do ..AssertToeleveringId("123456", "3456", 4)
+	Do ..AssertToeleveringId("", "", 0)
+	Do ..AssertToeleveringId("12", "12", 2)
+]]></Implementation>
+</Method>
+
+<Method name="Test: FormatteerDossierCode geeft dossiercode terug">
+<Implementation><![CDATA[	Do ..AssertOnGeformatteerdeWaarde(..ProductInfoFormatter.FormatteerDossierCode("123456"), "123456")
+]]></Implementation>
+</Method>
+
+<Method name="Test: FormatteerProductSequentieNummer">
+<Implementation><![CDATA[	Do ..AssertOnGeformatteerdeWaarde(..ProductInfoFormatter.FormatteerProductieSequentieNummer("123456"), "123456")
+]]></Implementation>
+</Method>
+
+<Method name="Test: FormatteerKarInfo">
+<Implementation><![CDATA[	Do $$$AssertEquals(..ProductInfoFormatter.FormatteerKarInfo("15", "20"), "15 van 20")
+]]></Implementation>
+</Method>
+
+<Method name="Test: FormatteerVakInfo">
+<Implementation><![CDATA[	Do ..AssertOnGeformatteerdeWaarde(..ProductInfoFormatter.FormatteerVakInfo("12"), "12")
+]]></Implementation>
+</Method>
+
+<Method name="AsserBatchId">
+<FormalSpec>BatchId:%String,VerwachteWaarde:%String,VerwachteLengte:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..AssertGeformatteerdeWaarde(..ProductInfoFormatter.FormatteerBatchId(BatchId), VerwachteWaarde, VerwachteLengte)
+]]></Implementation>
+</Method>
+
+<Method name="AssertToeleveringId">
+<FormalSpec>ToeleveringId:%String,VerwachteWaarde:%String,VerwachteLengte:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..AssertGeformatteerdeWaarde(..ProductInfoFormatter.FormatteerToeleveringId(ToeleveringId), VerwachteWaarde, VerwachteLengte)
+]]></Implementation>
+</Method>
+
+<Method name="AssertOnGeformatteerdeWaarde">
+<FormalSpec>GeformatteerdeWaarde:%String,VerwachteWaarde:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do $$$AssertEquals(GeformatteerdeWaarde, VerwachteWaarde)
+]]></Implementation>
+</Method>
+
+<Method name="AssertGeformatteerdeWaarde">
+<FormalSpec>GeformatteerdeWaarde:%String,VerwachteWaarde:%String,VerwachteLengte:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do $$$AssertEquals(GeformatteerdeWaarde, VerwachteWaarde)
+	Do $$$AssertEquals($Length(GeformatteerdeWaarde), VerwachteLengte)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>