FishEye: Tag 63361 refers to a dead (removed) revision in file `vhTest/Mock/Prod/Kenmerk/impl/DataDefinitieRepository.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: Prod/Kenmerk/impl/DataDefinitieRepository.cls.xml
===================================================================
diff -u -r66052 -r74637
--- Prod/Kenmerk/impl/DataDefinitieRepository.cls.xml	(.../DataDefinitieRepository.cls.xml)	(revision 66052)
+++ Prod/Kenmerk/impl/DataDefinitieRepository.cls.xml	(.../DataDefinitieRepository.cls.xml)	(revision 74637)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="Prod.Kenmerk.impl.DataDefinitieRepository">
-<Super>TECH.Persistentie.impl.Repository,Prod.Kenmerk.DataDefinitieRepository</Super>
+<Super>TECH.Persistentie.impl.Repository,Prod.Kenmerk.DataDefinitieRepository,TECH.Mockable</Super>
 
 <Parameter name="DataClassName">
 <Type>%String</Type>
@@ -45,6 +45,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZoekRvgPPSRollenRolnaamKenmerkenVoorProductId">
+<FormalSpec>ProductId:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ..ZoekViaFilter("KenmerkGroep like 'RVG_PPS_Rollen' and KenmerkNaam = 'Rolnaam' and PRNr = ?", $LB(ProductId))
+]]></Implementation>
+</Method>
+
 <Method name="ZoekTbxStalenRugViaKenmerken">
 <FormalSpec>InterneBreedte:%String,RugHoogte:%String,RugKleur:%String,KlantId:%String=""</FormalSpec>
 <ReturnType>TECH.Iterator</ReturnType>
Index: APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/IngegevenKenmerkenNaarImosDataConverter.cls.xml
===================================================================
diff -u -r74479 -r74637
--- APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/IngegevenKenmerkenNaarImosDataConverter.cls.xml	(.../IngegevenKenmerkenNaarImosDataConverter.cls.xml)	(revision 74479)
+++ APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/IngegevenKenmerkenNaarImosDataConverter.cls.xml	(.../IngegevenKenmerkenNaarImosDataConverter.cls.xml)	(revision 74637)
@@ -23,11 +23,18 @@
 <Private>1</Private>
 </Property>
 
+<Property name="DataDefinitieRepository">
+<Type>Prod.Kenmerk.impl.DataDefinitieRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>ProductAPI:DOM.PM.impl.ProductAPI=""</FormalSpec>
+<FormalSpec>ProductAPI:DOM.PM.impl.ProductAPI="",DataDefinitieRepository:Prod.Kenmerk.impl.DataDefinitieRepository=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..ProductAPI = $$$Inject(ProductAPI, ##class(DOM.PM.impl.ProductAPI).%New())
+	Set ..DataDefinitieRepository = $$$Inject(DataDefinitieRepository, ##class(Prod.Kenmerk.impl.DataDefinitieRepository).%New())
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -251,6 +258,13 @@
 ]]></Implementation>
 </Method>
 
+<UDLText name="T">
+<Content><![CDATA[
+// DEPRECATED
+
+]]></Content>
+</UDLText>
+
 <Method name="FormateerComponentCuttings">
 <FormalSpec>StringMetProductenEnDimensies:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -292,16 +306,32 @@
 	#dim IdentNummer, Korttekst, ProductId, GeformateerdeStukLijst As %String = ""
 	#dim LijstVanProductenEnAfmetingen As %ListOfDataTypes = ##class(TECH.ListUtils).PiecesToList(Stuklijst,";")
 	#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(LijstVanProductenEnAfmetingen)
-	#dim Aantal, AantalProducten As %Decimal = 0
+	#dim PPSRollenIterator As TECH.Iterator = ""
+	#dim Aantal As %Decimal = 0
+	#dim AccesoireIndex As %Integer = 0
 	
 	While (Iterator.HasNext()) {
-		Set AantalProducten = AantalProducten + 1
 		Set Aantal = Iterator.Next()
-		Set IdentNummer = $Replace(Iterator.Next(), ".", "")
+		Set IdentNummer = $Replace(Iterator.Next(), ".", "")		
+		
 		Set ProductId = ..ProductAPI.GeefProductIdVoorIdentNummer(IdentNummer)
 		Set Korttekst = $Replace($Replace($Replace(..GeefKorttekstVanProduct(ProductId), " ", ""), "-", ""), ".", "")
+		Set PPSRollenIterator = ..DataDefinitieRepository.ZoekRvgPPSRollenRolnaamKenmerkenVoorProductId(ProductId)
 		
-		Set GeformateerdeStukLijst = GeformateerdeStukLijst _ "|Artikel" _AantalProducten_"ID:=" _ IdentNummer _ "|Artikel" _AantalProducten_ "Korttekst:=" _Korttekst_ "|Artikel" _AantalProducten_ "Aantal:=" _ Aantal
+		If (PPSRollenIterator.HasNext()) {
+			#dim PPSKenmerk As Prod.Kenmerk.DataDefinitie = PPSRollenIterator.Next()
+			#dim Rolnaam As %String = PPSKenmerk.Waarden.GetAt(1)		
+			
+			If (Rolnaam = "Accessoire") {
+				Set AccesoireIndex = AccesoireIndex + 1
+				Set Rolnaam = Rolnaam_AccesoireIndex
+			}
+			
+			Set GeformateerdeStukLijst = GeformateerdeStukLijst _ "|"_Rolnaam_"ID:=" _ IdentNummer _ "|"_Rolnaam_ "Korttekst:=" _Korttekst_ "|"_Rolnaam _ "Aantal:=" _ Aantal
+		} Else {
+			Do ##class(vhLib.Logger).%New("AansturingActie Imos data converteren").ErrorMail("Onbekende rolnaam", "Geen rolnaam bekend voor productid '"_ProductId_"'.")
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("Nog niet geïmplementeerd."))
+		}
 	}
 	
 	Quit GeformateerdeStukLijst
Index: vhUnitTest/APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/IngegevenKenmerkenNaarImosDataConverter/FormateerStukLijst/Test.cls.xml
===================================================================
diff -u -r70824 -r74637
--- vhUnitTest/APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/IngegevenKenmerkenNaarImosDataConverter/FormateerStukLijst/Test.cls.xml	(.../Test.cls.xml)	(revision 70824)
+++ vhUnitTest/APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/IngegevenKenmerkenNaarImosDataConverter/FormateerStukLijst/Test.cls.xml	(.../Test.cls.xml)	(revision 74637)
@@ -8,20 +8,39 @@
 <Private>1</Private>
 </Property>
 
-<Method name="OnBeforeAllTests">
+<Property name="DataDefinitieRepositoryMock">
+<Type>vhTest.Mock.Prod.Kenmerk.impl.DataDefinitieRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
- 	Do ##super()
+	#dim PPSKenmerk As Prod.Kenmerk.DataDefinitie = ##class(Prod.Kenmerk.DataDefinitie).%New()
+ 	Set PPSKenmerk.Waarden = ##class(TECH.ListUtils).CreateListOfDataTypes("DummyRolnaam")
+ 	Set Iterator = ##class(TECH.ListIterator).%New(##class(TECH.ListUtils).CreateListOfObjects(PPSKenmerk))
  	
- 	Set ..Converter = ##class(APPS.Halux.PPS.Document.impl.RVG.VoorbereidingSpecialWorkshop.IngegevenKenmerkenNaarImosDataConverter).%New()
+ 	Set ..DataDefinitieRepositoryMock = ##class(vhTest.Mock.Prod.Kenmerk.impl.DataDefinitieRepository).%New()
+ 	Do ..DataDefinitieRepositoryMock.VerwachtMethodCall("ZoekRvgPPSRollenRolnaamKenmerkenVoorProductId", $$$ElkeWaarde).DanReturn(Iterator)
+ 	
+ 	Set ..Converter = ##class(APPS.Halux.PPS.Document.impl.RVG.VoorbereidingSpecialWorkshop.IngegevenKenmerkenNaarImosDataConverter).%New(,..DataDefinitieRepositoryMock)
+ 	Do ##super()
 ]]></Implementation>
 </Method>
 
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ..DataDefinitieRepositoryMock.Verifieer()
+	Do ##super(aTestName)
+]]></Implementation>
+</Method>
+
 <Method name="Test: Zonder ; op het einde van stuklijst">
 <Implementation><![CDATA[
 	Set RvgKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken).%New()
-	
 	#dim Resultaat As %String = ..Converter.FormateerStukLijst("1;0.119.043.2;2;0.192.515.2")
-	Do $$$AssertEquals(Resultaat, "|Artikel1ID:=01190432|Artikel1Korttekst:=802L1050DL1LTLS|Artikel1Aantal:=1|Artikel2ID:=01925152|Artikel2Korttekst:=801P600ER2POCKETREV1|Artikel2Aantal:=2")
+	Do $$$AssertEquals(Resultaat, "|DummyRolnaamID:=01190432|DummyRolnaamKorttekst:=802L1050DL1LTLS|DummyRolnaamAantal:=1|DummyRolnaamID:=01925152|DummyRolnaamKorttekst:=801P600ER2POCKETREV1|DummyRolnaamAantal:=2")
 ]]></Implementation>
 </Method>
 
@@ -30,7 +49,7 @@
 	Set RvgKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken).%New()
 	
 	#dim Resultaat As %String = ..Converter.FormateerStukLijst("1;0.119.043.2;2;0.192.515.2;")
-	Do $$$AssertEquals(Resultaat, "|Artikel1ID:=01190432|Artikel1Korttekst:=802L1050DL1LTLS|Artikel1Aantal:=1|Artikel2ID:=01925152|Artikel2Korttekst:=801P600ER2POCKETREV1|Artikel2Aantal:=2")
+	Do $$$AssertEquals(Resultaat, "|DummyRolnaamID:=01190432|DummyRolnaamKorttekst:=802L1050DL1LTLS|DummyRolnaamAantal:=1|DummyRolnaamID:=01925152|DummyRolnaamKorttekst:=801P600ER2POCKETREV1|DummyRolnaamAantal:=2")
 ]]></Implementation>
 </Method>
 </Class>
FishEye: Tag 63361 refers to a dead (removed) revision in file `vhTest/Fake/Prod/Kenmerk/impl/DataDefinitieRepository.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/SpecialWorkshopDataGenerator.cls.xml
===================================================================
diff -u -r70817 -r74637
--- APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/SpecialWorkshopDataGenerator.cls.xml	(.../SpecialWorkshopDataGenerator.cls.xml)	(revision 70817)
+++ APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/SpecialWorkshopDataGenerator.cls.xml	(.../SpecialWorkshopDataGenerator.cls.xml)	(revision 74637)
@@ -112,7 +112,7 @@
 		
 	Set RijData.LijnNummer = 1
 	Set RijData.Toepassing = ..IngegevenKenmerkenNaarImosDataConverter.ConverteerToepassing(RvgKenmerken.Toepassing)
-	Set RijData.Variabelen = ..IngegevenKenmerkenNaarImosDataConverter.ConverteerIngegevenKenmerken(RvgKenmerken) _ ..IngegevenKenmerkenNaarImosDataConverter.FormateerComponentCuttings(RvgKenmerken.InkortingLijst) _ ..IngegevenKenmerkenNaarImosDataConverter.FormateerStukLijst(RvgKenmerken.StukLijst)
+	Set RijData.Variabelen = ..IngegevenKenmerkenNaarImosDataConverter.ConverteerIngegevenKenmerken(RvgKenmerken) _ ..IngegevenKenmerkenNaarImosDataConverter.FormateerStukLijst(RvgKenmerken.StukLijst)
 	Set RijData.Aantal = 1 ; Uitvoeringinfo is per product, daarom default op 1. Per product wordt een xml gegenereerd
 	Set RijData.Invoeging = "0.00,0.00,0.00"
 	Set RijData.Orientatie = "0.00,0.00,0.00"