TECH.RegisteredObject TECH.Integer 1 LaatsteIPPiece:TECH.Integer 1 1 %Status 1 String:TECH.String="",Break:%Boolean=$$$False Stream:%Stream,Break:%Boolean=$$$False Title:TECH.String="",Break:%Boolean=$$$False >>>>>>>>>>>>> "_Title_" <<<<<<<<<<<<<<",,,0) Do ..Wlip($$GetStackToString^vhLib(),,0,0) Break:Break ]]> List:%ListOfDataTypes,ListInfo:TECH.String="",Break:%Boolean=$$$False "_ListIt.Next(),3,0,0) } Break:Break ]]> DataTransfertObject:TECH.RegisteredObject,Break:%Boolean=$$$False String:TECH.String="",Break:%Boolean=$$$False String:TECH.String="",Count:TECH.Integer,MetTijd:%Boolean=1,MetLocatieData:%Boolean=1 1 "_Tekst) ;#dim Adres As TECH.Integer = $Piece(##class(TECH.Process).GeefClientIP(),".",4) #dim WlipString As TECH.String = String Set:MetLocatieData WlipString = ..GeefLaatsteMethodeString(Count)_WlipString Set:MetTijd WlipString = ..GeefTijdString()_WlipString Do:$$$Not(..LaatsteIPPiece="") ##class(ActiveX.DebugWindow).AddMessage("192.168.1."_..LaatsteIPPiece, WlipString) ]]> Count:TECH.Integer 1 TECH.String " ]]> 1 TECH.String