Index: AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml
===================================================================
diff -u -r48496 -r48504
--- AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml	(.../SalesOrderConverter.cls.xml)	(revision 48496)
+++ AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml	(.../SalesOrderConverter.cls.xml)	(revision 48504)
@@ -213,13 +213,35 @@
 	Do OrderLijn.ZetAxConfigId(OrderLine.ConfigId)
 	Do:..IsReedsVerwerkteOrderlijn(OrderLine) OrderLijn.ZetToeleveringLijnNr(..#ToeleveringLijnIsReedsVerwerkt)
 	Do:..IsReedsVerwerkteOrderlijn(OrderLine) OrderLijn.ZetToeleveringID("")
-	Do OrderLijn.ZetTekstVoorAfdrukDocumentType(..VerwijderKOMLinkIdentificatie(OrderLine.PackingSlipBody), ##class(DOM.VKP.enu.TekstAfdrukDocumentType).LeverBon())
-	Do OrderLijn.ZetTekstVoorAfdrukDocumentType(OrderLine.ProductionBody, ##class(DOM.VKP.enu.TekstAfdrukDocumentType).Toelevering())
+	Do OrderLijn.ZetTekstVoorAfdrukDocumentType(..GeefTekstVoorLeverBon(OrderLine), ##class(DOM.VKP.enu.TekstAfdrukDocumentType).LeverBon())
+	Do OrderLijn.ZetTekstVoorAfdrukDocumentType(..GeefTekstVoorToelevering(OrderLine), ##class(DOM.VKP.enu.TekstAfdrukDocumentType).Toelevering())
 	
 	Do ..Logger.Debug("SalesOrderIn - Orderlijn updaten", "OrderLijn properties zijn gezet voor OrderLijnID '" _OrderLijn.GeefID() _"'")
 ]]></Implementation>
 </Method>
 
+<Method name="GeefTekstVoorLeverBon">
+<FormalSpec>OrderLine:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Tekst As %String = ..VerwijderKOMLinkIdentificatie(OrderLine.PackingSlipBody) 
+	Set:($$$HasLength(OrderLine.ExternalItemId)) Tekst = OrderLine.ExternalItemId _$$$CRLF _$$$CRLF _Tekst 
+	Quit Tekst
+]]></Implementation>
+</Method>
+
+<Method name="GeefTekstVoorToelevering">
+<FormalSpec>OrderLine:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Tekst As %String = OrderLine.ProductionBody
+	Set:($$$HasLength(OrderLine.ExternalItemId)) Tekst = OrderLine.ExternalItemId _$$$CRLF _$$$CRLF _Tekst
+	Quit Tekst
+]]></Implementation>
+</Method>
+
 <Method name="IsReedsVerwerkteOrderlijn">
 <FormalSpec>OrderLine:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine</FormalSpec>
 <Private>1</Private>