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

ModeCreation = False
If IsInit = True Then
    GlobGridRow = 0
    GlobGridCol = 0
    GlobGridSorded = 0
    Ret = OPESetRech(Ctrl, "2;1;5;7;")
    Ret = PUSHSETCombo(15)
    Ret = XasUserSetProperties(FrmMain.CelContain, 18, 1)
Else
    Ret = XasUserSetProperties(FrmMain.CelJob, 18, 1)
End If
GlobCurColId = 11
Ctrl.Clear
Ret = XasXMLDom(GlobCurFileDom, GlobCurService + ".FrmMain.GridPush", 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.GridPush")
sData = "SELECT TOP 100 "
sData = sData + "id.GetData(type,Client,CodeClient), "
sData = sData + "id.GetData(raisonsociale,Client,CodeClient), "
sData = sData + "id.GetData(identifiant,Client,CodeClient), "
sData = sData + "id.GetData(designation,Client,CodeClient), "
sData = sData + "id.GetData(matricule,Client,CodeClient), "
sData = sData + "maj.Format(27),maj.format(6),  "
sData = sData + "src,alink.GetData(name,@@XasUserPays.typepush,id),Text,"
sData = sData + "netchangeid "
sData = sData + "FROM netchange "
sData = sData + " WHERE netchangeid.xxkey != 0.0"
sData = sData + " AND alink.integer < 100"
If GlobLinkEntity <> "" Then
    sData = sData + " AND id.xxKey IN(" + GlobLinkEntity + ")"
End If
If IsInit = False Then
    s1 = FrmMain.TxDesi.Text
    If s1 <> "" Then
        sData = sData + " AND date.xxDate ='" + s1 + "'"
    End If
    s1 = sLibCboToSQL(FrmMain.Cbr(0), 1)
    If s1 <> "" Then
        sData = sData + " AND type.xxKey IN(" + s1 + ")"
    End If
    s1 = sLibCboToSQL(FrmMain.Cbr(1), 1)
    If s1 <> "" Then
        sData = sData + " AND name.GetData(CodeProgramme,transaction,id).xxKey IN(" + s1 + ")"
    End If
    s1 = sLibCboToSQL(FrmMain.Cbr(2), 1)
    If s1 <> "" Then
        sData = sData + " AND alink.integer IN(" + s1 + ")"
    End If
End If
sData = sData + PUSHSQLGetOrder(GlobGridRow, GlobGridCol, GlobGridSorded)
Ret = pTmpExecute(sData)
If Ret = True Then
    While (Ret = True)
        iLig = iLig + 1
        Ctrl.Row = iLig
        Ctrl.Col = 1
        iType = Val(pTmpGetItem(0))
        If sLibIsTypePro(iType) = True Then
            sData = pTmpGetItem(1)
        Else
            sData = sLibSetLabForRules(0, GlobIHMRules, pTmpGetItem(2), pTmpGetItem(3), pTmpGetItem(4))
        End If
        Ctrl.Text = sData

        Ctrl.Col = 2
        Ctrl.Text = pTmpGetItem(5)
        Ctrl.Col = 3
        Ctrl.Text = pTmpGetItem(6)
        Ctrl.Col = 6
        sData = GetCharByIndice(pTmpGetItem(7), "|", 2)
        Ctrl.Text = sData
        Ctrl.Col = 7
        Ctrl.Text = pTmpGetItem(8)
        s1 = GetCharByIndice(pTmpGetItem(9), "|", 4)
        If s1 <> "" Then
            Ret = pExecute("SELECT icon,name FROM Scenario WHERE id.xxKey=" + s1 + " USEINDEX('IdScenario')")
            If Ret = True Then
                Ctrl.Col = 4
                s1 = GetCharByIndice(OnSQLGetItem(0), ",", 1)
                Ret = sLibSetIconAction(Ctrl, iLig, 4, OnSQLGetItem(1), s1)
                Ctrl.Col = 5
                Ctrl.Text = OnSQLGetItem(1)
            End If
        End If
        s1 = GetCharByIndice(pTmpGetItem(9), "|", 3)
        Ctrl.Col = 11
        Ctrl.Text = s1
        s1 = GetCharByIndice(pTmpGetItem(9), "|", 1)
        If s1 <> "" Then
            Ret = pExecute("SELECT name FROM modeledoc WHERE id.xxKey=" + s1)
            If Ret = True Then
                Ctrl.Col = 8
                Ctrl.Text = OnSQLGetItem(0)
            End If
        End If
        Ret = sLibSetIconAction(Ctrl, iLig, 10, TrneeLabel(3), "35")
        Ret = pTmpMoveNext(0)
    Wend
    iLig = iLig + 1
Else
    iLig = 2
    Ret = XasUserSetProperties(FrmMain.LabMsg, 7, "")
    Ret = XasUserSetProperties(FrmMain.LabMsg, 146, "labelalert")
End If
Ctrl.Rows = iLig

End Function