Index: vhTest/Mock/DOM/VKP/LeverAdres.cls.xml =================================================================== diff -u -r47647 -r48255 --- vhTest/Mock/DOM/VKP/LeverAdres.cls.xml (.../LeverAdres.cls.xml) (revision 47647) +++ vhTest/Mock/DOM/VKP/LeverAdres.cls.xml (.../LeverAdres.cls.xml) (revision 48255) @@ -19,6 +19,12 @@ ]]> + +%String + + + %ListOfDataTypes + +AxLeveradresId:%String + + + Gemeente:%String Index: DOM/VKP/impl/DataM/DataMKlantNative.cls.xml =================================================================== diff -u -r48212 -r48255 --- DOM/VKP/impl/DataM/DataMKlantNative.cls.xml (.../DataMKlantNative.cls.xml) (revision 48212) +++ DOM/VKP/impl/DataM/DataMKlantNative.cls.xml (.../DataMKlantNative.cls.xml) (revision 48255) @@ -778,6 +778,7 @@ Set $Piece(AdresNode,"\",26) = LeverAdres.GeefVerzendingWijze() Set $Piece(AdresNode,"\",12) = "L" Set $Piece(AdresNode,"\",19) = "." + Set $Piece(AdresNode,"\",29) = LeverAdres.GeefAxLeveradresId() #dim AdresId As %String = $I(^KKL.AdresD) Set $Piece(AdresNode,"\",28) = AdresId #dim Node As %String = "L"_$$$LeftPadding(VolgendNummer,3," ") Index: DOM/common/impl/AdresUtils.cls.xml =================================================================== diff -u -r48212 -r48255 --- DOM/common/impl/AdresUtils.cls.xml (.../AdresUtils.cls.xml) (revision 48212) +++ DOM/common/impl/AdresUtils.cls.xml (.../AdresUtils.cls.xml) (revision 48255) @@ -48,6 +48,7 @@ Set Adres.VerzendingWijze = $piece(AdresData,"\",26) Set Adres.Volmacht = $piece(AdresData,"\",23) + Set Adres.AxLeveradresId = $piece(AdresData,"\",29) ]]>