#Include vhLib.Macro
 
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("0")
				d Medewerker.Save()
				w $c(9),"actief gezet = '",##class(DOM.CRM.enu.ActiefStatus).Actief(),"'",!
			}			
		}
	}
 
	Quit
	
	
	/*	
WIJZIGLEVVW
	w $ztime($P($h,",",2),4),!
 
	Set KAPI = ##class(DOM.DomeinContext).Instance().GeefKlantAPI()
	for i=0:1:200
	{
		Set medewerker = KAPI.GeefKlantViaProtimeNr(i)
		w !,i," => "
		if ($IsObject(medewerker) && (medewerker.GeefNummer() '= 1000)){
			If (medewerker.GeefLeveringVoorwaarde() '= ##class(DOM.CRM.enu.LeveringVoorwaarde).AfhalenSintNiklaas())
			{
				w medewerker.GeefNaam()," : ",medewerker.GeefLeveringVoorwaarde()
				w "Doet niets, in commentaar",!
				//Do medewerker.ZetLeveringVoorwaarde(##class(DOM.CRM.enu.LeveringVoorwaarde).AfhalenSintNiklaas())
				//Do medewerker.Save()
			}Else{
				w $c(6),"          OK : ",medewerker.GeefNaam()," : ",medewerker.GeefLeveringVoorwaarde()
			}
			
		}
	}
	w $ztime($P($h,",",2),4),!
	Quit
	
ZOEKDUPLICATEN
	w $ztime($P($h,",",2),4),!
 
	Set KAPI = ##class(DOM.DomeinContext).Instance().GeefKlantAPI()
	for i=0:1:1000
	{
		Set medewerker = KAPI.GeefKlantViaProtimeNr(i)
		
		if ($IsObject(medewerker) && (medewerker.GeefNummer() '= 1000)){
			Set Persoon = medewerker.GeefPersonen().GetAt(1)
			Set Naam = $$$UCase(Persoon.GeefNaam())
			Set Voornaam = $$$UCase(Persoon.GeefVoornaam())
			Set It = KAPI.GeefKlantenIterator()
			While (It.HasNext()){ 
				Set Klant = It.Next()
				if ($IsObject(Klant) && (medewerker.GeefNummer() '= Klant.GeefNummer())){
					if ( ($Find(Klant.GeefNaam(),Naam) '= 0) &&($Find(Klant.GeefNaam(),Voornaam) '= 0)){
						w Klant.GeefNaam()," (", Klant.GeefNummer(),") en persoon als klant ", medewerker.GeefNaam(), " (",medewerker.GeefNummer(),")",!
					}
				}
			}
		}
	}
	w $ztime($P($h,",",2),4),!		
	*/