Index: vhUnitTest/APPS/TRANSP/Transsmart/impl/EtiketService/Test.cls.xml
===================================================================
diff -u -r66965 -r74488
--- vhUnitTest/APPS/TRANSP/Transsmart/impl/EtiketService/Test.cls.xml (.../Test.cls.xml) (revision 66965)
+++ vhUnitTest/APPS/TRANSP/Transsmart/impl/EtiketService/Test.cls.xml (.../Test.cls.xml) (revision 74488)
@@ -15,21 +15,23 @@
#dim TransportAPIMock as vhTest.Mock.DOM.TRANSP.TransportAPI = ##class(vhTest.Mock.DOM.TRANSP.TransportAPI).MockInstance()
Do TransportAPIMock.VerwachtMethodCall("GeefRit","54321").DanReturn(RitMock)
- Set EtiketPrinterMock = ##class(vhTest.Mock.APPS.TRANSP.Transsmart.impl.EtiketPrinter).%New()
- Set DummyList = ##class(%ListOfDataTypes).%New()
- Do DummyList.Insert("ZPL Code voor etiket")
- Do EtiketPrinterMock.VerwachtMethodCall("PrintEtiketten",..Matches.List(DummyList),"UNITTESTWORKSTATION","TRANSSMART_ZPL").DanDoeNiks()
Set TranssmartWSClientMock = ##class(vhTest.Mock.WS.Transsmart.TboxServicePort).%New()
Do TranssmartWSClientMock.VerwachtMethodCall("ZetSSLConfiguration","Transsmart").DanDoeNiks()
Do TranssmartWSClientMock.VerwachtMethodCall("ZetLocationVoorOmgeving","DEV").DanDoeNiks()
Set Response = ##class(WS.Transsmart.tns.getDocsResponse).%New()
Set Label = ##class(WS.Transsmart.tns.GetDocsResponsePackageLabel).%New()
- Set Label.labelData = "ZPL Code voor etiket"
+ Set Label.labelData = ##class(%GlobalCharacterStream).%New()
+ do Label.labelData.WriteLine("ZPL Code voor etiket")
Do Response.packages.Insert(Label)
Do TranssmartWSClientMock.VerwachtMethodCall("getDocs",..Matches.IsA("WS.Transsmart.tns.getDocs")).DanReturn(Response)
+ Set EtiketPrinterMock = ##class(vhTest.Mock.APPS.TRANSP.Transsmart.impl.EtiketPrinter).%New()
+ Set DummyList = ##class(%ListOfObjects).%New()
+ Do DummyList.Insert(Label.labelData)
+ Do EtiketPrinterMock.VerwachtMethodCall("PrintEtiketten",..Matches.List(DummyList),"UNITTESTWORKSTATION","TRANSSMART_ZPL").DanDoeNiks()
+
Set RequestBouwerMock = ##class(vhTest.Mock.APPS.TRANSP.Transsmart.RequestDataBouwer).%New()
Do RequestBouwerMock.VerwachtMethodCall("MaakgetDocsRequest","5432123456").DanReturn(##class(WS.Transsmart.tns.getDocs).%New())
Index: vhTest/Fake/APPS/TRANSP/Transsmart/impl/EtiketPrinter.cls.xml
===================================================================
diff -u -r59696 -r74488
--- vhTest/Fake/APPS/TRANSP/Transsmart/impl/EtiketPrinter.cls.xml (.../EtiketPrinter.cls.xml) (revision 59696)
+++ vhTest/Fake/APPS/TRANSP/Transsmart/impl/EtiketPrinter.cls.xml (.../EtiketPrinter.cls.xml) (revision 74488)
@@ -15,9 +15,8 @@
-Responses:%ListOfObjects,Computernaam:%String,LabelPrinterID:%String
-
+Responses:%List,Computernaam:%String,LabelPrinterID:%String
+
Index: APPS/TRANSP/Transsmart/impl/EtiketPrinter.cls.xml
===================================================================
diff -u -r59696 -r74488
--- APPS/TRANSP/Transsmart/impl/EtiketPrinter.cls.xml (.../EtiketPrinter.cls.xml) (revision 59696)
+++ APPS/TRANSP/Transsmart/impl/EtiketPrinter.cls.xml (.../EtiketPrinter.cls.xml) (revision 74488)
@@ -25,7 +25,7 @@
-Responses:%ListOfObjects,Computernaam:%String,Toepassing:%String=..#PrintToepassing
+Responses:%List,Computernaam:%String,Toepassing:%String=..#PrintToepassing
-Responses:%ListOfObjects,Computernaam:%String,Toepassing:%String=..#PrintToepassing
+Responses:%List,Computernaam:%String,Toepassing:%String=..#PrintToepassing