Index: vhUnitTest/WS/AX/Inventory/InventoryReceiveService/Test.cls.xml =================================================================== diff -u -r45752 -r53899 --- vhUnitTest/WS/AX/Inventory/InventoryReceiveService/Test.cls.xml (.../Test.cls.xml) (revision 45752) +++ vhUnitTest/WS/AX/Inventory/InventoryReceiveService/Test.cls.xml (.../Test.cls.xml) (revision 53899) @@ -9,6 +9,8 @@ Do MessageManagerMock.VerwachtMethodCall("GenerateID").DanReturn("MessageId") #dim DummyStreamIn As %GlobalCharacterStream = ##class(%GlobalCharacterStream).%New() + Do DummyStreamIn.WriteLine("") + Do DummyStreamIn.WriteLine("een speciaal character " _ $CHAR(161)) Set Request = ##class(AXif.Dynamics.InventoryIn.MessageParts.AxdADUMsgWMSJournalOut).%New() Set XmlCorrelaterMock = ##class(vhTest.Mock.TECH.XMLCorrelater).%New() Do XmlCorrelaterMock.VerwachtMethodCall("FromStream", DummyStreamIn, "AXif.Dynamics.InventoryIn.MessageParts.AxdADUMsgWMSJournalOut", "ADUMsgWMSJournalOut").DanReturn(Request) @@ -19,14 +21,42 @@ Set Service = ##class(WS.AX.Inventory.InventoryReceiveService).%New(ConverterMock,XmlCorrelaterMock,MessageManagerMock) #dim StreamOut As %GlobalCharacterStream = Service.ReceiveInventory(DummyStreamIn) + + Do $$$AssertFalse( ##class(TECH.StreamUtils).IsTextInStream(DummyStreamIn,"")) + Do $$$AssertTrue( ##class(TECH.StreamUtils).IsTextInStream(DummyStreamIn,"")) + Do $$$AssertTrue( ##class(TECH.StreamUtils).IsTextInStream(DummyStreamIn,$CHAR(161))) + Do XmlCorrelaterMock.Verifieer() Do ConverterMock.Verifieer() Do MessageManagerMock.Verifieer() Do $$$AssertTrue(StreamOut.%IsA("%GlobalCharacterStream")) ]]> + + + + Index: WS/AX/Inventory/InventoryReceiveService.cls.xml =================================================================== diff -u -r49103 -r53899 --- WS/AX/Inventory/InventoryReceiveService.cls.xml (.../InventoryReceiveService.cls.xml) (revision 49103) +++ WS/AX/Inventory/InventoryReceiveService.cls.xml (.../InventoryReceiveService.cls.xml) (revision 53899) @@ -48,6 +48,13 @@ 1 ","") + if ##class(TECH.StreamUtils).IsTextInStream(In,$CHAR(160)){ + ;smijt een exceptie omat er wsl een nbsp in een korttekst zit, iig hoort de nbsp hier niet thuis. + Do ##class(TECH.Exceptions.InvalidInputException).Throw("In het ontvangstjournaal zit minstens char(160) characters (harde spaties). Contacteer ICT. Moet aan de bron (AX) aangepakt worden") + } #dim WMSJournalOutRequest As AXif.Dynamics.InventoryIn.MessageParts.AxdADUMsgWMSJournalOut = ..XmlCorrelater.FromStream(In, ##class(AXif.Dynamics.InventoryIn.MessageParts.AxdADUMsgWMSJournalOut).%ClassName(1), "ADUMsgWMSJournalOut") #dim WMSJournalOutResponse as AXif.Dynamics.Inventory.MessageParts = ..Converter.Convert(WMSJournalOutRequest,GUID)