Function DoSetParam (Id As Integer) As Integer
Dim Ret%
Dim s$
Dim s2$
Dim i%
Dim Max%

ModeIn = 0
IdMaitre = 0
IsArticle = 0
CurEtat_id = 0

Ret = XasUserSetProperties(PicBtn(0), 241, "javascript:self.close();")
If XasUserGetString(1, s) = True Then
    CurEtat_id = Val(s)
End If

If XasUserGetString(2, s) = True Then
    sujet = s
    Ret = XasXMLToForm(GlobPU.XasName, sujet)
End If
If XasUserGetString(3, s) = True Then
    Referer = "Id" + CStr(Val(s))
End If
Ret = SetPaysToForm(Val(GlobPU.XasPays))


If CurEtat_id > 0 Then
    For i = 0 To MaxCritere
	If TabIdCaption(i) <> "" Then
	    Cri(i).Enabled = False
	End If
	TabSigne(i) = "="
    Next i
    TabSigne(5) = ">="
    TabSigne(6) = "<="
    Ret = FaireCritere(0)
    If Ret = False Then
	Ret = DoAnnul(0)
    End If
End If
CelFond(1).Visible = True
CelFond(0).Visible = False

End Function