WS.OngeauthenticeerdeWebService InventoryReceiveService http://www.vanhoecke.be/AX/Inventory/InventoryReceiveService AXimpl.Dynamics.InventoryIn.Converter.InventoryInConverter 1 TECH.XMLCorrelater 1 AXimpl.MessageManager 1 Converter:AXimpl.Dynamics.InventoryIn.Converter.InventoryInConverter="",XmlCorrelater:TECH.XMLCorrelater="",MessageManager:AXimpl.MessageManager="" 1 1 %Status 1 In:%GlobalCharacterStream %GlobalCharacterStream 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) Quit ##class(TECH.XmlObjectUtils).GeefXMLStream(WMSJournalOutResponse.MessagePart) ]]>