Index: vhUnitTest/DOM/PM/TestData.cls.xml
===================================================================
diff -u -r60814 -r62209
--- vhUnitTest/DOM/PM/TestData.cls.xml	(.../TestData.cls.xml)	(revision 60814)
+++ vhUnitTest/DOM/PM/TestData.cls.xml	(.../TestData.cls.xml)	(revision 62209)
@@ -74,7 +74,12 @@
 		}ElseIf (PRNr = 1032){
 			Set KortTekst = "TA.V ORBANDVILTBAND OR\Vilt band op lengte \\\8\\100.0000\C#C\\\16000mm incl 8 viltclips Alu\\\0\\\\6\61.2000\\\\S\\\\\"
 			Set ^KPR(PRNr,"I1") = "18TA \18TA01MEL \18TA01MEL01MEL/EU \1454\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*\\"
+		}ElseIf (PRNr = 1033){ 
+			Set KortTekst = "OL.AO271016UNITTEST    OR\TEST PRODUCT "_Nr  
+			Set ^KPR(PRNr,"I1") = "15OL \15OL25ABK \15OL25ABK01ABG/OL \2\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*\\"
+			Set LeverancierNr = 6502
 		}
+
 		/// Alle andere producten
 		Else{
 			set KortTekst = "OL.UTPROD"_Nr_"\TEST PRODUCT "_Nr	
Index: vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator/Test.cls.xml
===================================================================
diff -u -r61645 -r62209
--- vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator/Test.cls.xml	(.../Test.cls.xml)	(revision 61645)
+++ vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator/Test.cls.xml	(.../Test.cls.xml)	(revision 62209)
@@ -3,13 +3,30 @@
 <Class name="vhUnitTest.APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.OfferteGenerator.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<UDLText name="T">
-<Content><![CDATA[
-// Parameter Type As %String = "IntegratieTest";
+<Parameter name="OrgaluxProductNr">
+<Type>%String</Type>
+<Default>1033</Default>
+</Parameter>
 
-]]></Content>
-</UDLText>
+<Parameter name="xType">
+<Type>%String</Type>
+<Default>IntegratieTest</Default>
+</Parameter>
 
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+	do ##class(vhUnitTest.DOM.PM.TestData).%New().VerwijderTestData(..#OrgaluxProductNr,..#OrgaluxProductNr)
+	do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	do ##class(vhUnitTest.DOM.PM.TestData).%New().CreeerTestData(..#OrgaluxProductNr,..#OrgaluxProductNr)
+]]></Implementation>
+</Method>
+
 <Method name="OnAfterOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -156,12 +173,6 @@
 	
 	#dim IngegevenKenmerkenAPIStub As vhTest.Mock.DOM.PM.IngegevenKenmerkenAPI = ##class(vhTest.Mock.DOM.PM.IngegevenKenmerkenAPI).%New()
 	Do IngegevenKenmerkenAPIStub.IndienMethodCall("GeefIngegevenKenmerken", $$$ElkeWaarde).DanReturn(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade())
-
-	#dim MaatwerkLijnen As %ListOfObjects = ##class(%ListOfObjects).%New()
-	Set MaatwerkLijn1 = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New(,IngegevenKenmerkenAPIStub)
-	Do MaatwerkLijn1.ZetHerbestellingBijProbleem($$$True)
-	Do MaatwerkLijnen.Insert(MaatwerkLijn1)
-	Do MaatwerkLijnen.Insert(##class(DOM.EC.Winkelkar.MaatwerkLijn).%New(,IngegevenKenmerkenAPIStub))	
 	
 	#dim KlantData As DOM.common.dto.KlantData = ##class(DOM.common.dto.KlantData).%New()
 	Set KlantData.Naam = KlantNaam
@@ -174,8 +185,17 @@
 	Do DomCommonAPIStub.IndienMethodCall("GeefPersonality", KlantPersonalityId).DanReturn(KlantPersonalityStub)
 	Do DomCommonAPIStub.IndienMethodCall("GeefPersonality", 1).DanReturn(LeverancierPersonality)
 	
+	#dim MaatwerkLijnen As %ListOfObjects = ##class(%ListOfObjects).%New()
+	Set MaatwerkLijn1 = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New(,IngegevenKenmerkenAPIStub)
+	Do MaatwerkLijn1.ZetHerbestellingBijProbleem($$$True)
+	Do MaatwerkLijnen.Insert(MaatwerkLijn1)
+	Do MaatwerkLijnen.Insert(##class(DOM.EC.Winkelkar.MaatwerkLijn).%New(,IngegevenKenmerkenAPIStub))	
+	
+	#dim ProductLijnen As %ListOfObjects = ##class(%ListOfObjects).%New()
+
 	#dim WinkelkarServiceStub As vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService = ##class(vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService).%New()
 	Do WinkelkarServiceStub.IndienMethodCall("GeefMaatwerkLijnen", RandomWinkelkarId).DanReturn(MaatwerkLijnen)
+	Do WinkelkarServiceStub.IndienMethodCall("GeefProductLijnen", RandomWinkelkarId).DanReturn(ProductLijnen)
 	
 	#dim WinkelkarRepositoryStub As vhTest.Mock.DOM.EC.Winkelkar.impl.WinkelkarRepository = ##class(vhTest.Mock.DOM.EC.Winkelkar.impl.WinkelkarRepository).%New()
 	Do WinkelkarRepositoryStub.IndienMethodCall("GeefViaID", RandomWinkelkarId).DanReturn(Winkelkar)
@@ -354,17 +374,14 @@
 	Do OfferteStub.IndienMethodCall("GeefBestelOpmerking").DanReturn(BestelOpmerking)
 	Do OfferteStub.IndienMethodCall("GeefBestelDatum").DanReturn(BestelDatum)
 	Do OfferteStub.IndienMethodCall("IsVhisie4").DanReturn($$$False)
-	Do OfferteStub.IndienMethodCall("GeefLeverAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).Duits())
+	
+	Do OfferteStub.VerwachtMethodCall("GeefLeverAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).Duits())
 
 	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).%New($$$DummyInteger)
 	Do Winkelkar.ZetPersonalityID(KlantPersonalityId)
 	
 	#dim IngegevenKenmerkenAPIStub As vhTest.Mock.DOM.PM.IngegevenKenmerkenAPI = ##class(vhTest.Mock.DOM.PM.IngegevenKenmerkenAPI).%New()
 	Do IngegevenKenmerkenAPIStub.IndienMethodCall("GeefIngegevenKenmerken", $$$ElkeWaarde).DanReturn(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade())
-
-	#dim MaatwerkLijnen As %ListOfObjects = ##class(%ListOfObjects).%New()
-	Do MaatwerkLijnen.Insert(##class(DOM.EC.Winkelkar.MaatwerkLijn).%New(,IngegevenKenmerkenAPIStub))	
-	Do MaatwerkLijnen.Insert(##class(DOM.EC.Winkelkar.MaatwerkLijn).%New(,IngegevenKenmerkenAPIStub))	
 	
 	#dim KlantData As DOM.common.dto.KlantData = ##class(DOM.common.dto.KlantData).%New()
 	Set KlantData.Naam = KlantNaam
@@ -377,8 +394,15 @@
 	Do DomCommonAPIStub.IndienMethodCall("GeefPersonality", KlantPersonalityId).DanReturn(KlantPersonalityStub)
 	Do DomCommonAPIStub.IndienMethodCall("GeefPersonality", 1).DanReturn(LeverancierPersonality)
 	
+	#dim MaatwerkLijnen As %ListOfObjects = ##class(%ListOfObjects).%New()
+	Do MaatwerkLijnen.Insert(##class(DOM.EC.Winkelkar.MaatwerkLijn).%New(,IngegevenKenmerkenAPIStub))	
+	Do MaatwerkLijnen.Insert(##class(DOM.EC.Winkelkar.MaatwerkLijn).%New(,IngegevenKenmerkenAPIStub))	
+
+	#dim ProductLijnen As %ListOfObjects = ##class(%ListOfObjects).%New()
+
 	#dim WinkelkarServiceStub As vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService = ##class(vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService).%New()
 	Do WinkelkarServiceStub.IndienMethodCall("GeefMaatwerkLijnen", RandomWinkelkarId).DanReturn(MaatwerkLijnen)
+	Do WinkelkarServiceStub.IndienMethodCall("GeefProductLijnen", RandomWinkelkarId).DanReturn(ProductLijnen)
 	
 	#dim WinkelkarRepositoryStub As vhTest.Mock.DOM.EC.Winkelkar.impl.WinkelkarRepository = ##class(vhTest.Mock.DOM.EC.Winkelkar.impl.WinkelkarRepository).%New()
 	Do WinkelkarRepositoryStub.IndienMethodCall("GeefViaID", RandomWinkelkarId).DanReturn(Winkelkar)
@@ -397,6 +421,8 @@
 	#dim OfferteGenerator As APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.OfferteGenerator = ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.OfferteGenerator).%New(WinkelkarServiceStub, WinkelkarRepositoryStub, UrlBepalerStub, TotaalEnPrijsBerekenaarStub, KlantDataBepalerStub)
 	#dim OfferteDto As APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.Offerte002 = OfferteGenerator.GeefOfferteDto(OfferteStub)	
 	
+	Do OfferteStub.Verifieer()
+	
 	Do $$$AssertEquals(OfferteDto.LeverAdres.Naam,"Duits adres")
 	Do $$$AssertEquals(OfferteDto.LeverAdres.Gemeente,"LAGE")
 	Do $$$AssertEquals(OfferteDto.LeverAdres.Postcode,"32791")
@@ -406,6 +432,216 @@
 	Do $$$AssertEquals(OfferteDto.Vestiging,"HDE")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Haefele DE GeefOfferteDto - Orgalux - Versie002Compliant">
+<Implementation><![CDATA[
+	try {
+	#dim RandomWinkelkarId As %String = "123"
+	#dim KlantPersonalityId As %String = "33" //Haefele DE
+	#dim KlantIdBijKlantPersonality As %String = "12345"
+	#dim OrderReferentie As %String = "OrderReferentie"
+	#dim LeverDatum As %String = "LeverDatum"
+	#dim BestelOpmerking As %String = "BestelOpmerking"
+	#dim BestelDatum As %Date = $$INTDATE^vhLib.DataTypes("13.08.2016")
+	#dim Url As %String = "Url"
+	#dim KlantNaam As %String = "KlantNaam"
+	#dim KlantCode As %String = "KlantCode"
+	#dim EdiNummer As %String = "EdiNummer"
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("HaefeleLeveradresInHTTPPost",$$$True,..#Applicatie)
+
+	#dim LeverancierPersonality As DOM.common.Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
+	Do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID(KlantPersonalityId)
+	
+	#dim KlantPersonalityStub As vhTest.Mock.DOM.common.Personality = ##class(vhTest.Mock.DOM.common.Personality).%New()
+	Do KlantPersonalityStub.IndienMethodCall("GeefTaal").DanReturn(##class(DOM.enu.Taal).Duits())
+	Do KlantPersonalityStub.IndienMethodCall("GeefID").DanReturn(KlantPersonalityId)
+ 	
+	#dim DocumentReferenties As DOM.VKP.DocumentReferenties = ##class(DOM.VKP.DocumentReferenties).%New()
+	Set DocumentReferenties.OrderReferentie = OrderReferentie
+	
+	#dim OfferteStub As vhTest.Mock.APPS.VKP.Offerte = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
+	Do OfferteStub.IndienMethodCall("GeefWinkelkarID").DanReturn(RandomWinkelkarId)
+	Do OfferteStub.IndienMethodCall("GeefEDINummerVoorEindklant").DanReturn(EdiNummer)
+	Do OfferteStub.IndienMethodCall("GeefKlantID").DanReturn(KlantIdBijKlantPersonality)
+	Do OfferteStub.IndienMethodCall("GeefPersonality").DanReturn(KlantPersonalityStub.GeefID())
+	Do OfferteStub.IndienMethodCall("GeefDocumentReferenties").DanReturn(DocumentReferenties)
+	Do OfferteStub.IndienMethodCall("GeefWensLeverDatum").DanReturn(LeverDatum)
+	Do OfferteStub.IndienMethodCall("GeefBestelOpmerking").DanReturn(BestelOpmerking)
+	Do OfferteStub.IndienMethodCall("GeefBestelDatum").DanReturn(BestelDatum)
+	Do OfferteStub.IndienMethodCall("IsVhisie4").DanReturn($$$False)
+	Do OfferteStub.IndienMethodCall("GeefLeverAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).Duits())
+
+	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).%New($$$DummyInteger)
+	Do Winkelkar.ZetPersonalityID(KlantPersonalityId)
+	
+	#dim IngegevenKenmerkenAPIStub As vhTest.Mock.DOM.PM.IngegevenKenmerkenAPI = ##class(vhTest.Mock.DOM.PM.IngegevenKenmerkenAPI).%New()
+	Do IngegevenKenmerkenAPIStub.IndienMethodCall("GeefIngegevenKenmerken", $$$ElkeWaarde).DanReturn(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade())
+	
+	#dim KlantData As DOM.common.dto.KlantData = ##class(DOM.common.dto.KlantData).%New()
+	Set KlantData.Naam = KlantNaam
+	Set KlantData.Code = KlantCode
+	
+	#dim KlantDataBepalerStub As vhTest.Mock.DOM.VKP.KlantDataBepaler = ##class(vhTest.Mock.DOM.VKP.KlantDataBepaler).%New()
+	Do KlantDataBepalerStub.IndienMethodCall("GeefKlantData", KlantPersonalityId, KlantIdBijKlantPersonality).DanReturn(KlantData)
+	
+	#dim DomCommonAPIStub As vhTest.Mock.DOM.common.CommonAPI = ##class(vhTest.Mock.DOM.common.CommonAPI).MockInstance()
+	Do DomCommonAPIStub.IndienMethodCall("GeefPersonality", KlantPersonalityId).DanReturn(KlantPersonalityStub)
+	Do DomCommonAPIStub.IndienMethodCall("GeefPersonality", 1).DanReturn(LeverancierPersonality)
+	
+	#dim MaatwerkLijnen As %ListOfObjects = ##class(%ListOfObjects).%New()
+	;Do MaatwerkLijnen.Insert(##class(DOM.EC.Winkelkar.MaatwerkLijn).%New(,IngegevenKenmerkenAPIStub))	
+	Set MaartwerkLijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New(,IngegevenKenmerkenAPIStub)
+	Do MaartwerkLijn.ZetEindklantEenheidPrijsNettoExclBTW(150)
+	Do MaartwerkLijn.ZetEenheidPrijsNettoExclBTW(100)
+	Do MaatwerkLijnen.Insert(MaartwerkLijn)	
+	
+	
+	#dim ProductLijnen As %ListOfObjects = ##class(%ListOfObjects).%New()
+	Set Productlijn = ##class(DOM.EC.Winkelkar.ProductLijn).%New(..#OrgaluxProductNr,1)
+	Do Productlijn.ZetEindklantEenheidPrijsNettoExclBTW(100)
+	Do Productlijn.ZetEenheidPrijsNettoExclBTW(66)
+	
+	Do ProductLijnen.Insert(Productlijn)
+
+	#dim WinkelkarServiceMock As vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService = ##class(vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService).%New()
+	Do WinkelkarServiceMock.IndienMethodCall("GeefMaatwerkLijnen", RandomWinkelkarId).DanReturn(MaatwerkLijnen)
+	Do WinkelkarServiceMock.VerwachtMethodCall("GeefProductLijnen", RandomWinkelkarId).DanReturn(ProductLijnen)
+	
+	#dim WinkelkarRepositoryStub As vhTest.Mock.DOM.EC.Winkelkar.impl.WinkelkarRepository = ##class(vhTest.Mock.DOM.EC.Winkelkar.impl.WinkelkarRepository).%New()
+	Do WinkelkarRepositoryStub.IndienMethodCall("GeefViaID", RandomWinkelkarId).DanReturn(Winkelkar)
+	
+	#dim UrlBepalerStub As vhTest.Mock.APPS.EC.Webshop.impl.OfferteUrlBepaler = ##class(vhTest.Mock.APPS.EC.Webshop.impl.OfferteUrlBepaler).%New()
+	Do UrlBepalerStub.IndienMethodCall("GeefURL", OfferteStub, $$$ElkeWaarde).DanReturn(Url)
+	
+	#dim TotaalEnPrijsBerekendResultaat As APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekendResultaat = ##class(APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekendResultaat).%New()
+	Do TotaalEnPrijsBerekendResultaat.ZetVHKlantTotaalPrijs(100)
+	Do TotaalEnPrijsBerekendResultaat.ZetEindklantTotaalPrijs(200)
+	Do TotaalEnPrijsBerekendResultaat.ZetTotaalAantalProducten(10)
+	
+	#dim TotaalEnPrijsBerekenaarStub As vhTest.Mock.APPS.EC.Winkelkar.TotaalEnPrijsBerekenaar = ##class(vhTest.Mock.APPS.EC.Winkelkar.TotaalEnPrijsBerekenaar).%New()
+	Do TotaalEnPrijsBerekenaarStub.IndienMethodCall("Bereken", Winkelkar).DanReturn(TotaalEnPrijsBerekendResultaat)
+	
+	Set OfferteGenerator = ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.OfferteGenerator).%New(WinkelkarServiceMock, WinkelkarRepositoryStub, UrlBepalerStub, TotaalEnPrijsBerekenaarStub, KlantDataBepalerStub)
+	#dim OfferteDto As APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.Offerte002 = OfferteGenerator.GeefOfferteDto(OfferteStub)	
+		} catch {
+			w ##class(TECH.ExceptionHandler).Catch().ToString()
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+	}
+
+	Do WinkelkarServiceMock.Verifieer()
+
+	Do $$$AssertEquals(OfferteDto.Lijnen.GetAt(2).ProductType,"OL")
+	Do $$$AssertEquals(OfferteDto.Lijnen.GetAt(2).ProductKleurOmschrijving,"Orange")
+	Do $$$AssertEquals(OfferteDto.Lijnen.GetAt(2).DesignCodeOmschrijving,"Orgalux")
+	Do $$$AssertEquals(OfferteDto.Lijnen.GetAt(2).LadeCode,"")
+	Do $$$AssertEquals(OfferteDto.Lijnen.GetAt(2).DesignCode,"OL")
+]]></Implementation>
+</Method>
+
+<Method name="Test: SFS GeefOfferteDto - Orgalux">
+<Implementation><![CDATA[
+	try {
+	#dim RandomWinkelkarId As %String = "123"
+	#dim KlantPersonalityId As %String = "3" //Haefele DE
+	#dim KlantIdBijKlantPersonality As %String = "12345"
+	#dim OrderReferentie As %String = "OrderReferentie"
+	#dim LeverDatum As %String = "LeverDatum"
+	#dim BestelOpmerking As %String = "BestelOpmerking"
+	#dim BestelDatum As %Date = $$INTDATE^vhLib.DataTypes("13.08.2016")
+	#dim Url As %String = "Url"
+	#dim KlantNaam As %String = "KlantNaam"
+	#dim KlantCode As %String = "KlantCode"
+	#dim EdiNummer As %String = "EdiNummer"
+
+	#dim LeverancierPersonality As DOM.common.Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
+	Do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID(KlantPersonalityId)
+	
+	#dim KlantPersonalityStub As vhTest.Mock.DOM.common.Personality = ##class(vhTest.Mock.DOM.common.Personality).%New()
+	Do KlantPersonalityStub.IndienMethodCall("GeefTaal").DanReturn(##class(DOM.enu.Taal).Duits())
+	Do KlantPersonalityStub.IndienMethodCall("GeefID").DanReturn(KlantPersonalityId)
+ 	
+	#dim DocumentReferenties As DOM.VKP.DocumentReferenties = ##class(DOM.VKP.DocumentReferenties).%New()
+	Set DocumentReferenties.OrderReferentie = OrderReferentie
+	
+	#dim OfferteStub As vhTest.Mock.APPS.VKP.Offerte = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
+	Do OfferteStub.IndienMethodCall("GeefWinkelkarID").DanReturn(RandomWinkelkarId)
+	Do OfferteStub.IndienMethodCall("GeefEDINummerVoorEindklant").DanReturn(EdiNummer)
+	Do OfferteStub.IndienMethodCall("GeefKlantID").DanReturn(KlantIdBijKlantPersonality)
+	Do OfferteStub.IndienMethodCall("GeefPersonality").DanReturn(KlantPersonalityStub.GeefID())
+	Do OfferteStub.IndienMethodCall("GeefDocumentReferenties").DanReturn(DocumentReferenties)
+	Do OfferteStub.IndienMethodCall("GeefWensLeverDatum").DanReturn(LeverDatum)
+	Do OfferteStub.IndienMethodCall("GeefBestelOpmerking").DanReturn(BestelOpmerking)
+	Do OfferteStub.IndienMethodCall("GeefBestelDatum").DanReturn(BestelDatum)
+	Do OfferteStub.IndienMethodCall("IsVhisie4").DanReturn($$$False)
+	Do OfferteStub.IndienMethodCall("GeefLeverAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).Duits())
+
+	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).%New($$$DummyInteger)
+	Do Winkelkar.ZetPersonalityID(KlantPersonalityId)
+	
+	#dim IngegevenKenmerkenAPIStub As vhTest.Mock.DOM.PM.IngegevenKenmerkenAPI = ##class(vhTest.Mock.DOM.PM.IngegevenKenmerkenAPI).%New()
+	Do IngegevenKenmerkenAPIStub.IndienMethodCall("GeefIngegevenKenmerken", $$$ElkeWaarde).DanReturn(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade())
+	
+	#dim KlantData As DOM.common.dto.KlantData = ##class(DOM.common.dto.KlantData).%New()
+	Set KlantData.Naam = KlantNaam
+	Set KlantData.Code = KlantCode
+	
+	#dim KlantDataBepalerStub As vhTest.Mock.DOM.VKP.KlantDataBepaler = ##class(vhTest.Mock.DOM.VKP.KlantDataBepaler).%New()
+	Do KlantDataBepalerStub.IndienMethodCall("GeefKlantData", KlantPersonalityId, KlantIdBijKlantPersonality).DanReturn(KlantData)
+	
+	#dim DomCommonAPIStub As vhTest.Mock.DOM.common.CommonAPI = ##class(vhTest.Mock.DOM.common.CommonAPI).MockInstance()
+	Do DomCommonAPIStub.IndienMethodCall("GeefPersonality", KlantPersonalityId).DanReturn(KlantPersonalityStub)
+	Do DomCommonAPIStub.IndienMethodCall("GeefPersonality", 1).DanReturn(LeverancierPersonality)
+	
+	#dim MaatwerkLijnen As %ListOfObjects = ##class(%ListOfObjects).%New()
+	;Do MaatwerkLijnen.Insert(##class(DOM.EC.Winkelkar.MaatwerkLijn).%New(,IngegevenKenmerkenAPIStub))	
+
+	Set MaartwerkLijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New(,IngegevenKenmerkenAPIStub)
+	Do MaartwerkLijn.ZetEindklantEenheidPrijsNettoExclBTW(150)
+	Do MaartwerkLijn.ZetEenheidPrijsNettoExclBTW(100)
+	Do MaatwerkLijnen.Insert(MaartwerkLijn)	
+	
+	
+	#dim ProductLijnen As %ListOfObjects = ##class(%ListOfObjects).%New()
+	Set Productlijn = ##class(DOM.EC.Winkelkar.ProductLijn).%New(..#OrgaluxProductNr,1)
+	;Set Productlijn = ##class(DOM.EC.Winkelkar.ProductLijn).%New(1268520,1)
+	Do Productlijn.ZetEindklantEenheidPrijsNettoExclBTW(100)
+	Do Productlijn.ZetEenheidPrijsNettoExclBTW(66)
+	
+	Do ProductLijnen.Insert(Productlijn)
+
+	#dim WinkelkarServiceMock As vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService = ##class(vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService).%New()
+	Do WinkelkarServiceMock.IndienMethodCall("GeefMaatwerkLijnen", RandomWinkelkarId).DanReturn(MaatwerkLijnen)
+	Do WinkelkarServiceMock.VerwachtMethodCall("GeefProductLijnen", RandomWinkelkarId).DanReturn(ProductLijnen)
+	
+	#dim WinkelkarRepositoryStub As vhTest.Mock.DOM.EC.Winkelkar.impl.WinkelkarRepository = ##class(vhTest.Mock.DOM.EC.Winkelkar.impl.WinkelkarRepository).%New()
+	Do WinkelkarRepositoryStub.IndienMethodCall("GeefViaID", RandomWinkelkarId).DanReturn(Winkelkar)
+	
+	#dim UrlBepalerStub As vhTest.Mock.APPS.EC.Webshop.impl.OfferteUrlBepaler = ##class(vhTest.Mock.APPS.EC.Webshop.impl.OfferteUrlBepaler).%New()
+	Do UrlBepalerStub.IndienMethodCall("GeefURL", OfferteStub, $$$ElkeWaarde).DanReturn(Url)
+	
+	#dim TotaalEnPrijsBerekendResultaat As APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekendResultaat = ##class(APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekendResultaat).%New()
+	Do TotaalEnPrijsBerekendResultaat.ZetVHKlantTotaalPrijs(100)
+	Do TotaalEnPrijsBerekendResultaat.ZetEindklantTotaalPrijs(200)
+	Do TotaalEnPrijsBerekendResultaat.ZetTotaalAantalProducten(10)
+	
+	#dim TotaalEnPrijsBerekenaarStub As vhTest.Mock.APPS.EC.Winkelkar.TotaalEnPrijsBerekenaar = ##class(vhTest.Mock.APPS.EC.Winkelkar.TotaalEnPrijsBerekenaar).%New()
+	Do TotaalEnPrijsBerekenaarStub.IndienMethodCall("Bereken", Winkelkar).DanReturn(TotaalEnPrijsBerekendResultaat)
+	
+	Set OfferteGenerator = ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.OfferteGenerator).%New(WinkelkarServiceMock, WinkelkarRepositoryStub, UrlBepalerStub, TotaalEnPrijsBerekenaarStub, KlantDataBepalerStub)
+	#dim OfferteDto As APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.Offerte002 = OfferteGenerator.GeefOfferteDto(OfferteStub)	
+		} catch {
+			w ##class(TECH.ExceptionHandler).Catch().ToString()
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+	}
+	
+	
+	Do $$$AssertEquals(OfferteDto.Lijnen.GetAt(2).ProductType,"OL")
+	Do $$$AssertEquals(OfferteDto.Lijnen.GetAt(2).ProductKleurOmschrijving,"Orange")
+	Do $$$AssertEquals(OfferteDto.Lijnen.GetAt(2).DesignCodeOmschrijving,"Orgalux")
+	
+	Do WinkelkarServiceMock.Verifieer()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator.cls.xml
===================================================================
diff -u -r62186 -r62209
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator.cls.xml	(.../OfferteGenerator.cls.xml)	(revision 62186)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator.cls.xml	(.../OfferteGenerator.cls.xml)	(revision 62209)
@@ -282,18 +282,71 @@
 		Do ..VoegToeOfferteMaatwerkLijn(MaatwerkLijn)
 	}
 	If (..PersonalityService.MagOrgaluxVerkopen(..Winkelkar.GeefPersonalityID())){
+		#dim ProductlijnIterator as TECH.Iterator = ##class(TECH.ListIterator).%New(..WinkelkarService.GeefProductLijnen(Offerte.GeefWinkelkarID()))	
 		
+		While (ProductlijnIterator.HasNext()) {
+			#dim ProductLijn As DOM.EC.Winkelkar.ProductLijn = ProductlijnIterator.Next()
+			Do ..VoegToeOfferteProductLijn(ProductLijn)
+		}
+
 	}
 ]]></Implementation>
 </Method>
 
+<Method name="VoegToeOfferteProductLijn">
+<FormalSpec>ProductLijn:DOM.EC.Winkelkar.ProductLijn</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..OfferteDto.Lijnen.Insert(..GeefOfferteProductLijn(ProductLijn))
+]]></Implementation>
+</Method>
+
 <Method name="VoegToeOfferteMaatwerkLijn">
 <FormalSpec>MaatwerkLijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[	Do ..OfferteDto.Lijnen.Insert(..GeefOfferteMaatwerkLijn(MaatwerkLijn))
 ]]></Implementation>
 </Method>
 
+<Method name="GeefOfferteProductLijn">
+<FormalSpec>ProductLijn:DOM.EC.Winkelkar.ProductLijn</FormalSpec>
+<Private>1</Private>
+<ReturnType>%CacheString</ReturnType>
+<Implementation><![CDATA[
+	#dim OfferteLijn As APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.OfferteLijn002 = ..MaakOfferteLijn()
+	
+	Set OfferteLijn.LijnVolgnummer = ..GeefVolgendeLijnVolgnummer()
+	Set OfferteLijn.KlantRef = ProductLijn.GeefProjectReferentie()
+	Set OfferteLijn.Aantal = ProductLijn.GeefAantal()
+	Set OfferteLijn.EindklantEenheidPrijs = ..GeefPrijsObject(ProductLijn.GeefEindklantEenheidPrijsNettoExclBTW(), ..TotaalEnPrijsBerekendResultaat.GeefMuntVoorVerkoopPrijs())
+	Set OfferteLijn.VHKlantEenheidPrijs = ..GeefPrijsObject(ProductLijn.GeefEenheidPrijsNettoExclBTW(), ..TotaalEnPrijsBerekendResultaat.GeefMuntVoorAankoopPrijs())
+	Set OfferteLijn.ProductType = ..GeefProductType(ProductLijn)
+	Set OfferteLijn.ProductKleurOmschrijving = ..GeefProductKleurOmschrijving(ProductLijn)
+
+	If ..IsVersie002Compliant() {
+		
+		Set OfferteLijn.DesignCode = "OL"
+		
+		Set OfferteLijn.DesignCodeOmschrijving = "Orgalux"
+
+		Do ..ZetProductOmschrijvingen(OfferteLijn,ProductLijn)
+	}
+	Else {
+		
+		Set OfferteLijn.DesignCodeOmschrijving = "Orgalux"
+	}
+ 	
+ 	Quit OfferteLijn
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductKleurOmschrijving">
+<FormalSpec>ProductLijn:DOM.EC.Winkelkar.ProductLijn</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ProductLijn.Product.Tekst.GeefKleurOmschrijving(..Taal)
+]]></Implementation>
+</Method>
+
 <Method name="IsVersie002Compliant">
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
@@ -320,7 +373,7 @@
 	Set OfferteLijn.EindklantEenheidPrijs = ..GeefPrijsObject(MaatwerkLijn.GeefEindklantEenheidPrijsNettoExclBTW(), ..TotaalEnPrijsBerekendResultaat.GeefMuntVoorVerkoopPrijs())
 	Set OfferteLijn.VHKlantEenheidPrijs = ..GeefPrijsObject(MaatwerkLijn.GeefEenheidPrijsNettoExclBTW(), ..TotaalEnPrijsBerekendResultaat.GeefMuntVoorAankoopPrijs())
 	Set OfferteLijn.ProductType = ..GeefProductType(MaatwerkLijn)
-	Set OfferteLijn.ProductKleurOmschrijving = ..GeefProductKleurOmschrijving(MaatwerkLijn)
+	Set OfferteLijn.ProductKleurOmschrijving = ..GeefMaatwerkKleurOmschrijving(MaatwerkLijn)
 
 	If ..IsVersie002Compliant() {
 		If ..Winkelkar.GeefPersonalityID() = ##class(DOM.common.enu.Personality).HaefeleDE() {
@@ -335,9 +388,9 @@
 			Set OfferteLijn.LadeCode = MaatwerkLijn.GeefIngegevenKenmerken().LegacyKenmerken.ItemLT
 		}
 		
-		Set OfferteLijn.DesignCode = ..GeefDesignCode(MaatwerkLijn)
+		Set OfferteLijn.DesignCode = ..GeefMaatwerkDesignCode(MaatwerkLijn)
 		
-		Set OfferteLijn.DesignCodeOmschrijving = ..GeefDesignCodeOmschrijving(MaatwerkLijn,OfferteLijn.DesignCode)
+		Set OfferteLijn.DesignCodeOmschrijving = ..GeefMaatwerkDesignCodeOmschrijving(MaatwerkLijn,OfferteLijn.DesignCode)
 
 		Do ..ZetOmschrijvingen(OfferteLijn,MaatwerkLijn)
 	}
@@ -351,6 +404,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetProductOmschrijvingen">
+<FormalSpec>OfferteLijn:APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.OfferteLijn002,ProductLijn:DOM.EC.Winkelkar.ProductLijn</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..ZetDeOudeProductOmschrijvingen(OfferteLijn,ProductLijn)
+]]></Implementation>
+</Method>
+
+<Method name="ZetDeOudeProductOmschrijvingen">
+<FormalSpec>OfferteLijn:APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.OfferteLijn002,ProductLijn:DOM.EC.Winkelkar.ProductLijn</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set OfferteLijn.ProductOmschrijvingNL = ##class(TECH.XMLString).CreateIfNotEmpty(ProductLijn.Product.Tekst.GetOmschrijving(##class(DOM.enu.Taal).Nederlands()))
+	Set OfferteLijn.ProductOmschrijvingFR = ##class(TECH.XMLString).CreateIfNotEmpty(ProductLijn.Product.Tekst.GetOmschrijving(##class(DOM.enu.Taal).Frans()))
+	Set OfferteLijn.ProductOmschrijvingEN = ##class(TECH.XMLString).CreateIfNotEmpty(ProductLijn.Product.Tekst.GetOmschrijving(##class(DOM.enu.Taal).Engels()))
+	Set OfferteLijn.ProductOmschrijvingDE = ##class(TECH.XMLString).CreateIfNotEmpty(ProductLijn.Product.Tekst.GetOmschrijving(##class(DOM.enu.Taal).Duits()))
+]]></Implementation>
+</Method>
+
 <Method name="ZetOmschrijvingen">
 <FormalSpec>OfferteLijn:APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.OfferteLijn002,MaatwerkLijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
 <Private>1</Private>
@@ -362,10 +433,10 @@
 <FormalSpec>OfferteLijn:APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.OfferteLijn002,MaatwerkLijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set OfferteLijn.ProductOmschrijvingNL = ##class(TECH.XMLString).CreateIfNotEmpty(..GeefProductOmschrijving(MaatwerkLijn,##class(DOM.enu.Taal).Nederlands()))
-	Set OfferteLijn.ProductOmschrijvingFR = ##class(TECH.XMLString).CreateIfNotEmpty(..GeefProductOmschrijving(MaatwerkLijn,##class(DOM.enu.Taal).Frans()))
-	Set OfferteLijn.ProductOmschrijvingEN = ##class(TECH.XMLString).CreateIfNotEmpty(..GeefProductOmschrijving(MaatwerkLijn,##class(DOM.enu.Taal).Engels()))
-	Set OfferteLijn.ProductOmschrijvingDE = ##class(TECH.XMLString).CreateIfNotEmpty(..GeefProductOmschrijving(MaatwerkLijn,##class(DOM.enu.Taal).Duits()))
+	Set OfferteLijn.ProductOmschrijvingNL = ##class(TECH.XMLString).CreateIfNotEmpty(..GeefMaatwerkProductOmschrijving(MaatwerkLijn,##class(DOM.enu.Taal).Nederlands()))
+	Set OfferteLijn.ProductOmschrijvingFR = ##class(TECH.XMLString).CreateIfNotEmpty(..GeefMaatwerkProductOmschrijving(MaatwerkLijn,##class(DOM.enu.Taal).Frans()))
+	Set OfferteLijn.ProductOmschrijvingEN = ##class(TECH.XMLString).CreateIfNotEmpty(..GeefMaatwerkProductOmschrijving(MaatwerkLijn,##class(DOM.enu.Taal).Engels()))
+	Set OfferteLijn.ProductOmschrijvingDE = ##class(TECH.XMLString).CreateIfNotEmpty(..GeefMaatwerkProductOmschrijving(MaatwerkLijn,##class(DOM.enu.Taal).Duits()))
 ]]></Implementation>
 </Method>
 
@@ -388,28 +459,28 @@
 <Implementation><![CDATA[
 	Set MaatwerkOmschrijving = ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.Omschrijving).%New()
 	Set MaatwerkOmschrijving.Taal = ##class(DOM.common.TaalcodeConverter).TaalNaarISO639x1(Taal)
-	Set MaatwerkOmschrijving.LangTekst = ..GeefProductOmschrijving(MaatwerkLijn,Taal)
+	Set MaatwerkOmschrijving.LangTekst = ..GeefMaatwerkProductOmschrijving(MaatwerkLijn,Taal)
 	Quit MaatwerkOmschrijving
 ]]></Implementation>
 </Method>
 
-<Method name="GeefDesignCode">
+<Method name="GeefMaatwerkDesignCode">
 <FormalSpec>MaatwerkLijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ##class(APPS.EC.Winkelkar.impl.ProductDesignCodeBepaler).%New().GeefDesignCode(MaatwerkLijn.GeefIngegevenKenmerken())
 ]]></Implementation>
 </Method>
 
-<Method name="GeefDesignCodeOmschrijving">
+<Method name="GeefMaatwerkDesignCodeOmschrijving">
 <FormalSpec>MaatwerkLijn:DOM.EC.Winkelkar.MaatwerkLijn,DefaultOmschrijving:%String=""</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ##class(APPS.EC.Winkelkar.impl.ProductDesignCodeOmschrijvingBepaler).%New().GeefDesignCodeOmschrijving(MaatwerkLijn.GeefIngegevenKenmerken(),DefaultOmschrijving)
 ]]></Implementation>
 </Method>
 
-<Method name="GeefProductKleurOmschrijving">
+<Method name="GeefMaatwerkKleurOmschrijving">
 <FormalSpec>MaatwerkLijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
@@ -418,14 +489,22 @@
 </Method>
 
 <Method name="GeefProductType">
-<FormalSpec>MaatwerkLijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
+<FormalSpec>PrijsLijn:DOM.EC.Winkelkar.PrijsLijn</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.EC.enu.ProductType</ReturnType>
-<Implementation><![CDATA[	Quit ##class(APPS.EC.Winkelkar.impl.ProductTypeBepaler).%New().GeefProductType(MaatwerkLijn.GeefIngegevenKenmerken())
+<Implementation><![CDATA[
+	If PrijsLijn.%IsA(##class(DOM.EC.Winkelkar.MaatwerkLijn).%ClassName(1)) {
+		Quit ##class(APPS.EC.Winkelkar.impl.ProductTypeBepaler).%New().GeefProductType(PrijsLijn.GeefIngegevenKenmerken())
+	} elseif PrijsLijn.%IsA(##class(DOM.EC.Winkelkar.ProductLijn).%ClassName(1)) {
+		; quick'n dirty : als het een product is, dan is het Orgalux
+		Quit ##class(APPS.EC.enu.ProductType).Orgalux()
+	} else {
+		
+	}
 ]]></Implementation>
 </Method>
 
-<Method name="GeefProductOmschrijving">
+<Method name="GeefMaatwerkProductOmschrijving">
 <FormalSpec>MaatwerkLijn:DOM.EC.Winkelkar.MaatwerkLijn,Taal:DOM.enu.Taal</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>