Index: BL/Flow/Cons/TransportData.cls.xml
===================================================================
diff -u -r1074 -r1838
--- BL/Flow/Cons/TransportData.cls.xml	(.../TransportData.cls.xml)	(revision 1074)
+++ BL/Flow/Cons/TransportData.cls.xml	(.../TransportData.cls.xml)	(revision 1838)
@@ -58,7 +58,8 @@
 	Do:$IsObject(Obj)
 	. Set PropertyName=""
 	. For  Set PropertyName=$O(Propertys(PropertyName)) Quit:PropertyName=""  Do
-	. . Xecute "Set Obj."_PropertyName_"="""_Propertys(PropertyName)_""""
+	. . Set $zobjProperty(Obj,PropertyName)=Propertys(PropertyName)
+	. . ;Xecute "Set Obj."_PropertyName_"="""_Propertys(PropertyName)_""""
 	. Set Ok=Obj.%Save()
 	Do ..UnLock(Transport)
 ]]></Implementation>
@@ -165,7 +166,8 @@
 	Do:$IsObject(Obj)
 	. Set PropertyName=""
 	. For  Set PropertyName=$O(Propertys(PropertyName)) Quit:PropertyName=""  Do
-	. . Xecute "Set Obj."_PropertyName_"="""_Propertys(PropertyName)_""""
+	. . Set $zobjProperty(Obj,PropertyName)=Propertys(PropertyName)
+	. . ;Xecute "Set Obj."_PropertyName_"="""_Propertys(PropertyName)_""""
 	. Set Ok=Obj.%Save()
 	Do ..UnLock(TransportAdres)
 ]]></Implementation>
@@ -670,7 +672,7 @@
  	. &sql(OPEN CKFAP)
  	. For  &sql(FETCH CKFAP) Quit:(SQLCODE '= 0)
 	. &sql(CLOSE CKFAP)
-
+	
 	Set:$A(Aanspreking)=0 Aanspreking=""
 	Set:$A(Land)=0 Land=""
 	Set ObjAdres=$LB(Naam,Toenaam,Aanspreking,StraatNrBus,PostNummer,Woonplaats,Land)