Index: APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml
===================================================================
diff -u -r59792 -r59812
--- APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml	(.../RequestDataBouwer.cls.xml)	(revision 59792)
+++ APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml	(.../RequestDataBouwer.cls.xml)	(revision 59812)
@@ -129,10 +129,38 @@
 	
 	Do ShipmentInfo.addresses.Insert(..GeefAfzenderAdres(LeveringInfo))
 	Do ShipmentInfo.addresses.Insert(..GeefBestemmelingAdres(LeveringInfo))
+	
+	Do ShipmentInfo.additionalReferences.Insert(..GeefVrachtwagenAdditionalReference(Rit))
+	Do ShipmentInfo.additionalReferences.Insert(..GeefKlantAdditionalReference(LeveringInfo))
+	
 	Quit ShipmentInfo
 ]]></Implementation>
 </Method>
 
+<Method name="GeefVrachtwagenAdditionalReference">
+<FormalSpec>Rit:DOM.TRANSP.Rit</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.Transsmart.tns.additionalReference</ReturnType>
+<Implementation><![CDATA[
+	Set AdditionalReference = ##class(WS.Transsmart.tns.additionalReference).%New()
+	Set AdditionalReference.type = "OTHER"
+	Set AdditionalReference.value = Rit.GeefID()
+	Quit AdditionalReference
+]]></Implementation>
+</Method>
+
+<Method name="GeefKlantAdditionalReference">
+<FormalSpec>LeveringInfo:APPS.TRANSP.dto.LeveringInfo</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.Transsmart.tns.additionalReference</ReturnType>
+<Implementation><![CDATA[
+	Set AdditionalReference = ##class(WS.Transsmart.tns.additionalReference).%New()
+	Set AdditionalReference.type = "CUSTOMER"
+	Set AdditionalReference.value = LeveringInfo.GeleverdAanKlantNummer
+	Quit AdditionalReference
+]]></Implementation>
+</Method>
+
 <Method name="GeefInstruction">
 <FormalSpec>LeveringInfo:APPS.TRANSP.dto.LeveringInfo</FormalSpec>
 <Private>1</Private>