Index: Flow/Offerte/Hoofding.cls.xml
===================================================================
diff -u -r1074 -r1320
--- Flow/Offerte/Hoofding.cls.xml	(.../Hoofding.cls.xml)	(revision 1074)
+++ Flow/Offerte/Hoofding.cls.xml	(.../Hoofding.cls.xml)	(revision 1320)
@@ -164,6 +164,10 @@
 <Properties>Klant</Properties>
 </Index>
 
+<Index name="Status">
+<Properties>Status</Properties>
+</Index>
+
 <Index name="PrimaryKey">
 <IdKey>1</IdKey>
 <PrimaryKey>1</PrimaryKey>
Index: APPS/TBXWeb/OrderChecker.cls.xml
===================================================================
diff -u
--- APPS/TBXWeb/OrderChecker.cls.xml	(revision 0)
+++ APPS/TBXWeb/OrderChecker.cls.xml	(revision 1320)
@@ -0,0 +1,222 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.TBXWeb.OrderChecker">
+<IncludeCode>vhLib.Macro,TECH.Error</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="MaxDagenNietVerwerkt">
+<Description>
+Maximum aantal werkdagen dat een order niet verwerkt mag zijn.
+M.a.w. indien groter dan MaxWerkdagenNietVerwerkt en nog niet geïmporteerd, dan vermelden in de mail. </Description>
+<Default>1</Default>
+</Parameter>
+
+<Method name="MailNietVerwerkteOrdersTEST">
+<Description>
+Oproepen via 
+  Set sc=##class(APPS.TBXWeb.OrderChecker).MailNietVerwerkteOrdersTEST()   w sc,! </Description>
+<ClassMethod>1</ClassMethod>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.TBXWeb.OrderChecker).%New().MailNietVerwerkteOrders()
+]]></Implementation>
+</Method>
+
+<Method name="MailNietVerwerkteOrders">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Now=+$H
+	Kill TabelArray
+	
+	Set LijstNietVerwerkteOrders=..GeefLijstNietVerwerkteOrders()
+	
+	Do ..MaakTabelNietVerwerkteOrders(LijstNietVerwerkteOrders, Now, .TabelArray)
+	
+	If $D(TabelArray) {
+		Set sc=..SendMailFromArray(.TabelArray)
+	}
+	Else {
+		Set sc=$$$OK
+	}
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="SendMailFromArray">
+<Description>
+TabelArray als .local doorgeven </Description>
+<FormalSpec>TabelArray:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Source="TBoxWeb"
+
+	Set BodyIsStream=1
+	Set BodyIsHTML=0
+	
+	Set Subject="Verzonden TBX-orders niet verwerkt"_$S($L(Source):" ("_Source_")", 1:"")
+	Set From=$$$SystemMail("TBX OrderChecker")
+	;Set lbTo=$$PiecesToList^vhLib(##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.TBXWeb.OrderChecker_MailTo"),";")
+	Set lbTo=$$PiecesToList^vhLib("ICT_EDIOrderChecker@vanhoecke.be",";")   ; tijdelijk,  ConfigItem aan te maken 
+	Set BodyStream = ##class(%Library.GlobalCharacterStream).%New()
+	Do BodyStream.WriteLine("Volgende orders werden nog niet verwerkt via Tandembox website: ")
+	Do BodyStream.WriteLine()
+	
+	If $D(TabelArray) {
+		Set TabelStream=$$ArrayToHTMLTable^vhLib(.TabelArray)
+		Set sc=BodyStream.CopyFrom(TabelStream)
+		Set BodyIsHTML=1
+	}
+	
+	Set sc=$$SendMiniMail^vhLib(From,lbTo,Subject,BodyStream,BodyIsStream,BodyIsHTML)
+	Quit sc
+]]></Implementation>
+</Method>
+
+<Method name="MaakTabelNietVerwerkteOrders">
+<Description>
+TabelArray als .local doorgeven </Description>
+<FormalSpec><![CDATA[LijstNietVerwerkteOrders:%ListOfDataTypes,RefDatum:%String,&TabelArray:%String]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set cntRows=0
+	Set itIDs=##class(TECH.ListIterator).%New(LijstNietVerwerkteOrders)
+	While itIDs.HasNext() {
+		Set ID=itIDs.Next()
+		Set TBXOrder=##class(WS.TBX.Order).%OpenId(ID)
+		
+		Set SubmitTS=TBXOrder.GeefLaatsteSubmitTS()
+		If (SubmitTS'?1(5N1","1.5N,5N)) $$$ThrowError($$$errGeneralError,"Ongeldige datum gespecifieerd (moet $H-formaat zijn)")
+		
+		Set DagenNietVerwerkt=..BerekenDagenNietVerwerkt(+SubmitTS,+RefDatum)
+		If DagenNietVerwerkt>..#MaxDagenNietVerwerkt {
+			Set TabelArray($Increment(cntRows))=$$LCVTSimple^vhLib( $LB(TBXOrder.OrderNrGet(), TBXOrder.KLNummer, TBXOrder.KLNaam, " " , DagenNietVerwerkt, $$FormatDateTime^vhLib("dd-mm-yyyy hh:nn:ss",SubmitTS), "", TBXOrder.WebDomain) ,$$$TAB)
+		}
+		 ;Write ID_" SubmittedOn "_$$FormatDateTime^vhLib("dd-mm-yyyy hh:nn:ss",SubmitTS)_" "_TBXOrder.WebDomain_" "_$S(DagenNietVerwerkt>..#MaxDagenNietVerwerkt:" DagenNietVerwerkt : "_DagenNietVerwerkt, 1:"")_$$$CRLF
+	}
+	
+	If cntRows>0 {
+		Set TabelArray(0)=$$LCVTSimple^vhLib( $LB("EDI nr.", "KlantNr", "KlantNaam", " ", "#Dagen", "Verzonden op", " ", "Domein"), $$$TAB)
+	}
+	Quit
+]]></Implementation>
+</Method>
+
+<Method name="BerekenDagenNietVerwerkt">
+<FormalSpec>SubmittedDatum:%String,RefDatum:%String=$H</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit $$DIFFDATE^vhDTyp(+SubmittedDatum,+RefDatum,"A")
+]]></Implementation>
+</Method>
+
+<Method name="GeefLijstNietVerwerkteOrders">
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+ /*
+ 	; Queries voor DEBUG : 
+ 	; ------- ---- ------- 
+	
+SELECT SubmitTS, ID, BonType, TransferLog, $LIST($LIST(TransferLog,1),2) AS OffID, KLNummer, KLNaam, WebDomain
+  FROM WS_TBX.WebOrder 
+  WHERE (WebDomain='www.tandem-box.com') AND (NOT BonType in ('OFF','OFFAV'))
+        AND (SubmitTS > '2011-01-01') 
+        AND ((TransferLog is NULL) OR (not ($LIST($LIST(TransferLog,1),2) > 0)))
+  ORDER BY SubmitTS, ID
+	
+	
+SELECT SubmitTS, ID, BonType, TransferLog, $LIST($LIST(TransferLog,1),2) AS OffID, KLNummer, KLNaam, WebDomain
+  FROM WS_TBX.WebOrder 
+  WHERE (WebDomain <> 'www.tandem-box.com') AND (NOT BonType in ('BBON','OFF'))
+        AND (SubmitTS > '2011-01-01') 
+        AND ((TransferLog is NULL) OR (not ($LIST($LIST(TransferLog,1),2) > 0)))
+  ORDER BY WebDomain, SubmitTS, ID
+	
+ */
+	
+	Set lbSQLParams = ""
+	Set SQLQuery = "SELECT ID FROM WS_TBX.WebOrder WHERE (WebDomain = 'www.tandem-box.com') AND (NOT BonType in ('OFF','OFFAV')) AND (SubmitTS > '2011-01-01') AND ((TransferLog is NULL) OR (not ($LIST($LIST(TransferLog,1),2) > 0))) ORDER BY SubmitTS, ID"
+	Set Lijst=..GeefLijstOrderIDs(SQLQuery,lbSQLParams)
+	
+	Set SQLQuery = "SELECT ID FROM WS_TBX.WebOrder WHERE (WebDomain <> 'www.tandem-box.com') AND (NOT BonType in ('BBON','OFF')) AND (SubmitTS > '2011-01-01') AND ((TransferLog is NULL) OR (not ($LIST($LIST(TransferLog,1),2) > 0))) ORDER BY WebDomain, SubmitTS, ID"
+	Set Lijst2=..GeefLijstOrderIDs(SQLQuery,lbSQLParams)
+
+	Set Lijst=##Class(TECH.ListUtils).CopyList(Lijst2,Lijst)
+	
+	Quit Lijst
+]]></Implementation>
+</Method>
+
+<Method name="GeefLijstOrderIDs">
+<Description>
+De SQLQuery moet een veld met naam "ID" in de SELECT statement bevatten </Description>
+<FormalSpec>SQLQuery:%String,lbSQLParams:%List</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set LijstOrderIDs=##class(%ListOfDataTypes).%New()
+
+	Set ResultSet=$$ExecDynQuery^vhQUERYLIB(SQLQuery,lbSQLParams)
+	If $IsObject(ResultSet) {
+		While ResultSet.Next() { 
+			Do LijstOrderIDs.Insert(ResultSet.Data("ID"))
+		}
+	}
+	Set ResultSet=""
+	Quit LijstOrderIDs
+]]></Implementation>
+</Method>
+
+<Method name="FixSFSSubmitToVH">
+<Description><![CDATA[
+Fix moet slechts 1 keer uitgevoerd worden voor alle TBX-orders (van SFS) 
+--> Eenmalig uitgevoerd op 25/05/2011 op WWW01 - HADEV 
+
+Oproepen via 
+  Set sc=##class(APPS.TBXWeb.OrderChecker).FixSFSSubmitToVH()   w sc,! ]]></Description>
+<ClassMethod>1</ClassMethod>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set lbSQLParams = ""
+	Set SQLQuery = "SELECT WSOrderID AS ID, LogTime FROM DW_WWW.SysLogTBX   WHERE LogTime %STARTSWITH '2011-0' and WizardMode='shop=VHEPN' and domeinKort='SFS'"
+
+	Set ResultSet=$$ExecDynQuery^vhQUERYLIB(SQLQuery,lbSQLParams)
+	If $IsObject(ResultSet) {
+		While ResultSet.Next() { 
+			Set ID=ResultSet.Data("ID")
+			
+			Set TBXOrder=##class(WS.TBX.Order).%OpenId(ID)
+
+			If TBXOrder.WebDomain="tbx.sfsunimarket.biz" {
+				Write "Order EDI "_TBXOrder.mID,!
+				Set SubmitTS=$LG($LG(TBXOrder.SubmitToVHLog,1),1)
+				If SubmitTS="" {
+					Set LogTime=ResultSet.Data("LogTime")
+					Do TBXOrder.AddToSubmitToVHLog("1")
+
+					Set lbSubmitToVHLog=TBXOrder.SubmitToVHLog
+					Set lbLastSubmit=$LG(lbSubmitToVHLog,1)
+					Set $LI(lbLastSubmit,1)=LogTime
+					Set $LI(lbSubmitToVHLog,1)=lbLastSubmit
+					Set TBXOrder.SubmitToVHLog=lbSubmitToVHLog
+					
+					write "New submitlog : "_$$$LCVT(TBXOrder.SubmitToVHLog),!
+
+					Set sc=TBXOrder.%Save()
+					write "Save "_sc,!
+				}
+				Else {
+					write "submitlog bestaat reeds : "_$$$LCVT(TBXOrder.SubmitToVHLog),!
+				}
+			}
+			Set TBXOrder=""
+		}		
+	}
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/OV/OrderAanvraagChecker.cls.xml
===================================================================
diff -u
--- APPS/OV/OrderAanvraagChecker.cls.xml	(revision 0)
+++ APPS/OV/OrderAanvraagChecker.cls.xml	(revision 1320)
@@ -0,0 +1,163 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.OV.OrderAanvraagChecker">
+<IncludeCode>vhLib.Macro,TECH.Error</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="MaxDagenNietVerwerkt">
+<Description>
+Maximum aantal werkdagen dat een order niet verwerkt mag zijn.
+M.a.w. indien groter dan MaxWerkdagenNietVerwerkt en nog niet geïmporteerd, dan vermelden in de mail. </Description>
+<Default>1</Default>
+</Parameter>
+
+<Method name="MailNietVerwerkteAanvragenTEST">
+<Description>
+Oproepen via 
+  Set sc=##class(APPS.OV.OrderAanvraagChecker).MailNietVerwerkteAanvragenTEST()   w sc,! </Description>
+<ClassMethod>1</ClassMethod>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.OV.OrderAanvraagChecker).%New().MailNietVerwerkteAanvragen()
+]]></Implementation>
+</Method>
+
+<Method name="MailNietVerwerkteAanvragen">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Now=+$H
+	Kill TabelArray
+	
+	Set LijstNietVerwerkteAanvragen=..GeefLijstNietVerwerkteAanvragen()
+	
+	Do ..MaakTabelNietVerwerkteAanvragen(LijstNietVerwerkteAanvragen, Now, .TabelArray)
+	
+	If $D(TabelArray) {
+		Set sc=..SendMailFromArray(.TabelArray)
+	}
+	Else {
+		Set sc=$$$OK
+	}
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="SendMailFromArray">
+<Description>
+TabelArray als .local doorgeeven </Description>
+<FormalSpec>TabelArray:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Source=""
+
+	Set BodyIsStream=1
+	Set BodyIsHTML=0
+	
+	Set Subject="Verzonden Orderaanvragen niet verwerkt"_$S($L(Source):" ("_Source_")", 1:"")
+	Set From=$$$SystemMail("EDI OrderAanvraagChecker")
+	;Set lbTo=$$PiecesToList^vhLib(##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.OV.OrderAanvraagChecker_MailTo"),";")
+	Set lbTo=$$PiecesToList^vhLib("ICT_EDIOrderChecker@vanhoecke.be",";")   ; tijdelijk,  ConfigItem aan te maken 
+	Set BodyStream = ##class(%Library.GlobalCharacterStream).%New()
+	Do BodyStream.WriteLine("Volgende Aanvragen werden nog niet verwerkt in ADMIN: ")
+	Do BodyStream.WriteLine()
+	
+	If $D(TabelArray) {
+		Set TabelStream=$$ArrayToHTMLTable^vhLib(.TabelArray)
+		Set sc=BodyStream.CopyFrom(TabelStream)
+		Set BodyIsHTML=1
+	}
+	
+	Set sc=$$SendMiniMail^vhLib(From,lbTo,Subject,BodyStream,BodyIsStream,BodyIsHTML)
+	Quit sc
+]]></Implementation>
+</Method>
+
+<Method name="MaakTabelNietVerwerkteAanvragen">
+<Description>
+TabelArray als .local doorgeeven </Description>
+<FormalSpec><![CDATA[LijstNietVerwerkteAanvragen:%ListOfDataTypes,RefDatum:%String,&TabelArray:%String]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set cntRows=0
+	Set itIDs=##class(TECH.ListIterator).%New(LijstNietVerwerkteAanvragen)
+	While itIDs.HasNext() {
+		Set ID=itIDs.Next()
+		Set FlowOfferte=##class(Flow.Offerte.Hoofding).%OpenId(ID)
+		
+		If FlowOfferte.Status="W" {
+			Set SubmitTS=FlowOfferte.StatusTijdStip
+			If (SubmitTS'?1(5N1","1.5N,5N)) $$$ThrowError($$$errGeneralError,"Ongeldige datum gespecifieerd (moet $H-formaat zijn)")
+		
+			Set DagenNietVerwerkt=..BerekenDagenNietVerwerkt(+SubmitTS,+RefDatum)
+			If DagenNietVerwerkt>..#MaxDagenNietVerwerkt {
+				Set TabelArray($Increment(cntRows))=$$LCVTSimple^vhLib( $LB(FlowOfferte.ID, FlowOfferte.Klant.Nummer, FlowOfferte.Klant.Naam, " " , DagenNietVerwerkt, $$FormatDateTime^vhLib("dd-mm-yyyy hh:nn:ss",SubmitTS), "", FlowOfferte.Oorsprong) ,$$$TAB)
+			}
+		}
+		Else {
+			$$$ThrowError($$$errGeneralError,"Ongeldige status voor NietVerwerkteAanvragen (status="_FlowOfferte.Status_")")
+		}
+		 ;Write ID_" SubmittedOn "_$$FormatDateTime^vhLib("dd-mm-yyyy hh:nn:ss",SubmitTS)_" "_TBXOrder.WebDomain_" "_$S(DagenNietVerwerkt>..#MaxDagenNietVerwerkt:" DagenNietVerwerkt : "_DagenNietVerwerkt, 1:"")_$$$CRLF
+	}
+	
+	If cntRows>0 {
+		Set TabelArray(0)=$$LCVTSimple^vhLib( $LB("EDI nr.", "KlantNr", "KlantNaam", " ", "#Dagen", "Verzonden op", " ", "Oorsprong"), $$$TAB)
+	}
+	Quit
+]]></Implementation>
+</Method>
+
+<Method name="BerekenDagenNietVerwerkt">
+<FormalSpec>SubmittedDatum:%String,RefDatum:%String=$H</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit $$DIFFDATE^vhDTyp(+SubmittedDatum,+RefDatum,"A")
+]]></Implementation>
+</Method>
+
+<Method name="GeefLijstNietVerwerkteAanvragen">
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+ /*
+ 	; Queries voor DEBUG : 
+ 	; ------- ---- ------- 
+	
+SELECT ID1, ID, Afzender, BehandeldDoor, CommReferentie, Commentaar, Controle, CreatieTijdStip, Creator, Datum, EmailOrderbevestiging, Klant, Oorsprong, OrderNr, Referentie, Status, StatusTijdStip, LeveringsAdres_Naam 
+   FROM Flow_Offerte.Hoofding 
+   WHERE (Status='W') AND (CreatieTijdStip > '2011-01-01') 
+   ORDER BY CreatieTijdStip, ID
+ 
+ */
+	
+	Set lbSQLParams = ""
+	Set SQLQuery = "SELECT ID FROM Flow_Offerte.Hoofding WHERE (Status='W') AND (CreatieTijdStip > '2011-01-01') ORDER BY CreatieTijdStip, ID"
+	Set Lijst=..GeefLijstOrderIDs(SQLQuery,lbSQLParams)
+		
+	Quit Lijst
+]]></Implementation>
+</Method>
+
+<Method name="GeefLijstOrderIDs">
+<Description>
+De SQLQuery moet een veld met naam "ID" in de SELECT statement bevatten </Description>
+<FormalSpec>SQLQuery:%String,lbSQLParams:%List</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set LijstOrderIDs=##class(%ListOfDataTypes).%New()
+
+	Set ResultSet=$$ExecDynQuery^vhQUERYLIB(SQLQuery,lbSQLParams)
+	If $IsObject(ResultSet) {
+		While ResultSet.Next() { 
+			Do LijstOrderIDs.Insert(ResultSet.Data("ID"))
+		}
+	}
+	Set ResultSet=""
+	Quit LijstOrderIDs
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: WV GAProduct WWW.prj.xml
===================================================================
diff -u -r1309 -r1320
--- WV GAProduct WWW.prj.xml	(.../WV GAProduct WWW.prj.xml)	(revision 1309)
+++ WV GAProduct WWW.prj.xml	(.../WV GAProduct WWW.prj.xml)	(revision 1320)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="WV GAProduct WWW" LastModified="2011-05-26 13:49:18" Target="ophSendAlertMail^csp" TargetType="2" HttpServer="http://192.168.1.67:1972">
+<Project name="WV GAProduct WWW" LastModified="2011-05-26 16:50:40" Target="ophSendAlertMail^csp" TargetType="2" HttpServer="http://192.168.1.67:1972">
   <Items>
     <ProjectItem name="/csp/httplog/DLGqueryVH.csp" type="CSP"/>
     <ProjectItem name="/csp/httplog/queryVH.csp" type="CSP"/>
@@ -31,10 +31,12 @@
     <ProjectItem name="/vhisie/TBX/WizOvz.csp" type="CSP"/>
     <ProjectItem name="/vhisie/TBX/WizPData.csp" type="CSP"/>
     <ProjectItem name="/vhisie/TBX/Wizard.csp" type="CSP"/>
+    <ProjectItem name="APPS.OV.OrderAanvraagChecker" type="CLS"/>
     <ProjectItem name="APPS.TBXWeb.Actie" type="CLS"/>
     <ProjectItem name="APPS.TBXWeb.DomeinNamen.INC" type="MAC"/>
     <ProjectItem name="APPS.TBXWeb.EMailAdressen.INC" type="MAC"/>
     <ProjectItem name="APPS.TBXWeb.INC" type="MAC"/>
+    <ProjectItem name="APPS.TBXWeb.OrderChecker" type="CLS"/>
     <ProjectItem name="APPS.TBXWeb.enu.RedenOfferteVervallen" type="CLS"/>
     <ProjectItem name="APPS.TBXWeb.impl.ActieSFSCorpusProfielen" type="CLS"/>
     <ProjectItem name="BL.Flow.Offerte.LijnProductGA" type="CLS"/>
@@ -53,6 +55,7 @@
     <ProjectItem name="BL.Prod.GAData.TBXLadeXML.pxPrintOrderLijn" type="CLS"/>
     <ProjectItem name="DW.WWW.SysLogTBX" type="CLS"/>
     <ProjectItem name="ErrorVHCNTs.INC" type="MAC"/>
+    <ProjectItem name="Flow.Offerte.Hoofding" type="CLS"/>
     <ProjectItem name="Kenm.Basis.DataDefinitie" type="CLS"/>
     <ProjectItem name="Kenm.Basis.DataIndex" type="CLS"/>
     <ProjectItem name="Kenm.Basis.MetaDefinitie" type="CLS"/>
@@ -164,6 +167,7 @@
     <ProjectItem name="cspBasis.ProductList.tmpDev.MAC" type="MAC"/>
     <ProjectItem name="cspBasis.SOAPlib.MAC" type="MAC"/>
     <ProjectItem name="cspBasis.TBX.DecodeURL.tmpDev.MAC" type="MAC"/>
+    <ProjectItem name="vhDeploy.Deploy20110526x1642" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.TBXWeb.TestActies" type="CLS"/>
     <ProjectItem name="wv.tmpDev3.MAC" type="MAC"/>
     <ProjectItem name="zTryout.WV.TBXWeb.OrderChecker" type="CLS"/>
Index: zTryout/WV/TBXWeb/OrderChecker.cls.xml
===================================================================
diff -u -r1309 -r1320
--- zTryout/WV/TBXWeb/OrderChecker.cls.xml	(.../OrderChecker.cls.xml)	(revision 1309)
+++ zTryout/WV/TBXWeb/OrderChecker.cls.xml	(.../OrderChecker.cls.xml)	(revision 1320)
@@ -26,16 +26,27 @@
 <Method name="MailNietVerwerkteOrders">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+ /*
+	
+	; COMPLETE CLASS HAS BEEN RENAMED TO  APPS.TBXWeb.OrderChecker  
+	;   --- this class will be deleted next week --- 
+	
 	Set Now=+$H
 	Kill TabelArray
 	
 	Set LijstNietVerwerkteOrders=..GeefLijstNietVerwerkteOrders()
 	
 	Do ..MaakTabelNietVerwerkteOrders(LijstNietVerwerkteOrders, Now, .TabelArray)
 	
-	Set sc=..SendMailFromArray(.TabelArray)
+	If $D(TabelArray) {
+		Set sc=..SendMailFromArray(.TabelArray)
+	}
+	Else {
+		Set sc=$$$OK
+	}
 	
 	Quit $$$OK
+ */
 ]]></Implementation>
 </Method>
 
@@ -200,7 +211,7 @@
 					
 					write "New submitlog : "_$$$LCVT(TBXOrder.SubmitToVHLog),!
 
-					;Set sc=TBXOrder.%Save()
+					Set sc=TBXOrder.%Save()
 					write "Save "_sc,!
 				}
 				Else {
Index: vhDeploy/Deploy20110526x1642.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20110526x1642.cls.xml	(revision 0)
+++ vhDeploy/Deploy20110526x1642.cls.xml	(revision 1320)
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.Deploy20110526x1642">
+<Description>
+Added by WimV </Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Do ##class(Flow.Offerte.Hoofding).%BuildIndices()
+]]></Implementation>
+</Method>
+</Class>
+</Export>