Index: vhUnitTest/APPS/TRANSP/Transsmart/impl/CommunicatieService/RegistreerLevering/VoerUit.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/TRANSP/Transsmart/impl/CommunicatieService/RegistreerLevering/VoerUit.cls.xml	(revision 0)
+++ vhUnitTest/APPS/TRANSP/Transsmart/impl/CommunicatieService/RegistreerLevering/VoerUit.cls.xml	(revision 60394)
@@ -0,0 +1,225 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.TRANSP.Transsmart.impl.CommunicatieService.RegistreerLevering.VoerUit">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="RitNr">
+<Default>12345</Default>
+</Parameter>
+
+<Parameter name="LeveringNr">
+<Default>654321</Default>
+</Parameter>
+
+<Property name="Levering">
+<Type>DOM.TRANSP.Levering</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Rit">
+<Type>DOM.TRANSP.Rit</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ConfigMgr">
+<Type>TECH.Config.ConfigMgr</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TransportAPI">
+<Type>vhTest.Mock.APPS.TRANSP.TransportAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TransportService">
+<Type>vhTest.Mock.APPS.TRANSP.TransportService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TranssmartWSClient">
+<Type>vhTest.Mock.WS.Transsmart.TboxServicePort</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProjectSettingsAPI">
+<Type>vhTest.Mock.DOM.common.ProjectSettingsAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="RequestBouwer">
+<Type>vhTest.Mock.APPS.TRANSP.Transsmart.RequestDataBouwer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ResponseControleur">
+<Type>vhTest.Mock.APPS.TRANSP.Transsmart.impl.ResponseControleur</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VerzendWijzeBepaler">
+<Type>vhTest.Mock.APPS.TRANSP.Transsmart.VerzendWijzeBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VerzendDataRepository">
+<Type>vhTest.Mock.APPS.TRANSP.Transsmart.data.VerzendDataRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="EtiketService">
+<Type>vhTest.Mock.APPS.TRANSP.Transsmart.impl.EtiketService</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>AManager:Tools.Test.Manager</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##super(AManager)	
+	set ..ProjectSettingsAPI = ##class(vhTest.Mock.DOM.common.ProjectSettingsAPI).MockInstance()
+	Do ..ProjectSettingsAPI.IndienMethodCall("IsTranssmartActive").DanReturn($$$True)
+	Do ..ProjectSettingsAPI.IndienMethodCall("GebruikTranssmartAcceptOmgeving").DanReturn($$$True)
+
+	Set ..TransportAPI = ##class(vhTest.Mock.APPS.TRANSP.TransportAPI).MockInstance()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	Set ..TranssmartWSClient = ..GeefWSClient()
+	Set ..RequestBouwer = ..GeefRequestBouwer()
+	Set ..ResponseControleur = ..GeefResponseControleur()
+	Set ..VerzendWijzeBepaler = ..GeefVerzendwijzeBepaler()
+	Set ..TransportService = ..GeefTransportService()
+	Do ..TransportAPI.VerwachtMethodCall("GeefTransportService").DanReturn(..TransportService)
+	
+	Set ..VerzendDataRepository = ..GeefVerzendDataRepository()
+	Set ..EtiketService = ..GeefEtiketService()
+	
+	#dim Rit as vhTest.Mock.DOM.TRANSP.Rit = ..GeefRit()
+	#dim Levering as vhTest.Mock.DOM.TRANSP.Levering = ..GeefLevering()
+	
+	Set RegistreerLevering = ##class(APPS.TRANSP.Transsmart.impl.CommunicatieService.RegistreerLevering).%New(,..ProjectSettingsAPI,..TranssmartWSClient,..RequestBouwer,..ResponseControleur,..VerzendDataRepository,..VerzendWijzeBepaler,Rit,Levering,..EtiketService)
+	
+	Do RegistreerLevering.VoerUit()
+	
+	Do ..TranssmartWSClient.Verifieer()
+	Do ..VerzendWijzeBepaler.Verifieer()
+	Do ..TransportService.Verifieer()
+	Do ..TransportAPI.Verifieer()
+	Do ..RequestBouwer.Verifieer()
+	Do ..ResponseControleur.Verifieer()
+	Do ..VerzendDataRepository.Verifieer()
+	Do Rit.Verifieer()
+	Do ..EtiketService.Verifieer()
+	Do Levering.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="GeefEtiketService">
+<Private>1</Private>
+<ReturnType>vhTest.Mock.APPS.TRANSP.Transsmart.impl.EtiketService</ReturnType>
+<Implementation><![CDATA[
+	Set EtiketService = ##class(vhTest.Mock.APPS.TRANSP.Transsmart.impl.EtiketService).%New()
+	Do EtiketService.VerwachtMethodCall("PrintEtikettenVoorLevering",..Matches.Extends("DOM.TRANSP.Levering")).DanDoeNiks()
+	Quit EtiketService
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerzendDataRepository">
+<Private>1</Private>
+<ReturnType>vhTest.Mock.APPS.TRANSP.Transsmart.data.VerzendDataRepository</ReturnType>
+<Implementation><![CDATA[
+	Set VerzendDataRepository = ##class(vhTest.Mock.APPS.TRANSP.Transsmart.data.VerzendDataRepository).%New()
+	Set VerzendData = ##class(APPS.TRANSP.Transsmart.data.VerzendData).%New()
+	Do VerzendDataRepository.VerwachtMethodCall("Maak").DanReturn(VerzendData)
+	Do VerzendDataRepository.VerwachtMethodCall("Bewaar",..Matches.IsA(##class(APPS.TRANSP.Transsmart.data.VerzendData).%ClassName(1))).DanDoeNiks()
+	Quit VerzendDataRepository
+]]></Implementation>
+</Method>
+
+<Method name="GeefTransportService">
+<ReturnType>vhTest.Mock.APPS.TRANSP.TransportService</ReturnType>
+<Implementation><![CDATA[
+	Set TransportService = ##class(vhTest.Mock.APPS.TRANSP.TransportService).%New()
+	Set LeveringInfo=##class(APPS.TRANSP.dto.LeveringInfo).%New()
+	Do TransportService.VerwachtMethodCall("GeefLeveringInfo",..#RitNr,..#LeveringNr).DanReturn(LeveringInfo)
+	Set VerzendDataLijst = ##class(APPS.TRANSP.dto.DistributeurVerzendDataLijst).%New()
+	Do TransportService.VerwachtMethodCall("GeefVerzendDataLijst",..#RitNr,..#LeveringNr).DanReturn(VerzendDataLijst)
+	Quit TransportService
+]]></Implementation>
+</Method>
+
+<Method name="GeefLevering">
+<Private>1</Private>
+<ReturnType>vhTest.Mock.DOM.TRANSP.Levering</ReturnType>
+<Implementation><![CDATA[
+	Set Levering = ##class(vhTest.Mock.DOM.TRANSP.Levering).%New()
+	Do Levering.IndienMethodCall("GeefID").DanReturn(..#LeveringNr)
+	Do Levering.VerwachtMethodCall("GeefDistributeurDataIDs").DanReturn(##class(%ListOfDataTypes).%New())
+	Do Levering.VerwachtMethodCall("GeefNettoGewicht").DanReturn(1)
+	Do Levering.VerwachtMethodCall("GeefAantalColli").DanReturn(0) ;want test is VRD -> geen colli
+	Do Levering.VerwachtMethodCall("VoegToeEnBewaarDistributeurDataID","").DanDoeNiks()
+	Quit Levering
+]]></Implementation>
+</Method>
+
+<Method name="GeefRit">
+<Private>1</Private>
+<ReturnType>vhTest.Mock.DOM.TRANSP.Rit</ReturnType>
+<Implementation><![CDATA[
+	Set Rit = ##class(vhTest.Mock.DOM.TRANSP.Rit).%New()
+	Do Rit.VerwachtMethodCall("GeefID").DanReturn(..#RitNr)
+	Do Rit.VerwachtMethodCall("GeefTransporteur").DanReturn(##class(DOM.TRANSP.enu.Transporteur).VRD())
+	Quit Rit
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerzendwijzeBepaler">
+<ReturnType>vhTest.Mock.APPS.TRANSP.Transsmart.VerzendWijzeBepaler</ReturnType>
+<Implementation><![CDATA[
+	Set VerzendWijzeBepaler = ##class(vhTest.Mock.APPS.TRANSP.Transsmart.VerzendWijzeBepaler).%New()
+	Do VerzendWijzeBepaler.VerwachtMethodCall("GeefVerzendWijze", ..Matches.IsA(##class(APPS.TRANSP.dto.LeveringInfo).%ClassName(1))).DanReturn(##class(APPS.TRANSP.Transsmart.enu.VerzendWijze).Freight())
+	
+	Quit VerzendWijzeBepaler
+]]></Implementation>
+</Method>
+
+<Method name="GeefResponseControleur">
+<ReturnType>vhTest.Mock.APPS.TRANSP.Transsmart.impl.ResponseControleur</ReturnType>
+<Implementation><![CDATA[
+	Set ResponseControleur =##class(vhTest.Mock.APPS.TRANSP.Transsmart.impl.ResponseControleur).%New()
+	Do ResponseControleur.VerwachtMethodCall("ResponseBevatFout",..Matches.IsA(##class(WS.Transsmart.tns.getStatusResponse).%ClassName(1))).DanReturn($$$False)
+	
+	Quit ResponseControleur
+]]></Implementation>
+</Method>
+
+<Method name="GeefWSClient">
+<ReturnType>vhTest.Mock.WS.Transsmart.TboxServicePort</ReturnType>
+<Implementation><![CDATA[
+	Set TranssmartWSClient = ##class(vhTest.Mock.WS.Transsmart.TboxServicePort).%New()
+	Do TranssmartWSClient.VerwachtMethodCall("ZetLocationVoorOmgeving","DEV").DanDoeNiks()
+	Do TranssmartWSClient.VerwachtMethodCall("ZetSSLConfiguration","Transsmart").DanDoeNiks()
+	Set Response = ##class(WS.Transsmart.tns.getStatusResponse).%New()
+	Do TranssmartWSClient.VerwachtMethodCall("doBooking",..Matches.IsA(##class(WS.Transsmart.tns.doBooking).%ClassName(1))).DanReturn(Response)
+	Quit TranssmartWSClient
+]]></Implementation>
+</Method>
+
+<Method name="GeefRequestBouwer">
+<ReturnType>vhTest.Mock.APPS.TRANSP.Transsmart.RequestDataBouwer</ReturnType>
+<Implementation><![CDATA[
+	Set RequestBouwer = ##class(vhTest.Mock.APPS.TRANSP.Transsmart.RequestDataBouwer).%New()
+	Set Request = ##class(WS.Transsmart.tns.doBooking).%New()
+	Do RequestBouwer.VerwachtMethodCall("MaakdoBookingRequest",..Matches.IsA(##class(APPS.TRANSP.dto.LeveringInfo).%ClassName(1)),..Matches.Extends("DOM.TRANSP.Rit")).DanReturn(Request) 
+	
+	Quit RequestBouwer
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>