Function ARTFormatPage (IdOnglet As Integer) As Integer
Dim Ret%
Dim sData$
Dim iMax%
Dim iType%
Dim s$

Ret = ARTPageClearAll(21, 5)
Ret = XasUserSetProperties(FrmPage.CelCible, 139, 1) 'HIGHLIGHT
Ret = XasUserSetProperties(FrmPage.CelCible, 18, 1)
Ret = XasUserSetProperties(FrmGes.BtnGes(0), 9, True)
Ret = XasUserSetProperties(FrmGes.BtnGes(1), 9, True)
If GlobCurEntity <> "" Then
    Ret = XasUserSQLToForm(1, RowSet, GlobCurService + ".FrmGes.CelPage", "Produit", "CodeProduit.xxKey=" + GlobCurEntity)
    If Ret > 0 Then
	s = FrmGes.txt(9).Text
	If s <> "" Then
	    Ret = XasUserSetProperties(FrmGes.PicHtm, 1, "/site/" + s)
	Else
	    Ret = XasUserSetProperties(FrmGes.PicHtm, 1, "#")
	End If
	Ret = XasUserSQLToForm(1, RowSet, GlobCurService + ".FrmGes.CelPage", "ArticleStock", "CodeProduit.xxKey = " + GlobCurEntity)
	sData = "SELECT TOP 50 Reference,name,CodeProduit "
	sData = sData + " FROM Produit  "
	sData = sData + " WHERE CodeProduit.xxKey IN ( "
	sData = sData + " SELECt cle FROM ArticleCompo WHERE id.xxKey= " + GlobCurEntity + ")"
	Ret = XasUserSQLtoCtrl(1, TmpRowSet, GlobCurService + ".FrmGes.GridCompo", sData, GlobCurFileDom)
	If Ret > 0 Then
	    iMax = Ret - 1
	    Ret = sLibCtrlSelectAll(FrmGes.GridCompo, iMax, 1)
	End If
	Ret = SetContainer(FrmPage.CelCible, CComponent, GlobCurService, 99, "FrmGes.CelPage")
    End If
Else
    Ret = XasUserSetProperties(FrmGes.LabMsg, 7, MsgLabel(1))
End If

End Function