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