Function HandleMethod (sFonc As String, sId As String, iType As Integer) As Integer
Dim Ret%
Dim s$
Dim sA$
Dim i%
Ret = ClearAll(4, 4)
If CurCompoXXL <> 0 Then
    Ret = XasXmlStart(CurCompoXXL, 0)
    Ret = XasXmlSearchNode(CurCompoXXL, 57, "Id=" + sId, "", "")
    If Ret <> False Then
        Ret = XasXmlGetAttributByName(CurCompoXXL, "Text", sA)
        xLb(4).Caption = sA
        Ico(2).Visible = True
        i = 0
        Ret = XasXmlChildNode(CurCompoXXL, s)
        If Ret <> False Then
            While (Ret <> False)
                If Ret = 66 Then
                    i = i + 1
                    If i <= 5 Then
                        Ret = XasXmlGetAttributByName(CurCompoXXL, "Name", s)
                        Ret = XasXmlGetAttributByName(CurCompoXXL, "Type", sA)
                        s = s + "." + sA
                        xLb(i + 4).Caption = s
                        xLb(i + 4).Visible = True
                        txt(i - 1).Visible = True
                        Cel(0).Visible = True
                        Cel(3).Visible = False
                        Cel(2).Visible = False
                    End If
                End If
                Ret = XasXmlNextNode(CurCompoXXL, s)
            Wend
        End If
        If i = 0 And iType = 3 Then
            Cel(0).Visible = True
            Cel(3).Visible = False
            Ret = PosCombo(cbo(4), "0")
        Else
            Ret = PosCombo(cbo(3), "0")
        End If
    End If
End If


End Function