Index: APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/SpecialWorkshopDataGenerator.cls.xml
===================================================================
diff -u -r68869 -r68896
--- APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/SpecialWorkshopDataGenerator.cls.xml	(.../SpecialWorkshopDataGenerator.cls.xml)	(revision 68869)
+++ APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/SpecialWorkshopDataGenerator.cls.xml	(.../SpecialWorkshopDataGenerator.cls.xml)	(revision 68896)
@@ -23,6 +23,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="DateTimeApi">
+<Type>TECH.DateTime.impl.DateTimeAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="IngegevenKenmerkenNaarImosDataConverter">
 <Type>APPS.Halux.PPS.Document.impl.RVG.VoorbereidingSpecialWorkshop.IngegevenKenmerkenNaarImosDataConverter</Type>
 <Private>1</Private>
@@ -38,49 +43,49 @@
 	Set ..ToeleveringApi = $$$Inject(ToeleveringApi,##class(DOM.DomeinContext).Instance().GeefToeleveringAPI())
 	Set ..PartijApi = $$$Inject(PartijApi, ##class(DOM.DomeinContext).Instance().GeefPartijAPI())
 	Set ..ProductApi = $$$Inject(ProductApi, ##class(DOM.PM.impl.ProductAPI).%New())
+	Set ..DateTimeApi = ##class(TECH.Context).Instance().GeefDateTimeAPI()
 	Set ..IngegevenKenmerkenNaarImosDataConverter = $$$Inject(IngegevenKenmerkenNaarImosDataConverter, ##class(APPS.Halux.PPS.Document.impl.RVG.VoorbereidingSpecialWorkshop.IngegevenKenmerkenNaarImosDataConverter).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="GenereerSpecialWorkshopData">
-<FormalSpec>ToeleveringLijn:DOM.AKP.impl.DataM.DataMProductToeleveringLijn</FormalSpec>
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.RVG.dto.VoorbereidingSpecialWorkshopUitvoeringInfo</FormalSpec>
 <ReturnType>APPS.Halux.PPS.Document.impl.RVG.VoorbereidingSpecialWorkshop.dto.SpecialWorkshopData</ReturnType>
 <Implementation><![CDATA[
 	Set SpecialWorkshopData = ##class(APPS.Halux.PPS.Document.impl.RVG.VoorbereidingSpecialWorkshop.dto.SpecialWorkshopData).%New()
 	Set SpecialWorkshopData.Type = ..#Type
+	Set SpecialWorkshopData.OrderData = ..GeefOrderData(UitvoeringInfo)
 	
-	Set SpecialWorkshopData.OrderData = ..GeefOrderData(ToeleveringLijn)
-	
 	Quit SpecialWorkshopData
 ]]></Implementation>
 </Method>
 
 <Method name="GeefOrderData">
-<FormalSpec>ToeleveringLijn:DOM.AKP.impl.DataM.DataMProductToeleveringLijn</FormalSpec>
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.RVG.dto.VoorbereidingSpecialWorkshopUitvoeringInfo</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.Halux.PPS.Document.impl.RVG.VoorbereidingSpecialWorkshop.dto.OrderData</ReturnType>
 <Implementation><![CDATA[
 	Set OrderData = ##class(APPS.Halux.PPS.Document.impl.RVG.VoorbereidingSpecialWorkshop.dto.OrderData).%New()
-
-	Set OrderData.OrderId = ToeleveringLijn.GeefOrderID()
-	Set OrderData.Datum = ToeleveringLijn.GeefLeverdag()
-	Set OrderData.Header = ..GeefHeader(ToeleveringLijn)
-	Set OrderData.Body = ..GeefBody(ToeleveringLijn)
+	#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringApi.GeefToelevering(UitvoeringInfo.ToeleveringID)
 	
+	Set OrderData.OrderId = Toelevering.GeefOrderID()
+	Set OrderData.Datum =  ..DateTimeApi.HorologToTimeStamp(Toelevering.GeefDueOutTime())
+	Set OrderData.Header = ..GeefHeader(UitvoeringInfo, Toelevering)
+	Set OrderData.Body = ..GeefBody(UitvoeringInfo)
+	
 	Quit OrderData
 ]]></Implementation>
 </Method>
 
 <Method name="GeefHeader">
-<FormalSpec>ToeleveringLijn:DOM.AKP.impl.DataM.DataMProductToeleveringLijn</FormalSpec>
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.RVG.dto.VoorbereidingSpecialWorkshopUitvoeringInfo,Toelevering:DOM.AKP.Toelevering</FormalSpec>
 <Implementation><![CDATA[
 	Set Header = ##class(APPS.Halux.PPS.Document.impl.RVG.VoorbereidingSpecialWorkshop.dto.Header).%New()
-	#dim Toelevering As DOM.AKP.Toelevering = ToeleveringLijn.GeefToelevering()
 	#dim Partij As DOM.PARTIJ.Partij = ..PartijApi.GeefPartij(Toelevering.GeefKlantID())
 	
-	Set Header.ProductId = ToeleveringLijn.GeefProductID()
+	Set Header.ProductId = UitvoeringInfo.ProductID
 	Set Header.KlantID = Toelevering.GeefKlantID()
 	Set Header.Klant = Partij.GeefNaam()
 	Set Header.CustomInfo1 = Toelevering.GeefReferentie()
@@ -90,22 +95,20 @@
 </Method>
 
 <Method name="GeefBody">
-<FormalSpec>ToeleveringLijn:DOM.AKP.impl.DataM.DataMProductToeleveringLijn</FormalSpec>
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.RVG.dto.VoorbereidingSpecialWorkshopUitvoeringInfo</FormalSpec>
 <Implementation><![CDATA[
 	Set Body = ##class(APPS.Halux.PPS.Document.impl.RVG.VoorbereidingSpecialWorkshop.dto.Body).%New()
 	Set RijData = ##class(APPS.Halux.PPS.Document.impl.RVG.VoorbereidingSpecialWorkshop.dto.RijData).%New()
-	#dim Product As DOM.PM.MaatwerkProduct = ..ProductApi.GeefProduct(ToeleveringLijn.GeefProductID())
+	#dim Product As DOM.PM.MaatwerkProduct = ..ProductApi.GeefProduct(UitvoeringInfo.ProductID)
 	#dim RvgKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken = Product.GeefIngegevenKenmerken()
 		
 	Set RijData.LijnNummer = 1
 	Set RijData.Toepassing = ..IngegevenKenmerkenNaarImosDataConverter.ConverteerToepassing(RvgKenmerken.Toepassing)
 	Set RijData.Variabelen = ..IngegevenKenmerkenNaarImosDataConverter.ConverteerIngegevenKenmerken(RvgKenmerken)
-	Set RijData.Aantal = ToeleveringLijn.GeefAantal()
+	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"
 	
-	;IngegevenKenmerkenNaarImosDataConverter
-	
 	Set Body.RijData = RijData
 		
 	Quit Body
Index: APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop.cls.xml
===================================================================
diff -u -r68869 -r68896
--- APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop.cls.xml	(.../VoorbereidingSpecialWorkshop.cls.xml)	(revision 68869)
+++ APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop.cls.xml	(.../VoorbereidingSpecialWorkshop.cls.xml)	(revision 68896)
@@ -52,23 +52,11 @@
 	While (UitvoeringInfoIterator.HasNext()) {
 		#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.RVG.dto.VoorbereidingSpecialWorkshopUitvoeringInfo = UitvoeringInfoIterator.Next()
 		
-		#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringApi.GeefToelevering(UitvoeringInfo.ToeleveringID)
-		#dim ToeleveringLijnIterator As TECH.Iterator = Toelevering.GeefToeleveringLijnIterator()
+		#dim SpecialWorkshopData As APPS.Halux.PPS.Document.impl.RVG.VoorbereidingSpecialWorkshop.dto.SpecialWorkshopData = ..SpecialWorkshopDataGenerator.GenereerSpecialWorkshopData(UitvoeringInfo)
+		Do SpecialWorkshopDataLijst.Insert(SpecialWorkshopData)
 		
-		While (ToeleveringLijnIterator.HasNext()) {
-			#dim ToeleveringLijn As DOM.AKP.impl.DataM.DataMProductToeleveringLijn = ToeleveringLijnIterator.Next()
-			
-			#dim SpecialWorkshopData As APPS.Halux.PPS.Document.impl.RVG.VoorbereidingSpecialWorkshop.dto.SpecialWorkshopData = ..SpecialWorkshopDataGenerator.GenereerSpecialWorkshopData(ToeleveringLijn)
-			Do SpecialWorkshopDataLijst.Insert(SpecialWorkshopData)	
-			;Do ToeleveringLijn.G
-			
-			Do ##class(Tools.Wlip).%New(26).ObjToText(ToeleveringLijn)
-		}
-		
-
-		
 	}
-		
+	
 	Quit SpecialWorkshopDataLijst
 ]]></Implementation>
 </Method>
@@ -78,20 +66,31 @@
 <Implementation><![CDATA[
 	Set Iterator = ##class(TECH.ListIterator).%New(SpecialWorkshopDataLijst)
 	#dim Index As %Integer = 0
-	#dim BestandLocatie As %String = "C:\Users\JelleB\Desktop\RevegoXML"
 	#dim FileWriter As TECH.File.FileWriter = ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
 	
 	While (Iterator.HasNext()) {
 		#dim SpecialWorkshopData As APPS.Halux.PPS.Document.impl.RVG.VoorbereidingSpecialWorkshop.dto.SpecialWorkshopData = Iterator.Next()
 		
 		Set Index = Index + 1
-		#dim BestandVolledigNaam As %String = ##class(TECH.Files).AppendFile(BestandLocatie, 123 _"_"_ Index _".xml")
+		#dim BestandVolledigNaam As %String = ..GeefBestandVolledigeNaam(SpecialWorkshopData.OrderData.OrderId, Index, "xml")
 		Do FileWriter.Open(BestandVolledigNaam)
 		Do FileWriter.WriteXML(SpecialWorkshopData)
 		Do FileWriter.Close()
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="GeefBestandVolledigeNaam">
+<FormalSpec>OrderId:%String,Index:%Integer,Extensie:TECH.String</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim BestandLocatie As %String = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.Halux.PPS.Document.impl.RVG.VoorbereidingSpecialWorkshop.FilePath")
+	#dim BestandVolledigeNaam As %String = ##class(TECH.Files).AppendFile(BestandLocatie, OrderId _ "_" _ Index _ "." _ Extensie)
+	
+	Quit BestandVolledigeNaam
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/IngegevenKenmerkenNaarImosDataConverter.cls.xml
===================================================================
diff -u -r68869 -r68896
--- APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/IngegevenKenmerkenNaarImosDataConverter.cls.xml	(.../IngegevenKenmerkenNaarImosDataConverter.cls.xml)	(revision 68869)
+++ APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/IngegevenKenmerkenNaarImosDataConverter.cls.xml	(.../IngegevenKenmerkenNaarImosDataConverter.cls.xml)	(revision 68896)
@@ -3,6 +3,16 @@
 <Class name="APPS.Halux.PPS.Document.impl.RVG.VoorbereidingSpecialWorkshop.IngegevenKenmerkenNaarImosDataConverter">
 <Super>TECH.RegisteredObject</Super>
 
+<Parameter name="Delimiter">
+<Type>%String</Type>
+<Default>|</Default>
+</Parameter>
+
+<Parameter name="GelijkAanTeken">
+<Type>%String</Type>
+<Default>:=</Default>
+</Parameter>
+
 <Method name="ConverteerToepassing">
 <FormalSpec>Toepassing:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
@@ -24,7 +34,128 @@
 <Method name="ConverteerIngegevenKenmerken">
 <FormalSpec>RvgKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken</FormalSpec>
 <ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim GeconverteerdeKenmerken As %String = ""
+		
+	#dim RevegoProperties As %ListOfDataTypes = ##class(TECH.ClassUtils).GeefProperties(RvgKenmerken.%ClassName(1))
+	#dim RevegoPropertiesIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(RevegoProperties)
+	
+	Set GeconverteerdeKenmerken = GeconverteerdeKenmerken _ ..GeefDefaults(RvgKenmerken.GeefVariant())
+		
+	While (RevegoPropertiesIterator.HasNext()) {
+		#dim PropertyNaam As %String = RevegoPropertiesIterator.Next()
+		#dim Property = ##class(%CompiledProperty).%OpenId($classname(RvgKenmerken)_":"_PropertyNaam)
+		#dim Value As %String = $Property(RvgKenmerken, PropertyNaam)
+		
+		#dim GeconverteerdeProperty As %String = ..ConverteerRvgProperty(PropertyNaam)
+		#dim GeconverteerdeWaarde As %String = ..ConverteerRvgValue(Value, Property)
+		
+		If ($$$HasLength(GeconverteerdeProperty) && $$$HasLength(GeconverteerdeWaarde)) {
+			Set GeconverteerdeKenmerken = GeconverteerdeKenmerken _ GeconverteerdeProperty _ ..#GelijkAanTeken_GeconverteerdeWaarde_ ..#Delimiter
+		}
+	}
+	
+	If ($$$HasLength(GeconverteerdeKenmerken) && ##class(TECH.StringUtils).EndsWith(GeconverteerdeKenmerken, ..#Delimiter)) {
+		Set GeconverteerdeKenmerken = $Extract(GeconverteerdeKenmerken,0,*-1)
+	}
+			
+	Quit GeconverteerdeKenmerken
+]]></Implementation>
 </Method>
+
+<Method name="GeefDefaults">
+<FormalSpec>Variant:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Defaults As %String = ""
+	
+	Set Defaults = Defaults _ ..ConverteerRvgProperty("Variant") _ ..#GelijkAanTeken _ ..ConverteerRvgValue(Variant) _ ..#Delimiter
+	
+	Quit Defaults
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerRvgProperty">
+<FormalSpec>RvgProperty:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim GeconverteerdeProperty As %String = ""
+	
+	Set:(RvgProperty = "Variant") GeconverteerdeProperty = "PROGRAMME"
+	Set:(RvgProperty = "Toepassing") GeconverteerdeProperty = "APPLICATION"
+	Set:(RvgProperty = "DeurOndersteuning") GeconverteerdeProperty = "DOOR_SUPPORT"
+	Set:(RvgProperty = "DikteGeleiderAfdekking") GeconverteerdeProperty = "TRACK_COVER_PANEL_THICKNESS"
+	Set:(RvgProperty = "DikteTussenplank") GeconverteerdeProperty = "FIXED_SHELF_THICKNESS"
+	Set:(RvgProperty = "ContactschakelaarHouderInbegrepen") GeconverteerdeProperty = "CONTACT_SWITCH_ADAPTER_FOR_ELECTRICAL_APPLIANCE_SWITCH_OFF"
+	Set:(RvgProperty = "InbouwBreedte") GeconverteerdeProperty = "MOUNTING_WIDTH"
+	Set:(RvgProperty = "InbouwHoogte") GeconverteerdeProperty = "INSTALLATION_HEIGHT"
+	Set:(RvgProperty = "InbouwDiepte") GeconverteerdeProperty = "INSTALLATION_DEPTH"
+	Set:(RvgProperty = "FrontHoogte") GeconverteerdeProperty = "FRONT_HEIGHT"
+	Set:(RvgProperty = "FrontBreedte") GeconverteerdeProperty = "FRONT_WIDTH"
+	Set:(RvgProperty = "FrontBreedteLinks") GeconverteerdeProperty = "FRONT_WIDTH_LEFT"
+	Set:(RvgProperty = "FrontBreedteRechts") GeconverteerdeProperty = "FRONT_WIDTH_RIGHT"
+	Set:(RvgProperty = "FrontDikte") GeconverteerdeProperty = "FRONT_THICKNESS"
+	Set:(RvgProperty = "VoegBoven") GeconverteerdeProperty = "TOP_GAP"
+	Set:(RvgProperty = "VoegZijkant") GeconverteerdeProperty = "SIDE_GAP"
+	Set:(RvgProperty = "VoegOnder") GeconverteerdeProperty = "BOTTOM_GAP"
+	Set:(RvgProperty = "CorpusConstructie") GeconverteerdeProperty = "CABINET_DESIGN"
+	Set:(RvgProperty = "BinnencorpusBreedteInDeToepassing") GeconverteerdeProperty = "INTERNAL_WIDTH_WITHIN_THE_APPLICATION"
+	Set:(RvgProperty = "NominaleLengte") GeconverteerdeProperty = "NOMINAL_LENGTH"
+	Set:(RvgProperty = "NominaleLengteLinks") GeconverteerdeProperty = "NOMINAL_LENGTH_LEFT"
+	Set:(RvgProperty = "NominaleLengteRechts") GeconverteerdeProperty = "NOMINAL_LENGTH_RIGHT"
+	Set:(RvgProperty = "PocketHoogte") GeconverteerdeProperty = "POCKET_HEIGTH"
+	Set:(RvgProperty = "PocketAchterwandDikte") GeconverteerdeProperty = "POCKET_BACK_THICKNESS"
+	Set:(RvgProperty = "PocketzijkantDikte") GeconverteerdeProperty = "POCKET_SIDE_THICKNESS"
+	Set:(RvgProperty = "PocketDiepte") GeconverteerdeProperty = "POCKET_DEPTH"
+	Set:(RvgProperty = "InstelZijde") GeconverteerdeProperty = "PARTITION_SIDE"
+	Set:(RvgProperty = "DeursteunNaarBinnen") GeconverteerdeProperty = "INNER_DOOR_SUPPORT"
+	Set:(RvgProperty = "FrontOverstand") GeconverteerdeProperty = "FRONT_PROTRUSION"
+	Set:(RvgProperty = "FrontOverstandLinks") GeconverteerdeProperty = "FRONT_PROTRUSION_LEFT"
+	Set:(RvgProperty = "FrontOverstandRechts") GeconverteerdeProperty = "FRONT_PROTRUSION_RIGHT"
+	
+	Quit GeconverteerdeProperty
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerRvgValue">
+<FormalSpec>RvgKenmerk:%String,Property:%CompiledProperty=""</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim IsBoolean As %Boolean = $$$False	
+	Set:($IsObject(Property)) IsBoolean = ##class(TECH.ClassUtils).IsBoolean(Property.Type)
+	
+	Quit:(RvgKenmerk = ##class(DOM.PM.enu.RVGDeurOndersteuning).DecoratiefPaneelKastZijwand()) "Abschlussseite"
+	Quit:(RvgKenmerk = ##class(DOM.PM.enu.RVGDeurOndersteuning).PartitieZijwand()) "Stellseite"
+	Quit:(RvgKenmerk = ##class(DOM.PM.enu.RVGCorpusConstructie).MetSokkel()) "mit_Sockel"
+	Quit:(RvgKenmerk = ##class(DOM.PM.enu.RVGCorpusConstructie).ZonderSokkel()) "ohne_Sockel"
+	Quit:(RvgKenmerk = ##class(DOM.PM.enu.Variant).Revego()) "REVEGO"
+	Quit:($$$HasLength(..ConverteerToepassing(RvgKenmerk))) ..ConverteerToepassing(RvgKenmerk)
+	Quit:(IsBoolean) ..ConverteerBoolean(RvgKenmerk)
+	Quit:($$$Not(IsBoolean) && $IsValidNum(RvgKenmerk)) RvgKenmerk
+	
+	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerBoolean">
+<FormalSpec>RvgKenmerk:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim GeconverteerdeBoolean As %String = ""
+	
+	If (RvgKenmerk = $$$True) {
+		Set GeconverteerdeBoolean = "ja"
+	} Else {
+		Set GeconverteerdeBoolean = "nein"
+	}
+	
+	Quit GeconverteerdeBoolean
+]]></Implementation>
+</Method>
 </Class>