Function SetCboCatEntity (Id As Integer) As Integer
Dim Ret%
Dim sData$

sData = "SELECT TOP 50 raisonsociale, CodeSite"
sData = sData + " FROM Site"
sData = sData + " WHERE CodeSite.xxKey != 0.0"
sData = sData + " AND type.integer=3"
If GlobLinkSite <> "" Then
    sData = sData + " AND CodeSite.xxKey IN(" + GlobLinkSite + ")"
End If
CboCat.Height = 285
Ret = XasUserSQLtoCtrl(1, TmpRowSet, GlobCurService + ".FrmMain.cboCat", sData, GlobCurFileDom)
Ret = XasUserSetProperties(CboCat, PROP_SUBMIT, 3)
Ret = XasUserSetProperties(CboCat, 154, "Id" + XasGetIdCtrl(CelCat, "", 0))    'Size

sData = "Select Alias,Type  From @@XasUserPays.TypeClient "
sData = sData + " WHERE Type.integer IN ("
sData = sData + "Select DISTINCT type From " + GlobPU.Connect + ".dbo.Client WHERE type.integer != 0"
sData = sData + ") Order By Id.integer"
cboEntity.Height = 285
Ret = XasUserSQLtoCtrl(1, TmpRowSet, GlobCurService + ".FrmMain.cboentity", sData, GlobCurFileDom)
Ret = XasUserSetProperties(cboEntity, PROP_SUBMIT, 3)
Ret = XasUserSetProperties(cboEntity, 154, "Id" + XasGetIdCtrl(CelEntity, "", 0))    'Size

End Function