Index: vhUnitTest/APPS/TRANSP/TransportService/GeefLeveringInfo/Rembours/Test.cls.xml =================================================================== diff -u -r66251 -r72255 --- vhUnitTest/APPS/TRANSP/TransportService/GeefLeveringInfo/Rembours/Test.cls.xml (.../Test.cls.xml) (revision 66251) +++ vhUnitTest/APPS/TRANSP/TransportService/GeefLeveringInfo/Rembours/Test.cls.xml (.../Test.cls.xml) (revision 72255) @@ -33,6 +33,7 @@ Set BonMock = ##class(vhTest.Mock.DOM.VKP.Bon).%New() Do BonMock.IndienMethodCall("GeefLeveringsDatum").DanReturn($h) Do BonMock.IndienMethodCall("GeefVerzendwijze").DanReturn("DI1") + Do BonMock.IndienMethodCall("GeefEmailAddressTrackTrace").DanReturn("test@test.com") Set ..OrderAPIMock = ##Class("vhTest.Mock.DOM.VKP.OrderAPI").MockInstance() Do ..OrderAPIMock.IndienMethodCall("BestaatBon",$$$ElkeWaarde).DanReturn(BonMock) Do ..OrderAPIMock.IndienMethodCall("GeefBon",$$$ElkeWaarde).DanReturn(BonMock) Index: vhTest/Mock/DOM/VKP/Bon.cls.xml =================================================================== diff -u -r61690 -r72255 --- vhTest/Mock/DOM/VKP/Bon.cls.xml (.../Bon.cls.xml) (revision 61690) +++ vhTest/Mock/DOM/VKP/Bon.cls.xml (.../Bon.cls.xml) (revision 72255) @@ -70,6 +70,12 @@ ]]> + +%String + + + %String + +EmailAddressTrackTrace:%String + + + EmailAdresBesteller:%String %String 1 + + +%String + Index: vhUnitTest/APPS/TRANSP/TransportService/GeefLeveringInfo/VerpakkingEenheden/Test.cls.xml =================================================================== diff -u -r69226 -r72255 --- vhUnitTest/APPS/TRANSP/TransportService/GeefLeveringInfo/VerpakkingEenheden/Test.cls.xml (.../Test.cls.xml) (revision 69226) +++ vhUnitTest/APPS/TRANSP/TransportService/GeefLeveringInfo/VerpakkingEenheden/Test.cls.xml (.../Test.cls.xml) (revision 72255) @@ -242,6 +242,7 @@ Set BonMock = ##class(vhTest.Mock.DOM.VKP.Bon).%New() Do BonMock.IndienMethodCall("GeefLeveringsDatum").DanReturn($h) Do BonMock.IndienMethodCall("GeefVerzendwijze").DanReturn("DI1") + Do BonMock.IndienMethodCall("GeefEmailAddressTrackTrace").DanReturn("test@test.com") #dim OrderAPIMock as DOM.VKP.OrderAPI = ##class(DOM.DomeinContext).Instance().GeefOrderAPI() Do OrderAPIMock.IndienMethodCall("BestaatBon",$$$ElkeWaarde).DanReturn(BonMock) Do OrderAPIMock.IndienMethodCall("GeefBon",$$$ElkeWaarde).DanReturn(BonMock) Index: AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml =================================================================== diff -u -r68943 -r72255 --- AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml (.../SalesOrderConverter.cls.xml) (revision 68943) +++ AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml (.../SalesOrderConverter.cls.xml) (revision 72255) @@ -548,7 +548,7 @@ #dim SkipVerzendwijzeUpdatesFromTo As TECH.KeyValue.List = ##class(TECH.KeyValue.List).CreateKeyValueListFromListbuild( $LB("DD1","DI1"), $LB("DD1","GL4") ) Do Order.ZetVerzendingWijze(..MaakVerzendingWijze(OrderHeader), SkipVerzendwijzeUpdatesFromTo) Do Order.ZetAxSalesId(OrderHeader.SalesId) - + Do Order.ZetEmailAddressTrackTrace(OrderHeader.MailAddressTrackTrace) #dim PackingSlipBody As %String = $Replace(OrderHeader.PackingSlipBody,$char(13),"") #dim ProductieAansturingTekst As %String = $Replace(OrderHeader.ProdCmdBody,$char(13),"") Index: vhUnitTest/APPS/TRANSP/Transsmart/impl/RequestDataBouwer/Test.cls.xml =================================================================== diff -u -r71270 -r72255 --- vhUnitTest/APPS/TRANSP/Transsmart/impl/RequestDataBouwer/Test.cls.xml (.../Test.cls.xml) (revision 71270) +++ vhUnitTest/APPS/TRANSP/Transsmart/impl/RequestDataBouwer/Test.cls.xml (.../Test.cls.xml) (revision 72255) @@ -73,6 +73,7 @@ 1 %String + + +1 +%String + Index: DOM/VKP/impl/DataM/DataMBonAbstract.cls.xml =================================================================== diff -u -r65150 -r72255 --- DOM/VKP/impl/DataM/DataMBonAbstract.cls.xml (.../DataMBonAbstract.cls.xml) (revision 65150) +++ DOM/VKP/impl/DataM/DataMBonAbstract.cls.xml (.../DataMBonAbstract.cls.xml) (revision 72255) @@ -489,6 +489,12 @@ + + +%String + + Index: APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml =================================================================== diff -u -r71774 -r72255 --- APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml (.../RequestDataBouwer.cls.xml) (revision 71774) +++ APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml (.../RequestDataBouwer.cls.xml) (revision 72255) @@ -397,6 +397,8 @@ Set Bestemmeling.countryCode = ..BeperkLengteTot(LeveringInfo.LeverAdres.LandCode,3) Set Bestemmeling.telNo = ..BepaalBestemmelingTelefoon(LeveringInfo,Rit) Set Bestemmeling.state = ..BeperkLengteTot(LeveringInfo.LeverAdres.Provincie,16) + Set Bestemmeling.email = LeveringInfo.EmailAddressTrackTrace + Quit Bestemmeling ]]> Index: DOM/VKP/Order.cls.xml =================================================================== diff -u -r58776 -r72255 --- DOM/VKP/Order.cls.xml (.../Order.cls.xml) (revision 58776) +++ DOM/VKP/Order.cls.xml (.../Order.cls.xml) (revision 72255) @@ -564,6 +564,15 @@ 1 %String + + +1 +EmailAddressTrackTrace:%String + + + +%String + Index: AXif/Dynamics/SalesOrderIn/MessageParts/AxdExtTypeVHTrackTraceMailAddress.cls.xml =================================================================== diff -u --- AXif/Dynamics/SalesOrderIn/MessageParts/AxdExtTypeVHTrackTraceMailAddress.cls.xml (revision 0) +++ AXif/Dynamics/SalesOrderIn/MessageParts/AxdExtTypeVHTrackTraceMailAddress.cls.xml (revision 72255) @@ -0,0 +1,27 @@ + + + +datatype + +1 +%String + + +1 + + + +200 + + + +0 + + + +http://schemas.microsoft.com/dynamics/2008/01/sharedtypes + + + + + Index: vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/TestVerzendwijze.cls.xml =================================================================== diff -u -r56863 -r72255 --- vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/TestVerzendwijze.cls.xml (.../TestVerzendwijze.cls.xml) (revision 56863) +++ vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/TestVerzendwijze.cls.xml (.../TestVerzendwijze.cls.xml) (revision 72255) @@ -85,6 +85,7 @@ Do OrderMock.IndienMethodCall("GeefID").DanReturn("DummyOrderID") Do OrderMock.VerwachtMethodCall("ZetAfleveradres", $$$ElkeWaarde).DanDoeNiks() + Do OrderMock.VerwachtMethodCall("ZetEmailAddressTrackTrace", $$$ElkeWaarde).DanDoeNiks() Quit OrderMock ]]> Index: vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/Base.cls.xml =================================================================== diff -u -r56863 -r72255 --- vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/Base.cls.xml (.../Base.cls.xml) (revision 56863) +++ vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/Base.cls.xml (.../Base.cls.xml) (revision 72255) @@ -81,6 +81,8 @@ Do OrderMock.IndienMethodCall("ZetTekstVoorAfdrukDocumentType", $$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks() Do OrderMock.IndienMethodCall("HerlaadLijnen").DanDoeNiks() Do OrderMock.IndienMethodCall("GeefAxSalesId").DanReturn("VO1600010000") + Do OrderMock.IndienMethodCall("GeefEmailAddressTrackTrace").DanReturn("") + Do OrderMock.IndienMethodCall("ZetEmailAddressTrackTrace", $$$ElkeWaarde).DanDoeNiks() Quit OrderMock ]]> Index: DOM/VKP/impl/DataM/DataMOrder.cls.xml =================================================================== diff -u -r69713 -r72255 --- DOM/VKP/impl/DataM/DataMOrder.cls.xml (.../DataMOrder.cls.xml) (revision 69713) +++ DOM/VKP/impl/DataM/DataMOrder.cls.xml (.../DataMOrder.cls.xml) (revision 72255) @@ -1333,6 +1333,20 @@ ]]> + +%String + + + + +EmailAddressTrackTrace:%String + + + %Library.CacheStorage ^DOM.VKP.impl.DataM.DataMOrderD Index: AXif/Dynamics/SalesOrderIn/MessageParts/AxdEntityOrderHeader.cls.xml =================================================================== diff -u -r66973 -r72255 --- AXif/Dynamics/SalesOrderIn/MessageParts/AxdEntityOrderHeader.cls.xml (.../AxdEntityOrderHeader.cls.xml) (revision 66973) +++ AXif/Dynamics/SalesOrderIn/MessageParts/AxdEntityOrderHeader.cls.xml (.../AxdEntityOrderHeader.cls.xml) (revision 72255) @@ -243,6 +243,11 @@ + +AXif.Dynamics.SalesOrderIn.MessageParts.AxdExtTypeVHTrackTraceMailAddress + + + %Library.CacheSerialState AxdEntityOrderHeaderState @@ -371,6 +376,9 @@ DlvAddrStateName + +MailAddressTrackTrace + Index: vhUnitTest/APPS/TRANSP/TransportService/GeefLeveringInfo/BasisGegevens/Test.cls.xml =================================================================== diff -u -r69971 -r72255 --- vhUnitTest/APPS/TRANSP/TransportService/GeefLeveringInfo/BasisGegevens/Test.cls.xml (.../Test.cls.xml) (revision 69971) +++ vhUnitTest/APPS/TRANSP/TransportService/GeefLeveringInfo/BasisGegevens/Test.cls.xml (.../Test.cls.xml) (revision 72255) @@ -38,6 +38,7 @@ Do ..ProjectSettingsAPI.IndienMethodCall("IsTranssmartActive").DanReturn($$$False) Set BonMock = ##class(vhTest.Mock.DOM.VKP.Bon).%New() Do BonMock.IndienMethodCall("GeefLeveringsDatum").DanReturn($h) + Do BonMock.IndienMethodCall("GeefEmailAddressTrackTrace").DanReturn("") Do ..OrderAPIMock.IndienMethodCall("GeefBon",$$$ElkeWaarde).DanReturn(BonMock) ]]> @@ -75,7 +76,6 @@ do LeveringStub.IndienMethodCall("GeefAantalLanggoed").DanReturn("0") do LeveringStub.IndienMethodCall("GeefBedragRembours").DanReturn("0") do LeveringStub.IndienMethodCall("GeefBonIterator").DanReturn(##class(TECH.ListIterator).%New(##class(%ListOfObjects).%New())) - set RitStub = ##class(vhUnitTest.APPS.TRANSP.TransportService.GeefLeveringInfo.RitMock).%New() do RitStub.IndienMethodCall("GeefVoorzieneOphaalTimeStamp").DanReturn($$$VoorzieneOphaalTimeStamp) Index: vhTestFiles/UnitTests/APPS.TRANSP.Transsmart.impl.RequestDataBouwer/Test/TestdoBookingSchenker/doBookingRequestSchenker.xml =================================================================== diff -u -r71196 -r72255 --- vhTestFiles/UnitTests/APPS.TRANSP.Transsmart.impl.RequestDataBouwer/Test/TestdoBookingSchenker/doBookingRequestSchenker.xml (.../doBookingRequestSchenker.xml) (revision 71196) +++ vhTestFiles/UnitTests/APPS.TRANSP.Transsmart.impl.RequestDataBouwer/Test/TestdoBookingSchenker/doBookingRequestSchenker.xml (.../doBookingRequestSchenker.xml) (revision 72255) @@ -78,6 +78,7 @@ 9100 BE Telefoon + test@test.com