Index: APPS/CRM/VHCC/Welkom.cls.xml
===================================================================
diff -u
--- APPS/CRM/VHCC/Welkom.cls.xml	(revision 0)
+++ APPS/CRM/VHCC/Welkom.cls.xml	(revision 1962)
@@ -0,0 +1,101 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.CRM.VHCC.Welkom">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Welkom">
+<Type>APPS.CRM.VHCC.dto.Welkom</Type>
+</Property>
+
+<Method name="Get">
+<Description>
+S x=##class(APPS.CRM.VHCC.Welkom).%New().Get()</Description>
+<ReturnType>APPS.CRM.VHCC.dto.Welkom</ReturnType>
+<Implementation><![CDATA[
+	Set ..Welkom=##class(APPS.CRM.VHCC.dto.Welkom).%New()
+	Do ..AddBezoekers()
+	Do ..AddTimers()
+	Do ..AddTekst()
+	Do ..AddFotos()	
+	Quit ..Welkom
+]]></Implementation>
+</Method>
+
+<Method name="AddBezoekers">
+<Implementation><![CDATA[
+	Do ..AddBezoek("file://dam01/DAM/Bedrijf-intern/Logo/ORION_CMYK.gif","ORION","Urs Bolter")
+	Do ..AddBezoek("file://dam01/DAM/Bedrijf/Logo/Blum_qualitaet-2_qt_4c.jpg","SFC controle","")
+	Do ..AddBezoek("","Applied logistics","Hendrik Van Dessel")
+]]></Implementation>
+</Method>
+
+<Method name="AddBezoek">
+<FormalSpec>LogoURL,Titel,Body</FormalSpec>
+<Implementation><![CDATA[
+	Set Bezoeker=##class(APPS.CRM.VHCC.dto.WelkomBezoeker).%New()
+	Set Bezoeker.LogoURL=LogoURL
+	Set Bezoeker.Titel=Titel
+	Set Bezoeker.Body=Body	
+	Do ..Welkom.Bezoekers.Insert(Bezoeker)
+]]></Implementation>
+</Method>
+
+<Method name="AddTekst">
+<Implementation><![CDATA[
+	Set ..Welkom.HotSpotTekst = "Wifi HotSpot<br/>beschikbaar"
+
+	Set ..Welkom.Pagina1aTekst = "Welkom - Bienvenue - Wilkommen"
+	Set ..Welkom.Pagina1bTekst = "Welkom<br/>Bienvenue<br/>Wilkommen"
+
+	Set ..Welkom.Pagina2Tekst = "Bezoek onze Blum Showroom<br/>en beleef de praktische<br/>kant van de keuken"
+	Set ..Welkom.Pagina2URL = "file://dam01/DAM/Producten/Marketing/KLA0422_AA.tif"
+]]></Implementation>
+</Method>
+
+<Method name="AddTimers">
+<Implementation><![CDATA[
+	Set ..Welkom.TimerWelkom = 1
+	Set ..Welkom.TimerBezoek = 3
+	Set ..Welkom.TimerFoto=3
+]]></Implementation>
+</Method>
+
+<Method name="AddFotos">
+<Implementation><![CDATA[
+	Set Foto=..AddFoto("file://dam01/DAM/Producten/Marketing/KLA0422_AA.tif")
+	Do ..AddFotoMove(Foto,.3,.3,2,1)
+	Do ..AddFotoMove(Foto,.5,.5,1.5,1)
+	Set Foto=..AddFoto("file://dam01/DAM/Producten/Marketing/BOX1587_AA.tif")
+	; zonder move
+	Set Foto=..AddFoto("file://dam01/DAM/Producten/Marketing/KLA0429_AA.tif")
+	Do ..AddFotoMove(Foto,.3,.3,2,1)
+	Set Foto=..AddFoto("file://dam01/DAM/Producten/Marketing/TAN0338_AA.tif")
+	Do ..AddFotoMove(Foto,.6,.6,1.1,1)
+]]></Implementation>
+</Method>
+
+<Method name="AddFoto">
+<FormalSpec>URL</FormalSpec>
+<Implementation><![CDATA[
+	Set Foto=##class(APPS.CRM.VHCC.dto.WelkomFoto).%New()
+	Set Foto.URL=URL
+	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
+	Do Foto.Moves.Insert(Move)
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/CRM/VHCC/dto/Welkom.cls.xml
===================================================================
diff -u
--- APPS/CRM/VHCC/dto/Welkom.cls.xml	(revision 0)
+++ APPS/CRM/VHCC/dto/Welkom.cls.xml	(revision 1962)
@@ -0,0 +1,50 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.CRM.VHCC.dto.Welkom">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Bezoekers">
+<Type>APPS.CRM.VHCC.dto.WelkomBezoeker</Type>
+<Collection>list</Collection>
+</Property>
+
+<Property name="TimerWelkom">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="TimerBezoek">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="TimerFoto">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="HotSpotTekst">
+<Type>%String</Type>
+</Property>
+
+<Property name="Pagina1aTekst">
+<Type>%String</Type>
+</Property>
+
+<Property name="Pagina1bTekst">
+<Type>%String</Type>
+</Property>
+
+<Property name="Pagina2Tekst">
+<Type>%String</Type>
+</Property>
+
+<Property name="Pagina2URL">
+<Type>%String</Type>
+</Property>
+
+<Property name="Fotos">
+<Type>APPS.CRM.VHCC.dto.WelkomFoto</Type>
+<Collection>list</Collection>
+</Property>
+</Class>
+</Export>
Index: APPS/CRM/VHCC/dto/WelkomFoto.cls.xml
===================================================================
diff -u
--- APPS/CRM/VHCC/dto/WelkomFoto.cls.xml	(revision 0)
+++ APPS/CRM/VHCC/dto/WelkomFoto.cls.xml	(revision 1962)
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.CRM.VHCC.dto.WelkomFoto">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="URL">
+<Type>%String</Type>
+</Property>
+
+<Property name="Moves">
+<Type>APPS.CRM.VHCC.dto.WelkomFotoMove</Type>
+<Collection>list</Collection>
+</Property>
+</Class>
+</Export>
Index: APPS/CRM/VHCC/dto/WelkomBezoeker.cls.xml
===================================================================
diff -u
--- APPS/CRM/VHCC/dto/WelkomBezoeker.cls.xml	(revision 0)
+++ APPS/CRM/VHCC/dto/WelkomBezoeker.cls.xml	(revision 1962)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.CRM.VHCC.dto.WelkomBezoeker">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="LogoURL">
+<Type>%String</Type>
+</Property>
+
+<Property name="Titel">
+<Type>%String</Type>
+</Property>
+
+<Property name="Body">
+<Type>%String</Type>
+</Property>
+</Class>
+</Export>
Index: APPS/CRM/VHCC/dto/WelkomFotoMove.cls.xml
===================================================================
diff -u
--- APPS/CRM/VHCC/dto/WelkomFotoMove.cls.xml	(revision 0)
+++ APPS/CRM/VHCC/dto/WelkomFotoMove.cls.xml	(revision 1962)
@@ -0,0 +1,32 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.CRM.VHCC.dto.WelkomFotoMove">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="XPercentage">
+<Description>
+center X van het nieuwe wordt bepaald als een percentage van de X as van het origneel</Description>
+<Type>%Float</Type>
+</Property>
+
+<Property name="YPercentage">
+<Description>
+center Y van het nieuwe wordt bepaald als een percentage van de Y as van het origneel</Description>
+<Type>%Float</Type>
+</Property>
+
+<Property name="SizePercentage">
+<Description>
+nieuw beeld is kleiner, een percentage van het origineel</Description>
+<Type>%Float</Type>
+</Property>
+
+<Property name="Timer">
+<Description>
+tijd nodig om te nieuwe status te bereiken</Description>
+<Type>%Integer</Type>
+</Property>
+</Class>
+</Export>