Index: APPS/Halux/Machine/Kantenband/impl/KantenbandBepaler.cls.xml
===================================================================
diff -u -r54568 -r54580
--- APPS/Halux/Machine/Kantenband/impl/KantenbandBepaler.cls.xml	(.../KantenbandBepaler.cls.xml)	(revision 54568)
+++ APPS/Halux/Machine/Kantenband/impl/KantenbandBepaler.cls.xml	(.../KantenbandBepaler.cls.xml)	(revision 54580)
@@ -39,12 +39,12 @@
 </Method>
 
 <Method name="BepaalKantenband">
-<FormalSpec>KantenbandData:APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData,Programma:TECH.String</FormalSpec>
+<FormalSpec>KantenbandData:APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData,ProgrammaId:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim Kantenband As %String = ""	
 
-	If ..HeeftKantenbandNodig(Programma) { 
+	If ..HeeftKantenbandNodig(ProgrammaId) { 
 		#dim LadeKleur As %String = KantenbandData.LadeKleur
 		
 		Set:(KantenbandData.LadeKleur = ..LadeKleur.Wit) LadeKleur = "W1"
@@ -58,11 +58,11 @@
 </Method>
 
 <Method name="HeeftKantenbandNodig">
-<FormalSpec>Programma:TECH.String</FormalSpec>
+<FormalSpec>ProgrammaId:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#dim KantenBandProgramma As APPS.Halux.Machine.Kantenband.data.KantenbandProgramma = ..KantenBandProgrammaRepository.GeefProgramma(Programma)
+	#dim KantenBandProgramma As APPS.Halux.Machine.Kantenband.data.KantenbandProgramma = ..KantenBandProgrammaRepository.GeefProgramma(ProgrammaId)
 	Quit $$$Not(KantenBandProgramma.IsDoorvoer())
 ]]></Implementation>
 </Method>