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()
	for i=0:1:300 {
		Set Medewerker = KlantAPI.GeefKlantViaProtimeNr(i)
		If ($IsObject(Medewerker) && ($Piece(^KKL(Medewerker.GeefKlantIndexKKL(),1),"\",19) = "M") && (Medewerker.GeefEmail() = "")) {
			w Medewerker.GeefNaam()," -> ",Medewerker.GeefEmail(),!	
			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