vhLib.Macro,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.OV.OrderAanvraagChecker).MailNietVerwerkteAanvragenTEST() w sc,! 1 %Status %Status TabelArray als .local doorgeven TabelArray:%String 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("
") Set sc=$$SendMiniMailForced^vhLib.Mail(From,lbTo,Subject,BodyStream,BodyIsStream,BodyIsHTML) Quit sc ]]> TabelArray als .local doorgeven 1 ..#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 ]]> SubmittedDatum:%String,RefDatum:%String=$H 1 %Integer 1 %ListOfDataTypes '2011-01-01') ORDER BY CreatieTijdStip, ID */ ; $H = "62092,0" = $zdth("2011-01-01",3) Set lbSQLParams = "" 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 ]]> De SQLQuery moet een veld met naam "ID" in de SELECT statement bevatten SQLQuery:%String,lbSQLParams:%List 1 %ListOfDataTypes Eenmalig uitgevoerd op 30/05/2011 op CACHE01 - ADMIN1 Oproepen via Set sc=##class(APPS.OV.OrderAanvraagChecker).FixCreatieTijdstip() w sc,! ]]> 1 %Status