B1WS Smart Device Soap Error

Question

Hello Experts,
I am trying to create a b1ws client for 8.8 PL10 on using cf.net 3.5 (VS 2008, emulator Pocket PC 2003 SE) and connecting is fine. I get the connection string which I pass to glbdata.sessionID.
However, when I try to logout, I get "Error in SOAP command 'Logout'"
logout code:
        Try
            Dim l_login As LoginService = New LoginService
            l_login.Url = "http://192.168.0.250/B1WS/Service.asmx"
            Dim _msgHeader As MsgHeader = New MsgHeader()
            _msgHeader.SessionID = GlbData.SessionID
            l_login.MsgHeaderValue = _msgHeader
            l_login.Logout()
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.DefaultButton2)
        End Try
This code works fine on a normal windows application (only difference being that the URL property is unncessary due to app.config).
Any ideas?
P.S. Am I likely to encounter many problems trying to consume b1ws services with cf.net?

Answer 1

This is from the log of the DI server:
<?xml version="1.0"?><env:Envelope xmlns:env="http://www.w3.org/2003/05/soap-envelope"><env:Body><env:Fault><env:Code><env:Value>env:Receiver</env:Value><env:Subcode><env:Value>-1</env:Value></env:Subcode></env:Code><env:Reason><env:Text xml:lang="en">Error in SOAP command 'Logout'</env:Text></env:Reason><env:Detail><Command>Logout</Command><SessionID>6471E63C-7214-434B-A911-3097CC2C9564</SessionID></env:Detail></env:Fault></env:Body></env:Envelope>
24/08/2010  17:01:28  Response (Fault)
Unfortunately it is not very helpful in isolating the problem.
I also tried a basic stock transfer (this code works in a standard forms application):
  Public _Service As StockTransferService
    Public Sub New()
        _Service = New StockTransferService
        _Service.Url = "http://192.168.0.250/B1WS/Service.asmx"
        Dim msgHeader As MsgHeader = New MsgHeader()
        msgHeader.SessionID = GlbData.SessionID
        msgHeader.ServiceName = MsgHeaderServiceName.StockTransferService
        msgHeader.ServiceNameSpecified = True
        _Service.MsgHeaderValue = msgHeader
    End Sub
    Public Function Add() As StockTransferParams
        Dim _transferParams As StockTransferParams = Nothing
        Try
            Dim _transfer As StockTransfer = New StockTransfer
            _transfer.StockTransferLines = New StockTransferStockTransferLine(1) {}
            _transfer.StockTransferLines(0) = New StockTransferStockTransferLine
            _transfer.StockTransferLines(0).ItemCode = "A0001"
            _transfer.StockTransferLines(0).WarehouseCode = "02"
            _transfer.Comments = ",jhgljhkjhjkh"
            _transferParams = _Service.Add(_transfer)
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.DefaultButton2)
        End Try
        Return _transferParams
    End Function
But this threw out an error too:
25/08/2010  09:57:24  Response (Fault)
<?xml version="1.0"?><env:Envelope xmlns:env="http://www.w3.org/2003/05/soap-envelope"><env:Body><env:Fault><env:Code><env:Value>env:Receiver</env:Value><env:Subcode><env:Value>-1</env:Value></env:Subcode></env:Code><env:Reason><env:Text xml:lang="en">Error in 'StockTransferService' during command 'Add'</env:Text></env:Reason><env:Detail><Command>Add</Command><SessionID>BE88D57D-6669-4036-8F33-63F51CF18CA3</SessionID></env:Detail></env:Fault></env:Body></env:Envelope>
Any assistance would be greatly appreciated.
Edited by: L Soyer on Aug 25, 2010 9:16 AM