Index: vhUnitTest/APPS/TRANSP/Transsmart/impl/RequestDataBouwer/Test.cls.xml
===================================================================
diff -u -r60533 -r61120
--- vhUnitTest/APPS/TRANSP/Transsmart/impl/RequestDataBouwer/Test.cls.xml	(.../Test.cls.xml)	(revision 60533)
+++ vhUnitTest/APPS/TRANSP/Transsmart/impl/RequestDataBouwer/Test.cls.xml	(.../Test.cls.xml)	(revision 61120)
@@ -50,6 +50,23 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test doBooking Hamann">
+<Implementation><![CDATA[
+	Do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer()
+	#dim DateTimeAPI as TECH.DateTime.DateTimeAPI = ##class(TECH.Context).Instance().GeefDateTimeAPI()
+
+	#dim LeveringInfo as APPS.TRANSP.dto.LeveringInfo = ##class(vhTest.Utils.APPS.TRANSP.dto.LeveringInfo).GeefLeveringInfoEuroPallet()
+	#dim Datum as %Date = +(DateTimeAPI.CurrentHorolog())	
+	Set LeveringInfo.AfleverDatum = ##class(TECH.DateTime).BerekenWerkdag(Datum,1)
+	Set RitMock = ##class(vhTest.Mock.DOM.TRANSP.Rit).%New()
+	Do RitMock.VerwachtMethodCall("GeefTransporteur").DanReturn(##class(DOM.TRANSP.enu.Transporteur).Hamann())
+	Do RitMock.VerwachtMethodCall("GeefID").DanReturn(12345)
+	Do ..DataExporteerder.ExporteerDataTransferObject(..Bouwer.MaakdoBookingRequest(LeveringInfo,RitMock), "doBookingRequestHamann.xml", "")
+	Do RitMock.Verifieer()
+	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
+]]></Implementation>
+</Method>
+
 <Method name="Test doBooking VRD Magazijn werkt op voorhand">
 <Implementation><![CDATA[
 	Do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer()
Index: APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml
===================================================================
diff -u -r60526 -r61120
--- APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml	(.../RequestDataBouwer.cls.xml)	(revision 60526)
+++ APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml	(.../RequestDataBouwer.cls.xml)	(revision 61120)
@@ -115,7 +115,6 @@
 	Set BookingInfo.version = "2.0"
 	
 	Set BookingInfo.costcenter = ..BepaalCostCenter(LeveringInfo) ; --> ander afzenderadres
-	
 	Set BookingInfo.carrier = ..BepaalBookingInfoCarrier(Rit)
 	Quit BookingInfo
 ]]></Implementation>
@@ -349,6 +348,7 @@
 	Set Transporteur = ##class(DOM.TRANSP.enu.Transporteur.AutoComplete).%New()
 	Quit:(Rit.GeefTransporteur() = Transporteur.VRD) "VRD"
 	Quit:(Rit.GeefTransporteur() = Transporteur.DHL) "DHP"
+	Quit:(Rit.GeefTransporteur() = Transporteur.Hamann) "HAM"
 	Quit ""
 ]]></Implementation>
 </Method>
@@ -362,6 +362,7 @@
 
 	Quit:(Rit.GeefTransporteur() = Transporteur.VRD) "STANDARD"
 	Quit:(Rit.GeefTransporteur() = Transporteur.DHL) "EUROPLUS"
+	Quit:(Rit.GeefTransporteur() = Transporteur.Hamann) "STANDARD"
 	Quit ""
 ]]></Implementation>
 </Method>