Function LINKFormatHyb (Ctrl As Control, IsInit As Integer, IdOnglet As Integer) As Integer
Dim sData$
Dim Ret%
Dim s1$
Dim i%
Dim sRef$
Dim iLig%

LinkModeCreation = False
sRef = sLibLINKGetRef(201)
Ret = XasUserSetProperties(FrmPage.CelCible, 18, 1)
Ret = XasUserSetProperties(FrmPage.CelCible, 139, 1) 'HIGHLIGHT
If IsInit = True Then
    Ret = LINKSETCombo(0, 0)
End If
GlobStringError = ";;;;;;;;;;;"
GlobRowError = ";;;;;;;;;;;"
Ret = XasUserSetProperties(FrmLink.LabMsg, 7, "")
Ret = XasUserSetProperties(FrmLink.BtnVers(0), 9, False)
Ret = XasUserSetProperties(FrmLink.BtnVers(1), 9, False)
Ret = XasUserSetProperties(FrmLink.BtnVers(2), 9, True)

Ret = SetContainer(FrmPage.CelCible, CComponent, GlobCurService, 99, "FrmLink.CelLink")
Ret = XasUserSetProperties(FrmLink.BtnVers(0), 78, GlobCurService + ".FrmLink.GridPage")

Ctrl.Clear
Ret = XasXMLDom(GlobCurFileDom, GlobCurService + ".FrmLink.GridPage", 0)
sData = "SELECT TOP 50 name, text, value,statut,enabled,id,src "
sData = sData + " FROM linkcarte "
sData = sData + " WHERE " + GetCharByIndice(sRef, ";", 2) + ".xxKey = " + GlobCurEntity
sData = sData + " AND type.integer = " + CStr(GlobLinkCarteType)
sData = sData + " USEINDEX('" + GetCharByIndice(sRef, ";", 3) + "')"
'Ret = XasUserSQLtoCtrl(1, TmpRowSet, "Adetail.Ctrl", sData, GlobCurFileDom)
Ret = pTmpExecute(sData)
If Ret = True Then
    iLig = 0
    While (Ret = True)
	iLig = iLig + 1
	Ctrl.Row = iLig
	Ctrl.Col = 1
	Ctrl.Text = pTmpGetItem(0)
	Ctrl.Col = 2
	Ctrl.Text = pTmpGetItem(1)
	If GlobLinkCarteType = 2 Then
	    s1 = LINKGetCboValeur(pTmpGetItem(2), pTmpGetItem(6))
	    Ctrl.Col = 3
	    Ctrl.Text = s1
	Else
	    Ctrl.Col = 3
	    Ctrl.Text = pTmpGetItem(2)
	End If
	Ctrl.Col = 4
	If pTmpGetItem(3) <> "0.0" Then
	    s1 = sLibLFGetDataCombo(FrmLink.cbp(0), pTmpGetItem(3), 2, 1)
	    Ctrl.Text = s1
	End If
	
	Ctrl.Col = 5
	s1 = pTmpGetItem(4)
	If Val(s1) = 1 Then
	    Ret = sLibSetIconAction(Ctrl, iLig, 5, "", "6")
	Else
	    Ret = sLibSetIconAction(Ctrl, iLig, 5, "", "7")
	End If
	
	Ctrl.Row = iLig
	Ctrl.Col = 6
	Ctrl.Text = pTmpGetItem(5)
	Ctrl.Col = 7
	Ctrl.Text = pTmpGetItem(6)
	
	Ret = pTmpMoveNext(0)
    Wend
    MaxgridRow = iLig
    iLig = iLig + 1
    Ctrl.Rows = iLig
Else
    Ctrl.Rows = 2
    Ret = XasUserSetProperties(FrmLink.LabMsg, 7, "")
End If


End Function