Function BuildFunction (Id As Integer) As Integer
Dim Ret%
Dim s$
Dim sA$
Dim i%
Dim sData$
Dim sFonc$

sData = ""
BuildFunction = False
If CurCompoXXL <> 0 Then
    Ret = XasXmlStart(CurCompoXXL, 0)
    Ret = XasXmlSearchNode(CurCompoXXL, 57, "Name=" + GlobxRpcFunction, "", "")
    If Ret <> False Then
        i = 0
        Ret = XasXmlGetAttributByName(CurCompoXXL, "Name", sFonc)
        Ret = XasXmlChildNode(CurCompoXXL, s)
        If Ret <> False Then
            While (Ret <> False)
                If Ret = 66 Then
                    If i <= 5 Then
                        Ret = XasXmlGetAttributByName(CurCompoXXL, "Type", sA)
                        s = txt(i).Text
                        If WidthCote(UCase$(sA)) = True Then
                            sData = sData + Chr$(34) + s + Chr$(34) + ","
                        Else
                            If s <> "" Then
                                sData = sData + s + ","
                            Else
                                sData = sData + "0" + ","
                            End If
                        End If
                        i = i + 1
                    End If
                End If
                Ret = XasXmlNextNode(CurCompoXXL, s)
            Wend

        End If
    End If
End If

If sData = "" Then
    s = GlobxRpcFunction + " ( ) "
Else
    s = GlobxRpcFunction + " (" + Left$(sData, Len(sData) - 1) + ") "
End If
Ret = xRPCCallFunction(GlobxRpcIdSession, GlobxRpcComponent, GlobxRpcModule, s, 6)
PicBtn(1).Visible = True
xLb(14).Visible = True
txt(5).Visible = True

End Function