Index: APPS/VKP/impl/OfferteService.cls.xml
===================================================================
diff -u -r53114 -r53412
--- APPS/VKP/impl/OfferteService.cls.xml	(.../OfferteService.cls.xml)	(revision 53114)
+++ APPS/VKP/impl/OfferteService.cls.xml	(.../OfferteService.cls.xml)	(revision 53412)
@@ -75,6 +75,7 @@
 <FormalSpec>OfferteID:%String</FormalSpec>
 <ReturnType>APPS.VKP.impl.Offerte</ReturnType>
 <Implementation><![CDATA[
+	// Let op: dit werkt niet correct indien je een ExterneId doorgeeft. Je mag daarom niet aanroepen met de EDINummer vanop een Order (behalve eventueel voor de Unishop-personalities/klanten)?
 	if $$$Not(..OfferteRepository.BestaatViaID(OfferteID)) {
 		#dim WorkAroundZoekViaExternID = $$$True   ; Tijdelijke work-around, TAOR productie-aansturing vraagt de DocumentReferenties op via Vhisie-winkelkar, maar geeft ExternId op als OfferteID
 		if (WorkAroundZoekViaExternID) && (..OfferteRepository.BestaatViaExterneId(OfferteID)) {
Index: APPS/VKP/Offerte/enu/BestelStatus/Verwerker.cls.xml
===================================================================
diff -u
--- APPS/VKP/Offerte/enu/BestelStatus/Verwerker.cls.xml	(revision 0)
+++ APPS/VKP/Offerte/enu/BestelStatus/Verwerker.cls.xml	(revision 53412)
@@ -0,0 +1,56 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.VKP.Offerte.enu.BestelStatus.Verwerker">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie methoden moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+
+<Method name="Verwerk">
+<Final>1</Final>
+<FormalSpec>BestelStatus:APPS.VKP.Offerte.enu.BestelStatus</FormalSpec>
+<Implementation><![CDATA[
+	If BestelStatus = "Besteld" {
+		Do ..VerwerkBesteld()
+	} ElseIf BestelStatus = "Doorbesteld" {
+		Do ..VerwerkDoorbesteld()
+	} ElseIf BestelStatus = "DoorgestuurdNaarAX" {
+		Do ..VerwerkDoorgestuurdNaarAX()
+	} ElseIf BestelStatus = "Offerte" {
+		Do ..VerwerkOfferte()
+	} Else {
+		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(BestelStatus,"APPS.VKP.Offerte.enu.BestelStatus",$classname())
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkBesteld">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkDoorbesteld">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkDoorgestuurdNaarAX">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkOfferte">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: CHUI/VKP/OrderIngave/TijdelijkOrderSluiterv01.cls.xml
===================================================================
diff -u -r51604 -r53412
--- CHUI/VKP/OrderIngave/TijdelijkOrderSluiterv01.cls.xml	(.../TijdelijkOrderSluiterv01.cls.xml)	(revision 51604)
+++ CHUI/VKP/OrderIngave/TijdelijkOrderSluiterv01.cls.xml	(.../TijdelijkOrderSluiterv01.cls.xml)	(revision 53412)
@@ -37,6 +37,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="OfferteRepository">
+<Type>APPS.VKP.Offerte.OfferteRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>Generator:AXimpl.Generator,OrderAPI:DOM.VKP.OrderAPI,ProductAPI:DOM.PM.ProductAPI,BezwarenWeergever:CHUI.common.BezwarenWeergever,BouwsteenIteratorFactory:AXimpl.Dynamics.InventoryOut.Converter.BouwsteenIteratorFactory,Logger:vhLib.Logger,TeVerwijderenTijdelijkOrderRepository:APPS.VKP.OrderIngave.TeVerwijderenTijdelijkeOrderRepository</FormalSpec>
 <Private>1</Private>
@@ -51,6 +56,7 @@
 	Set ..BouwsteenIteratorFactory = $$$Inject(BouwsteenIteratorFactory,##class(AXimpl.Dynamics.InventoryOut.Converter.BouwsteenIteratorFactory).%New())
 	Set ..Logger = $$$Inject(Logger,##class(vhLib.Logger).%New())
 	Set ..TeVerwijderenTijdelijkOrderRepository = $$$Inject(TeVerwijderenTijdelijkOrderRepository,##class(APPS.VKP.OrderIngave.TeVerwijderenTijdelijkeOrderRepository).%New())
+	Set ..OfferteRepository = $$$Inject(OfferteRepository,##class(APPS.VKP.Offerte.impl.OfferteRepository).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -65,8 +71,13 @@
 		if ##class(TECH.Config.ConfigMgr).Instance().GeefBoolean("AX2A_SalesOrderOut_FileGenerationNeeded") {
 			set Request = ##class(AXimpl.Request).%New("SalesOrder/Create",ORDNr)
 			If ..Generator.Generate(Request) {
+				
 				try {
-						Do ..OrderAPI.VerwijderOrder(ORDNr)
+					Do ..VoegToeAanBestelStatusHistoriekVhisie4(ORDNr)
+				} catch { Do ..Logger.LogEnMailExceptie( ##class(TECH.ExceptionHandler).Catch() ) }
+				
+				try {
+					Do ..OrderAPI.VerwijderOrder(ORDNr)
 				} catch {
 					#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 					#dim melding as %String = "Er liep iets mis met het verwijderen van tijdelijk order '"_ORDNr _ "'. Het bestand voor AX werd gegenereerd. Het order is gemarkeerd om automatisch verwijderd te worden."
@@ -83,6 +94,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VoegToeAanBestelStatusHistoriekVhisie4">
+<FormalSpec>ORDNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim Order as DOM.VKP.Order = ..OrderAPI.GeefOrder(ORDNr)
+	If ( (##class(BL.Flow.Offerte.enu.Oorsprong).UniShop() = Order.GeefOorsprong())
+		|| (##class(BL.Flow.Offerte.enu.Oorsprong).Vhisie4Webshop() = Order.GeefOorsprong()) ) {
+			If ..OfferteRepository.BestaatViaExterneId(Order.GeefEDINummer()) {
+				#dim Offerte As APPS.VKP.Offerte = ..OfferteRepository.GeefViaExterneId(Order.GeefEDINummer())
+				Do Offerte.VoegToeAanBestelStatusHistoriek(##class(APPS.VKP.Offerte.enu.BestelStatus).DoorgestuurdNaarAX(), ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentTimeStamp())
+				Do Offerte.Save()
+			}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="KanOrderSluiten">
 <Description>
 KLNr voor compatibiliteit met CHUI.VKP.OrderIngave.OrderSluiterv01</Description>
Index: APPS/VKP/impl/Offerte.cls.xml
===================================================================
diff -u -r53113 -r53412
--- APPS/VKP/impl/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 53113)
+++ APPS/VKP/impl/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 53412)
@@ -235,7 +235,6 @@
 
 <Method name="VoegToeAanBestelStatusHistoriek">
 <FormalSpec>BestelStatus:APPS.VKP.Offerte.enu.BestelStatus,UpdateDatum:%TimeStamp</FormalSpec>
-<Private>1</Private>
 <ReturnType>APPS.VKP.Offerte.enu.BestelStatus</ReturnType>
 <Implementation><![CDATA[
 	#dim BestelStatusDatums As %ListOfDataTypes = ..GeefBestelStatusDatums(BestelStatus)
Index: APPS/VKP/Offerte/enu/BestelStatus.cls.xml
===================================================================
diff -u -r29059 -r53412
--- APPS/VKP/Offerte/enu/BestelStatus.cls.xml	(.../BestelStatus.cls.xml)	(revision 29059)
+++ APPS/VKP/Offerte/enu/BestelStatus.cls.xml	(.../BestelStatus.cls.xml)	(revision 53412)
@@ -35,6 +35,15 @@
 <Implementation><![CDATA[	Quit "Doorbesteld"
 ]]></Implementation>
 </Method>
+
+<Method name="DoorgestuurdNaarAX">
+<Description>
+N.B. Deze is geen echte status van bestelling, maar wel van een status voor de BestelStatusHistoriek.</Description>
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.VKP.Offerte.enu.BestelStatus</ReturnType>
+<Implementation><![CDATA[	Quit "DoorgestuurdNaarAX"
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/VKP/Offerte/enu/BestelStatus/AutoComplete.cls.xml
===================================================================
diff -u
--- APPS/VKP/Offerte/enu/BestelStatus/AutoComplete.cls.xml	(revision 0)
+++ APPS/VKP/Offerte/enu/BestelStatus/AutoComplete.cls.xml	(revision 53412)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.VKP.Offerte.enu.BestelStatus.AutoComplete">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie Eigenschapn moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%SerialObject</Super>
+
+<Property name="Besteld">
+<Type>%String</Type>
+<InitialExpression>"Besteld"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Doorbesteld">
+<Type>%String</Type>
+<InitialExpression>"Doorbesteld"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="DoorgestuurdNaarAX">
+<Type>%String</Type>
+<InitialExpression>"DoorgestuurdNaarAX"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Offerte">
+<Type>%String</Type>
+<InitialExpression>"Offerte"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+</Class>
+
+
+</Export>