Index: vhTest/Utils/Flow/Offerte/HoofdingMetProductLijnen.cls.xml
===================================================================
diff -u
--- vhTest/Utils/Flow/Offerte/HoofdingMetProductLijnen.cls.xml	(revision 0)
+++ vhTest/Utils/Flow/Offerte/HoofdingMetProductLijnen.cls.xml	(revision 38976)
@@ -0,0 +1,102 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.Flow.Offerte.HoofdingMetProductLijnen">
+<Super>%RegisteredObject</Super>
+
+<Method name="GeefHoofdingMetLijnProducten">
+<ReturnType>Flow.Offerte.Hoofding</ReturnType>
+<Implementation><![CDATA[
+	#Dim Hoofding as Flow.Offerte.Hoofding = ##class(Flow.Offerte.Hoofding).%New()
+	#Dim PLijn as Flow.Offerte.LijnProduct
+	#Dim Klant as Derde.Klant.Klant = ##class(Derde.Klant.Klant).%New()
+	Set Klant.Nummer = "3912"
+	Set Hoofding.Klant = Klant
+
+    Set Hoofding.Afzender = ""
+    Set Hoofding.BehandeldDoor = ""
+    Set Hoofding.CommReferentie = ""
+    Set Hoofding.Commentaar = ""
+    Set Hoofding.Controle = ""
+    Set Hoofding.CreatieTijdStip = "64288,71458"
+    Set Hoofding.Creator = ""
+    Set Hoofding.Datum = 64288
+    Set Hoofding.DefaultLeverDatum = ""
+    Set Hoofding.EmailOrderbevestiging = ""
+    Set Hoofding.EtiketKlantNaam = ""
+    Set Hoofding.EtiketWoonplaats = ""
+    Set Hoofding.Geadresseerde = ""
+    Set Hoofding.ID = 403323
+    Set Hoofding.IsBruto = ""
+    Set Hoofding.Oorsprong = "EC"
+    Set Hoofding.OorsprongDetail = ""
+    Set Hoofding.OverzichtVerstuurd = ""
+    Set Hoofding.Referentie = ""
+    Set Hoofding.Status = ""
+    Set Hoofding.StatusTijdStip = ""
+    Set Hoofding.ToegangID = 6607
+    Set Hoofding.VervalDatum = 64318
+    Set Hoofding.VerzendWijze = ""
+    Set Hoofding.WanneerUitleveren = ""
+
+	Set PLijn = ##class(Flow.Offerte.LijnProduct).%New()
+    Set PLijn.Aantal = 100
+    Set PLijn.AantalEenheid = ""
+    Set PLijn.BrutoEPrijs = 1.27
+    Set PLijn.DimensieNetto = ""
+    Set PLijn.Faktor = ""
+    Set PLijn.GroepKey = "01.001.00.00"
+    Set PLijn.GrootteOrde = "E"
+    Set PLijn.KlantBarcode = ""
+    Set PLijn.KlantOrderlijnNummer = ""
+    Set PLijn.Korting1 = 20
+    Set PLijn.Korting2 = ""
+    Set PLijn.KortingExtra = ""
+    Set PLijn.LeverDatum = ""
+    Set PLijn.ManuelePrijs = ""
+    Set PLijn.NettoEPrijs = 1.01
+    Set PLijn.ProjectRef = ""
+    Set PLijn.Referentie = ""
+    Set PLijn.SearchKeys = ""
+    Set PLijn.SearchOmschrijving = ""
+    Set PLijn.Status = ""
+    Set PLijn.Tekst = ""
+    Set PLijn.VerwachteEPrijs = ""
+    Set PLijn.Product = ##class(Prod.Product).%New()
+    Set PLijn.Product.ProductNr=123456
+
+	Do Hoofding.Lijnen.Insert(PLijn)
+	
+	Set PLijn = ##class(Flow.Offerte.LijnProduct).%New()
+    Set PLijn.Aantal = 100
+    Set PLijn.AantalEenheid = ""
+    Set PLijn.BrutoEPrijs = 1.39
+    Set PLijn.DimensieNetto = ""
+    Set PLijn.Faktor = ""
+    Set PLijn.GroepKey = "01.002.00.00"
+    Set PLijn.GrootteOrde = "E"
+    Set PLijn.KlantBarcode = ""
+    Set PLijn.KlantOrderlijnNummer = ""
+    Set PLijn.Korting1 = 20
+    Set PLijn.Korting2 = ""
+    Set PLijn.KortingExtra = ""
+    Set PLijn.LeverDatum = ""
+    Set PLijn.ManuelePrijs = ""
+    Set PLijn.NettoEPrijs = 1.12
+    Set PLijn.ProjectRef = ""
+    Set PLijn.Referentie = ""
+    Set PLijn.SearchKeys = ""
+    Set PLijn.SearchOmschrijving = ""
+    Set PLijn.Status = ""
+    Set PLijn.Tekst = ""
+    Set PLijn.VerwachteEPrijs = ""
+    Set PLijn.Product = ##class(Prod.Product).%New()
+    Set PLijn.Product.ProductNr = 234567
+	Do Hoofding.Lijnen.Insert(PLijn)	
+	
+	Quit Hoofding
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/Vhisie4/Winkelkar/FlowWinkelkarConverter/Converter.cls.xml
===================================================================
diff -u -r38966 -r38976
--- WSimpl/Vhisie4/Winkelkar/FlowWinkelkarConverter/Converter.cls.xml	(.../Converter.cls.xml)	(revision 38966)
+++ WSimpl/Vhisie4/Winkelkar/FlowWinkelkarConverter/Converter.cls.xml	(.../Converter.cls.xml)	(revision 38976)
@@ -2,6 +2,38 @@
 <Export generator="Cache" version="24">
 <Class name="WSimpl.Vhisie4.Winkelkar.FlowWinkelkarConverter.Converter">
 <Super>%RegisteredObject</Super>
+
+<Method name="Convert">
+<FormalSpec>Hoofding:Flow.Offerte.Hoofding</FormalSpec>
+<ReturnType>WS.Vhisie4.Winkelkar.dto.WinkelkarExport</ReturnType>
+<Implementation><![CDATA[
+	#Dim WinkelkarExport as WS.Vhisie4.Winkelkar.dto.WinkelkarExport = ##class(WS.Vhisie4.Winkelkar.dto.WinkelkarExport).%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 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.ID = Lijn.ID
+
+		Set WinkelkarLijn.ProductID  = Lijn.Product.ProductNr
+		Set WinkelkarLijn.TotaalPrijs = Lijn.Aantal * Lijn.NettoEPrijs
+		
+		Do WinkelkarExport.Lijnen.Insert(WinkelkarLijn)
+ 	}
+ 	Quit WinkelkarExport
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTestFiles/UnitTests/WSimpl.Vhisie4.Winkelkar.FlowWinkelkarConverter.Converter/Test/TestConvertconverteertOfferteHoofdingmetLijnProductennaarWinkelKarExport/Result.txt
===================================================================
diff -u
--- vhTestFiles/UnitTests/WSimpl.Vhisie4.Winkelkar.FlowWinkelkarConverter.Converter/Test/TestConvertconverteertOfferteHoofdingmetLijnProductennaarWinkelKarExport/Result.txt	(revision 0)
+++ vhTestFiles/UnitTests/WSimpl.Vhisie4.Winkelkar.FlowWinkelkarConverter.Converter/Test/TestConvertconverteertOfferteHoofdingmetLijnProductennaarWinkelKarExport/Result.txt	(revision 38976)
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<WinkelkarExport>
+  <ID>403323</ID>
+  <Lijnen>
+    <WinkelkarLijn xsi:type="ProductLijn" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
+      <ID></ID>
+      <EenheidPrijs>1.01</EenheidPrijs>
+      <TotaalPrijs>101</TotaalPrijs>
+      <ProductID>123456</ProductID>
+      <Aantal>100</Aantal>
+    </WinkelkarLijn>
+    <WinkelkarLijn xsi:type="ProductLijn" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
+      <ID></ID>
+      <EenheidPrijs>1.12</EenheidPrijs>
+      <TotaalPrijs>112</TotaalPrijs>
+      <ProductID>234567</ProductID>
+      <Aantal>100</Aantal>
+    </WinkelkarLijn>
+  </Lijnen>
+  <KlantNummer>3912</KlantNummer>
+  <PersonalityID>1</PersonalityID>
+</WinkelkarExport>
\ No newline at end of file
Index: WS/Vhisie4/Winkelkar/dto/WinkelkarExport.cls.xml
===================================================================
diff -u
--- WS/Vhisie4/Winkelkar/dto/WinkelkarExport.cls.xml	(revision 0)
+++ WS/Vhisie4/Winkelkar/dto/WinkelkarExport.cls.xml	(revision 38976)
@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.Vhisie4.Winkelkar.dto.WinkelkarExport">
+<Super>WS.Vhisie4.Winkelkar.dto.Winkelkar</Super>
+
+<Property name="KlantNummer">
+<Type>%String</Type>
+</Property>
+
+<Property name="PersonalityID">
+<Type>%String</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<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>KlantNummer</Value>
+</Value>
+<Value name="4">
+<Value>PersonalityID</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/FlowWinkelkarConverter/Converter/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/FlowWinkelkarConverter/Converter/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/FlowWinkelkarConverter/Converter/Test.cls.xml	(revision 38976)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Vhisie4.Winkelkar.FlowWinkelkarConverter.Converter.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test Convert converteert OfferteHoofding met LijnProducten naar WinkelKarExport">
+<Implementation><![CDATA[
+		#Dim Hoofding as Flow.Offerte.Hoofding = ##class(vhTest.Utils.Flow.Offerte.HoofdingMetProductLijnen).%New().GeefHoofdingMetLijnProducten()
+		#Dim Winkelkar as WS.Vhisie4.Winkelkar.dto.WinkelkarExport
+		#Dim Converter as WSimpl.Vhisie4.Winkelkar.FlowWinkelkarConverter.Converter = ##class(WSimpl.Vhisie4.Winkelkar.FlowWinkelkarConverter.Converter).%New()
+
+		Set Winkelkar = Converter.Convert(Hoofding)
+
+		do $$$AssertReferentieBestanden(..GeefBestandLocatie())
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>