Function FaireCritere (IdB As Integer) As Integer
Dim i%
Dim Ret%

					     
FaireCritere = False
CelFond(0).Caption = TabFond(0)
Ret = XasUserSetProperties(PicBtn(0), 241, "javascript:self.close();")

For i = 0 To MaxCritere
    lh(i).Visible = False
    Cri(i).Visible = False
    Cri(i).Clear
    Cri(i).Refresh
    Cri(i).AddItem "(Tous)" + Space(40) + "?????"
Next i

sCond = ""
For i = 0 To MaxCritere
    If TabId(i) <> "" Then
	sCond = sCond + "c" + CStr(i) + TabSigne(i) + TabId(i) + " AND "
    End If
Next i
If sCond <> "" Then
    Ret = FaireSQLtoCOMBO("Exec S_GetCrit " + CStr(GlobPU.XasIdBase) + ",'" + Left$(sCond, Len(sCond) - 4) + "'")
Else
    Ret = FaireSQLtoCOMBO("Exec S_GetCrit " + CStr(GlobPU.XasIdBase) + ",''")
End If
If Ret <> True Then
    Exit Function
End If
For i = 0 To MaxCritere
    If TabId(i) <> "" Then
	Ret = PosCombo(i, TabId(i))
    End If
Next i
sCond = ""
MaPhrase = "Aucun critères sélectionnés "

If CurEtat_id = 7 Or CurEtat_id = 12 Then
    Ret = DoCondition2(0)
Else
    Ret = DoCondition(0)
End If
If sCond <> "" Then
    Ret = pExecute("select count(*) from qualifFid q WHERE q.Gestionnaire_id= " + CStr(GlobPU.XasIdBase) + sCond)
Else
    Ret = pExecute("select count(*) from qualifFid q WHERE q.Gestionnaire_id= " + CStr(GlobPU.XasIdBase))
End If
If Ret = True Then
    lb.Caption = "Vous avez " + CStr(OnSqlGetItem(0)) + " enregistrement(s) correspondant à votre sélection"
    Ret = XasUserSetString(101, sCond)
    Ret = XasUserSetString(102, MaPhrase)
    Ret = XasUserSetProperties(PicBtn(0), 241, "javascript:XasClose(self,'" + Referer + "');")
Else
    lb.Caption = "Vous n'avez aucun enregistrement(s) correspondant à votre sélection"
End If

FaireCritere = True
End Function