Index: DOM/VKP/impl/LeverAdresRepository.cls.xml =================================================================== diff -u -r48522 -r48545 --- DOM/VKP/impl/LeverAdresRepository.cls.xml (.../LeverAdresRepository.cls.xml) (revision 48522) +++ DOM/VKP/impl/LeverAdresRepository.cls.xml (.../LeverAdresRepository.cls.xml) (revision 48545) @@ -24,19 +24,18 @@ Set $Piece(AdresNode,"\",7) = LeverAdres.GeefGemeente() Set $Piece(AdresNode,"\",8) = LeverAdres.GeefLand().GeefID() Set $Piece(AdresNode,"\",9) = LeverAdres.GeefTaal() + Set $Piece(AdresNode,"\",12) = "L" Set $Piece(AdresNode,"\",13) = LeverAdres.GeefTelefoon() Set $Piece(AdresNode,"\",23) = LeverAdres.GeefVolmacht() Set $Piece(AdresNode,"\",24) = LeverAdres.GeefOpmerking1() Set $Piece(AdresNode,"\",25) = LeverAdres.GeefOpmerking2() 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(LeverAdresId,3," ") Set ^KKL(KlantIndexKKL,Node) = AdresNode - Set $Piece(^KKL(KlantIndexKKL,0),"\",19) = 1 #dim PartijId As DOM.common.PartijID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID($Piece(Klant.GeefID(),"||",2))