Index: vhTest/Utils/AXif/Dynamics/SalesOrderIn/Envelope.cls.xml
===================================================================
diff -u -r49003 -r49051
--- vhTest/Utils/AXif/Dynamics/SalesOrderIn/Envelope.cls.xml	(.../Envelope.cls.xml)	(revision 49003)
+++ vhTest/Utils/AXif/Dynamics/SalesOrderIn/Envelope.cls.xml	(.../Envelope.cls.xml)	(revision 49051)
@@ -19,6 +19,7 @@
 	Set OrderHeader.CustomerRef = "CustomerRef"
 	Set OrderHeader.CreatedDateTimeHeader = ##class(AXif.Dynamics.SalesOrderIn.MessageParts.AxdExtTypeCreatedDateTime).%New()
 	Set OrderHeader.CreatedDateTimeHeader.content = ##class(TECH.DateTime).HorologToTimeStamp("64482,43844")
+	Set OrderHeader.CreatedDateTimeHeader.localDateTime = "2018-01-05T13:41:04"
 	Set OrderHeader.CurrencyCode = "EUR"
 	Set OrderHeader.RefSalesOriginId = "VO1600010000"
 	Set OrderHeader.SalesId = "VO1600010000"
Index: vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/TestUpdate.cls.xml
===================================================================
diff -u -r49003 -r49051
--- vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/TestUpdate.cls.xml	(.../TestUpdate.cls.xml)	(revision 49003)
+++ vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/TestUpdate.cls.xml	(.../TestUpdate.cls.xml)	(revision 49051)
@@ -103,7 +103,8 @@
 	Do SalesOrderLineStatusRepositoryMock.VerwachtMethodCall("IsVrijVoorUpdateViaAxInventTransId", "000019541").DanReturn($$$False)
 
 	Set MailerMock = ##class(vhTest.Mock.AXimpl.Dynamics.SalesOrderIn.Converter.Mailer).%New()
-	Do MailerMock.VerwachtMethodCall("VerzendMeldingGeblokkeerdeOrderLijn", OrderMock, "000019541").ExactAantalKeer(1).DanDoeNiks()
+	Do MailerMock.VerwachtMethodCall("ZetMeldingGeblokkeerdeOrderLijn", OrderMock, "000019541").ExactAantalKeer(1).DanDoeNiks()
+	Do MailerMock.VerwachtMethodCall("VerzendMeldingGeblokkeerdeOrderLijnen", OrderMock).ExactAantalKeer(1).DanDoeNiks()
 	
 	Set SalesOrderConverter = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter).%New(..GeefOrderApi(OrderMock),,,,..GeefDocumentReferentie(), ..GeefOrderLijnenSorteerder(), ,..GeefToeleveringService(),,, SalesOrderLineStatusRepositoryMock, ,MailerMock)
 	Do SalesOrderConverter.Convert(StandaardOrder)
Index: AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml
===================================================================
diff -u -r49003 -r49051
--- AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml	(.../SalesOrderConverter.cls.xml)	(revision 49003)
+++ AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml	(.../SalesOrderConverter.cls.xml)	(revision 49051)
@@ -122,6 +122,7 @@
 <Implementation><![CDATA[
 	#dim OrderHeader As AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderHeader = Message.Body.MessageParts.ADUMsgSalesOrderOutQuery.OrderHeader.GetAt(1)
 	Try {
+		Do ..Log(OrderHeader)
 		Do ..ConvertMessage(OrderHeader)
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
@@ -131,6 +132,27 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Log">
+<FormalSpec>OrderHeader:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderHeader</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim TimeStamp As %TimeStamp = ..DateTimeAPI.CurrentTimeStamp()_"."_$piece(..DateTimeAPI.CurrentHorolog(6),".",2)
+	#dim Xml As %String = $$ObjToXML^vhLib(OrderHeader)
+	Set ^LOG.AX.VHIP901(OrderHeader.SalesId,OrderHeader.CreatedDateTimeHeader.localDateTime, TimeStamp) = Xml
+	Set ^LOG.AX.Order(OrderHeader.SalesId,TimeStamp,"Incoming") = Xml
+]]></Implementation>
+</Method>
+
+<Method name="LogLijn">
+<FormalSpec>SalesId:%String,OrderLine:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine,Actie:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim TimeStamp As %TimeStamp = ..DateTimeAPI.CurrentTimeStamp()_"."_$piece(..DateTimeAPI.CurrentHorolog(6),".",2)
+	#dim Xml As %String = $$ObjToXML^vhLib(OrderLine)
+	Set ^LOG.AX.Order(SalesId,TimeStamp,OrderLine.InventTransId,Actie) = Xml
+]]></Implementation>
+</Method>
+
 <Method name="ConvertMessage">
 <FormalSpec>OrderHeader:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderHeader</FormalSpec>
 <Private>1</Private>
@@ -149,19 +171,25 @@
 	While OrderLineIterator.HasNext() {
 		#dim OrderLine As AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine = OrderLineIterator.Next()
 
+		if (..IsReedsKlaargezet(OrderLine)) {
+			Do ..Logger.Debug("SalesOrderIn - Orderlijn is reeds klaargezet", "OrderLijn met InventTransId '" _OrderLine.InventTransId _"' is reeds klaargezet. Er wordt geen update uitgevoerd.")
+			Continue
+		}
+
 		If $$$Not(..MagOrderLijnUpdaten(OrderLine)) {
-			Do ..Mailer.VerzendMeldingGeblokkeerdeOrderLijn(Order, OrderLine.InventTransId)
+			;Do ..Mailer.VerzendMeldingGeblokkeerdeOrderLijn(Order, OrderLine.InventTransId)
+			Do ..Mailer.ZetMeldingGeblokkeerdeOrderLijn(Order, OrderLine.InventTransId)
 			Do ..Logger.Debug("SalesOrderIn - Orderlijn is geblokkeerd", "OrderLijn met InventTransId '" _OrderLine.InventTransId _"' is in verwerking. Er wordt geen update uitgevoerd.")
 			Continue
 		}
 		
 		If ..IsGeannuleerd(OrderLine) {
 			Do ..VerwijderOrderLijn(Order, OrderLine)
+			Do ..LogLijn(OrderHeader.SalesId, OrderLine, "Verwijder OrderLijn")
 			Continue
 		} 
 
-		Do ..UpdateOrderLijn(..GeefOfMaakOrderLijn(Order, OrderLine), OrderLine)
-		 
+		Do ..UpdateOrderLijn(..GeefOfMaakOrderLijn(Order, OrderLine), OrderLine, Order)
 	}
 
 	Do ..BewaarOrder(Order)	
@@ -171,6 +199,8 @@
 	Do ..OrderlijnenSorteerder.SorteerGepersisteerdeOrderLijnen(Order)
 
 	Do ..SluitOrder(Order)
+	
+	Do ..Mailer.VerzendMeldingGeblokkeerdeOrderLijnen(Order)
 
 	Set Order = ""
 ]]></Implementation>
@@ -216,7 +246,7 @@
 </Method>
 
 <Method name="UpdateOrderLijn">
-<FormalSpec>OrderLijn:DOM.VKP.ProductOrderlijn,OrderLine:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine</FormalSpec>
+<FormalSpec>OrderLijn:DOM.VKP.ProductOrderlijn,OrderLine:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine,Order:DOM.VKP.Order</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Do OrderLijn.ZetAxInventTransId(OrderLine.InventTransId) 
@@ -233,9 +263,20 @@
 	Do OrderLijn.ZetAxConfigId(OrderLine.ConfigId)
 	Do:..IsReedsVerwerkteOrderlijn(OrderLine) OrderLijn.ZetToeleveringLijnNr(..#ToeleveringLijnIsReedsVerwerkt)
 	Do:..IsReedsVerwerkteOrderlijn(OrderLine) OrderLijn.ZetToeleveringID("")
-	Do OrderLijn.ZetTekstVoorAfdrukDocumentType(..GeefTekstVoorLeverBon(OrderLine), ##class(DOM.VKP.enu.TekstAfdrukDocumentType).LeverBon())
-	Do OrderLijn.ZetTekstVoorAfdrukDocumentType(..GeefTekstVoorToelevering(OrderLine), ##class(DOM.VKP.enu.TekstAfdrukDocumentType).Toelevering())
-	Do OrderLijn.ZetTekstVoorAfdrukDocumentType(..GeefTekstVoorOrderBevestiging(OrderLine), ##class(DOM.VKP.enu.TekstAfdrukDocumentType).OrderBevestiging())
+	#Dim TekstVoorLeverBon As %String = ..GeefTekstVoorLeverBon(OrderLine)
+	#Dim TekstVoorToelevering As %String = ..GeefTekstVoorToelevering(OrderLine)
+	#Dim TekstVoorOrderBevestiging As %String = ..GeefTekstVoorOrderBevestiging(OrderLine)
+	If ( (TekstVoorLeverBon = TekstVoorToelevering) && (TekstVoorLeverBon = TekstVoorOrderBevestiging) ) {
+		Do Order.VerwijderTekstVoorAfdrukDocumentType("BTO", OrderLijn.GeefID())
+		Do OrderLijn.ZetTekstVoorAfdrukDocumentTypes(TekstVoorLeverBon, 
+			##class(DOM.VKP.enu.TekstAfdrukDocumentType).LeverBon(), 
+			##class(DOM.VKP.enu.TekstAfdrukDocumentType).Toelevering(),
+			##class(DOM.VKP.enu.TekstAfdrukDocumentType).OrderBevestiging())
+	} Else {
+		Do OrderLijn.ZetTekstVoorAfdrukDocumentType(TekstVoorLeverBon, ##class(DOM.VKP.enu.TekstAfdrukDocumentType).LeverBon())
+		Do OrderLijn.ZetTekstVoorAfdrukDocumentType(TekstVoorToelevering, ##class(DOM.VKP.enu.TekstAfdrukDocumentType).Toelevering())
+		Do OrderLijn.ZetTekstVoorAfdrukDocumentType(TekstVoorOrderBevestiging, ##class(DOM.VKP.enu.TekstAfdrukDocumentType).OrderBevestiging())
+	}
 	Do OrderLijn.ZetProjectReferentie(OrderLine.ProductionBody)
 	
 	Do ..Logger.Debug("SalesOrderIn - Orderlijn updaten", "OrderLijn properties zijn gezet voor OrderLijnID '" _OrderLijn.GeefID() _"'")
@@ -248,7 +289,7 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim Tekst As %String = ..VerwijderKOMLinkIdentificatie(OrderLine.PackingSlipBody) 
-	Set:($$$HasLength(OrderLine.ExternalItemId)) Tekst = OrderLine.ExternalItemId _$$$CRLF _$$$CRLF _Tekst 
+	Set:($$$HasLength(OrderLine.ExternalItemId)) Tekst = OrderLine.ExternalItemId _ $$$IfLength(Tekst, $$$CRLF, "") 
 	Quit Tekst
 ]]></Implementation>
 </Method>
@@ -259,7 +300,7 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim Tekst As %String = ""
-	Set:($$$HasLength(OrderLine.ExternalItemId)) Tekst = OrderLine.ExternalItemId _$$$CRLF _$$$CRLF _Tekst
+	Set:($$$HasLength(OrderLine.ExternalItemId)) Tekst = OrderLine.ExternalItemId
 	Quit Tekst
 ]]></Implementation>
 </Method>
@@ -270,7 +311,7 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim Tekst As %String = OrderLine.ConfirmBody
-	Set:($$$HasLength(OrderLine.ExternalItemId)) Tekst = OrderLine.ExternalItemId _$$$CRLF _$$$CRLF _Tekst
+	Set:($$$HasLength(OrderLine.ExternalItemId)) Tekst = OrderLine.ExternalItemId _ $$$IfLength(Tekst, $$$CRLF, "")
 	Quit Tekst
 ]]></Implementation>
 </Method>
@@ -397,7 +438,9 @@
 	Do Order.ZetAfleveradres(..LeverAdresMaker.MaakLeverAdres(OrderHeader))
 	Do Order.ZetVerzendingWijze(..MaakVerzendingWijze(OrderHeader))
 	Do Order.ZetAxSalesId(OrderHeader.SalesId)
-	Do Order.ZetTekstVoorAfdrukDocumentType(OrderHeader.PackingSlipBody, ##class(DOM.VKP.enu.TekstAfdrukDocumentType).LeverBon())
+	#dim PackingSlipBodyZonderNewLines As %String = $Translate(OrderHeader.PackingSlipBody,$char(13)_$char(10),"")
+	Set PackingSlipBodyZonderNewLines = $Translate(PackingSlipBodyZonderNewLines, $char(10) _ $char(13), "")
+	Do Order.ZetTekstVoorAfdrukDocumentType(PackingSlipBodyZonderNewLines, ##class(DOM.VKP.enu.TekstAfdrukDocumentType).LeverBon())
 	
 	If $$$HasLength(OrderHeader.RefSalesOriginId) {
 		If ..OfferteRepository.BestaatViaExterneId(OrderHeader.RefSalesOriginId) && (##class(AXimpl.AxToAdminUtils).ConvertOorsprong(OrderHeader.SalesOriginId) = ##class(BL.Flow.Offerte.enu.Oorsprong).Vhisie4Webshop()) {
@@ -562,7 +605,7 @@
 	}
 	
 	Set DocumentReferenties.OrderReferentie = OrderHeader.PurchOrderFormNum
-	Set DocumentReferenties.CommissieReferentie = OrderHeader.CustomerRef
+	Set DocumentReferenties.CommissieReferentie = $$$If($length(OrderHeader.RefSalesOriginId), ..GeefCustomerRef(OrderHeader.RefSalesOriginId,OrderHeader.CustomerRef),OrderHeader.CustomerRef)
 	Do ..DocumentReferentiesRepository.Bewaar(DocumentReferenties)
 
 	Do Order.ZetDocumentReferenties(DocumentReferenties)
@@ -571,6 +614,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefCustomerRef">
+<FormalSpec>EdiId:%String,CustomerRef:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	try {
+		set OfferteService = ##class(APPS.VKP.impl.OfferteService).%New()
+		#dim Offerte As APPS.VKP.Offerte = OfferteService.GeefOfferte(EdiId)
+		set CustomerRef = Offerte.GeefDocumentReferenties().CommissieReferentie
+	} catch {
+		do ##class(TECH.ExceptionHandler).Catch()
+	}
+	quit CustomerRef
+]]></Implementation>
+</Method>
+
 <Method name="GeefAttributeValue">
 <FormalSpec>Attributes:%ListOfObjects,Key:%String</FormalSpec>
 <Private>1</Private>
@@ -600,6 +658,14 @@
 <Implementation><![CDATA[	Quit (..SalesOrderLineStatusRepository.IsVrijVoorUpdateViaAxInventTransId(OrderLine.InventTransId))
 ]]></Implementation>
 </Method>
+
+<Method name="IsReedsKlaargezet">
+<FormalSpec>OrderLine:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (OrderLine.OrderStatusId="Klaargezet")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/Base.cls.xml
===================================================================
diff -u -r48519 -r49051
--- vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/Base.cls.xml	(.../Base.cls.xml)	(revision 48519)
+++ vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/Base.cls.xml	(.../Base.cls.xml)	(revision 49051)
@@ -10,6 +10,8 @@
 	Do ##class(DOM.DomeinContext).Instance().Reset()
 	Do ##class(APPS.ApplicatieContext).Instance().Reset()
 	Do ##class(TECH.Context).Instance().Reset()
+	Kill ^LOG.AX.VHIP901
+	Kill ^LOG.AX.Order
 	Do ##super(aTestName)
 ]]></Implementation>
 </Method>