Index: APPS/OV/OrderAanvraagChecker.cls.xml
===================================================================
diff -u -r1322 -r1333
--- APPS/OV/OrderAanvraagChecker.cls.xml	(.../OrderAanvraagChecker.cls.xml)	(revision 1322)
+++ APPS/OV/OrderAanvraagChecker.cls.xml	(.../OrderAanvraagChecker.cls.xml)	(revision 1333)
@@ -58,8 +58,7 @@
 	
 	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 lbTo=$$PiecesToList^vhLib(##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.OV.OrderAanvraagChecker_MailTo"),";")
 	Set BodyStream = ##class(%Library.GlobalCharacterStream).%New()
 	Do BodyStream.WriteLine("Volgende Aanvragen werden nog niet verwerkt in ADMIN: ")
 	Do BodyStream.WriteLine()
@@ -132,8 +131,9 @@
  
  */
 	
+	; $H = "62092,0" = $zdth("2011-01-01",3) 
 	Set lbSQLParams = ""
-	Set SQLQuery = "SELECT ID FROM Flow_Offerte.Hoofding WHERE (Status='W') AND (CreatieTijdStip > '"_($zdth("2011-01-01",3))_"') ORDER BY CreatieTijdStip, ID"
+	Set SQLQuery = "SELECT ID FROM Flow_Offerte.Hoofding WHERE (Status='W') AND (CreatieTijdStip > '62092,0') ORDER BY CreatieTijdStip, ID"
 	Set Lijst=..GeefLijstOrderIDs(SQLQuery,lbSQLParams)
 		
 	Quit Lijst
@@ -159,5 +159,40 @@
 	Quit LijstOrderIDs
 ]]></Implementation>
 </Method>
+
+<Method name="FixCreatieTijdstip">
+<Description><![CDATA[
+Fix moet slechts 1 keer uitgevoerd worden voor alle TBX-orders (van SFS) 
+--> Eenmalig uitgevoerd op 30/05/2011 op CACHE01 - ADMIN1 
+
+Oproepen via 
+  Set sc=##class(APPS.OV.OrderAanvraagChecker).FixCreatieTijdstip()   w sc,! ]]></Description>
+<ClassMethod>1</ClassMethod>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set lbSQLParams = ""
+	Set SQLQuery = "SELECT ID, CreatieTijdStip  FROM Flow_Offerte.Hoofding  WHERE (CreatieTijdStip LIKE '%-%')"   ; AND (ID < 5000) 
+
+	Set ResultSet=$$ExecDynQuery^vhQUERYLIB(SQLQuery,lbSQLParams)
+	If $IsObject(ResultSet) {
+		While ResultSet.Next() { 
+			Set ID=ResultSet.Data("ID")
+			
+			Set FlowOfferte=##class(Flow.Offerte.Hoofding).%OpenId(ID)
+			Write "FlowOfferte "_FlowOfferte.%Id()_"  "
+
+			If FlowOfferte.CreatieTijdStip?1(4N1"-"1.2N1"-"1.2N.E) {
+				Set FlowOfferte.CreatieTijdStip=$zdth(FlowOfferte.CreatieTijdStip,3)
+				write "New CreatieTijdStip : "_$$$LCVT(FlowOfferte.CreatieTijdStip),!
+
+				Set sc=FlowOfferte.%Save()
+				write "Save "_sc,!
+			}
+			Set FlowOfferte=""
+		}		
+	}
+	Quit $$$OK
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: APPS/TBXWeb/OrderChecker.cls.xml
===================================================================
diff -u -r1320 -r1333
--- APPS/TBXWeb/OrderChecker.cls.xml	(.../OrderChecker.cls.xml)	(revision 1320)
+++ APPS/TBXWeb/OrderChecker.cls.xml	(.../OrderChecker.cls.xml)	(revision 1333)
@@ -58,8 +58,7 @@
 	
 	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 lbTo=$$PiecesToList^vhLib(##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.TBXWeb.OrderChecker_MailTo"),";")
 	Set BodyStream = ##class(%Library.GlobalCharacterStream).%New()
 	Do BodyStream.WriteLine("Volgende orders werden nog niet verwerkt via Tandembox website: ")
 	Do BodyStream.WriteLine()