Index: CHUI/FOP/Print/MainForm.cls.xml
===================================================================
diff -u -r31832 -r35675
--- CHUI/FOP/Print/MainForm.cls.xml (.../MainForm.cls.xml) (revision 31832)
+++ CHUI/FOP/Print/MainForm.cls.xml (.../MainForm.cls.xml) (revision 35675)
@@ -863,11 +863,37 @@
. Set UserName=$S(UserId="":"onbekend",1:##class(Res.InternePersoon).GetShortName(UserId))
. Do Sender.SetData($I(Cnt),$LB(RS.Data("Msg"),$$FormatNumber^vhLib(".0",RS.Data("NrOfSendings")),$$FormatNumber^vhLib(".0",RS.Data("NrOfPages")),$$FormatNumber^vhLib(".0",RS.Data("NrOfDocs")),DateTime,UserName,RS.Data("lbID")))
. Do PrintGroepNaamLijst.Insert(RS.Data("Msg"))
+
+ Try {
+ #dim OntbrekendeItems As %ListOfDataTypes = ..BepaalOntbrekendeItems(PrintGroepNaamLijst)
+ If OntbrekendeItems.Count() > 0 {
+ #dim InsertAtPosition As %Integer = 0
+ Do Sender.SetData(InsertAtPosition,$LB("(Missing : "_##class(TECH.ListUtils).ListToPieces(OntbrekendeItems,",")_")"))
+ }
+ } Catch {
+ #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+ Do ##class(vhLib.Logger).LogEnMailExceptie(Exception)
+ }
Quit
]]>
+
+PrintGroepNaamLijst:%ListOfDataTypes
+1
+%ListOfDataTypes
+
+
+
Sender:TCHUI.TControlBasis