persistent 1 VHOpslag %Persistent 0 vanhoecke.be \\Notes01\Shared %Boolean 1 %String %Boolean %Boolean 1 1 ID 1 %Integer %String %String %String %String %String %String %String Geeft een lijst van regios als externe vertegenwoordiger 1 IPNr %String Geeft een lijst van regios als internen vertegenwoordiger 1 IPNr %String Geeft de firma NV, BV, HALUX 1 IPNr %String 19)&&(Regio<30) "BV" ;Quit "NV" w !,"Firma" Quit:(IPNr="") "" Quit $P($G(^vhUSER("D",IPNr)),"\",16) ]]> 1 ID:%String %Boolean 1 ID:%String %Boolean 1 UserID:%String,KlantNr:%String %String 1 ID:%String %Boolean 1 ID:%String,MagKennisAnkerAanmaken:%Boolean 1 ID:%String,MagKennisAnkerVerwijderen:%Boolean 1 Device Name %SQLQuery select %ID as ID, Naam, Active, MagKennisAnkerAanmaken, MagKennisAnkerVerwijderen, Initialen, eMail, SharedMap, NaamKort, GeoDevice, WindowsLoginNaam from Res.InternePersoon order by Naam %SQLQuery select %ID,Naam from Res.InternePersoon where Active=1 order by Naam %SQLQuery select %ID,Naam from Res.InternePersoon where MagKennisAnkerAanmaken=1 order by Naam 1 0 %Boolean %Save method to provide notification that the object is being saved. It is called before any data is written to disk.

insert will be set to 1 if this object is being saved for the first time.

If this method returns an error then the call to %Save will fail.]]> insert:%Boolean 1 %Status %CacheSQLStorage ^Res.InternePersoonS data ^vhUSER delimited "D" {ID} Set {Active}=$D(^vhUSER("D",{ID},"M")) "\" 16 "\" 8 "\" 4 "\" 14 "\" 15 "\" 5 "\" 2 "\" 6 "\" 7 "\" "M" 13