Index: zJBLMedewerkers.mac.rou
===================================================================
diff -u -r1079 -r1134
--- zJBLMedewerkers.mac.rou	(.../zJBLMedewerkers.mac.rou)	(revision 1079)
+++ zJBLMedewerkers.mac.rou	(.../zJBLMedewerkers.mac.rou)	(revision 1134)
@@ -1,4 +1,25 @@
  
+ZoekActief
+	Set KlantAPI = ##class(DOM.DomeinContext).Instance().GeefKlantAPI()
+	for i=0:1:300 {
+		Set Medewerker = KlantAPI.GeefKlantViaProtimeNr(i)
+		If ($IsObject(Medewerker) ) {
+			w Medewerker.GeefNaam(), " - ", Medewerker.GeefNummer()," -> ",Medewerker.GeefActiefStatus(),!	
+			if (Medewerker.GeefActiefStatus() = ""){
+				d Medewerker.ZetActiefStatus(##class(DOM.CRM.enu.ActiefStatus).Actief())
+				d Medewerker.Save()
+				w $c(9),"actief gezet = '",##class(DOM.CRM.enu.ActiefStatus).Actief(),"'",!
+			}
+			//w $Piece(^KKL(Medewerker.GeefKlantIndexKKL(),1),"\",19),!
+			//w $Piece(^DKL("K","KL.A",Medewerker.GeefNummer(),1),"\",19),!
+			//Set $Piece(^KKL(Medewerker.GeefKlantIndexKKL(),1),"\",19) = ""
+			//Set $Piece(^DKL(Medewerker.GeefNummer(),1),"\",19) = ""
+			
+		}
+	}
+ 
+	Quit
+ 
 ZoekMedewerkers
 	
 	Set KlantAPI = ##class(DOM.DomeinContext).Instance().GeefKlantAPI()