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)