Function ARTGereCompo (Ctrl As Control, iRow As Integer, iCol As Integer, iValue As Integer) As Integer
Dim Ret%
Dim sId$
Dim sData$
Dim iMax%


Ret = XasUserSetProperties(FrmGes.LabMsg, 7, "")
Ctrl.Row = iRow
Ctrl.Col = 3
sId = Ctrl.Text
If sId = "" Then
    Ctrl.Selected(iRow) = 0
    Exit Function
End If

If iValue = 1 Then
    Ret = pExecute("CLEAR")
    sData = "Select CodeProduit From Produit WHERE CodeProduit.xxKey=" + GlobCurEntity
    Ret = pExecute(sData)
    If Ret = True Then
	sData = "INSERT INTO Produit.ArticleCompo (Id, cle) VALUES ('" + GlobCurEntity + "','" + sId + "')"
	Ret = pExecute(sData)
    End If
Else
    sData = "DELETE * FROM ArticleCompo WHERE id.xxKey = " + GlobCurEntity + " AND cle.xxKey =" + sId
    Ret = pExecute(sData)
End If
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, "Article.FrmGes.GridCompo", sData, GlobCurFileDom)
If Ret > 0 Then
    iMax = Ret - 1
    Ret = sLibCtrlSelectAll(FrmGes.GridCompo, iMax, 1)
End If
Ret = XasUserSetProperties(FrmGes.CelA(4), 18, 1)

End Function