Index: vhUnitTest/WSimpl/AX/Transport/GLS/v01/RegistrationService/RegisterContainer/Test.cls.xml =================================================================== diff -u -r40744 -r40779 --- vhUnitTest/WSimpl/AX/Transport/GLS/v01/RegistrationService/RegisterContainer/Test.cls.xml (.../Test.cls.xml) (revision 40744) +++ vhUnitTest/WSimpl/AX/Transport/GLS/v01/RegistrationService/RegisterContainer/Test.cls.xml (.../Test.cls.xml) (revision 40779) @@ -26,13 +26,18 @@ Set VerzendDataConvertorMock = ##class(vhTest.Mock.WSimpl.AX.Transport.GLS.v01.RegistrationService.VerzendDataConvertor).%New() Do VerzendDataConvertorMock.VerwachtMethodCall("ConverteerNaarRegisterContainerResponse",VerzendData,0,"").DanReturn(Response) + + Set EtiketPrinterMock = ##class(vhTest.Mock.APPS.TRANSP.GLS.GLSv1.impl.EtiketPrinter).%New() + Do EtiketPrinterMock.VerwachtMethodCall("PrintEtiket",VerzendData.Response,"computernaam","labelprinterid").DanDoeNiks() - Set RegisterContainer = ##class(WSimpl.AX.Transport.GLS.v01.RegistrationService.RegisterContainer).%New(RegisterContainerRequestConvertorMock,BerichtVerzenderMock,VerzendDataConvertorMock) + Set RegisterContainer = ##class(WSimpl.AX.Transport.GLS.v01.RegistrationService.RegisterContainer).%New(RegisterContainerRequestConvertorMock,BerichtVerzenderMock,VerzendDataConvertorMock,EtiketPrinterMock) Do RegisterContainer.RegisterContainer(Request) Do RegisterContainerRequestConvertorMock.Verifieer() Do VerzendDataConvertorMock.Verifieer() Do BerichtVerzenderMock.Verifieer() + Do EtiketPrinterMock.Verifieer() + w !,!,##class(TECH.Config.ConfigMgr).Instance().GeefString("DefaultExportDirectory"),!,! ]]> Index: WSimpl/AX/Transport/GLS/v01/RegistrationService/RegisterContainer.cls.xml =================================================================== diff -u -r40745 -r40779 --- WSimpl/AX/Transport/GLS/v01/RegistrationService/RegisterContainer.cls.xml (.../RegisterContainer.cls.xml) (revision 40745) +++ WSimpl/AX/Transport/GLS/v01/RegistrationService/RegisterContainer.cls.xml (.../RegisterContainer.cls.xml) (revision 40779) @@ -18,8 +18,13 @@ 1 + +APPS.TRANSP.GLS.GLSv1.impl.EtiketPrinter +1 + + -RegisterContainerRequestConvertor:WSimpl.AX.Transport.GLS.v01.RegistrationService.RegisterContainerRequestConvertor,RegistreerBerichtVerzender:WSimpl.AX.Transport.GLS.v01.RegistrationService.RegistreerBerichtVerzender,VerzendDataConvertor:WSimpl.AX.Transport.GLS.v01.RegistrationService.VerzendDataConvertor +RegisterContainerRequestConvertor:WSimpl.AX.Transport.GLS.v01.RegistrationService.RegisterContainerRequestConvertor,RegistreerBerichtVerzender:WSimpl.AX.Transport.GLS.v01.RegistrationService.RegistreerBerichtVerzender,VerzendDataConvertor:WSimpl.AX.Transport.GLS.v01.RegistrationService.VerzendDataConvertor,EtiketPrinter:APPS.TRANSP.GLS.GLSv1.impl.EtiketPrinter 1 1 %Status @@ -28,6 +33,7 @@ Set ..RegisterContainerRequestConvertor = $$$Inject(RegisterContainerRequestConvertor,##class(WSimpl.AX.Transport.GLS.v01.RegistrationService.RegisterContainerRequestConvertor).%New()) Set ..RegistreerBerichtVerzender = $$$Inject(RegistreerBerichtVerzender,##class(WSimpl.AX.Transport.GLS.v01.RegistrationService.RegistreerBerichtVerzender).%New()) Set ..VerzendDataConvertor = $$$Inject(VerzendDataConvertor,##class(WSimpl.AX.Transport.GLS.v01.RegistrationService.VerzendDataConvertor).%New()) + Set ..EtiketPrinter = $$$Inject(EtiketPrinter,##class(APPS.TRANSP.GLS.GLSv1.impl.EtiketPrinter).%New()) Quit $$$OK ]]> @@ -48,7 +54,9 @@ Set Response.ShipmentId = Request.LeveringNummer Set Response.ContainerId = Request.Container.VerpakkingEenheidId - + + Do ..EtiketPrinter.PrintEtiket(VerzendData.Response, Request.TransportWerkpostComputerNaam,Request.LabelPrinterId) + Quit Response ]]>