Function TRNEEFormatHyb (ctrl As Control, IsInit As Integer) As Integer
Dim Ret%
Dim sData$
Dim s1$
Dim s$
Dim i%

ModeCreation = False
If IsInit = True Then
    GlobGridRow = 0
    GlobGridCol = 0
    GlobGridSorded = 0
    Ret = TRNEESETCombo(15)
    Ret = OPESetRech(ctrl, "1;3;5;6;")
    Ret = XasUserSetProperties(FrmMain.CelContain, 18, 1)
Else
    Ret = XasUserSetProperties(FrmMain.CelJob, 18, 1)
End If
GlobCurColId = 11
Ret = XasXMLDom(GlobCurFileDom, GlobCurService + ".FrmMain.GridList", 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.GridList")
sData = "SELECT TOP 50 designation,identifiant,maj,maj,carteid,carteid, "
sData = sData + " Enabled,"
sData = sData + " banque.getbyindice(1),"
sData = sData + " banque.getbyindice(2),"
sData = sData + " maj,CodeClient "
sData = sData + " FROM Client "
sData = sData + " WHERE type.integer = 15"
sData = sData + " AND titre.integer = " + CStr(GlobCurActifOnglet + 1)
s1 = ""
If IsInit = False Then
    s1 = FrmMain.TxDesi.Text + Chr$(3)
    s1 = s1 + sLibCboToSQL(FrmMain.Cbr(0), 1) + Chr$(3)
    s1 = s1 + sLibCboToSQL(FrmMain.Cbr(1), 1) + Chr$(3)
End If
sData = sData + xGetDataSearch(1, 2, s1)
sData = sData + TRNEESQLGetOrder(GlobGridRow, GlobGridCol, GlobGridSorded)
Ret = XasUserSQLtoCtrl(1, TmpRowSet, GlobCurService + ".FrmMain.GridList", sData, GlobCurFileDom)
If Ret > 0 Then
    MaxGridRow = Ret - 1
    For i = 1 To MaxGridRow
         ctrl.Row = i

         ctrl.Col = 3
         ctrl.Text = TrneeLabel(2)
         ctrl.Col = 4
        ctrl.Text = TrneeLabel(2)
         
         ctrl.Col = 7
         s1 = ctrl.Text
         If Val(s1) = 1 Then
            Ret = sLibSetIconAction(ctrl, i, 7, "", "6")
         Else
            Ret = sLibSetIconAction(ctrl, i, 7, "", "7")
         End If
         Ret = sLibSetIconAction(ctrl, i, 10, TrneeLabel(3), "35")
    Next i
Else
    ctrl.Rows = 2
    Ret = XasUserSetProperties(FrmMain.LabMsg, 7, "")
    Ret = XasUserSetProperties(FrmMain.LabMsg, 146, "labelalert")
End If

End Function