Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator.cls.xml
===================================================================
diff -u -r61084 -r61102
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator.cls.xml	(.../OfferteGenerator.cls.xml)	(revision 61084)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator.cls.xml	(.../OfferteGenerator.cls.xml)	(revision 61102)
@@ -293,7 +293,14 @@
 	Set OfferteLijn.VHKlantEenheidPrijs = ..GeefPrijsObject(MaatwerkLijn.GeefEenheidPrijsNettoExclBTW(), ..TotaalEnPrijsBerekendResultaat.GeefMuntVoorAankoopPrijs())
 	Set OfferteLijn.ProductType = ..GeefProductType(MaatwerkLijn)
 	Set OfferteLijn.ProductKleurOmschrijving = ..GeefProductKleurOmschrijving(MaatwerkLijn)
+
 	If ..IsVersie002Compliant() {
+		If ..Winkelkar.GeefPersonalityID() = ##class(DOM.common.enu.Personality).HaefeleDE() {
+			If MaatwerkLijn.GeefHerbestellingBijProbleem() = $$$True {
+				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)
Index: vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator/Test.cls.xml
===================================================================
diff -u -r61090 -r61102
--- vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator/Test.cls.xml	(.../Test.cls.xml)	(revision 61090)
+++ vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator/Test.cls.xml	(.../Test.cls.xml)	(revision 61102)
@@ -183,7 +183,7 @@
 	#dim TotaalEnPrijsBerekenaarStub As vhTest.Mock.APPS.EC.Winkelkar.TotaalEnPrijsBerekenaar = ##class(vhTest.Mock.APPS.EC.Winkelkar.TotaalEnPrijsBerekenaar).%New()
 	Do TotaalEnPrijsBerekenaarStub.IndienMethodCall("Bereken", Winkelkar).DanReturn(TotaalEnPrijsBerekendResultaat)
 	
-	#dim OfferteGenerator As APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.OfferteGenerator.HaefeleDE = ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.OfferteGenerator.HaefeleDE).%New(WinkelkarServiceStub, WinkelkarRepositoryStub, UrlBepalerStub, TotaalEnPrijsBerekenaarStub, KlantDataBepalerStub)
+	#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 $$$AssertEquals(OfferteDto.EDINummer, EdiNummer)
FishEye: Tag 61102 refers to a dead (removed) revision in file `APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator/HaefeleDE.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?