vhLib.Macro,APPS.TBXWeb,TECH.Error 1 %RegisteredObject 0 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. 1 Oproepen via Set sc=##class(APPS.TBXWeb.OrderChecker).MailNietVerwerkteOrdersTEST() w sc,! 1 %Status %Status TabelArray als .local doorgeven TabelArray:%String,NietVerwerkteOrderIds:%ListOfDataTypes 1 %Status ") If $D(TabelArray) { Set TabelStream=$$ArrayToHTMLTable^vhLib(.TabelArray) Set sc=BodyStream.CopyFrom(TabelStream) } Do BodyStream.WriteLine("

") Do BodyStream.WriteLine($$$Replace($$GetJobInfo^vhLib.System(),$$$CRLF,"
")) Do BodyStream.WriteLine("

") Do BodyStream.WriteLine("@ICT: (Test)orders kunnen ""als verwerkt"" gemarkeerd worden via dit command"_"
") Set itIDs=##class(TECH.ListIterator).%New(NietVerwerkteOrderIds) While itIDs.HasNext() { Set ID=itIDs.Next() Do BodyStream.WriteLine("Set sc=##class(APPS.TBXWeb.OrderChecker).MarkeerTBXOrderAlsVerwerkt("_$E(ID,2,7)_",0) w sc,!"_"
") } Do BodyStream.WriteLine("
") Set sc=$$SendMiniMail^vhLib(From,lbTo,Subject,BodyStream,BodyIsStream,BodyIsHTML) Quit sc ]]> TabelArray als .local doorgeven 1 0 { Set TabelArray(0)=$$LCVTSimple^vhLib( $LB("EDI nr.", "KlantNr", "KlantNaam", " ", "#Dagen", "Verzonden op", " ", "Domein"), $$$TAB) } Quit ]]> SubmittedDatum:%String,RefDatum:%String=$H 1 %Integer RefDatum:%String 1 %ListOfDataTypes '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).CopyListOfObjects(Lijst2,Lijst) Set ResultLijst = ##class(%ListOfDataTypes).%New() Set itIDs=##class(TECH.ListIterator).%New(Lijst) While itIDs.HasNext() { Set ID=itIDs.Next() Set TBXOrder=##class(WS.TBX.Order).%OpenId(ID) Set SubmitTS=TBXOrder.GeefLaatsteSubmitTS() If (SubmitTS="")&&(TBXOrder.BonType="INKP") { // dit order komt niet in aanmerking voor deze controle : // want is niet verzonden via de normale OrderHandler-applicatie (van de handel to Van Hoecke), maar is wel geïmporteerd door een VH-medewerker. // dit is mogelijk als de handel deze EDI-nr doorgeeft via fax, telefoon of e-mail. } Else { If (SubmitTS'?1(5N1","1.5N,5N)) $$$ThrowError($$$errGeneralError,"Ongeldige datum gespecifieerd (moet $H-formaat zijn)") Set DagenNietVerwerkt=..BerekenDagenNietVerwerkt(+SubmitTS, +RefDatum) If DagenNietVerwerkt>..#MaxDagenNietVerwerkt { Do ResultLijst.Insert(ID) } ;Write ID_" SubmittedOn "_$$FormatDateTime^vhLib("dd-mm-yyyy hh:nn:ss",SubmitTS)_" "_TBXOrder.WebDomain_" "_$S(DagenNietVerwerkt>..#MaxDagenNietVerwerkt:" DagenNietVerwerkt : "_DagenNietVerwerkt, 1:"")_$$$CRLF } } Quit ResultLijst ]]> De SQLQuery moet een veld met naam "ID" in de SELECT statement bevatten SQLQuery:%String,lbSQLParams:%List 1 %ListOfDataTypes Eenmalig uitgevoerd op 25/05/2011 op WWW01 - HADEV Oproepen via Set sc=##class(APPS.TBXWeb.OrderChecker).FixSFSSubmitToVH() w sc,! ]]> 1 %Status Manuele tool om test-orders te markeren, zodat deze niet meer tevoorschijn komen in het overzicht van de niet-verwerkte orders. By default wordt gecontroleerd op Testklant VH en VHCC_01 tot VHCC_09 . Oproepen via Set sc=##class(APPS.TBXWeb.OrderChecker).MarkeerTBXOrderAlsVerwerkt(WSOrderID,0,[OfferteHoofdingID=99]) w sc,! 1 WSOrderID:%String,ForceerWijziging:%Boolean=0,OfferteHoofdingID:%String="99" %Status