Index: BL/Flow/Levering/Hoofding.cls.xml
===================================================================
diff -u -r29059 -r33446
--- BL/Flow/Levering/Hoofding.cls.xml	(.../Hoofding.cls.xml)	(revision 29059)
+++ BL/Flow/Levering/Hoofding.cls.xml	(.../Hoofding.cls.xml)	(revision 33446)
@@ -1,9 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="BL.Flow.Levering.Hoofding">
-<ClassType>persistent</ClassType>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%Persistent</Super>
+<Super>TECH.RegisteredObject</Super>
 
 <Method name="EditAdres">
 <Description>
@@ -43,6 +41,7 @@
 	Set KLNr=$P(^KU1(BONNr,"F"),"\")
 	Do:$L(VerzendingsWijze,"#")=1
 	. Set VerzendingsWijze=$piece($P(VerzendingsWijze," "),";")
+	. Set $P(^KUL(KLNr,"F",BONNr,3),"\",9)=$$$UCase($P(^KUL(KLNr,"F",BONNr,3),"\",9))
 	. Set Rec=^KUL(KLNr,"F",BONNr,3),Taal=$P(Rec,"\",9)
 	. Set:Taal="" Taal=$P(^KKL(^KK1(KLNr),0),"\",9) Set:Taal="" Taal="N"
 	. Set VerzendingsWijze=VerzendingsWijze_" #"_^RES("KLANT","PI","VERZENDWIJZE","D",VerzendingsWijze,Taal)
@@ -76,22 +75,6 @@
 	Do REMOVE^vhLock($NA(@LockRef))
 ]]></Implementation>
 </Method>
-
-<Storage name="Default">
-<Type>%Library.CacheStorage</Type>
-<DataLocation>^BL.Flow.Levering.HoofdingD</DataLocation>
-<DefaultData>HoofdingDefaultData</DefaultData>
-<IdLocation>^BL.Flow.Levering.HoofdingD</IdLocation>
-<IndexLocation>^BL.Flow.Levering.HoofdingI</IndexLocation>
-<StreamLocation>^BL.Flow.Levering.HoofdingS</StreamLocation>
-<Data name="HoofdingDefaultData">
-<Structure>listnode</Structure>
-<Subscript/>
-<Value name="1">
-<Value>%%CLASSNAME</Value>
-</Value>
-</Data>
-</Storage>
 </Class>