Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator/HaefeleDE.cls.xml
===================================================================
diff -u
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator/HaefeleDE.cls.xml	(revision 0)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator/HaefeleDE.cls.xml	(revision 61071)
@@ -0,0 +1,51 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.OfferteGenerator.HaefeleDE">
+<Super>APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.OfferteGenerator</Super>
+
+<Method name="GeefOfferteLijn">
+<FormalSpec>MaatwerkLijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
+<Private>1</Private>
+<ReturnType>%CacheString</ReturnType>
+<Implementation><![CDATA[
+	Do ##super(MaatwerkLijn)
+	
+	#dim OfferteLijn As APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.OfferteLijn002 = ..MaakOfferteLijn()
+	
+	Set OfferteLijn.LijnVolgnummer = ..GeefVolgendeLijnVolgnummer()
+	Set OfferteLijn.KlantRef = MaatwerkLijn.GeefProjectReferentie()
+	Set OfferteLijn.Aantal = MaatwerkLijn.GeefAantal()
+	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)
+	If ..IsVersie002Compliant() {
+		Do ##class(Tools.Wlip).%New(43).String("GeefOfferteLijn "_..OfferteDto.KlantNaam)
+		If MaatwerkLijn.GeefHerbestellingBijProbleem() = $$$True {
+			Do ##class(Tools.Wlip).%New(43).String("GeefOfferteLijn INSIDE IF")
+			Set OfferteLijn.SchadeTijdensTransportOfVoormontage = MaatwerkLijn.GeefHerbestellingBijProbleem()
+		}
+		
+		If $$$Not(MaatwerkLijn.GeefIngegevenKenmerken().GeefVariant() = ##class(DOM.PM.enu.LadeVariant).TBXAntaro()) {
+			Set OfferteLijn.LadeCode = MaatwerkLijn.GeefIngegevenKenmerken().GeefLadeCode()
+			Set OfferteLijn.DesignCode = ..GeefDesignCode(MaatwerkLijn)
+		} Else {
+			Set OfferteLijn.LadeCode = MaatwerkLijn.GeefIngegevenKenmerken().LegacyKenmerken.ItemLT
+			Set OfferteLijn.DesignCode = ##class(DOM.PM.enu.LadeVariant).TBXAntaro()
+		}
+		Set OfferteLijn.DesignCodeOmschrijving = ..GeefDesignCodeOmschrijving(OfferteLijn.DesignCode)
+		Do ..ZetOmschrijvingen(OfferteLijn,MaatwerkLijn)
+	}
+	Else {
+		#dim Variant As DOM.PM.enu.Variant = MaatwerkLijn.GeefIngegevenKenmerken().GeefVariant()
+		Set OfferteLijn.DesignCodeOmschrijving = ##class(DOM.PM.enu.Variant).LogicalToDisplay(Variant)
+	}
+	Set OfferteLijn.ActieCodesList = ..GeefActieCodes(MaatwerkLijn)
+ 	
+ 	Quit OfferteLijn
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>