Function MESSFormatHyb (Ctrl As Control, IsInit As Integer) As Integer
Dim Ret%
Dim sData$
Dim s1$
Dim i%

ModeCreation = False
If IsInit = True Then
    GlobGridRow = 0
    GlobGridCol = 0
    GlobGridSorded = 0
    Ret = XasUserSetProperties(FrmMain.CelContain, 18, 1)
Else
    Ret = XasUserSetProperties(FrmMain.CelJob, 18, 1)
End If
GlobCurColId = 11
Ret = XasXMLDom(GlobCurFileDom, GlobCurService + ".FrmMain.GridMess", 0)
Ret = XasUserSetProperties(FrmMain.LabMsg, 7, "")
Ret = XasUserSetProperties(FrmMain.LabMsg, 146, "submiddlebar")
Ret = XasUserSetProperties(FrmMain.BtnVers(0), 9, False)
Ret = XasUserSetProperties(FrmMain.BtnVers(1), 9, False)
Ret = XasUserSetProperties(FrmMain.BtnVers(2), 9, True)
Ret = XasUserSetProperties(FrmMain.BtnVers(0), 78, GlobCurService + ".FrmMain.GridMess")
sData = "SELECT TOP 100 "
sData = sData + " designation,phone,email, "
sData = sData + " tpe_name.GetData(adresseip,hardware,name), "
sData = sData + " tpe_name, "
sData = sData + " CodeClient,CodeClient,CodeClient,CodeClient,CodeClient,CodeCLient,  "
sData = sData + " CodeClient  "
sData = sData + " FROM CLIENT "
sData = sData + " WHERE CodeClient.xxkey != 0.0"
If GlobLinkEntity <> "" Then
    sData = sData + " AND CodeClient.xxKey IN(" + GlobLinkEntity + ")"
End If
s1 = GetCharByIndice(GlobsActionOnglet(GlobCurActifOnglet), ";", 2)
If s1 <> "" Then
    sData = sData + " AND CodeClient.xxKey IN( SELECT TOP 300 CodeClient From LinkSite WHERE CodeSite.xxKey IN(" + s1 + "))"
End If
s1 = GetCharByIndice(GlobsActionOnglet(GlobCurActifOnglet), ";", 3)
If s1 <> "" Then
    sData = sData + " AND CodeClient.GetData(Type,Client,CodeClient).integer IN(" + s1 + ")"
End If
sData = sData + MESSSQLGetOrder(GlobGridRow, GlobGridCol, GlobGridSorded)
Ret = XasUserSQLtoCtrl(1, TmpRowSet, GlobCurService + ".FrmMain.GridMess", sData, GlobCurFileDom)
If Ret > 0 Then
    MaxGridRow = Ret - 1
    For i = 1 To MaxGridRow
         Ctrl.Row = i
          
         Ret = sLibSetIconAction(Ctrl, i, 6, MsgLabel(21), "ecran")
         Ret = sLibSetIconAction(Ctrl, i, 7, MsgLabel(21), "ticket")
         Ret = sLibSetIconAction(Ctrl, i, 8, MsgLabel(21), "Mail")
         Ret = sLibSetIconAction(Ctrl, i, 9, MsgLabel(21), "SMS")
         Ret = sLibSetIconAction(Ctrl, i, 10, MsgLabel(21), "fax")
         Ret = sLibSetIconAction(Ctrl, i, 11, MsgLabel(21), "vocal")
    Next i
Else
    Ctrl.Rows = 2
    Ret = XasUserSetProperties(FrmMain.LabMsg, 7, "")
    Ret = XasUserSetProperties(FrmMain.LabMsg, 146, "labelalert")
End If

End Function