Index: APPS/OV/impl/AanvraagChecker/TijdelijkOrderVoorWebshop.cls.xml
===================================================================
diff -u
--- APPS/OV/impl/AanvraagChecker/TijdelijkOrderVoorWebshop.cls.xml	(revision 0)
+++ APPS/OV/impl/AanvraagChecker/TijdelijkOrderVoorWebshop.cls.xml	(revision 55209)
@@ -0,0 +1,106 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.OV.impl.AanvraagChecker.TijdelijkOrderVoorWebshop">
+<Description>
+Te testen via: Do ##class(APPS.OV.OrderAanvraagChecker).%New().MailNietVerwerkteAanvragen()</Description>
+<ClassType/>
+<IncludeCode>vhLib.Macro,TECH.Error</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.OV.impl.AanvraagChecker,%RegisteredObject</Super>
+
+<Parameter name="MaxWerkDagenNietVerwerkt">
+<Default>1</Default>
+</Parameter>
+
+<Method name="GeefMailFrom">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $$$SystemMail("Webshop OfferteAanvraagChecker")
+]]></Implementation>
+</Method>
+
+<Method name="GeefMailTo">
+<Private>1</Private>
+<ReturnType>%List</ReturnType>
+<Implementation><![CDATA[	Quit $$PiecesToList^vhLib(##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.OV.OrderAanvraagChecker_MailTo"),";")
+]]></Implementation>
+</Method>
+
+<Method name="GeefMailTitel">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "Bestelde webshop-winkelkarren wel tot in Admin maar niet tot in AX"
+]]></Implementation>
+</Method>
+
+<Method name="GeefICTFixInfo">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim FixInfo As %String = $$$CRLF
+	Set FixInfo = FixInfo_"@ICT: (Test)orders kunnen terug op offerte gezet worden via dit command"_$$$CRLF
+	Set FixInfo = FixInfo_"Do ##class(vhPowerTools.APPS.EC.ExterneVerkoopPowerService).%New().ZetOfferteOpNietBesteld(OrderID)"_$$$CRLF
+	Set FixInfo = FixInfo_$$$CRLF
+	Quit FixInfo
+]]></Implementation>
+</Method>
+
+<Method name="MaakTabelNietVerwerkteAanvragen">
+<FormalSpec><![CDATA[LijstNietVerwerkteAanvragen:%ListOfDataTypes,RefDatum:%Date,&TabelArray:%String]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim cntRows As %Integer = 0
+	Set itIDs=##class(TECH.ListIterator).%New(LijstNietVerwerkteAanvragen)
+	While itIDs.HasNext() {
+		#dim ID As %String = itIDs.Next()
+		#dim Offerte As APPS.VKP.Offerte = ##class(APPS.VKP.impl.Offerte).OpenId(ID)
+		If (Offerte.IsBesteld() && (Offerte.GeefBestelDatum()'=""))
+		{
+			#dim DagenNietVerwerkt As %Integer =..BerekenDagenNietVerwerkt(Offerte.GeefBestelDatum(),RefDatum)
+			If DagenNietVerwerkt>..#MaxWerkDagenNietVerwerkt {
+				#dim KlantData As DOM.common.dto.KlantData = ##class(APPS.VKP.impl.OfferteKlantDataBepaler).%New().GeefKlantData(Offerte)
+				#dim VerwerkOfferte As %String = ""
+				Set VerwerkOfferte = "via Admin: order '" _  Offerte.GeefOrderID() _ "' lijkt nog niet naar AX doorgestuurd te zijn!"
+
+				#dim BestelOpmerking As %String = Offerte.BestelOpmerking
+				If $Length(BestelOpmerking) > 30 {
+					Set BestelOpmerking = $Extract(BestelOpmerking,0,30)_" ..."
+				}
+				#dim BestelReferentie As %String = ""
+				If $IsObject(Offerte.GeefDocumentReferenties()) {
+					Set BestelReferentie = Offerte.GeefDocumentReferenties().OrderReferentie
+				}
+				
+				Set TabelArray($Increment(cntRows))=$$LCVTSimple^vhLib( $LB(Offerte.GeefID(), KlantData.ID, KlantData.Naam, " " , DagenNietVerwerkt, $$FormatDateTime^vhLib("dd-mm-yyyy",Offerte.GeefBestelDatum()), BestelReferentie, BestelOpmerking, VerwerkOfferte) ,$$$TAB)
+				
+			}
+		}Else{
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Ongeldige status voor NietVerwerkteAanvragen (Offerte '"_Offerte.GeefID()_"' : IsBesteld = '"_Offerte.IsBesteld()_"'; BestelDatum = '"_Offerte.GeefBestelDatum()_"')"))
+		}		
+	}
+	
+	If cntRows>0 {
+		Set TabelArray(0)=$$LCVTSimple^vhLib( $LB("OfferteNr", "KlantNr", "KlantNaam", " ", "#Dagen", "Verzonden op","BestelReferentie","Bestel opmerking","Verwerk"), $$$TAB)
+	}
+	Quit
+]]></Implementation>
+</Method>
+
+<Method name="GeefLijstNietVerwerkteAanvragen">
+<Description>
+Moet terug private.</Description>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim Query As %String 	= "SELECT O.ID   FROM APPS_VKP_impl.Offerte O "
+	Set Query = Query 		_ "LEFT JOIN APPS_VKP_impl.Offerte_BestelStatusHistoriek BSH   ON   ( (O.ID = BSH.Offerte) AND (BSH.element_key=?) ) "
+							_ "WHERE   BestelStatus = ?   AND   BSH.ID IS NULL   AND O.ID >= ?   AND O.OrderID IS NOT NULL "
+	#dim EersteWebOfferteSindsGebruikVanDoorgestuurdNaarAXStatus As %String = 400000
+	#dim QueryParameters As %List = $LB( ##class(APPS.VKP.Offerte.enu.BestelStatus).DoorgestuurdNaarAX(), ##class(APPS.VKP.Offerte.enu.BestelStatus).Besteld(), EersteWebOfferteSindsGebruikVanDoorgestuurdNaarAXStatus )
+		
+	Quit ..GeefLijstOrderIDs( Query, QueryParameters )
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/OV/OrderAanvraagChecker.cls.xml
===================================================================
diff -u -r39487 -r55209
--- APPS/OV/OrderAanvraagChecker.cls.xml	(.../OrderAanvraagChecker.cls.xml)	(revision 39487)
+++ APPS/OV/OrderAanvraagChecker.cls.xml	(.../OrderAanvraagChecker.cls.xml)	(revision 55209)
@@ -20,6 +20,7 @@
 	
 	Do ..CheckAanvragen(##class(APPS.OV.impl.AanvraagChecker.Order).%New())
 	Do ..CheckAanvragen(##class(APPS.OV.impl.AanvraagChecker.Offerte).%New())
+	Do ..CheckAanvragen(##class(APPS.OV.impl.AanvraagChecker.TijdelijkOrderVoorWebshop).%New())
 	
 	If ..Meldingen.Count() {
 		Set Status = $$$ERROR($$$GeneralError,"AanvraagChecker heeft probleem gemeld. Zie log/mail.")