Index: APPS/CRM/VHCC/Welkom.cls.xml
===================================================================
diff -u -r29059 -r29445
--- APPS/CRM/VHCC/Welkom.cls.xml	(.../Welkom.cls.xml)	(revision 29059)
+++ APPS/CRM/VHCC/Welkom.cls.xml	(.../Welkom.cls.xml)	(revision 29445)
@@ -75,53 +75,105 @@
 <Method name="AddTimers">
 <Implementation><![CDATA[
 	Set ..Welkom.TimerWelkomMetBezoek = 7000
-	Set ..Welkom.TimerWelkomZonderBezoek =5000
-	Set ..Welkom.TimerBezoekShowroom =5000
+	Set ..Welkom.TimerWelkomZonderBezoek = 5000
+	Set ..Welkom.TimerBezoekShowroom = 5000
+	Set ..Welkom.TimerWebservice = 600000
+]]></Implementation>
+</Method>
+
+<Method name="GetFotos">
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#Dim Fotos As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
 	
-	;Set ..Welkom.TimerWelkom = 3000
-	;Set ..Welkom.TimerBezoek =5000
-	;Set ..Welkom.TimerFoto=10000
+	Do Fotos.Insert("Amb_01.png")
+	Do Fotos.Insert("Amb_02.png")
+	Do Fotos.Insert("Antaro_01.png")
+	Do Fotos.Insert("Bestekindeling.png")
+	Do Fotos.Insert("Legra.png")
+	Do Fotos.Insert("Taor_01.png")
+	Do Fotos.Insert("Taor_02.png")
+	Do Fotos.Insert("Taor_pvh_01.png")
+	Do Fotos.Insert("Taor_pvh_02.png")
 	
-	Set ..Welkom.TimerWebservice=600000
+	Quit Fotos
 ]]></Implementation>
 </Method>
 
+<Method name="GetFotoMoves">
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#Dim Duration As TECH.Integer = 3000
+	#Dim FotoMoves As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	
+	Do FotoMoves.Insert(..GetFotoMove(.4, .4, 1.5, Duration))
+	Do FotoMoves.Insert(..GetFotoMove(.5, .5, 1.5, Duration))
+	Do FotoMoves.Insert(..GetFotoMove(.4, .4, 2.0, Duration))
+	Do FotoMoves.Insert(..GetFotoMove(.3, .3, 2.0, Duration))
+	Do FotoMoves.Insert(..GetFotoMove(.5, .5, 2.0, Duration))
+	Do FotoMoves.Insert(..GetFotoMove(.4, .4, 2.0, Duration))
+
+	Quit FotoMoves
+]]></Implementation>
+</Method>
+
+<Method name="GetFotoMove">
+<FormalSpec>XPercentage:TECH.Decimal,YPercentage:TECH.Decimal,SizePercentage:TECH.Decimal,Duration:TECH.Integer</FormalSpec>
+<ReturnType>APPS.CRM.VHCC.dto.WelkomFotoMove</ReturnType>
+<Implementation><![CDATA[
+	#Dim FotoMove As APPS.CRM.VHCC.dto.WelkomFotoMove = ##class(APPS.CRM.VHCC.dto.WelkomFotoMove).%New()
+	
+	Set FotoMove.XPercentage = XPercentage
+	Set FotoMove.YPercentage = YPercentage
+	Set FotoMove.SizePercentage = SizePercentage
+	Set FotoMove.Timer = Duration
+	
+	Quit FotoMove
+]]></Implementation>
+</Method>
+
 <Method name="AddFotos">
 <Implementation><![CDATA[
-	Set Foto=..AddFoto("http://res.vanhoecke.be/Welkom/images/CLP0376_AA.jpg",2000)
-	Do ..AddFotoMove(Foto,.4,.5,1.5,3000)
-	Set Foto=..AddFoto("http://res.vanhoecke.be/Welkom/images/KLA0421_AA.jpg",2000)
-	Do ..AddFotoMove(Foto,.5,.5,1.5,3000)
-	Set Foto=..AddFoto("http://res.vanhoecke.be/Welkom/images/KLA0422_AA.jpg",2000)
-	Do ..AddFotoMove(Foto,.4,.5,2,3000)
-	Set Foto=..AddFoto("http://res.vanhoecke.be/Welkom/images/KLA0423_AA.jpg",2000)
-	Do ..AddFotoMove(Foto,.3,.3,2,3000)
-	Set Foto=..AddFoto("http://res.vanhoecke.be/Welkom/images/KLA0445_AA.jpg",2000)
-	Do ..AddFotoMove(Foto,.6,.5,1.5,3000)
-	Set Foto=..AddFoto("http://res.vanhoecke.be/Welkom/images/kerst2013.jpg",2000)
-	Do ..AddFotoMove(Foto,.5,.5,1.5,3000)
+	#Dim Duration As TECH.Integer = 2000
+	#Dim Pad As TECH.String = "http://res.vanhoecke.be/Welkom/images/"
+	#Dim Fotos As %ListOfDataTypes = ..GetFotos()
+	#Dim FotoMoves As %ListOfDataTypes = ..GetFotoMoves()	
+	#Dim Iterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(Fotos)
+
+	While (Iterator.HasNext()) {
+		#Dim URL As TECH.String = Iterator.Next()
+		#Dim Foto As APPS.CRM.VHCC.dto.WelkomFoto = ..AddFoto(Pad _ URL, Duration)
+		#Dim Random As TECH.Integer = $Random(FotoMoves.Count()) + 1
+		#Dim FotoMove As APPS.CRM.VHCC.dto.WelkomFotoMove = FotoMoves.GetAt(Random)
+		
+		Do ..AddFotoMove(Foto, FotoMove.XPercentage, FotoMove.YPercentage, FotoMove.SizePercentage, FotoMove.Timer)
+	}
 ]]></Implementation>
 </Method>
 
 <Method name="AddFoto">
-<FormalSpec>URL,Timer</FormalSpec>
+<FormalSpec>URL:TECH.String,Timer:TECH.Integer</FormalSpec>
 <Implementation><![CDATA[
-	Set Foto=##class(APPS.CRM.VHCC.dto.WelkomFoto).%New()
-	Set Foto.URL=URL
-	Set Foto.Timer=Timer
+	#Dim Foto As APPS.CRM.VHCC.dto.WelkomFoto = ##class(APPS.CRM.VHCC.dto.WelkomFoto).%New()
+	
+	Set Foto.URL = URL
+	Set Foto.Timer = Timer
+	
 	Do ..Welkom.Fotos.Insert(Foto)
+	
 	Quit Foto
 ]]></Implementation>
 </Method>
 
 <Method name="AddFotoMove">
 <FormalSpec>Foto,XPercentage,YPercentage,SizePercentage,Timer</FormalSpec>
 <Implementation><![CDATA[
-	Set Move=##class(APPS.CRM.VHCC.dto.WelkomFotoMove).%New()
-	Set Move.XPercentage=XPercentage
-	Set Move.YPercentage=YPercentage
-	Set Move.SizePercentage=SizePercentage
-	Set Move.Timer=Timer
+	#Dim Move As APPS.CRM.VHCC.dto.WelkomFotoMove = ##class(APPS.CRM.VHCC.dto.WelkomFotoMove).%New()
+	Set Move.XPercentage = XPercentage
+	Set Move.YPercentage = YPercentage
+	Set Move.SizePercentage = SizePercentage
+	Set Move.Timer = Timer
+	
 	Do Foto.Moves.Insert(Move)
 ]]></Implementation>
 </Method>