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
]]>