Index: APPS/TBXWeb/OrderChecker.cls.xml =================================================================== diff -u -r830 -r831 --- APPS/TBXWeb/OrderChecker.cls.xml (.../OrderChecker.cls.xml) (revision 830) +++ APPS/TBXWeb/OrderChecker.cls.xml (.../OrderChecker.cls.xml) (revision 831) @@ -29,12 +29,12 @@ Set Now=+$H Kill TabelArray - Set LijstNietVerwerkteOrders=..GeefLijstNietVerwerkteOrders() + Set NietVerwerkteOrderIds=..GeefNietVerwerkteOrderIds() - Do ..MaakTabelNietVerwerkteOrders(LijstNietVerwerkteOrders, Now, .TabelArray) + Do ..MaakTabelNietVerwerkteOrders(NietVerwerkteOrderIds, Now, .TabelArray) If $D(TabelArray) { - Set sc=..SendMailFromArray(.TabelArray, LijstNietVerwerkteOrders) + Set sc=..SendMailFromArray(.TabelArray, NietVerwerkteOrderIds) } Else { Set sc=$$$OK @@ -49,8 +49,8 @@ Set Now=+$H Kill TabelArray - Set LijstNietVerwerkteOrders=..GeefLijstNietVerwerkteOrders() - Do ..MaakTabelNietVerwerkteOrders(LijstNietVerwerkteOrders, Now, .TabelArray) + Set NietVerwerkteOrderIds=..GeefNietVerwerkteOrderIds() + Do ..MaakTabelNietVerwerkteOrders(NietVerwerkteOrderIds, Now, .TabelArray) Set TabelStream=$$ArrayToHTMLTable^vhLib(.TabelArray) Write TabelStream.Read(32000),!!! @@ -60,7 +60,7 @@ TabelArray als .local doorgeven -TabelArray:%String,LijstNietVerwerkteOrders:%ListOfDataTypes +TabelArray:%String,NietVerwerkteOrderIds:%ListOfDataTypes 1 %Status
") Do BodyStream.WriteLine("@ICT: (Test)orders kunnen ""als verwerkt"" gemarkeerd worden via dit command"_"
") - Set itIDs=##class(TECH.ListIterator).%New(LijstNietVerwerkteOrders) + 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,!"_"
") @@ -102,11 +102,11 @@ TabelArray als .local doorgeven - + 1 - + 1 %ListOfDataTypes