Index: APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml
===================================================================
diff -u -r59697 -r59792
--- APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml	(.../RequestDataBouwer.cls.xml)	(revision 59697)
+++ APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml	(.../RequestDataBouwer.cls.xml)	(revision 59792)
@@ -96,7 +96,7 @@
 	Set BookingInfo.action= "doBooking"
 	Set BookingInfo.version = "2.0"
 	
-	Set BookingInfo.costcenter = ..BepaalCostCenter(LeveringInfo) ; --> ander afzenderadres? zie ook bepalen afzender adres
+	Set BookingInfo.costcenter = ..BepaalCostCenter(LeveringInfo) ; --> ander afzenderadres
 	
 	Set BookingInfo.carrier = ..BepaalBookingInfoCarrier(Rit)
 	Quit BookingInfo
@@ -116,7 +116,7 @@
 	Set ShipmentInfo.inbound = 0
 	Set ShipmentInfo.loadmeter = 0
 	Set ShipmentInfo.noOfPackages = LeveringInfo.AantalVerpakkingEenhedenTotaal
-	
+	Set ShipmentInfo.instruction = ..GeefInstruction(LeveringInfo)
 	#dim GewichtPerEenheid as %Numeric = ##class(TECH.Math).Round(LeveringInfo.Gewicht / LeveringInfo.AantalVerpakkingEenhedenTotaal,2)
 	set it = ##class(TECH.ListIterator).%New(LeveringInfo.VerpakkingEenheden)
 	#dim Linecounter as %Integer = 0
@@ -133,12 +133,32 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefInstruction">
+<FormalSpec>LeveringInfo:APPS.TRANSP.dto.LeveringInfo</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim LeveringAdres As APPS.TRANSP.dto.LeveringAdres = LeveringInfo.LeverAdres
+	#dim Instruction as %String = ""
+	If ($$$HasLength(LeveringAdres.Volmacht)) {
+		Set Instruction = LeveringAdres.Volmacht
+	}
+	If (LeveringAdres.Opmerkingen.Count() > 0) {
+		set Instruction = $Select($Length(Instruction):$$$CRLF,1:"")_ LeveringAdres.Opmerkingen.GetAt(1)
+	}
+	If (LeveringAdres.Opmerkingen.Count() > 1) {
+		set Instruction = $Select($Length(Instruction):$$$CRLF,1:"")_ LeveringAdres.Opmerkingen.GetAt(2)
+	}
+	Quit ..BeperkLengteTot(Instruction,128)
+]]></Implementation>
+</Method>
+
 <Method name="GeefAfzenderAdres">
 <FormalSpec>LeveringInfo:APPS.TRANSP.dto.LeveringInfo</FormalSpec>
 <Private>1</Private>
 <ReturnType>WS.Transsmart.tns.DoBookingAddress</ReturnType>
 <Implementation><![CDATA[
-	; afzender adres hier gebruiken of override via costcenter????
+	;hier NIET een ander adres ingeven als op het etiket de afzender moet 'gespoofd' worden. gebruik 'Costcenter' hiervoor.
 	Set Afzender = ##class(WS.Transsmart.tns.DoBookingAddress).%New()
 	Set Afzender.type = "SEND"
 	Set Afzender.name = "Van Hoecke"
@@ -160,12 +180,12 @@
 	
 	Set Bestemmeling.type = "RECV"
 	
-	Set Bestemmeling.name = LeveringInfo.LeverAdres.Naam 
-	Set Bestemmeling.street1 = LeveringInfo.LeverAdres.Straat
-	Set Bestemmeling.city = LeveringInfo.LeverAdres.Woonplaats
+	Set Bestemmeling.name = ..BeperkLengteTot(LeveringInfo.LeverAdres.Naam,64)
+	Set Bestemmeling.street1 = ..BeperkLengteTot(LeveringInfo.LeverAdres.Straat, 64)
+	Set Bestemmeling.city = ..BeperkLengteTot(LeveringInfo.LeverAdres.Woonplaats,64)
 	; Set Bestemmeling.houseNo = LeveringInfo.LeverAdres. ???
-	Set Bestemmeling.zipCode = LeveringInfo.LeverAdres.Postcode
-	Set Bestemmeling.countryCode = LeveringInfo.LeverAdres.LandCode
+	Set Bestemmeling.zipCode = ..BeperkLengteTot(LeveringInfo.LeverAdres.Postcode,16)
+	Set Bestemmeling.countryCode = ..BeperkLengteTot(LeveringInfo.LeverAdres.LandCode,3)
 	Quit Bestemmeling
 ]]></Implementation>
 </Method>
@@ -195,8 +215,13 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	;TODO ???
-	Quit ""
+	#dim GeleverdAanKlantID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(LeveringInfo.GeleverdAanKlantNummer)
+	#dim CostCenter as %String = ""
+	Set Klant = ##class(DOM.VKP.enu.Klant.AutoComplete).%New()
+	if ##class(TECH.StringUtils).Equals(GeleverdAanKlantID,Klant.HaefeleNederland,Klant.DuPont){
+		Set CostCenter = ##class(AXimpl.AdminToAxUtils).ConvertCustomerID(GeleverdAanKlantID)
+	}
+	Quit CostCenter
 ]]></Implementation>
 </Method>
 
@@ -237,6 +262,14 @@
 	Quit ""
 ]]></Implementation>
 </Method>
+
+<Method name="BeperkLengteTot">
+<FormalSpec>Waarde:%String,Lengte:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $Extract(Waarde,1,Lengte)
+]]></Implementation>
+</Method>
 </Class>