Index: WS/TBX/Order.cls.xml
===================================================================
diff -u -r1247 -r1309
--- WS/TBX/Order.cls.xml	(.../Order.cls.xml)	(revision 1247)
+++ WS/TBX/Order.cls.xml	(.../Order.cls.xml)	(revision 1309)
@@ -581,6 +581,41 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLaatsteSubmitTS">
+<Description>
+Geeft datum/tijdstip in $H-formaat terug van de laatste submit (to VH).
+OPGELET : submit to VH betekent voor de handels niet de submit van de klant, maar de submit van de handel naar VanHoecke </Description>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#define DateH(%v)   $S(%v?5N1","1.5N:%v, 1:$ZDTH(%v,3))
+	
+	Set sDomVERW=$LG(..DomainLookUp(..WebDomain,$LB("VERW")),1)
+	If sDomVERW="" {
+		$$$ThrowError($$$errGeneralError,"Ongeldig waarde voor WebDomain. De verwerker kan niet bepaald worden.")
+	}
+	ElseIf sDomVERW="VHEPN" {
+		Set SubmitTS=$$$DateH(..SubmitTS)
+	}
+	Else {
+		Set HandelSubmitsToVH=(sDomVERW'?1(1"HEIN",1"LMC"))
+		If HandelSubmitsToVH {
+			Set SubmitTS=$LG($LG(..SubmitToVHLog,1),1)
+
+			; -------------- 
+			; Temp FIX,  bij SFS wordt de SubmitToVHLog nog niet ingevuld. 
+			;If (sDomVERW?1(1"SFS",1"MBHO"))&&(SubmitTS="") Set SubmitTS=$$$DateH(..SubmitTS)
+			; -------------- 
+
+		}
+		Else {
+			Set SubmitTS=$$$DateH(..SubmitTS)
+		}
+		
+	}
+	Quit SubmitTS
+]]></Implementation>
+</Method>
+
 <Method name="IsOfferteVervallen">
 <Description>
 Optionele parameter RefDatum in $H-formaat meegeven. 
Index: vhLib.mac.rou
===================================================================
diff -u -r1120 -r1309
--- vhLib.mac.rou	(.../vhLib.mac.rou)	(revision 1120)
+++ vhLib.mac.rou	(.../vhLib.mac.rou)	(revision 1309)
@@ -80,19 +80,19 @@
  
  New Index 
  Set Index=""
- Do Stream.Write("<TABLE>")
+ Do Stream.Write("<TABLE>"_$$$CRLF)
  
  If $D(Array(0)) Do
- . Do Stream.Write("<TH align=center>")
+ . Do Stream.Write("<THEAD align=center><TR>")
  . Do Stream.Write("<TD>"_$$$Replace(Array(0),$$$TAB,"</TD><TD>")_"</TD>")
- . Do Stream.Write("</TH>")
+ . Do Stream.Write("</TR></THEAD>"_$$$CRLF)
  
  Set Index=0
  For  Set Index=$O(Array(Index)) Quit:Index=""  Do
- . Do Stream.Write( "<TR>" )
+ . Do Stream.Write( "<TR>")
  . Do Stream.Write("<TD>"_$$$Replace(Array(Index),$$$TAB,"</TD><TD>")_"</TD>")
- . Do Stream.Write("</TR>")
- Do Stream.Write("</TABLE>")
+ . Do Stream.Write("</TR>"_$$$CRLF)
+ Do Stream.Write("</TABLE>"_$$$CRLF)
  Quit Stream
  
  
Index: WV GAProduct WWW.prj.xml
===================================================================
diff -u -r1185 -r1309
--- WV GAProduct WWW.prj.xml	(.../WV GAProduct WWW.prj.xml)	(revision 1185)
+++ WV GAProduct WWW.prj.xml	(.../WV GAProduct WWW.prj.xml)	(revision 1309)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="WV GAProduct WWW" LastModified="2011-05-18 13:53:35" Target="ophSendAlertMail^csp" TargetType="2" HttpServer="http://192.168.1.67:1972">
+<Project name="WV GAProduct WWW" LastModified="2011-05-26 13:49:18" 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"/>
@@ -166,6 +166,7 @@
     <ProjectItem name="cspBasis.TBX.DecodeURL.tmpDev.MAC" type="MAC"/>
     <ProjectItem name="vhUnitTest.APPS.TBXWeb.TestActies" type="CLS"/>
     <ProjectItem name="wv.tmpDev3.MAC" type="MAC"/>
+    <ProjectItem name="zTryout.WV.TBXWeb.OrderChecker" type="CLS"/>
   </Items>
 </Project>
 </Export>
Index: zTryout/WV/TBXWeb/OrderChecker.cls.xml
===================================================================
diff -u
--- zTryout/WV/TBXWeb/OrderChecker.cls.xml	(revision 0)
+++ zTryout/WV/TBXWeb/OrderChecker.cls.xml	(revision 1309)
@@ -0,0 +1,217 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="zTryout.WV.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(zTryout.WV.TBXWeb.OrderChecker).MailNietVerwerkteOrdersTEST()   w sc,! </Description>
+<ClassMethod>1</ClassMethod>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit ##class(zTryout.WV.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)
+	
+	Set sc=..SendMailFromArray(.TabelArray)
+	
+	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="TBoxWeb"
+
+	Set BodyIsStream=1
+	Set BodyIsHTML=0
+	
+	Set Subject="Verzonden EDI-orders niet verwerkt"_$S($L(Source):" ("_Source_")", 1:"")
+	Set From=$$$SystemMail("EDI 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 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="MaakTabelNietVerwerkteOrders">
+<Description>
+TabelArray als .local doorgeeven </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(zTryout.WV.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>