Index: WS/Vhisie4/Winkelkar/dto/Winkelkar.cls.xml
===================================================================
diff -u -r37698 -r38980
--- WS/Vhisie4/Winkelkar/dto/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 37698)
+++ WS/Vhisie4/Winkelkar/dto/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 38980)
@@ -13,6 +13,11 @@
 <Type>TECH.String</Type>
 </Property>
 
+<Property name="KlantId">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="KlantID"/>
+</Property>
+
 <Property name="Lijnen">
 <Type>WS.Vhisie4.Winkelkar.dto.WinkelkarLijn</Type>
 <Collection>list</Collection>
@@ -23,14 +28,15 @@
 <State>WinkelkarState</State>
 <StreamLocation>^WS.Vhisie4.Winke83C4.WinkelkarS</StreamLocation>
 <Data name="WinkelkarState">
-<Structure>listnode</Structure>
-<Subscript/>
 <Value name="1">
 <Value>ID</Value>
 </Value>
 <Value name="2">
 <Value>Lijnen</Value>
 </Value>
+<Value name="3">
+<Value>KlantId</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: WSimpl/Vhisie4/Winkelkar/FlowWinkelkarConverter/Converter.cls.xml
===================================================================
diff -u -r38977 -r38980
--- WSimpl/Vhisie4/Winkelkar/FlowWinkelkarConverter/Converter.cls.xml	(.../Converter.cls.xml)	(revision 38977)
+++ WSimpl/Vhisie4/Winkelkar/FlowWinkelkarConverter/Converter.cls.xml	(.../Converter.cls.xml)	(revision 38980)
@@ -5,33 +5,41 @@
 
 <Method name="Convert">
 <FormalSpec>Hoofding:Flow.Offerte.Hoofding</FormalSpec>
-<ReturnType>WS.Vhisie4.Winkelkar.dto.WinkelkarExport</ReturnType>
+<ReturnType>WS.Vhisie4.Winkelkar.dto.Winkelkar</ReturnType>
 <Implementation><![CDATA[
-	#Dim WinkelkarExport as WS.Vhisie4.Winkelkar.dto.WinkelkarExport = ##class(WS.Vhisie4.Winkelkar.dto.WinkelkarExport).%New()
+	#Dim Winkelkar as WS.Vhisie4.Winkelkar.dto.Winkelkar = ##class(WS.Vhisie4.Winkelkar.dto.Winkelkar).%New()
 	
 	#Dim LijnIterator as TECH.ListIterator
 	#Dim Lijn as Flow.Offerte.LijnProduct
 	#Dim WinkelkarLijn as WS.Vhisie4.Winkelkar.dto.ProductLijn
 	
-	Set WinkelkarExport.ID = Hoofding.ID
-	Set WinkelkarExport.PersonalityID = 1
-	Set WinkelkarExport.KlantNummer = Hoofding.Klant.Nummer
+	Set Winkelkar.ID = Hoofding.ID
 	
+	Set Winkelkar.KlantId = Hoofding.Klant.Nummer
+	
 	Set LijnIterator = ##class(TECH.ListIterator).%New(Hoofding.Lijnen)
 	while LijnIterator.HasNext(){
 		Set Lijn = LijnIterator.Next()
-		Set WinkelkarLijn = ##class(WS.Vhisie4.Winkelkar.dto.ProductLijn).%New()
-		Set WinkelkarLijn.Aantal = Lijn.Aantal
-		Set WinkelkarLijn.EenheidPrijs = Lijn.NettoEPrijs
-		Set WinkelkarLijn.ID = Lijn.%Id()
-		Set WinkelkarLijn.ProductID  = Lijn.Product.ProductNr
-		Set WinkelkarLijn.TotaalPrijs = Lijn.Aantal * Lijn.NettoEPrijs
-		
-		Do WinkelkarExport.Lijnen.Insert(WinkelkarLijn)
+		Do:($Classname(Lijn) = "Flow.Offerte.LijnProduct") Winkelkar.Lijnen.Insert(..ConvertLijn(Lijn))
  	}
- 	Quit WinkelkarExport
+ 	Quit Winkelkar
 ]]></Implementation>
 </Method>
+
+<Method name="ConvertLijn">
+<FormalSpec>Lijn:Flow.Offerte.LijnProduct</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.Vhisie4.Winkelkar.dto.ProductLijn</ReturnType>
+<Implementation><![CDATA[
+	Set WinkelkarLijn = ##class(WS.Vhisie4.Winkelkar.dto.ProductLijn).%New()
+	Set WinkelkarLijn.Aantal = Lijn.Aantal
+	Set WinkelkarLijn.EenheidPrijs = Lijn.NettoEPrijs
+	Set WinkelkarLijn.ID = Lijn.%Id()
+	Set WinkelkarLijn.ProductID  = Lijn.Product.ProductNr
+	Set WinkelkarLijn.TotaalPrijs = Lijn.Aantal * Lijn.NettoEPrijs		
+	Quit WinkelkarLijn
+]]></Implementation>
+</Method>
 </Class>
 
 
FishEye: Tag 38980 refers to a dead (removed) revision in file `WS/Vhisie4/Winkelkar/dto/WinkelkarExport.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/FlowWinkelkarConverter/Converter/Test.cls.xml
===================================================================
diff -u -r38976 -r38980
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/FlowWinkelkarConverter/Converter/Test.cls.xml	(.../Test.cls.xml)	(revision 38976)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/FlowWinkelkarConverter/Converter/Test.cls.xml	(.../Test.cls.xml)	(revision 38980)
@@ -10,6 +10,8 @@
 		#Dim Converter as WSimpl.Vhisie4.Winkelkar.FlowWinkelkarConverter.Converter = ##class(WSimpl.Vhisie4.Winkelkar.FlowWinkelkarConverter.Converter).%New()
 
 		Set Winkelkar = Converter.Convert(Hoofding)
+		
+		Do ..DataExporteerder.ExporteerDataTransferObject(Winkelkar,"Result.txt")
 
 		do $$$AssertReferentieBestanden(..GeefBestandLocatie())
 ]]></Implementation>
Index: vhTestFiles/UnitTests/WSimpl.Vhisie4.Winkelkar.FlowWinkelkarConverter.Converter/Test/TestConvertconverteertOfferteHoofdingmetLijnProductennaarWinkelKarExport/Result.txt
===================================================================
diff -u -r38976 -r38980
--- vhTestFiles/UnitTests/WSimpl.Vhisie4.Winkelkar.FlowWinkelkarConverter.Converter/Test/TestConvertconverteertOfferteHoofdingmetLijnProductennaarWinkelKarExport/Result.txt	(.../Result.txt)	(revision 38976)
+++ vhTestFiles/UnitTests/WSimpl.Vhisie4.Winkelkar.FlowWinkelkarConverter.Converter/Test/TestConvertconverteertOfferteHoofdingmetLijnProductennaarWinkelKarExport/Result.txt	(.../Result.txt)	(revision 38980)
@@ -1,6 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<WinkelkarExport>
+<Winkelkar>
   <ID>403323</ID>
+  <KlantID>3912</KlantID>
   <Lijnen>
     <WinkelkarLijn xsi:type="ProductLijn" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
       <ID></ID>
@@ -17,6 +18,4 @@
       <Aantal>100</Aantal>
     </WinkelkarLijn>
   </Lijnen>
-  <KlantNummer>3912</KlantNummer>
-  <PersonalityID>1</PersonalityID>
-</WinkelkarExport>
\ No newline at end of file
+</Winkelkar>
\ No newline at end of file