Index: BL/Derde/Agenda/Agenda.cls.xml
===================================================================
diff -u -r31146 -r38166
--- BL/Derde/Agenda/Agenda.cls.xml	(.../Agenda.cls.xml)	(revision 31146)
+++ BL/Derde/Agenda/Agenda.cls.xml	(.../Agenda.cls.xml)	(revision 38166)
@@ -412,12 +412,11 @@
 set bl=##class(BL.Derde.Agenda.Agenda).%New() d bl.Initialize(1008)
 D bl.SendMailExtern("1008||60157||2973")</Description>
 <FormalSpec>Agenda</FormalSpec>
-<ProcedureBlock>0</ProcedureBlock>
+<ProcedureBlock>1</ProcedureBlock>
 <Implementation><![CDATA[
-	
 	Set:'$isObject(Agenda) Agenda=##class(Derde.Agenda.Agenda).%OpenId(Agenda)
 	Quit:'$isObject(Agenda)
-	Set Derde = Agenda.Klant
+	#dim Derde As %String = Agenda.Klant
 	If '$IsObject(Derde){
 		Set Derde = Agenda.Architect	
 	} 
@@ -426,28 +425,30 @@
 	Quit:'$isObject(Derde) ; Geen klant
 	Quit:Agenda.Type'?1(1"B",1"T") ; alleen bezoek en telefoon
 	Set %Taal=Derde.Taal
-	Set Subject=$$$Translate($S(Agenda.Type="T":"AG:Verslag telefoon",1:"AG:Verslag bezoek"))_" "_$$FormatDateTime^vhLib("dd-mmm-jj",Agenda.Datum,%Taal)
-	Set GesprokenMetTekst="" 
-	Set To=""
-	Set Ref=""
+	#dim Subject As %String =$$$Translate($S(Agenda.Type="T":"AG:Verslag telefoon",1:"AG:Verslag bezoek"))_" "_$$FormatDateTime^vhLib("dd-mmm-jj",Agenda.Datum,%Taal)
+	#dim GesprokenMetTekst As %String="" 
+	#dim To As %String =""
+	#dim Ref As %String =""
+	#dim GesprokenMet As %String
 	For  Set GesprokenMet=Agenda.GesprokenMet.GetNext(.Ref) Quit:Ref=""  Do
 	. If GesprokenMet.Gesproken,GesprokenMet.Naam'="" Set GesprokenMetTekst=GesprokenMetTekst_$LB(GesprokenMet.Naam)
 	. If GesprokenMet.eMailNaar,GesprokenMet.eMail?1.E1"@"1.E Set To=To_$LB(GesprokenMet.eMail)
 	Quit:To="" ; aan niemand te versturen
-	Set From=Agenda.Gebruiker.eMail
+	#dim From As %String =Agenda.Gebruiker.eMail
 	; tijdelijk
 	;Set ToCopy=To
 	;Set To=$Lb("pv@vanhoecke.be","pvh@vanhoecke.be",From)
 	;Set:$zu(5)="DEV-ADMIN1" To=$Lb("pv@vanhoecke.be")
 	;Tijdens mijn bezoek werd het volgende besproken
 	;Set Body="**** TEST "_Agenda.Klant.Naam_" ***"_$C(13)
+	#dim Body As %String
 	Set Body=""
 	Set Body=Body_$$$Translate($S(Agenda.Type="T":"AG:Besproken telefoon",1:"AG:Besproken bezoek"))_" : "_$C(13,13)
 	Set Body=Body_$TR(Agenda.KlantTekst,"~",$C(13))_$C(13)
 	Set:GesprokenMetTekst'="" Body=Body_$C(13)_$$$Translate("AG:Gesproken met")_": "_$$ListToPieces^vhLib(GesprokenMetTekst,", ")
 	; tijdelijk tijdens **** TEST ****
 	;Set Body=Body_$C(13)_"Email naar : "_$$ListToPieces^vhLib(ToCopy,", ") ; tijdelijk
-	Set Status=$$SendMiniMail^vhLib(From,To,Subject,Body)
+	Do SendMiniMail^vhLib(From,To,Subject,Body)
 	Set Agenda.eMailVerzondenOp=$H
 	Do Agenda.%Save()
 ]]></Implementation>
Index: BL/Derde/Agenda/pxAgenda.cls.xml
===================================================================
diff -u -r29059 -r38166
--- BL/Derde/Agenda/pxAgenda.cls.xml	(.../pxAgenda.cls.xml)	(revision 29059)
+++ BL/Derde/Agenda/pxAgenda.cls.xml	(.../pxAgenda.cls.xml)	(revision 38166)
@@ -6,7 +6,7 @@
 <Description>
 Proxy class for one Agenda item</Description>
 <ClassType/>
-<ProcedureBlock>0</ProcedureBlock>
+<ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject,%XML.Adaptor</Super>
 <Inheritance>right</Inheritance>
 
@@ -267,19 +267,20 @@
 	set ..TijdVan = $$NormalizeHHMM^vhLib.DateTime(..TijdVan)
 	set ..TijdTot = $$NormalizeHHMM^vhLib.DateTime(..TijdTot)
 	
-	set TijdVanCorrect = ($$IsValidHHMM^vhLib.DateTime(..TijdVan)||(..TijdVan=""))
+	
+	#dim TijdVanCorrect As %Boolean = ($$IsValidHHMM^vhLib.DateTime(..TijdVan)||(..TijdVan=""))
 	if 'TijdVanCorrect {
 		do ..Fouten.Insert("tijd 'van' is niet correct")
 	} 
 	
-	set TijdTotCorrect = ($$IsValidHHMM^vhLib.DateTime(..TijdTot)||(..TijdTot=""))
+	#dim TijdTotCorrect As %Boolean = ($$IsValidHHMM^vhLib.DateTime(..TijdTot)||(..TijdTot=""))
 	if 'TijdTotCorrect {
 		do ..Fouten.Insert("tijd 'tot' is niet correct")
 	}
 	
 	if (TijdVanCorrect)&&(TijdTotCorrect) && $length(..TijdTot) && $length(..TijdVan) {
-		set TijdVan = $$HHMMSSToHorolog^vhLib.DateTime(..TijdVan)
-		set TijdTot = $$HHMMSSToHorolog^vhLib.DateTime(..TijdTot)
+		#dim TijdVan As TECH.Horolog = $$HHMMSSToHorolog^vhLib.DateTime(..TijdVan)
+		#dim TijdTot As TECH.Horolog = $$HHMMSSToHorolog^vhLib.DateTime(..TijdTot)
 		if TijdTot'>TijdVan do ..Fouten.Insert("tijd 'van' is later dan de tijd 'tot'")
 	}
 ]]></Implementation>
@@ -288,7 +289,9 @@
 <Method name="NormalizeTijd">
 <FormalSpec>Tijd:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	for PiecePart = 1 : 1 : 2 if $length($piece(Tijd,":",PiecePart))=1 set $piece(Tijd,":",PiecePart) = "0"_$piece(Tijd,":",PiecePart)
+<Implementation><![CDATA[
+	#dim PiecePart As %Number
+	for PiecePart = 1 : 1 : 2 if $length($piece(Tijd,":",PiecePart))=1 set $piece(Tijd,":",PiecePart) = "0"_$piece(Tijd,":",PiecePart)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/Derde/Agenda/Agenda.cls.xml
===================================================================
diff -u -r36721 -r38166
--- vhUnitTest/Derde/Agenda/Agenda.cls.xml	(.../Agenda.cls.xml)	(revision 36721)
+++ vhUnitTest/Derde/Agenda/Agenda.cls.xml	(.../Agenda.cls.xml)	(revision 38166)
@@ -7,10 +7,6 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
 
-<Parameter name="GebruiktVariabeleControle">
-<Default>0</Default>
-</Parameter>
-
 <Property name="Identifier">
 <Description>
 do ##class(vhUnitTest.Manager).RunTest("/display=all","Derde.Agenda.Agenda")</Description>