Index: vhTest/Mock/AXimpl/Crm/CustomerAddressOut/Converter/LeveradresRepository.cls.xml =================================================================== diff -u -r42144 -r48505 --- vhTest/Mock/AXimpl/Crm/CustomerAddressOut/Converter/LeveradresRepository.cls.xml (.../LeveradresRepository.cls.xml) (revision 42144) +++ vhTest/Mock/AXimpl/Crm/CustomerAddressOut/Converter/LeveradresRepository.cls.xml (.../LeveradresRepository.cls.xml) (revision 48505) @@ -6,7 +6,7 @@ Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur. 1 -AXimpl.Crm.CustomerAddressOut.Converter.LeveradresRepository,Tools.Mock.MockClassBase +DOM.VKP.impl.LeverAdresRepository,Tools.Mock.MockClassBase right Index: vhUnitTest/AXimpl/Crm/CustomerAddressOut/Converter/LeveradresRepository.cls.xml =================================================================== diff -u -r42143 -r48505 --- vhUnitTest/AXimpl/Crm/CustomerAddressOut/Converter/LeveradresRepository.cls.xml (.../LeveradresRepository.cls.xml) (revision 42143) +++ vhUnitTest/AXimpl/Crm/CustomerAddressOut/Converter/LeveradresRepository.cls.xml (.../LeveradresRepository.cls.xml) (revision 48505) @@ -5,7 +5,7 @@ Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn. Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt 1 -AXimpl.Crm.CustomerAddressOut.Converter.LeveradresRepository +DOM.VKP.impl.LeverAdresRepository ID:%String Index: DOM/VKP/impl/DataM/DataMOrder.cls.xml =================================================================== diff -u -r48502 -r48505 --- DOM/VKP/impl/DataM/DataMOrder.cls.xml (.../DataMOrder.cls.xml) (revision 48502) +++ DOM/VKP/impl/DataM/DataMOrder.cls.xml (.../DataMOrder.cls.xml) (revision 48505) @@ -331,6 +331,12 @@ Do ..AfleverAdresData.ZetPiece(25, Afleveradres.GeefOpmerking2()) Do ..AfleverAdresData.ZetPiece(26, Afleveradres.GeefVerzendingWijze()) Do ..AfleverAdresData.ZetPiece(23, Afleveradres.GeefVolmacht()) + + If ($$$HasLength(Afleveradres.GeefAxLeveradresId()) && (##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsActiefAxLeverancierId())){ + Do ..AfleverAdresData.ZetPiece(29, Afleveradres.GeefAxLeveradresId()) + Do ..AfleverAdresData.ZetPiece(1, "") + } + } Else { /// Leegmaken van pieces waarin adres is ingevuld. Eerste piece is de ID van het adres. #Dim Teller As %Integer Index: vhUnitTest/AXimpl/Crm/CustomerAddressOut/Converter/LeveradresRepository/GeefViaKlantIdEnAdresVolgnummer/Test.cls.xml =================================================================== diff -u -r42254 -r48505 --- vhUnitTest/AXimpl/Crm/CustomerAddressOut/Converter/LeveradresRepository/GeefViaKlantIdEnAdresVolgnummer/Test.cls.xml (.../Test.cls.xml) (revision 42254) +++ vhUnitTest/AXimpl/Crm/CustomerAddressOut/Converter/LeveradresRepository/GeefViaKlantIdEnAdresVolgnummer/Test.cls.xml (.../Test.cls.xml) (revision 48505) @@ -38,7 +38,7 @@ @@ -92,7 +92,7 @@ Do ..VoegToeLeveradres("1") - Set LeveradresRepository = ##class(AXimpl.Crm.CustomerAddressOut.Converter.LeveradresRepository).%New() + Set LeveradresRepository = ##class(DOM.VKP.impl.LeverAdresRepository).%New() #dim LeverAdres As DOM.VKP.impl.LeverAdres = LeveradresRepository.GeefViaKlantIdEnAdresVolgnummer("","1") ]]> @@ -102,7 +102,7 @@ #dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen leveradres voor combinatie KlantId 'K||999999' en AdresVolgnummer '1'") Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1),Substrings)) - Set LeveradresRepository = ##class(AXimpl.Crm.CustomerAddressOut.Converter.LeveradresRepository).%New() + Set LeveradresRepository = ##class(DOM.VKP.impl.LeverAdresRepository).%New() #dim LeverAdres As DOM.VKP.impl.LeverAdres = LeveradresRepository.GeefViaKlantIdEnAdresVolgnummer("K||"_..#TestKlantnummer,"1") ]]> Index: DOM/VKP/impl/LeveradresRepository.cls.xml =================================================================== diff -u -r47691 -r48505 --- DOM/VKP/impl/LeveradresRepository.cls.xml (.../AXimpl/Crm/CustomerAddressOut/Converter/LeveradresRepository.cls.xml) (revision 47691) +++ DOM/VKP/impl/LeveradresRepository.cls.xml (.../DOM/VKP/impl/LeverAdresRepository.cls.xml) (revision 48505) @@ -1,6 +1,6 @@ - + TECH.Repository,TECH.Mockable @@ -63,4 +63,5 @@ + FishEye: Tag 48505 refers to a dead (removed) revision in file `AXimpl/Crm/CustomerAddressOut/Converter/LeveradresRepository.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: AXimpl/Crm/CustomerAddressOut/Converter/AddressUpsertConverter.cls.xml =================================================================== diff -u -r43017 -r48505 --- AXimpl/Crm/CustomerAddressOut/Converter/AddressUpsertConverter.cls.xml (.../AddressUpsertConverter.cls.xml) (revision 43017) +++ AXimpl/Crm/CustomerAddressOut/Converter/AddressUpsertConverter.cls.xml (.../AddressUpsertConverter.cls.xml) (revision 48505) @@ -19,7 +19,7 @@ -AXimpl.Crm.CustomerAddressOut.Converter.LeveradresRepository +DOM.VKP.impl.LeverAdresRepository 1 @@ -29,14 +29,14 @@ -VerkoopAPI:DOM.VKP.VerkoopAPI,LeveradresRepository:AXimpl.Crm.CustomerAddressOut.Converter.LeveradresRepository +VerkoopAPI:DOM.VKP.VerkoopAPI,LeveradresRepository:DOM.VKP.impl.LeverAdresRepository 1 1 %Status 1