Index: vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator/SFS/Test.cls.xml
===================================================================
diff -u -r62186 -r62559
--- vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator/SFS/Test.cls.xml	(.../Test.cls.xml)	(revision 62186)
+++ vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator/SFS/Test.cls.xml	(.../Test.cls.xml)	(revision 62559)
@@ -3,6 +3,25 @@
 <Class name="vhUnitTest.APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.OfferteGenerator.SFS.Test">
 <Super>vhUnitTest.TestCase</Super>
 
+<Parameter name="OrgaluxProductNr">
+<Type>%String</Type>
+<Default>1111</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[
@@ -108,6 +127,106 @@
 	Do $$$AssertEquals(OfferteDto.LeverDatum, VerwachteLeverdatum)
 ]]></Implementation>
 </Method>
+
+<Method name="TestOrgaluxKortTekst">
+<Implementation><![CDATA[
+	#dim WensLeverDatum As %String = "WensLeverDatum"
+	#dim LeverDatum as %Date = $ZDateH("02/28/2019")
+	#dim RandomWinkelkarId As %String = "123"
+	#dim KlantPersonalityId As %String = "12"
+	#dim KlantIdBijKlantPersonality As %String = "12345"
+	#dim OrderReferentie As %String = "OrderReferentie"
+	#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).Frans())
+	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(WensLeverDatum)
+	Do OfferteStub.IndienMethodCall("GeefLeverDatum").DanReturn(LeverDatum)
+	
+	Do OfferteStub.IndienMethodCall("GeefBestelOpmerking").DanReturn(BestelOpmerking)
+	Do OfferteStub.IndienMethodCall("GeefBestelDatum").DanReturn(BestelDatum)
+	Do OfferteStub.IndienMethodCall("IsVhisie4").DanReturn($$$False)
+
+	#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))
+
+	#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 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 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 PersonalityServiceMock = ##class(vhTest.Mock.DOM.common.PersonalityService).%New()
+	Do PersonalityServiceMock.IndienMethodCall("MagOrgaluxVerkopen",$$$ElkeWaarde).DanReturn($$$True)
+	
+	#dim OfferteGenerator As APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.OfferteGenerator.SFS = ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.OfferteGenerator.SFS).%New(WinkelkarServiceMock, WinkelkarRepositoryStub, UrlBepalerStub, TotaalEnPrijsBerekenaarStub, KlantDataBepalerStub,PersonalityServiceMock)
+	#dim OfferteDto As APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.Offerte = OfferteGenerator.GeefOfferteDto(OfferteStub)
+	
+	Do $$$AssertEquals(OfferteDto.Lijnen.GetAt(2).DesignCodeOmschrijving,"Orgalux OL.AO271016UNITTEST    OR")
+	
+	Do WinkelkarServiceMock.Verifieer()
+	
+	
+	
+	Do ##class(Tools.Wlip).%New(207).XMLAdapter(OfferteDto)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator.cls.xml
===================================================================
diff -u -r62219 -r62559
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator.cls.xml	(.../OfferteGenerator.cls.xml)	(revision 62219)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator.cls.xml	(.../OfferteGenerator.cls.xml)	(revision 62559)
@@ -321,7 +321,7 @@
 	Set OfferteLijn.VHKlantEenheidPrijs = ..GeefPrijsObject(ProductLijn.GeefEenheidPrijsNettoExclBTW(), ..TotaalEnPrijsBerekendResultaat.GeefMuntVoorAankoopPrijs())
 	Set OfferteLijn.ProductType = ..GeefProductType(ProductLijn)
 	Set OfferteLijn.ProductKleurOmschrijving = ..GeefProductKleurOmschrijving(ProductLijn)
-	Set OfferteLijn.DesignCodeOmschrijving = "Orgalux"
+	Set OfferteLijn.DesignCodeOmschrijving = ..GeefDesignCodeOmschrijvingVoorProduct(ProductLijn)
 	If ..IsVersie002Compliant() {
 		Set OfferteLijn.DesignCode = "OL"
 		Do ..ZetProductOmschrijvingen(OfferteLijn,ProductLijn)
@@ -330,6 +330,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefDesignCodeOmschrijvingVoorProduct">
+<FormalSpec>ProductLijn:DOM.EC.Winkelkar.ProductLijn</FormalSpec>
+<Private>1</Private>
+<ReturnType>%CacheString</ReturnType>
+<Implementation><![CDATA[	Quit "Orgalux"
+]]></Implementation>
+</Method>
+
 <Method name="GeefProductKleurOmschrijving">
 <FormalSpec>ProductLijn:DOM.EC.Winkelkar.ProductLijn</FormalSpec>
 <Private>1</Private>
@@ -528,7 +536,7 @@
 		; quick'n dirty : als het een product is, dan is het Orgalux
 		Quit "OL"
 	} else {
-		
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Ongekend producttype"))	
 	}
 ]]></Implementation>
 </Method>
Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator/SFS.cls.xml
===================================================================
diff -u -r54469 -r62559
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator/SFS.cls.xml	(.../SFS.cls.xml)	(revision 54469)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator/SFS.cls.xml	(.../SFS.cls.xml)	(revision 62559)
@@ -19,6 +19,14 @@
 	Quit GeformatteerdeWensLeverDatum
 ]]></Implementation>
 </Method>
+
+<Method name="GeefDesignCodeOmschrijvingVoorProduct">
+<FormalSpec>ProductLijn:DOM.EC.Winkelkar.ProductLijn</FormalSpec>
+<Private>1</Private>
+<ReturnType>%CacheString</ReturnType>
+<Implementation><![CDATA[	Quit "Orgalux " _ ProductLijn.Product.KortTekst
+]]></Implementation>
+</Method>
 </Class>