#Include vhLib.Macro
 
VERWIJDERMEDEWERKERS	
 
	Set KAPI = ##class(DOM.DomeinContext).Instance().GeefKlantAPI()
 
		Set medewerker = KAPI.GeefKlant(%NR)
		if ($IsObject(medewerker) && (medewerker.GeefNummer() '= 1000)){
			
			Set KlantIndex = medewerker.GeefKlantIndexKKL()
			Set KlantNummer = medewerker.GeefNummer()
			w medewerker.GeefNummer(), ", ", medewerker.GeefNaam(), " wordt verwijderd.",!
			
			zw ^DKL("K","KL.A",KlantNummer)
			w !,!
			zw ^KKL(KlantIndex)
			w !,!
			zw ^KK1(KlantNummer)
		w !,!
			/// Persoon opkuisen
			zw ^PERS("K",KlantNummer)
			w !,!
			
			Kill ^DKL("K","KL.A",KlantNummer)
			Kill ^KKL(KlantIndex)
			Kill ^KK1(KlantNummer)
			
			/// Persoon opkuisen
			Kill ^PERS("K",KlantNummer)
		}
	Quit
	
VERWIJDERMEDEWERKER	
 
	Set KAPI = ##class(DOM.DomeinContext).Instance().GeefKlantAPI()
 
		Set medewerker = KAPI.GeefKlant(%NR)
		if ($IsObject(medewerker) && (medewerker.GeefNummer() '= 1000)){
			
			Set KlantIndex = medewerker.GeefKlantIndexKKL()
			Set KlantNummer = medewerker.GeefNummer()
			w medewerker.GeefNummer(), ", ", medewerker.GeefNaam(), " wordt verwijderd.",!
			
			zw ^DKL("K","KL.A",KlantNummer)
			w !,!
			zw ^KKL(KlantIndex)
			w !,!
			zw ^KK1(KlantNummer)
		w !,!
			/// Persoon opkuisen
			zw ^PERS("K",KlantNummer)
			w !,!
			
			/*Kill ^DKL("K","KL.A",KlantNummer)
			Kill ^KKL(KlantIndex)
			Kill ^KK1(KlantNummer)
			Kill ^PERS("K",KlantNummer)
			*/
 
			
		}
	Quit
	
	
WIJZIGLEVVW
	w $ztime($P($h,",",2),4),!
 
	Set KAPI = ##class(DOM.DomeinContext).Instance().GeefKlantAPI()
	for i=0:1:300
	{
		Set medewerker = KAPI.GeefKlantViaProtimeNr(i)
		
		if ($IsObject(medewerker) && (medewerker.GeefNummer() '= 1000)){
			If (medewerker.GeefLeveringVoorwaarde() '= ##class(DOM.CRM.enu.LeveringVoorwaarde).AfhalenSintNiklaas())
			{
				w medewerker.GeefNaam()," : ",medewerker.GeefLeveringVoorwaarde(),!
				
				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:200
	{
		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 j = 0
			Set It = KAPI.GeefKlantenIterator()
			While (It.HasNext()){ // && (j < 5)){
				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(),")",!
					}
				}
				set j = j + 1 
			}
		}
	}
	w $ztime($P($h,",",2),4),!
 
  	Quit
  	
MIGRATEPROTIME
	w $ztime($P($h,",",2),4),!
 
	Set KAPI = ##class(DOM.DomeinContext).Instance().GeefKlantAPI()
	for i=0:1:200
	{
		Set medewerker = KAPI.GeefKlantViaProtimeNrOud(i)
		
		if ($IsObject(medewerker) && (medewerker.GeefNummer() '= 1000)){
			Set Persoon = medewerker.GeefPersonen().GetAt(1)
			Set Naam = $$$UCase(Persoon.GeefNaam())
			Set Voornaam = $$$UCase(Persoon.GeefVoornaam())
				w medewerker.GeefKlantIndexKKL(),!
				Set $Piece(^KKL(medewerker.GeefKlantIndexKKL(),1),"\",4) = $Piece(^KKL(medewerker.GeefKlantIndexKKL(),5),"\",5)
				Set $Piece(^KKL(medewerker.GeefKlantIndexKKL(),5),"\",5) = ""
				Set $Piece( ^DKL("K","KL.A",medewerker.GeefNummer(),1),"\",4) = $Piece( ^DKL("K","KL.A",medewerker.GeefNummer(),5),"\",5)
				Set $Piece(^DKL("K","KL.A",medewerker.GeefNummer(),5),"\",5) = ""
		}
	}
	w $ztime($P($h,",",2),4),!
	Quit