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