Index: vhDeploy/Deploy20230921xUpdateLijstHaluxMedewerkers.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20230921xUpdateLijstHaluxMedewerkers.cls.xml	(revision 0)
+++ vhDeploy/Deploy20230921xUpdateLijstHaluxMedewerkers.cls.xml	(revision 71968)
@@ -0,0 +1,90 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20230921xUpdateLijstHaluxMedewerkers">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Lijst Halux Medewerkers updaten (part 2), deze wordt nog gebruikt in de ProductiePitching-applicatie.</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Do ..VoegMedewerkersToeAanMedewerkerLijst()
+]]></Implementation>
+</Method>
+
+<Method name="VoegMedewerkersToeAanMedewerkerLijst">
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Activiteit As %String = "Voormont"
+	Do ..VoegMedewerkerToeAanMedewerkerLijst("Wendy", "Ringoot", "WRI", Activiteit)
+	Do ..VoegMedewerkerToeAanMedewerkerLijst("Bernd", "Van Den Kerckhoff", "BKE", Activiteit)
+	Do ..VoegMedewerkerToeAanMedewerkerLijst("Els", "Schelfhaut", "ESC", Activiteit)
+	Do ..VoegMedewerkerToeAanMedewerkerLijst("Fien", "Van Impe", "FIM", Activiteit)
+	Do ..VoegMedewerkerToeAanMedewerkerLijst("Lani", "Bouwens", "LBA", Activiteit)
+	Do ..VoegMedewerkerToeAanMedewerkerLijst("Leonie", "De Munck", "LMU", Activiteit)
+	Do ..VoegMedewerkerToeAanMedewerkerLijst("Elias", "Staessens", "EST", Activiteit)
+	Do ..VoegMedewerkerToeAanMedewerkerLijst("Femke", "Lyssens", "FLY", Activiteit)
+	
+	Set Activiteit = "Mattenpost"
+	Do ..VoegMedewerkerToeAanMedewerkerLijst("Wendy", "Ringoot", "WRI", Activiteit)
+	Do ..VoegMedewerkerToeAanMedewerkerLijst("Bernd", "Van Den Kerckhoff", "BKE", Activiteit)
+	Do ..VoegMedewerkerToeAanMedewerkerLijst("Els", "Schelfhaut", "ESC", Activiteit)
+	Do ..VoegMedewerkerToeAanMedewerkerLijst("Fien", "Van Impe", "FIM", Activiteit)
+	Do ..VoegMedewerkerToeAanMedewerkerLijst("Lani", "Bouwens", "LBA", Activiteit)
+	Do ..VoegMedewerkerToeAanMedewerkerLijst("Leonie", "De Munck", "LMU", Activiteit)
+	Do ..VoegMedewerkerToeAanMedewerkerLijst("Elias", "Staessens", "EST", Activiteit)
+	Do ..VoegMedewerkerToeAanMedewerkerLijst("Femke", "Lyssens", "FLY", Activiteit)
+]]></Implementation>
+</Method>
+
+<Method name="VoegMedewerkerToeAanMedewerkerLijst">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Voornaam:%String,Achternaam:%String,Initialen:%String,Activiteit:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim VolledigeNaam As %String = Voornaam _ " " _ Achternaam
+	
+	If $$$Not(##class(APPS.Halux.Planning.Activiteit.dto.Medewerker).%ExistsId(..GeefId(VolledigeNaam, Activiteit))) {
+		Set Medewerker = ##class(APPS.Halux.Planning.Activiteit.dto.Medewerker).%New()
+		Set Medewerker.Activiteit = Activiteit
+		Set Medewerker.Bekwaamheidsniveau = 3
+		Set Medewerker.Familienaam = Achternaam
+		Set Medewerker.Foto = ..GeefVolledigPadFoto(Voornaam, Achternaam)
+		Set Medewerker.Initialen = Initialen
+		Set Medewerker.MedewerkerID = ##class(TECH.StringUtils).ToUpper(VolledigeNaam)
+		Set Medewerker.UpdateTijdstip = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentTimeStamp()
+		Set Medewerker.Voornaam = Voornaam
+		
+		Do Medewerker.Save()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefId">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>VolledigeNaam:%String,Activiteit:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.StringUtils).ToUpper(VolledigeNaam) _ "||" _ Activiteit
+]]></Implementation>
+</Method>
+
+<Method name="GeefVolledigPadFoto">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Voornaam:%String,Achternaam:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim PadFoto As %String = "http://sharepoint01.vanhoecke.local/SiteCollectionImages/Personeel/"
+	#dim ExtensieFoto As %String = ".jpg"
+	
+	Quit PadFoto _ Achternaam _ " " _ Voornaam _ ExtensieFoto
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>