Function xRPCHandleClient (iMode As Integer, sFile As String) As Integer
Dim Ret%
Dim s$
Dim sFileOut$

xRPCHandleClient = False
sFileOut = GlobPU.XasName + "-Cur.XML"
Ret = XasUserCopyFile(0, sFile, sFileOut)
Select Case iMode
    Case 1
        Ret = xRPCGetIdSession(sFile)
        Ret = SetIhmOut(sFileOut, True)
    Case 4
        Kill sFileOut
        Ret = DoXMLToFile(sFileOut, "" + Chr$(13) + Chr$(10))
        Ret = DoXMLToFile(sFileOut, "" + Chr$(13) + Chr$(10))
        Ret = XasUserCopyFile(2, sFile, sFileOut)
        Ret = DoXMLToFile(sFileOut, "" + Chr$(13) + Chr$(10))
        Ret = SetIhmOut(sFileOut, True)

    Case 5

    Case 6
        s = xRPCGetReturn(GlobxRpcIdSession, sFile)
        Ret = SetIhmOut(sFileOut, True)
    
    Case 98
        GlobxRpcIdSession = ""
        GlobxRpcFileSession = ""
        Ret = xRPCInitSession(GlobxRpcComponent, 1, GlobxRpcPassWord)
        Ret = SetIhmOut(sFileOut, True)
        XasTrace " Re ---- Connect"
    
    Case 99
        Ret = SetIhmOut(sFileOut, True)
        GlobxRpcIdSession = ""
        GlobxRpcFileSession = ""
    Case Else
        XasTrace " xRPCHandleClient (Nothing to do)->" + CStr(iMode)
End Select
Kill sFile
End Function