Function IMPGetFormat (sFile As String, Id As Integer) As Integer
Dim Ret%
Dim IdXml%
Dim i%
Dim sA$
Dim sB$
Dim Cpt%
Dim MaxLen%

CurIdFormat = 0
For i = 1 To 24
    cbo(i).Clear
Next i
For i = 0 To 23
    Tx(i).Text = "0"
    Txf(i).Text = "0"
Next i
IdXml = XasXmlOpen(sFile, 0, 0, 0, 0)
If IdXml <> 0 Then
    Ret = XasXmlSearchNode(IdXml, 5, "Id=" + CStr(Id), "", "")
    If Ret <> False Then
	Ret = XasXmlChildNode(IdXml, sA)
	While (Ret <> False)
	    If Ret = 67 Then
		Ret = XasXMLGetAttributbyName(IdXml, "Name", sA)
		Ret = XasXMLGetAttributbyName(IdXml, "Id", sB)
		If sA <> "" And sB <> "" Then
		    For i = 1 To 24
			cbo(i).AddItem sA + Space(40) + sB
		    Next i
		End If
	    Else
		If Ret = 66 Then
		    Ret = XasXMLGetAttributbyName(IdXml, "Id", sA)
		    Ret = XasXMLGetAttributbyName(IdXml, "Index", sB)
		    i = Val(sA)
		    Ret = PosCombo(cbo(i), sB)
		    cbo(i).Visible = True
		    Ret = XasXMLGetAttributbyName(IdXml, "Min", sA)
		    Ret = XasXMLGetAttributbyName(IdXml, "Max", sB)
		    Tx(i - 1).Text = sA
		    Txf(i - 1).Text = sB
		    Tx(i - 1).Visible = True
		    Txf(i - 1).Visible = True
		    Lb(i + 1).Visible = True
		    i = Val(sB)
		    i = i - Val(sA)
		    i = i + 1
		    Ret = XasXMLSetAttributbyName(IdXml, "size", CStr(i))
		    MaxLen = MaxLen + i
		    Cpt = Cpt + 1
		End If
	    End If
	    Ret = XasXmlNextNode(IdXml, sA)
	Wend
	If Cpt > 0 Then
	    Ret = XasXmlStart(IdXml, 0)
	    Ret = XasXmlSearchNode(IdXml, 5, "Id=" + CStr(Id), "", "")
	    If Ret <> False Then
		Ret = XasXMLSetAttributbyName(IdXml, "Max", CStr(Cpt))
		Ret = XasXMLSetAttributbyName(IdXml, "size", CStr(MaxLen))
		Ret = XasXmlSetAttribut(IdXml, -1, "")
		CurIdFormat = Id
	    End If
	End If
    End If
    Ret = XasXmlClose(IdXml)
End If
End Function